Oups !

I sent the wrong script... please correct:

command drawellipse x,y,alpha,laloc
  repeat with i = 0 to 91
put round (x*sin(4*i*pi/180)), round(y*cos(4*i*pi/180)) into line i of thepoints
  end repeat
  set the points of graphic "Ellipse" to thepoints
  revrotatepoly the name of graphic "ellipse",alpha
  set the loc of graphic "Ellipse" to laloc
end drawellipse

... and x and y are half width and half height.

I was a bit rash... sorry

Jacques

******************************************
Prof. Jacques Hausser
Department of Ecology and Evolution
Biophore / Sorge
University of Lausanne
CH 1015 Lausanne
please use my private address:
6 route de Burtigny
CH-1269 Bassins
tel/fax:        ++ 41 22 366 19 40
mobile: ++ 41 79 757 05 24
E-Mail: jacques.haus...@unil.ch
*******************************************

_______________________________________________
use-revolution mailing list
use-revolution@lists.runrev.com
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to