Домашнее задание 9 А и Б (к 19 января)

Задание: построить (две из предложенных фигур):
     • большую конфету
     • ракету
     • гусеницу
     • мобильный телефон
     • автомобиль
     • олимпийские кольца

Запуск графической системы:

Uses Graph; {Подключить модуль Graph}
Var gD, gM:integer; {Установить графический режим}
Begin
     gD:=Detect;
     InitGraph(gD, gM, ‘C:\TP\BGI’);

С этого момента все графические средства доступны пользователю.

Линия

Оператор LINE(X1,Y1,X2,Y2); рисует на экране отрезок прямой из точки с координатами (x1,y1) до точки с координатами (x2,y2).





Установка цвета

SetColor(Color:integer); устанавливает основной цвет рисования.
SetBkColor(Color:integer); устанавливает текущий фоновый цвет

Например: нарисовать на экране синего цвета отрезок прямой из точки с координатами(100,50) в точку с координатами(400,300) красного цвета:
SetBkColor(1);
SetColor(4); LINE(100,50,400,300);

Прямоугольник

Процедура Bar(x1,y1,x2,y2) выводит на экран закрашенный прямоугольник с координатами левого верхнего угла (х1,у1) и правого нижнего угла (х2,у2).






Чтобы начертить закрашенную фигуры нужно:
   - Установить цвет фигуры: SETCOLOR(№ цвета);
   - Установить цвет и стиль закраски: SETFILLSTYLE(№ стиля, № цвета);
   - Нарисовать фигуру: {название фигуры} (данные нужные для закраски);
   - Закрасить фигуру: FLOODFILL(x,y,№ цвета границы); где x,y – координаты точки в замкнутой области.


Окружность
Процедура CIRCLE(x,y,r) выводит на экран окружность с центром (х,у) и радиусом r.




Эллипс

Процедура ELLIPSE(x,y,L1,L2,Rx,Ry); рисует эллиптическую дугу от начального угла L1 до конечногоL2, используя Х,У как координаты центра, как горизонтальный (Rx) и вертикальный(Ry) радиус.

Дуга


Процедура Arc(x,y,L1,L2,r); рисует дугу с центром в точке (х,у) от начального угла L1 до конечного L2 радиусом r.



Полезные ссылки:
http://saassl.at.tut.by/Grafika_Pascal/index.htm