' programme permettant de creer et sauver des trajectoires de sprites au
' format dck.
' exemple:un cercle
Buffer$=Space$(32000)
Nbval=360           !nombre de valeurs dans la courbe
Ang=0               !angle de depart
Rayonx=140          !rayon horizontal
Rayony=80           !rayon vertical
Xcentre=160         !coordonnee x du centre
Ycentre=100         !coordonnee y du centre
For I=1 To Nbval
  X=Rayonx*Cos(Ang*Pi/180)+Xcentre
  Y=Rayony*Sin(Ang*Pi/180)+Ycentre
  Dpoke Varptr(Buffer$)+(I-1)*4,X
  Dpoke Varptr(Buffer$)+(I-1)*4+2,Y
  Ang=Ang+360/Nbval
  Plot X,Y           !affiche le resultat a l'ecran (basse resolution)
Next I
Bsave "a:\crb1.dat",Varptr(Buffer$),4*Nbval  !sauve la courbe