Занятие 15. Основы работа с графикой.

На сегодняшнем занятии мы познакомились с графическими возможностями среды Pascal ABC. В научились:

• Создавать графическое окно
• Рисовать графические примитивы: точки, линии, окружности,  эллипсы и т.д.
• Заливать  замкнутую область
• Использовать различные цвета

В результате в тему Нового года нарисовали новогоднюю картинку.

Uses GraphABC;

Var

   x,y,i: integer;

   pic: integer;

Begin

   SetWindowCaption('Занятие №15. Работа с графикой.');

   SetWindowSize(800,600);

   Circle(50,50,50);

   FloodFill(50,50,clYellow);

 

   Circle(400,500,70);    // Нижн ком

   Circle(400,380,50);    // Средн ком

   Circle(340,380,10);    // Рука 1

   Circle(460,380,10);    // Рука 2

   Circle(400,300,30);    // Голова

 

   Line(480,570,466,320); // Палка

 

   // Вывод картинки

   pic:=LoadPicture('home1.png');

   DrawPicture(pic, 600,400,150,150);

 

   //Снег

   for i:=1 to 100 do

   begin

       x:=random(800);

       y:=random(600);

 

       SetBrushColor(clBlue);

       Circle(x,y,3);

   end;

 

End.

Внимание! Картинку  home1.png можно найти в папке, где установлен Pascal ABC: PABC\Media\Images