home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / GFA / TUTORIAL / PROCED_2.GFA (.txt) < prev    next >
GFA-BASIC Atari  |  1989-07-29  |  1KB  |  34 lines
  1. '    **                                                            **
  2. '    **Use Of Parameter Passing, Local Variables & Global Variables**
  3. '    **              To Point PLOT Ellipse Or Circle               **
  4. '    **                (Should Be Run In Low Res.)                 **
  5. '    **                                                            **
  6. '    ** Same as 'ELLIPSE x_or%,y_or%,x_rad%,r_rad%', but good demo **
  7. '    **                                                            **
  8. '
  9. ' *** Program Parameter (example of GLOBAL variable) ***
  10. speed#=0.035                                 ! Higher>>Faster & Lower>>Smoother
  11. '
  12. oval(160,100,40,50)                         ! Head  }
  13. oval(118,90,3,15)                           !  Ear  }    All Of
  14. oval(203,90,3,15)                           !  Ear  }    These
  15. oval(145,85,5,4)                            !  Eye  }    Calls
  16. oval(175,85,5,4)                            !  Eye  }  Pass Four
  17. oval(160,100,5,10)                          ! Nose  }  Parameters
  18. oval(160,120,20,3)                          ! Mouth }
  19. '
  20. PRINT CHR$(7);
  21. ~INP(2)
  22. EDIT
  23. '
  24. '
  25. '
  26. '
  27. PROCEDURE oval(x_or%,y_or%,x_rad%,y_rad%)
  28.   LOCAL theta#                               ! Variable LOCAL To This Procedure
  29.   '
  30.   FOR theta#=2*PI TO 0 STEP -speed#           ! Note Step Is --ve For Clockwise
  31.     PLOT x_or%+SIN(theta#)*x_rad%,y_or%+COS(theta#)*y_rad%
  32.   NEXT theta#
  33. RETURN
  34.