??=????+???????? ??
??=????+??????????
????=??????????? ????
????= ?????????? ????
??????????=?? ?????
??????????=???????
????=? ???????????
????=???????????
?? ??+1=????+????
?? ??+1=????+????
?? ??+1=????+?????????????
?? ??+1=????+?? ??+1?????????
Const PI = 3.141593;
Begin
Theta =start *PI/180 ;
Gamma=end *PI/180;
Dtheta =(1/r) *PI/180;
X=xc + rcos(theta);
Y=yc rsin(theta);
Plot(round(x),round(y),color);
While (thetabegin
x=x+(yc-y) dtheta;
y=y+(x-xc)dtheta;
Plot(round (x) ,round(y),color);
Theta=theta+dtheta;
End;
End;
Star( xc , yc , r ,n ,color)
begin
d? = twPI / n
? =0;
for i=1 to n do;
x[i]=xc + r cos ?;
y[i]=yc + r sin ?;
? = ? + d ?;
end
for i=1 to n-2 do
for j=i+2 to n do
if not (i=1 and j=n )then
linedda(x[i] , y[i] ,x[j] , y[j] , color);
end
colorstar( xc , yc , r, n ,color )
begin
star(xc,yc,r,n,color);
star(xc,yc, (r/2),n , 0);
fillshap(xc , yc , color , fill color);
colorstar( xc , yc , r, n ,color )
begin
star(xc,yc,r,n,color);
star(xc,yc, (r/2),n , 0);
fillshap(xc , yc , color , fill color);
colorstar( xc , yc , r, n ,color )
begin
star(xc,yc,r,n,color);
star(xc,yc, (r/2),n , 0);
fillshap(xc , yc , color , fill color);