Textcolor, Window, Textbackground в Pascal.

Текст, который мы выводим на экран с помощью процедуры Writeln или с помощью оператора Write можно изменять. Процедура Textcolor используется для изменения цвета выводимого текста. Процедура Textbackground изменяет цвет фона, на котором выводится ...

Abs, Sqr в Pascal.

Abs - функция языка Паскаль, которая вычисляет модуль числа.
Sqr - функция языка Паcкаль, которая возводит число в квадрат.

Процедура Writeln в Pascal

Помимо зарезервированного слова Write, для вывода сообщения на экран в Pascal используется процедура Writeln. Отличие процедуры Writeln от оператора Write заключается в том, что Writeln после вывода сообщения на экран переводит курсор на другую ...

Циклы и массивы

Манипулирование строками STRING.

В языке Паскаль при работе с текстами чаще всего используются короткие строки типа STRING. Стандартные процедуры READLN(St), WRITE(St) и WRITELN(St) поддерживают ввод и вывод строк переменной длины ...

Массивы. Регулярные типы.

В простых типах данных каждое данное имеет свое название (идентификатор). В этом разделе вводится структурная взаимосвязь между данными, хранимыми в оперативной памяти путем организации массива, ...

Процедура MoveTo (x,y) служит для перемещения текущего указателя в точку с координатами (x,y). Процедура LineTo (x,y) рисует линию, в которой координатами начала линии будут координаты текущего указателя, а координатами конца – координаты (x,y).

 Процедуры MoveTo и LineTo.




Program Graphika4;
Uses Graph;
Procedure Graphinterface;
Var  gd, gm, error:Integer;
s:String;
Begin
gd:=detect;
s:=' ';
Initgraph(gd,gm,s);
error:=GraphResult;
if error<>GrOk then
begin
writeln(GraphErrorMsg(Error));
Halt(error)
end
end;
begin
Graphinterface;
MoveTo(200, 200);
LineTo(GetMaxX, GetMaxY);
ReadLn;
CloseGraph;
End.



В строке №3 - №16 записываем шаблонную процедуру запуска графического режима.

В строке №19 записываем процедуру MoveTo и указываем для нее координаты (200,200). Эта процедура перемещает текущий указатель в точку с заданными координатами. По умолчанию текущий указатель стоит в точке с координатами (0,0). При использовании процедуры MoveTo текущий указатель перемещается в точку с координатами (200, 200). Этот указатель – то же самое, что курсор в текстовом режиме, только курсор мы видим, а указатель – нет.

В строке №20 записываем процедуру LineTo и указываем для нее максимальные координаты. Таким образом, у нас выведется на экран линия, у которой начальными координатами будут координаты текущего указателя (200,200), а координатами конца будут координаты (GetMaxX, GetMaxY). Координаты (GetMaxX, GetMaxY) определяют максимальные координаты для данного монитора. Например, если у Вас монитор 1366?768, то GetMaxX будет равен 1366, а GetMaxY – 768.

move to line to

move to line to.


Дополнение к материалу.

  • Рисование линий с помощью процедуры LineTo не является правильным с точки зрения грамотного программирования. Для рисования линий лучше использовать процедуру Line. Процедуру LineTo целесообразно использовать, когда координаты начала линии совпадают с координатами текущего указателя.
  • Если при использовании процедуры LineTo не использовать процедуру MoveTo, то начальными координатами линии будут координаты (0,0).

Предыдущая статья : Функции GetmaxX и GetmaxY.

Оглавление : Уроки Паскаль. Графика.

Следующая статья : Процедура LineRel.


Добавить комментарий

   ГлавнаяПаскальГрафика в ПаскальПроцедуры MoveTo и LineTo.