--- a/Point.st	Mon Mar 15 18:06:12 2004 +0100
+++ b/Point.st	Mon Mar 15 23:36:57 2004 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -87,14 +85,13 @@
 
 r:distance angle:angle
     "create and return a new point given polar coordinates.
-     The angle is given in degrees"
+     The angle is given in degrees.
 
-    |x y rad|
+     OBSOLETE STX interface, use #r:theta:"
 
-    rad := angle degreesToRadians.
-    x := distance * rad cos.
-    y := distance * rad sin.
-    ^ x @ y
+    <resource:#obsolete>
+
+    ^ self r:distance theta:angle degreesToRadians
 
     "
      Point r:100 angle:0  
@@ -111,7 +108,7 @@
      The angle is given in degrees.
      Added for Squeak compatibility"
 
-    ^ self r:distance angle:angle
+    ^ self r:distance theta:angle degreesToRadians
 
     "
      Point r:100 degrees:90  
@@ -132,6 +129,7 @@
 
     "
      Point r:100 theta:0  
+     Point r:100 theta:Float pi/2 
     "
 
     "Modified: 2.4.1997 / 00:01:40 / cg"
@@ -879,6 +877,8 @@
      (i.e. the angle of a vector from 0@0 to the receiver).
     OBSOLETE ST/X interface; use theta for ST-80 compatibility."
 
+    <resource:#obsolete>
+
     ^ self theta radiansToDegrees
 
     "
@@ -1027,14 +1027,14 @@
     "speedup for common cases ..."
 
     (scale isMemberOf:Point) ifTrue:[     
-	^ Point x:(x + scale x) y:(y + scale y)
+        ^ Point x:(x + scale x) y:(y + scale y)
     ].
     (scale isMemberOf:SmallInteger) ifTrue:[
-	"/ same as below, but stc can do better here
-	^ Point x:(x + scale) y:(y + scale)
+        "/ same as below, but stc can do better here
+        ^ Point x:(x + scale) y:(y + scale)
     ].
     scale isNumber ifTrue:[
-	^ Point x:(x + scale) y:(y + scale)
+        ^ Point x:(x + scale) y:(y + scale)
     ].
 
     "this is the general (& clean) code ..."
@@ -1154,7 +1154,7 @@
 !Point class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.63 2004-03-05 12:42:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.64 2004-03-15 22:36:57 stefan Exp $'
 ! !
 
 Point initialize!