Презентація на тему:
Процедури для побудови графічних зображень

Презентація до лекції Процедури для побудови графічних зображень

План лекції 1. Загальні положення програмування графічних зображень. 2. Основні процедури побудови графічних зображень. 2.1. Робота з кольором. 2.2. Побудова прямокутників та паралелепіпедів 2.3. Побудова кола, дуги та еліпсу 2.4. Програмування графіки в комбінації з текстом 2.5. Побудова точок, ліній, визначення координат.

Активні координати міняють такі процедури MoveTo, LineTo, Line, Rectangle, Write, WriteLn, Point, Clear, використовують процедури LineTo, Write, WriteLn. Активні кольори встановлюються процедурами: Pen, TextColor, Brush.

Побачити, як міняються поточні координати, можна на прикладі такої програми: Program Coord; Begin Write('ПОЧАТОК'); LineTo(30,60); Write('КІНЕЦЬ'); LineTo(0,100) End.

Set Color (Color : integer)

SetBKColor (Color : integer) SetFillStyle (Fill, Color : integer) SetLineStyle (Type, Pattern, Thich: integer)

Procedure TextColor ( r, g, b : integer) Program TextColorDemo; Begin WriteLn('Чорний колір'); TextColor(127, 127, 127); WriteLn('Сірий колір') end.

Procedure MoveTo ( x, y : integer) Program MoveToDemo; Var i: integer; Begin For i:=0 to 100 do Begin MoveTo(100,i); Pen(1,0,2*i+50,2*i+50); LineTo(0, 50) end end.

Procedure Rectangle ( x1, y1, x2, y2 : integer) Program RectangleDemo; Begin Rectangle(10, 10, 80, 80); Pen(1, 255, 0, 0); Rectangle(60, 10, 0, 90); Pen(1, 0, 0, 255); Brush(1, 255, 255, 0); Rectangle(20, 30, 50, 90) end.

Bar (x1, y1, x2, y2: integer) Bar3D (x1, y1, x2, y2 : integer; D3 : integer; Top: boolean) DrowPoly (n: integer; var points) FillPoly (n : integer; var points) FloodFill (x, y: integer; Border: integer)

Circle (x, y: integer; r: integer) Arc (x, y: integer; StAngle, EndAngle, r: integer) Procedure Ellipse ( x1, y1, x2, y2 : integer ) Program EllipseDemo; Begin Ellipse(10, 10, 80, 80); Pen(1, 255, 0, 0); Ellipse(60, 10, 0, 90); Pen(1, 0, 0, 255); Brush(1, 255, 255, 0); Ellipse(20, 30, 50, 90) end. Sector (x, y : integer; StAngle, EndAngle, rx, ry, r : integer)

Procedure Fill ( x, y : integer ) Program FillDemo; Begin LineTo(70, 30); LineTo(20, 80); LineTo(0, 0); Brush(1,255,255,0); Fill(10, 10) end.

OutText (text : string) OutTextXY ( x, y, text ) SetTextStyle (Font, Direct, size : integer) Procedure Font ( h, a, b : integer ) Program FontDemo; Begin Font(10,0,400); WriteLn('Шрифт(10,0,400)'); Font(8,0,800); WriteLn('Шрифт(8,0,800)'); MoveTo( 80,100 ); Font(10,30,400); WriteLn('Шрифт(10,30,400)'); end. Procedure Clear

Procedure Point ( x, y : integer ) Program PointDemo; Var i, x, y: integer; Begin For i:=1 to 5000 do Begin x:=random(100); y:=random(100); If sqr(x-50)+ sqr(y-50)50 then Pen(1,0,0,255) else Pen(1,255,0,0); Point(x,y) end end end.

Line ( x1, y1, x2, y2 : integer ) Program LineDemo; Begin Line( 0, 0, 90, 90); Pen( 2, 0, 0,255); Line(30, 30, 90, 30); Pen( 6,255, 0, 0); Line(10, 10, 10, 90) line ( 30, 30, 90, 60 ); line ( 10, 90, 60, 10); end.

Pen ( n, r, g, b : integer ) Program PenDemo; Var i: integer; Begin For i:=1 to 10 do Begin Pen (i, i*20, 0, 0); Line(10, i*10, 100, i*10) end end.

LineTo ( x, y : integer ) Program LineToDemo; Var i: integer; Begin MoveTo(0, 50); For i:=1 to 100 do LineTo(i, round(50-50*sin(i/10))); end.

Brush ( k, r, g, b : integer ) Program BrushDemo; Begin Brush(1,255,255,0); Rectangle(10,10,50,50); Brush(1,255,255,255); Rectangle(30,30,90,90); Pen(2,255,0,0); Brush(0,0,0,0); Rectangle(20,20,70,70); end.

Coordinates ( var x, y: integer) Program CoordinatesDemo; Var i, x, y: integer; Begin For i:=0 to 3 do Begin MoveTo(10*i,30*i); Coordinates(x,y); Write('x=',x,'y=',y) end end.