Drawing a filled circle

[Powersoft]

Hi all,

Is it posible to draw a filled circle with one command?

Cheers,

Jan

[Tim Wessman]

Not at the moment.

I hope to be able to go through all the drawing commands to improve consistency, as well as do a complete revisit of the text/string/terminal at some point in the future though.

[Tyann]

Bonjour
En attendant, je vous propose :
Meanwhile, I propose:

Code:


EXPORT ARCF_P(g,cx,cy,r,c)
BEGIN
 LOCAL i,j,p,x,y;
 j:=IFTE(HAngle,180,π);
 p:=IFTE(HAngle,0.5,0.075);
 FOR i FROM 0 TO j STEP p DO
  x:=SIN(i)*r;y:=cy+COS(i)*r;
  LINE_P(g,cx-x,y,cx+x,y,c);
 END;
END;

g=G0...G9,cx=Centre x, cy=Centre y, r=rayon, c=couleur
g=G0...G9,cx=Center x, cy=Center y, r=ray, c=color