draw_circle_smouth [MAJ : script plus rapide]

//draw_circle_smouth(x,y,radius,outline);

{
var xx, yy, radius, outline, mode;

    xx=argument0
    yy=argument1
    radius=argument2
    outline=argument3
   
if outline==0

    {draw_primitive_begin(pr_trianglefan)
    for (rad=0; rad<=radtodeg(2*pi); rad+=radtodeg(2*pi)/(max(64,radius)/2))
    draw_vertex(xx+radius*sin(degtorad(rad)),yy+radius*cos(degtorad(rad)));
    draw_primitive_end(); }
   
else

    {draw_primitive_begin(pr_linestrip)
    for (rad=0; rad<=radtodeg(2*pi); rad+=radtodeg(2*pi)/(max(64,radius)/2))
    draw_vertex(xx+radius*sin(degtorad(rad)),yy+radius*cos(degtorad(rad)));
    draw_primitive_end();}
}