home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / ANGLES.LSP < prev    next >
Lisp/Scheme  |  1989-02-28  |  812b  |  33 lines
  1. ; ANGLES.LSP   (c)1989, Barry Bowen
  2.  
  3. ; ----------------------------------------------------------
  4. ; This group of routines will return the specified degrees
  5. ; in radians. The resulting values are the same as in the
  6. ; table above.
  7. ; ----------------------------------------------------------
  8. ;
  9. ; Sample Call: (D45)
  10. ; These routines can be used with the POLAR command:
  11. ; Examples: (polar pt1 (D45) 4.5)
  12. ;
  13. ; NOTE: PI may be used for 180 degrees
  14. ;
  15. ; ----------------------------------------------------------
  16.  
  17.   (defun D45 () (* pi 0.25))
  18.  
  19.   (defun D90 () (* pi 0.5))
  20.  
  21.   (defun D135 () (* pi 0.75))
  22.  
  23.   (defun D225 () (* pi 1.25))
  24.  
  25.   (defun D270 () (* pi 1.5))
  26.  
  27.   (defun D315 () (* pi 1.75))
  28.  
  29.   (defun D360 () (* pi 2.0))
  30.  
  31. ; END ------------------------------------------------------
  32.  
  33.