'===========================================================================
' Subject: DRAW AN ELLIPSE                   Date: 12-14-98 (14:35)       
' Author:  Dave Navarro, Jr.                 Code: QB, QBasic, PDS        
' Origin:  dave@powerbasic.com             Packet: GRAPHICS.ABC
'===========================================================================
'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