22925

Imagel->Canvas->Pen->Color=clBlack;

Image1->Canvas->Pen->Style=psDash;

Image 1 - >Canvas - >Rect angle (lgx ,l.gy ,X,Y); pdx=X; pdy=Y;

>

if (przycisk—1)

{ Imagel->Canvas->Pen->Color=clRed;

Imagel->Canvas->LineTo(X,Y); }

if (przycisk==2)

{Image 1->Canvas■>Pen->Colo r=clWhite; Imagel - >Canvas - >EHipse (lgx ,lgy,pdx, pdy);

Imagel* >Canvas•>Pen->Colo r=clBlue;

Imagel->Canvas->Pen->Style=psDash;

Imagel->Canvas->E VI ipse(lgx,lgy,X,Y); pdx=X; pdy=Y;

>

if (przycisk =3)

{Image 1->Canvas->Pen->Colo r=clWhite; Imagel ->Canvas->MoveTo(lgx,'lgy); Imagel->Canvas->LineTo(pclx,pdy); Imagel->Canvas->Pen->Color=cIGreen; Imagel->Canvas->MoveTo(lgx,lgy); Image 1->Canvas->LineTo(X,Y); pdx=X; pdy=Y;

>

if (przycisk==4)

{Image 1->Canvas->Pen->Colo r=clWhite; Imagel->Canvas->MoveTo(pdx,pdy); Imagel ->Canvas->LineTo(lgx,‘lgy); Imagel->Canvas->LineTo(cxx,cyy); Image 1■>Canvas->LineTo(pdx,pdy);

Imagel->Canvas->Pen->Colo r=cIRed;

Imagel->Canvas->Pen->Style=psDash; Imagel->Canvas->MoveTo(lgx,lgy); Imagel->Canvas->LineTo(X,Y);

a=X-lgx; b=Y-lgy;

wektor [X-lgx_fY-lgy]=(a,b] podstawy

/* Komentarz:

D=(lgx+a/2, lgy+b/2);    //środek

[c,d] - wektor prostopadły do podstawy a*c+b*d=0 => a*c= -(b*d) => c=-b*d/a

cx, cy -wspłrzłdne szukanego wierzchołka [c,d] - wektor od punktu D do (cx_fcy) e=pow(a^/v2+b^/'2,0.5);    // długość podstawy

h=(e*1.73)/2;    // wysokosc trojkata

h=pow(c^/v2+d^/N2,0.5);    // wyskosc trojkata, jako dlugosc

wektora [c,d]

c^/'2+d^2=e^/v2*3/4; c^/'2+d^/'2=( a^2+b^/'2) *3/4;