home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / radian.st < prev    next >
Text File  |  1986-10-19  |  459b  |  28 lines
  1. Class Radian :Magnitude
  2. | value |
  3. [
  4.         new: x
  5.                 value <- <primitive 80 (x asFloat) >
  6.  
  7. |    < arg
  8.         ^ value < arg asFloat
  9.  
  10. |    = arg
  11.         ^ value = arg asFloat
  12.  
  13. |       sin
  14.                 ^ <primitive 81 value>
  15.  
  16. |       cos
  17.                 ^ <primitive 82 value>
  18.  
  19. |       tan
  20.                 ^ <primitive 81 value> / <primitive 82 value>
  21.  
  22. |       asFloat
  23.                 ^ value
  24.  
  25. |       printString
  26.                 ^ value asString , ' radians'
  27. ]
  28.