Графічні примітиви

Графічні примітиви — це геометричні фігури, що їх можна відобразити на екрані за допомогою окремих процедур.

Приклад програми, яка зображує концентричні кола випадково вибраними кольорами. Діаметр кіл спочатку збільшується, а згодом — зменшується. Після зображення кіл програма виводить відрізки прямих, що мають випадковий колір i розташування. Потім зображуються прямокутник, еліпс, сектор еліпса i трикутник.

uses graph,crt;

var dr,mode,i:integer;

begin

randomize; { ініціалізація генератора випадкових чисел}

dr:=Detect;

InitGraph(dr,mode,'e:tp7units');

{концентричні кола, радіус яких збільшується}

for i:=1 to 480 do {максимальний радіус - 480 пікселів}

begin

SetColor (random(15)); {вибір кольору}

Circle(getmaxX div 2,getmaxY div 2,i);

delay (200); {затримка відображення}

end;

{ концентричні кола, радіус яких зменшується }

for i:=480 downto 1 do

begin

SetColor(random(15));

Circle(getmaxX div 2,getmaxY div 2,i); delay (200);

SetColor (0); {колір фону для приховування кола}

Circle(getmaxX div 2,getmaxY div 2,i); delay (200);

end;

for i:=1 to 480 do {лінії}

begin

SetColor (random(15)); delay (200);

Line (random(640),random(480),random (640),random(480));

end;

readln;

ClearDevice; {очистка екрана}

SetBkColor(15); SetBkColor(15);

Rectangle(50,40,100,200); {прямокутник}

Setcolor(1);

FillEllipse(GetMaxX div 2,200,150,50); {еліпс}

SetColor(12); Sector(400,100,0,270,50,70); {сектор}

SetColor(10);Line(140,200,250,50); {трикутник}

Line(250,50,350,120); Line(140,200,350,120);

readln;

end.