Set Color Color integer Set BKColor Color integer

  • Slides: 19
Download presentation

Set Color (Color : integer)

Set Color (Color : integer)

Set. BKColor (Color : integer) Set. Fill. Style (Fill, Color : integer) Set. Line.

Set. BKColor (Color : integer) Set. Fill. Style (Fill, Color : integer) Set. Line. Style (Type, Pattern, Thich: integer)

Procedure Text. Color ( r, g, b : integer) Program Text. Color. Demo; Begin

Procedure Text. Color ( r, g, b : integer) Program Text. Color. Demo; Begin Write. Ln('Чорний колір'); Text. Color(127, 127); Write. Ln('Сірий колір') end.

Procedure Move. To ( x, y : integer) Program Move. To. Demo; Var i:

Procedure Move. To ( x, y : integer) Program Move. To. Demo; Var i: integer; Begin For i: =0 to 100 do Begin Move. To(100, i); Pen(1, 0, 2*i+50); Line. To(0, 50) end.

Procedure Rectangle ( x 1, y 1, x 2, y 2 : integer) Program

Procedure Rectangle ( x 1, y 1, x 2, y 2 : integer) Program Rectangle. Demo; Begin Rectangle(10, 80, 80); Pen(1, 255, 0, 0); Rectangle(60, 10, 0, 90); Pen(1, 0, 0, 255); Brush(1, 255, 0); Rectangle(20, 30, 50, 90) end.

Bar (x 1, y 1, x 2, y 2: integer) Bar 3 D (x

Bar (x 1, y 1, x 2, y 2: integer) Bar 3 D (x 1, y 1, x 2, y 2 : integer; D 3 : integer; Top: boolean) Drow. Poly (n: integer; var points) Fill. Poly (n : integer; var points) Flood. Fill (x, y: integer; Border: integer)

Circle (x, y: integer; r: integer) Arc (x, y: integer; St. Angle, End. Angle,

Circle (x, y: integer; r: integer) Arc (x, y: integer; St. Angle, End. Angle, r: integer) Procedure Ellipse ( x 1, y 1, x 2, y 2 : integer ) Program Ellipse. Demo; Begin Ellipse(10, 80, 80); Pen(1, 255, 0, 0); Ellipse(60, 10, 0, 90); Pen(1, 0, 0, 255); Brush(1, 255, 0); Ellipse(20, 30, 50, 90) end. Sector (x, y : integer; St. Angle, End. Angle, rx, ry, r : integer)

Procedure Fill ( x, y : integer ) Program Fill. Demo; Begin Line. To(70,

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

Out. Text (text : string) Out. Text. XY ( x, y, text ) Set.

Out. Text (text : string) Out. Text. XY ( x, y, text ) Set. Text. Style (Font, Direct, size : integer) Procedure Font ( h, a, b : integer ) Program Font. Demo; Begin Font(10, 0, 400); Write. Ln('Шрифт(10, 0, 400)'); Font(8, 0, 800); Write. Ln('Шрифт(8, 0, 800)'); Move. To( 80, 100 ); Font(10, 30, 400); Write. Ln('Шрифт(10, 30, 400)'); end. Procedure Clear

Procedure Point ( x, y : integer ) Program Point. Demo; Var i, x,

Procedure Point ( x, y : integer ) Program Point. Demo; 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)<1600 then Begin If x>50 then Pen(1, 0, 0, 255) else Pen(1, 255, 0, 0); Point(x, y) end end.

Line ( x 1, y 1, x 2, y 2 : integer ) Program

Line ( x 1, y 1, x 2, y 2 : integer ) Program Line. Demo; Begin Line( 0, 0, 90); Pen( 2, 0, 0, 255); Line(30, 90, 30); Pen( 6, 255, 0, 0); Line(10, 10, 90) line ( 30, 90, 60 ); line ( 10, 90, 60, 10); end.

Pen ( n, r, g, b : integer ) Program Pen. Demo; Var i:

Pen ( n, r, g, b : integer ) Program Pen. Demo; 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.

Line. To ( x, y : integer ) Program Line. To. Demo; Var i:

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

Brush ( k, r, g, b : integer ) Program Brush. Demo; Begin Brush(1,

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

Coordinates ( var x, y: integer) Program Coordinates. Demo; Var i, x, y: integer;

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