home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / GFA / TUTORIAL / FORNXT_2.LST < prev    next >
File List  |  1989-07-29  |  965b  |  24 lines
  1. '   **                                                          **
  2. '   ** Use Of FOR ... NEXT Loop To Point PLOT Ellipse Or Circle **
  3. '   **                (Should Be Run In Low Res)                **
  4. '   **                                                          **
  5. '   **         Same as ELLIPSE x_or%,y_or%,x_rad%,r_rad%        **
  6. '   **               but good demo of use of loop               **
  7. '   **                                                          **
  8. '
  9. ' *** Set Parameters Or 'Control Values' ***
  10. speed=0.03                                  ! Higher>>Faster & Lower>>Smoother
  11. x_or%=159                                   ! Origin Or Position
  12. y_or%=99
  13. x_rad%=30                                   ! Radius Or Size
  14. y_rad%=50
  15. '
  16. ' *** Plot Circle ***
  17. FOR theta=2*PI TO 0 STEP -speed             ! Note Step Is --ve For Clockwise
  18.   PLOT x_or%+SIN(theta)*x_rad%,y_or%+COS(theta)*y_rad%
  19. NEXT theta
  20. '
  21. PRINT CHR$(7);
  22. VOID INP(2)
  23. EDIT
  24.