Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 29 стр.

                                                                                29




 str(xmax,sx);str(ymax,sy); { Перевод числовых значений в строковые для
                                   вывода на экран в графическом режиме}
 outtextxy(5,5,'Размеры экрана = '+ sx + ' * ' + sy); { вывод сообщения}
 readkey;
 rectangle(100,150,350,200); { Рисование прямоугольника}
 c:=GetBkcolor; { Опрос цвета фона}
 cc:=GetColor; { Опрос цвета пера}
    str(c,sc); str(cc,scc);
 outtextxy(200,100,'Цвет фона = '+sc+' Цвет символов = '+scc);
 readkey;
 setbkcolor(7); { Установка нового цвета фона}
 setcolor(4);       {Установка нового цвета пера}
 rectangle(400,150,550,200);
  c:=GetBkcolor;
  cc:=GetColor;
  str(c,sc); str(cc,scc);
 outtextxy(200,230,'Цвет фона = '+sc+' Цвет символов = '+scc);
 readkey;
 setbkcolor(0);
 setcolor(14);
 rectangle(100,250,550,300);
 c:=GetBkcolor;
 cc:=GetColor;
      str(c,sc); str(cc,scc);
 outtextxy(200,350,'Цвет фона = '+sc+' Цвет символов = '+scc);
 readkey;
 end;
 begin {main program}
 Init_Graph_Mode; {Используем процедуру инициализации из предыдущего
                             примера}
 Ris;
 Closegraph;
 end.
                              2.2.4 Рисование точек и линий

       Для рисования точек используется процедура PutPixel(x, y, C);         здесь
x, y - координаты точки экрана, а С - её цвет. С - переменная типа Word.
       Функция GetPixel(x, y) - выдает номер цвета элемента графического
изображения в точке с координатами х и y.
       Для вывода линий можно использовать одну из трех процедур:
       1) Вывод отрезка заданного координатами начала и конца:
          Line(x1,y1,x2,y2);
x1, y1, x2, y2 - координаты начала и конца отрезка, переменные типа integer.
       2) Рисование линии от текущего указателя до точки с заданными
          координатами x и y: LineTo(x,y);
                                                                                29