© А. В. Розанов Лицей-интернат при СГАУ им. Н. И. Вавилова
Цветное графическое изображение на экране дисплея формируется из маленьких светящихся точек, называемых пикселями (от англ. Pixel = Picture Element - элемент изображения) По оси Х 640 точек По оси Y 480 точек Каждая точка имеет собственные координаты (X, Y) в специальной системе координат, в которой ось Y направлена сверху-вниз
Для ускорения процедуры рисования сложных геометрических объектов целесообразно сначала нарисовать эти объекты на клетчатой бумаге и расставить координаты узловых точек
Program DOMIK; Uses GRAPH; Var driver, regim: integer; Begin {Инициализация графики} driver: =detect; regim: =0; Init. Graph(driver, regim, 'D: BPB GI'); Set. BKColor(1); { Небо } Set. Color(14); { Солнце } Set. Fill. Style(1, 14); Circle(100, 80, 20); Flood. Fill(100, 80, 14); { Его закраска } Set. Color(2); {Трава} Set. Fill. Style(1, 2); Bar(0, 360, 639, 479);
Set. Color(5); Set. Fill. Style(1, 5); Bar(220, 200, 400, 360); { Фасад дома } Set. Color(3); Set. Fill. Style(1, 3); Bar(280, 240, 300); { Окно дома } Set. Color(12); Set. Fill. Style(1, 12); { Крыша дома } Line(310, 80, 220, 200); Line(310, 80, 400, 200); Line(400, 220, 200); { Закраска крыши } Flood. Fill(310, 140, 12); Read. Ln; End.