Dave Navarro, Jr. (dave@powerbasic.com)
DRAW AN ELLIPSE
------------------------------------------------------------------------------

'Draw an ellipse
'From "Microcomputer Graphics Techniques and Applications" by Donald Hearn
'ported to PB by Dave Navarro (dave@powerbasic.com)

SCREEN 2

WINDOW (-6, -5) - (6, 5)

A = 4 : B = 2
FOR T = 0 TO 6.4 STEP .2
  X = A * COS(T): Y = B * SIN(T)
  IF T = 0 THEN PSET (X, Y)
  LINE - (X, Y)
NEXT

SLEEP
SCREEN 0