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

                                                                              31




задающего шаблон. Для задания тонкой линии по данному шаблону необходимо
установить
        SetLineStyle(4,$F0F0,1) или SetLineStyle(UserBitln,$F0F0,NormWidln)
       Назначение стиля линий распространяется на действие всех процедур,
выводящих на экран отрезки или фигуры, состоящие из отрезков линий. При
выводе дуг учитывается только толщина, заданная в стиле линии.
       Для получения информации о текущем стиле линий используется
процедура GetLineSetting(T_Line), где T_line - переменная типа LineSettingsType,
запись поля которой задают тип, шаблон и толщину линий.
       Следующая программа выводит в правой половине экрана множество точек
различного цвета, а в левой множество линий различного стиля и цвета.
       Uses crt,graph;
              Var xmax,ymax,xc,yc:word;
{Здесь должна располагаться процедура инициализации графического режима}
       Procedure ris;
              var xc,yc,i,t:word; x1,x2,y1,y2,x,y:integer;
       begin
 randomize; { Обеспечение новой случайной последовательности при
                 каждом новом запуске программы на выполнение}
 xmax:=getmaxx; ymax:=getmaxy;
 xc:=xmax div 2; yc:=ymax div 2; {Определение координат центра экрана}
 for i:=1 to 200 do begin
 x:=random(xc); y:=random(ymax); {Определение случайных координат точек}
 putpixel(x,y,random(15));
                     end;
 for i:=1 to 100 do
 begin
  t:=random(3); {Назначение толщины линий}
  if t=2 then t:=1;
  setlinestyle(random(3),0,t); {Назначения стиля линий}
  setcolor(random(getmaxcolor));{Назначение случайного цвета}
       {Определение координат концов отрезков линий}
  x1:=xc+random(xc);
  x2:=xc+random(xc);
  y1:=random(ymax);
  y2:=random(ymax);
  line(x1,y1,x2,y2); {рисование линии }
 end;
 readkey;
 end;
 begin
 Init_graph_Mode;
 Ris;
 Closegraph;
 end.
                                                                              31