--- a/Number.st	Fri May 22 17:20:44 2009 +0200
+++ b/Number.st	Mon May 25 11:27:40 2009 +0200
@@ -361,6 +361,7 @@
     "Modified: / 19.11.1999 / 18:26:47 / cg"
 ! !
 
+
 !Number class methodsFor:'constants'!
 
 decimalPointCharacter 
@@ -775,6 +776,12 @@
     ^ self degreesToRadians sin
 !
 
+degreeTan
+    "Return the cosine of the receiver taken as an angle in degrees."
+    
+    ^ self degreesToRadians tan
+!
+
 newTileMorphRepresentative
 	^ TileMorph new addArrows; setLiteral: self; addSuffixIfCan
 !
@@ -783,6 +790,7 @@
     ^ self rounded printString
 ! !
 
+
 !Number methodsFor:'coercing & converting'!
 
 i
@@ -2208,5 +2216,5 @@
 !Number class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.123 2009-03-26 11:53:23 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Number.st,v 1.124 2009-05-25 09:27:40 sr Exp $'
 ! !