Drawing a filled circle

[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