Comment dessiner une ellipse ?

' ******************************************************************************
' Tracé d'une ellipse
' Appel : Ellipse(xc,yc,rx,ry)
' Paramètres:
' xc,yc : coordonnées du centre de l'ellipse
' rx et ry : respectivement rayon horizontal et rayon vertical de l'ellipse
' si rx = ry on obtient un cercle
' Exemple d'appel :
' Ellipse(250,220,100,200)
' Ellipse(250,220,200,100)

SUB Ellipse(xc,yc,rx,ry)
    dim_local x,y,t,pi,p
    pi = acos(-1) : p = pi/180
    2d_poly_from xc + rx,yc
    for t = 0 to 2*pi step p
        x = xc + rx * cos(t) : y = yc + ry * sin(t) : 2d_poly_to x,y
    next t
END_SUB

ret% = dll_call5("Ellipse",hDC%,x1%,y1%,x2%,y2%)

rem ============================================================================
rem            Fonction Ellipse de gdi32.dll
rem pour dessiner une ellipse (et accessoirement un cercle)
rem ============================================================================
dim hDC%,x1%,y1%,x2%,y2%, ret%
hDC% = handle_canvas(0) : ' Handle_canvas de la FORM sur laquelle on dessine
' On définit un rectangle dans lequel sera placé l'ellipse
' Pour dessiner un cercle, il faut donc faire un carré
x1% = 10 : y1% = 100  : ' Coordonnées du point haut/gauche du rectangle
x2% = 300 : y2% = 200 : ' Coordonnées du point bas/droit du rectangle
dll_on "gdi32.dll"
ret% = dll_call5("Ellipse",hDC%,x1%,y1%,x2%,y2%) : ' une ellipse
ret% = dll_call5("Ellipse",hDC%,200,200,300,300) : ' un cercle

dll_off
message "Terminé"
rem ============================================================================

dim hDC%,a%,x%,y%,couleur%,ret%
hDC% = handle_canvas(0) : ' Handle_canvas de la FORM sur laquelle on dessine
' couleur% = quoi ?
dll_on "gdi32.dll"
for a% = 100 to 10000
    x% = 250+200*cos(a%/3)
    y% = 220+200*sin(a%/3.5)
    ret% = dll_call4("SetPixel",hDC%,x%,y%,couleur%)
next a%

' escape pour arreter
dim x0,y0,r,Px,Py,j%,n%,Pi,a,a0,a1,h,w
Pi = 4*ATN(1)
w=1
rem coordonnées du centre
x0=750
Y0=500
width 0,1500
height 0,1000
rem rayon
r=500

rem nombre de côtés
n%=80
a1 =( 2*Pi/n%)/w: ' angle de rotation de chaque côté

rem angle de début
a0=1

for h = 1 to 120
    Px = r * Cos(a0) + x0
    Py = r/w * Sin(a0) + y0
    2D_poly_from px,py
    a = a0
    For j% = 0 To n%
        a = a + a1
        Px = r*Cos(a) + x0
        Py = r/w*Sin(a) + y0
        2D_poly_to Px, Py
    Next j%
    wait 100
    cls
    a0 = a0 + 1
    w=w+0.1
next h
END

dim x0,y0,r,Px,Py,j%,n%,Pi,a,a0,a1,h,w
Pi = 4*ATN(1)
w=1
rem coordonnées du centre
x0=750
Y0=500
width 0,1500
height 0,1000
rem rayon
r=500
caption 0,"<CLICK> pour arrêter"
rem nombre de côtés
n%=80
a1 =( 2*Pi/n%)/w: ' angle de rotation de chaque côté

rem angle de début
a0=1
color 0,0,0,0 : 2d_pen_color 255,255,0
for h = 1 to 120
    cls
    Px = r * Cos(a0) + x0
    Py = r/w * Sin(a0) + y0
    2D_poly_from px,py
    a = a0
    For j% = 0 To n%
        a = a + a1
        Px = r*Cos(a) + x0
        Py = r/w*Sin(a) + y0
        2D_poly_to Px, Py : 2D_poly_to Py, Px/2 : 2D_poly_to Py, Px/4
        if scancode <> 0 then terminate
    Next j%
    pause 50
    a0 = a0 + 1
    w=w+0.1
next h
END

dim x0,y0,r,Px,Py,j%,n%,Pi,a,a0,a1,h,w
Pi = 4*ATN(1)
w=1
x0=750 : Y0=500  : ' coordonnées du centre
width 0,1500 : height 0,1000
r=500 : ' rayon
caption 0,"<CLICK> pour arrêter"
n%=160  : ' nombre de côtés
a1 =( 2*Pi/n%)/w : ' angle de rotation de chaque côté
a0=1            : ' angle de début
color 0,0,0,0 : 2d_pen_color 255,255,0: 2d_pen_width 20
for h = 1 to 120
    cls
    Px = r * Cos(a0) + x0 : Py = r/w * Sin(a0) + y0
    2D_poly_from px,py
    a = a0
    For j% = 0 To n%
        a = a + a1 :  Px = r*Cos(a) + x0 : Py = r/w*Sin(a) + y0
        2D_pen_color abs(Px - x0) /2, abs(Py - y0)/2, abs(75-j%)*3
        2D_poly_to Px, Py : 2D_poly_to Py, Px/2 : 2D_poly_to Py, Px/4
        if scancode <> 0 then terminate
        pause 50
    Next j%
    pause 150
    a0 = a0 + 1 :  w=w+0.1
next h
END