Program: rysujący koło wypełniające się teksturą począwszy od połowy w górę po czym od połowy w dół.
Na zdjęciu efektu nie widać, program korzysta z wartości cosinus.
Kompilator: Turbo Pascal
Galeria:
Kod programu:
program proba2;
uses crt,graph;
var ster,modul,x,y,i,kat,r,x1,x2,y1,y2:integer;
begin
clrscr;
writeln('Podaj kat: ');
readln(kat);
writeln('Podaj dlugosc: ');
readln(r);
detectgraph(ster,modul);
initgraph(ster,modul,'C:\Progra~1\TP\BGI');
x:=getmaxx div 2;
y:=getmaxy div 2;
i:=0;
repeat
x1:=x+round(0.5*r*cos(kat));
x2:=x-round(0.5*r*cos(kat));
y1:=y+round(0.5*r*cos(kat));
y2:=y-round(0.5*r*cos(kat));
setfillstyle(widedotfill,brown);
setcolor(green);
circle(x1,y1,x2);
floodfill(x1+1, y2-1,green);
kat:=kat+1;
delay(250);
cleardevice;
until(keypressed);
closegraph;
readkey;
end.