Mirsaid Aripov, Nurillo Otaxanov

11.8-listing. Kemacha

var

Form1: TForm1;

x, y: integer;  kema koordinatalari (bazaviy nuqta)

procedure Titanik(x, y: integer;  bazaviy nuqta koordinatalari

color: TColor);  kema rangi

const

dx  5; dy  5;

var

buf: TColor;

begin

with form1.canvas do

begin

buf : pen.Color;  joriy rang

pen.Color : color;  kerakli rang o`rnatiladi

 chizish boshlandi ... kema korpusi

MoveTo(x, y);

LineTo(x, y-2*dy);

LineTo(x  10*dx, y-2*dy);

LineTo(x  11*dx, y-3*dy);

LineTo(x  17*dx, y-3*dy);

LineTo(x  14*dx, y);

LineTo(x, y);

 kema ustidagilar

MoveTo(x  3*dx, y-2*dy);

LineTo(x  4*dx, y-3*dy);

LineTo(x  4*dx, y-4*dy);

LineTo(x  13*dx, y-4*dy);

LineTo(x  13*dx, y-3*dy);

MoveTo(x  5*dx, y-3*dy);

LineTo(x  9*dx, y-3*dy);

 kapitan ko`prikchasi

Rectangle(x  8*dx, y-4*dy, x  11*dx, y-5*dy);

 truba

Rectangle(x  7*dx, y-4*dy, x  8*dx, y-7*dy);

 illyuminatorlar

Ellipse(x  11*dx, y-2*dy, x  12*dx, y-1*dy);

Ellipse(x  13*dx, y-2*dy, x  14*dx, y-1*dy);

 machta

MoveTo(x  10*dx, y-5*dy);

LineTo(x  10*dx,y-10*dy);

 osnastka

MoveTo(x  17*dx, y-3*dy);

LineTo(x  10*dx, y-10*dy);

LineTo(x, y-2*dy);

pen.Color : buf;  qalamning eski rangi tiklanadi

end;

end;

 taymer signalini qayta ishlash

procedure TForm1.Timer1Timer(Sender: TObject);

begin

Titanik(x, y, form1.color);  rasmni o`chirish

if x < Form1.ClientWidth

then x : x  5

else begin  yangi reys

x : 0;

y : Random(50)  100;

end;

Titanik(x,y,clWhite);  yangi nuqtadan chizish

end;

procedure TForm1.FormActivate(Sender: TObject);

begin

x : 0; y : 100;

Form1.Color : clNavy;

Timer1.Interval : 50;  taymer signali xar 50 mSek da

end;

Kemacha tasvirini chizish va o`chirishni Titanik protsedurasi bajaradi. U parametr sifatida bazaviy nuqta koordinatalari va tasvir uchun ranglarni oladi. Agar protsedura chaqirilganda rangi fon rangidan farq qilsa, u holda kemacha chiziladi, aks holda o`chiriladi.