home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / STRAIGHT / STRAIGHT2.MSA / BASIC_P_Q_PELLIPSE.LST < prev    next >
Encoding:
File List  |  1996-09-17  |  530 b   |  23 lines
  1. PRINT " PELLIPSE  Beispiel         " ! 10/91
  2. '
  3. PELLIPSE 320,100,140,30
  4. PAUSE 50
  5. CLS
  6. PRINT " PELLIPSE x,y,rx,ry,w1,w2"
  7. PRINT " rx,ry = Radius von x,y.  W1,w2 = Winkelangaben für Segment (1/3600)"
  8. PELLIPSE 250,200,150,170
  9. DELAY 2
  10. CLS
  11. PRINT " PELLIPSE x,y,rx,ry,w1,w2"
  12. PRINT " W1,w2 = Winkelangaben für Segment (1/3600)"
  13. ELLIPSE 220,200,200,100
  14. PELLIPSE 220,200,200,100,2700,3600
  15. DELAY 2
  16. FOR w2=100 TO 3600 STEP 420
  17.   CLS
  18.   ELLIPSE 220,200,200,100
  19.   PELLIPSE 220,200,200,100,2700,w2
  20.   DELAY 0.5
  21. NEXT w2
  22. ~INP(2)
  23.