PASCAL ABC GRAPHABC 1 7 Set Pixelx y
PASCAL ABC МОДУЛЬ GRAPHABC 1
Точка 7 Set. Pixel(x, y, color) - Закрашивает один пиксел с координатами (x, y) цветом color program tochka; uses Graph. ABC; begin Set. Pixel(300, 200, clred); end.
Линии 9 Line(x 1, y 1, x 2, y 2) - рисует отрезок с началом в точке (x 1, y 1) и концом в точке (x 2, y 2). x 1, y 1 x 2, y 2 Program liniay; uses Graph. ABC; begin line(100, 500, 250); end.
Цвет линии 11 Set. Pen. Color(color) - устанавливает цвет пера, задаваемый параметром color. Program liniay; uses Graph. ABC; begin setpencolor(clred); line(30, 400, 350); end.
Пунктирная линия 12 Set. Pen. Style(<номер от 1 до 6>); устанавливает стиль пера, задаваемый номером. program prim; uses Graph. ABC; begin Setpencolor(clred); Set. Pen. Style(1); {1 - длинный штрих} Line(10, 100, 350, 100); Set. Pen. Style(2); {2 - короткий штрих} Line(10, 125, 350, 125); Set. Pen. Style(3); {3 - штрих-пунктир} Line(10, 150, 350, 150); end.
Толщина линии 13 Set. Pen. Width(n) - устанавливает ширину (толщину) пера, равную n пикселям. Program liniay; uses Graph. ABC; begin setpenwidth(20); setpencolor(clred); line(30, 400, 350); end.
Треугольник 14 Рисуется процедурами Line(x 1, y 1, x 2, y 2); Line. To(x, y); Program treugolnik; uses Graph. ABC; begin setpenwidth(20); setpencolor(clred); line(300, 100, 500, 300); lineto(100, 300); lineto(300, 100); floodfill(300, 200, clgreen); end.
Заливка цветом Flood. Fill(x, y, color) - заливает область одного цвета цветом color, начиная с точки (x, y). x 1, y 1 x 2, y 2 Program pryamougolnik; uses Graph. ABC; begin Rectangle(50, 200, 200); Flood. Fill(100, cl. Blue); end. 16
Заливка кистью 18 Set. Brush. Style(номер от 0 до 7 или название) - устанавливает стиль кисти, задаваемый номером или символической константой. Program p 12_zalivka; По умолчанию задается стиль 0 – сплошная заливка цветом. uses Graph. ABC; Begin Set. Brush. Color(cl. Aqua); Set. Brush. Style(1); Rectangle(10, 100, 100); Set. Brush. Color(cl. Red); Set. Brush. Style(2); Rectangle(110, 200, 100); Set. Brush. Color(cl. Blue); Set. Brush. Style(3); Rectangle(210, 300, 100); Set. Brush. Color(cl. Green); Set. Brush. Style(4); Rectangle(10, 100, 210); Set. Brush. Color(cl. Yellow); Set. Brush. Style(5); Rectangle(110, 200, 210); Set. Brush. Color(cl. Black); Set. Brush. Style(6); Rectangle(210, 110, 300, 210); end.
Цвет и толщина контура 19 Задаются процедурами Set. Pen. Width(w); Set. Pen. Color(color); Program pryamougolnik; uses Graph. ABC; begin Set. Pen. Color(clred); Set. Pen. Width(20); Rectangle(50, 200, 200); Flood. Fill(100, cl. Blue); end.
Окружность 20 Circle(x, y, r) - рисует окружность с центром в точке (x, y) и радиусом r. r x 1, y 1 Program circle; uses Graph. ABC; begin Circle(500, 200, 100); Flood. Fill(500, 200, clred); end.
Эллипс 21 Ellipse(x 1, y 1, x 2, y 2) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x 1, y 1) и (x 2, y 2). x 1, y 1 x 2, y 2 Program oval; uses Graph. ABC; Begin Ellipse(50, 200, 350); Flood. Fill(50+100, clred); Ellipse(250, 150, 550, 300); Flood. Fill(250+100, 150+100, cl. Blue); end.
Например, Program text; uses Graph. ABC; Begin Set. Font. Name(‘Arial’); Set. Font. Size(20); Set. Font. Color(cl. Red); Text. Out(10, ‘обычный'); Set. Font. Style(fs. Italic); Set. Font. Color(cl. Blue); Text. Out(10, 50, ‘наклонный'); Set. Font. Style(fs. Bold); Set. Font. Color(Random(16777215)); Text. Out(10, 90, ‘жирный'); Set. Font. Style(fs. Underline); Set. Font. Color(Random(16777215)); Text. Out(10, 130, ‘подчеркнутый'); Set. Font. Style(fs. Bold. Italic. Underline); Set. Font. Color(Random(16777215)); Text. Out(10, 170, ’жирный, наклонный, подчеркнутый'); end. 28
Например, 30 Program color; uses Graph. ABC; begin Clearwindow(rgb(200, 150, 250)); Text. Out(93, 30, ' Квадрат '); Rectangle(50, 200, 200); Flood. Fill(55, cl. Red); Text. Out(275, 30, ' Эллипс'); Ellipse(250, 350, 200); Flood. Fill(250+50, cl. Yellow); end.
- Slides: 31