Линии в Pascal: Line, LineTo, MoveTo

1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  

uses
  GraphABC; //Модуль для рисования в графическом окне

begin
  SetWindowCaption('Случайные отрезки');
  var W := WindowWidth;  //Ширина графического окна
  var H := WindowHeight; //Высота графического окна
  randomize;
  { Следующий цикл будет бесконечным, поскольку 
  условие True в цикле While всегда истинно: }
  while  do begin
    var n := random(5, 50); //количество отрезков от 5 до 50
    for var i := 1 to n do begin
      SetPenWidth(random(1, 10)); //толщина отрезков
      SetPenColor(ClRandom); //случайный цвет отрезка
      { Координаты первой точки: }
      var x1 := random(50, W - 50);
      var y1 := random(50, H - 50);
      { Координаты второй точки: }
      var x2 := random(50, W - 50);
      var y2 := random(50, H - 50);
      { Рисуем отрезок от точки (x1, y1) до точки (x2, y2): }
      Line(x1, y1, x2, y2) 
    end;
    sleep(2000); //задержка на 2 секунды
    ClearWindow //очищаем окно белым цветом
  end
end.

1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  
29  
30  
31  
32  
33  
34  
35  

uses
  Graph, Crt; { Подключаем модули }

var
  Gd, Gm, W, H, x1, y1, x2, y2, n, i, d: integer;

begin
  Gd := Detect;
  { Инициализируем графический режим: }
  InitGraph(Gd, Gm, '');
  W := GetMaxX; { Ширина графического окна }
  H := GetMaxY; { Высота графического окна }
  SetLineStyle(0,0,1); { Стиль линий }
  d := 50; { Отступ линий от краев окна }
  randomize;
  { Следующий цикл будет бесконечным: }
  while true do begin
    n := 5 + random(46); { Количество отрезков от 5 до 50 }
    for i := 1 to n do begin
      SetColor(Random(GetMaxColor)+1); { Случайный цвет отрезка }
      { Координаты первой точки: }
      x1 := d + random(W - 2 * d + 1);
      y1 := d + random(H - 2 * d + 1);
      { Координаты второй точки: }
      x2 := d + random(W - 2 * d + 1);
      y2 := d + random(H - 2 * d + 1);
      { Рисуем отрезок от точки (x1, y1) до точки (x2, y2): }
      Line(x1, y1, x2, y2)
    end;
    delay(2000); { Приостановка на 2 секунды }
    ClearDevice { Очищаем окно цветом фона или SetBkColor }
  end;
  readln;
  CloseGraph { Закрываем графику }
end.

1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  
29  
30  
31  
32  
33  
34  
35  
36  
37  
38  
39  
40  
41  
42  
43  
44  

uses
  GraphABC;

//Рисует n-конечную звезду
procedure myStar(n, x0, y0, r1, r2, pw: integer; C1, C2: Color); //r1 > r2 
var
  x, y, i, R: integer;
  a, da: real;
begin
  a := pi * random; //Начальный угол поворота - случайный
  da := pi / n; //Интервал изменения градуса(в радианах): 360/(2n)
  SetPenColor(C1);
  SetPenWidth(pw);
  for i := 0 to 2 * n do begin 
    //sleep(1000); //Задержка на 1 сек.(можно удалить)
    a := a + da; //Увеличиваем угол
    if odd(i) then R := r2 //Равен меньшему радиусу
    else R := r1; //Равен большему радиусу
    { Преобразование координат: }
    x := x0 + Round(R * cos(a));
    y := y0 + Round(R * sin(a));
    if i = 0 then MoveTo(x, y) //Устанавливаем начальную позицию
    else LineTo(x, y) //Проводим отрезки
  end;
  FloodFill(x0, y0, C2) //Закрашиваем внутринность звезды цветом C
end;

var
  x0, y0, r1, r2, n, pw: integer;
  C1, C2: Color;

begin
  n := 7; //Количество концов(углов) звезды
  { Координаты центра звезды - по центру окна: }
  x0 := WindowWidth div 2; y0 := WindowHeight div 2;
  r1 := 200; //Больший радиус
  r2 := 80; //Меньший радиус
  pw := 3; //Толщина границы в пикселях
  C1 := clGreen; //Цвет границы звезды
  C2 := clYellow; //Цвет заливки звезды
  { Вызываем процедуру рисования звезды,
    передавая все нужные параметры: }
  myStar(n, x0, y0, r1, r2, pw, C1, C2) 
end.

1  
2  
3  
4  
5  
6  
7  
8  
9  
10  
11  
12  
13  
14  
15  
16  
17  
18  
19  
20  
21  
22  
23  
24  
25  
26  
27  
28  
29  
30  
31  
32  
33  
34  
35  
36  
37  
38  
39  
40  
41  
42  
43  
44  
45  
46  
47  
48  
49  
50  

uses
  Graph; { Подключаем модуль }
	
{ Рисует n-конечную звезду: }
procedure myStar(n, x0, y0, r1, r2, pw: integer; C1, C2: word); { r1 > r2 }
var
  x, y, i, R: integer;
  a, da: real;
begin
  randomize;
  a := pi * random; { Начальный угол поворота - случайный }
  da := pi / n; { Шаг изменения градуса(в радианах): 360/(2n) }
  SetColor(C1);
  SetLineStyle(0, 0, pw); { Стиль линий }
  for i := 0 to 2 * n do begin
    a := a + da; { Увеличиваем угол }
    if odd(i) then R := r2 { Равен меньшему радиусу }
    else R := r1; { Равен большему радиусу }
    { Преобразование координат: }
    x := x0 + Round(R * cos(a));
    y := y0 + Round(R * sin(a));
    if i = 0 then MoveTo(x, y) { Устанавливаем начальную позицию }
    else LineTo(x, y) { Проводим отрезки }
  end;
  SetFillStyle(1, C2);  { Закрасим в цвет C1 }
  FloodFill(x0, y0, C1) { Закрашиваем внутринность }
end;

var
  Gd, Gm, x0, y0, r1, r2, n, pw: integer;
  C1, C2: word;

begin
  Gd := Detect;
  { Инициализируем графический режим: }
  InitGraph(Gd, Gm, '');
  n := 7; { Количество концов(углов) звезды }
  { Координаты центра звезды - по центру окна: }
  x0 := GetMaxX div 2; y0 := GetMaxY div 2;
  r1 := 200; { Больший радиус }
  r2 := 80; { Меньший радиус }
  pw := 3; { Толщина границы в пикселях }
  C1 := Green; { Цвет границы звезды }
  C2 := Yellow; { Цвет заливки звезды }
  { Вызываем процедуру рисования звезды,
   передавая все нужные параметры: }
  myStar(n, x0, y0, r1, r2, pw, C1, C2);
  readln;
  CloseGraph { Закрываем графику }
end.