3582320359

KOŁA 1

Imagel->Canvas->Ellipse(150, 100, 270, 220); Image l->Canvas->Ellipse(90, 130, 150,190); Imagel->Canvas->Ellipse(lQ5, 100, 135,130); Imagel->Canvas->Ellipse(60, 145, 90,175); Image l->Canvas->Ellipse( 105, 190, 135,220); Imagel->Canvas->Ellipse(27Q, 130, 330,190); Image l->Canvas->Ellipse(2 85, 100, 315,130); Imagel->Canvas->Ellipse(285, 190, 315,220); Imagel->Canvas->Ellipse(330, 145, 360,175); Imagel->Canvas->Ellipse(180, 40, 240,100); Imagel->Canvas->Ellipse(150, 55, 180,85); Imagel->Canvas->Ellipse(240, 55, 270,85); Imagel->Canvas->Ellipse(195, 10, 225,40); Imagel->Canvas->Ellipse(180, 220, 240,280); Image l->Canvas->E!Iipse( 150, 235, 180,265); Imagel->Canvas->Ellipse(240, 235, 270,265); Image l->Canvas->Ellipse(195, 280, 225,310);

KWIATEK

przycisk 1

{ przyciskał; a=(2*3.14)/21;

Imagel->Canvas->Ellipse(150,100, 250, 200); for(intj=l; j<22; j++)

{

Image l->Canvas->M oveTo(2 00+50’*cos(a'*^,j),150-5 0**^,sin(a’^,,j)); Imagel->Canvas->LmeTo(20Q+(5Q+20)’^,'cos(a*j), 150-(50+20)*sin(a*j));

Imagel->Canvas->Ellipse(200+(50+20)*cos(a*j)-5, 150-(50+20)*siii(a^,Hj)-5, 200+(50+20)**^,cas(a*j)+5, 150-(50+20)*sin(a‘*j)+5);

}}

onMause down

{

wcisniety=l;

Image l->Canvas->M oveTo(X, Y);

pdx=X;

pdy=Y;

}

onMause move

{if(wcisniety)

{if (przycisk==l)

{ r il(X>=Y)

{ Imagel->Canvas->EUipse(pdx, pdy, X, pdy+X);

Image l->Canvas->M oveT o(s+R‘*'cos(a),t-R *sin(a));

Imagel->Canvas->LineTo(s+(R+20)^005(3), t-(R+20)*sm(a));

}*/}}}

onMause up

{■wcisniety=Q; if (przycisk=l)

{ Image l->Canvas->EUipse(pdx, pdy, X, pdy+X-pdx);

pdx=0;

pdy=0; } }