На главную

Назад

Цветок - семь лепестков
Цветок - семь лепестков

for n:=1 to 100000 do
begin
Pixels[x0+round(100*sin(n/100))+round(30*sin(n/30)),y0+round(100*cos(n/100))+round(30*cos(n/30))] := clBlack;
end;
Hosted by uCoz