Тема уроку Графіка Система координат X 0

Тема уроку Графіка

Система координат X (0, 0) y x Y (x, y)

Керування кольором Колір і товщина ліній, колір точок: Pen ( 1, 255, 0, 0 ); товщина лінії G(green) B(blue) 0. . 255 R(red) 0. . 255 Колір і стиль заливки: Brush ( 1, 0, 255, 0 ); 0 – виключити 1 – включити R G B Колір тексту: Text. Color ( 0, 0, 255 ); R G B

Точки, відрізки і ламані (x, y) Pen (1, 0, 0, 255); Point (x, y); (x 1, y 1) (x 2, y 2) (x 1, y 1) (x 5, y 5) (x 2, y 2) (x 3, y 3) (x 4, y 4) Pen (1, 0, 255, 0); Line (x 1, y 1, x 2, y 2); Pen (1, Move. To Line. To 255, (x 1, (x 2, (x 3, (x 4, (x 5, 0, 0); y 1); y 2); y 3); y 4); y 5);

Фігури з заливкою (x 1, y 1) (x 2, y 2) Pen (1, 0, 0, 255); Brush (1, 255, 0); Rectangle (x 1, y 1, x 2, y 2); (x 1, y 1) Pen (1, 255, 0, 0); Brush (1, 0, 255, 0); Ellipse (x 1, y 1, x 2, y 2); (x 2, y 2) (x, y) ? Як відмінити заливку? Brush (1, 100, 255); Fill (x, y);

Текст (x, y) р П ив т! і 30 о Text. Color (0, 0, 255); Brush (1, 255, 0); Font (20, 30, 600); розмір 10 пікселів кут повороту насиченість: 400 – нормальний 600 – жирний Move. To (x, y); writeln ('Привіт!');

Приклад (200, 50) (100, 100) (300, 200) program qq; begin Pen(2, 255, 0, 255); Brush(1, 0, 0, 255); Rectangle(100, 300, 200); Move. To(100, 100); Line. To(200, 50); Line. To(300, 100); Brush(1, 255, 0); Fill(200, 75); Pen(2, 255, 255); Brush(1, 0, 255, 0); Ellipse(150, 100, 250, 200); end.

Завдання "4": "Жабка" "5": "Корона"

Штриховка N ліній (N=5) (x 1, y 1) h (x 2, y 2) Rectangle (x 1, Line( x 1+h, Line( x 1+2*h, Line( x 1+3*h, . . . x y 1, x 2, y 2); x 1+h, y 2); x 1+2*h, y 2); x 1+3*h, y 2); x h : = (x 2 – x 1) / (N + 1); var x, h: real; Rectangle (x 1, y 1, x 2, y 2); x : = x 1 + h; заокруглення до for i: =1 to N do begin найближчого цілого Line( round(x), y 1, round(x), y 2); x : = x + h; end;

Як міняти колір? (x 1, y 1) x сірий: R = G = B (x-1, y 1+1) (x 2, y 2) Brush ( 1, c, c, c ); Fill ( ? ? ? , ? ? ? ); Крок зміни c: hc : = 255 div (N + 1); c : = 0; for i: =1 to N+1 do begin Line (round(x), y 1, round(x), y 2); Brush (1, c, c, c); Fill (round(x)-1, y 1+1); x : = x + h; c : = c + hc; end; var c, hc: integer;

Штриховка a (x 1, y 1) (x 2, y 2) h (x 3+a, y 1) (x 3, y 2) Line( x 1+h, y 1, x 1+h-a, y 2); Line( x 1+2*h, y 1, x 1+2*h-a, y 2); Line( x 1+3*h, y 1, x 1+3*h-a, y 2); . . . x x-a h : = (x 3 – x 2) / (N + 1); a : = x 2 – x 1; x : = x 1 + h; for i: =1 to N do begin Line( round(x), y 1, round(x-a), y 2); x : = x + h; end;

Штриховка (x 1, y 1) hx hy (x 2, y 2) Line( x 1, y 1+hy, x 1+hx, y 1+hy) ; Line( x 1, y 1+2*hy, x 1+2*hx, y 1+2*hy); Line( x 1, y 1+3*hy, x 1+3*hx, y 1+3*hy); . . . y x y hx : = (x 2 – x 1) / (N + 1); hy : = (y 2 – y 1) / (N + 1); x : = x 1 + hx; y : = y 1 + hy; for i: =1 to N do begin Line( x 1, round(y), round(x), round(y)); x : = x + hx; y : = y + hy; end;

Завдання "4": Ввести з клавіатури кількість ліній штриховки і побудувати фігуру, заливши всі області різним кольором. "5": Ввести з клавіатури кількість кіл і побудувати фігуру, заливши всі області різними кольорами.