home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The C Users' Group Library 1994 August
/
wc-cdrom-cusersgrouplibrary-1994-08.iso
/
vol_300
/
310_02
/
radian.st
< prev
next >
Wrap
Text File
|
1990-04-20
|
453b
|
28 lines
Class Radian :Magnitude
| value |
[
new: x
value <- <NormalizeRadian (x asFloat) >
| < arg
^ value < arg asFloat
| = arg
^ value = arg asFloat
| sin
^ <Sin value>
| cos
^ <Cos value>
| tan
^ <Sin value> / <Cos value>
| asFloat
^ value
| printString
^ value asString , ' radians'
]