home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 451-475 / apd463 / amos1.34_progs / arc.amos / arc.amosSourceCode
AMOS Source Code  |  1993-01-17  |  955b  |  33 lines
  1. Rem ******************************** 
  2. Rem *                              * 
  3. Rem *    Procedure to draw Arcs    * 
  4. Rem *                              * 
  5. Rem *   Just merge into program    * 
  6. Rem *                              * 
  7. Rem *  Params:                     * 
  8. Rem *         X  = X Screen Coord  * 
  9. Rem *         Y  = Y Screen Coord  * 
  10. Rem *         R  = Radius of Arc   * 
  11. Rem *         A1 = Start Angle     * 
  12. Rem *         A2 = End Angle       * 
  13. Rem *                              * 
  14. Rem *     Written By G.Albrow      * 
  15. Rem *                              * 
  16. Rem *     For AMOS The Creator     * 
  17. Rem *                              * 
  18. Rem *         On 31-07-90          * 
  19. Rem *                              * 
  20. Rem ******************************** 
  21. '
  22. ARC[100,90,80,85,310]
  23. '
  24. Procedure ARC[X,Y,R,A1,A2]
  25.    '
  26.    Degree 
  27.    '
  28.    Gr Locate Cos(A1)*R+X,Sin(A1)*R+Y
  29.    '
  30.    For N=A1 To A2 Step 10
  31.       Draw To Cos(N)*R+X,Sin(N)*R+Y
  32.    Next 
  33. End Proc