--- a/LineSegment.st	Sat Feb 21 13:08:22 2004 +0100
+++ b/LineSegment.st	Tue Mar 02 09:45:25 2004 +0100
@@ -226,8 +226,33 @@
     "Created: 8.5.1996 / 21:05:16 / cg"
 ! !
 
+!LineSegment methodsFor:'printing'!
+
+printOn:aStream
+    aStream nextPutAll:'LineSegment from:'.
+    startPoint printOn:aStream.
+    aStream nextPutAll:' to:'.
+    endPoint printOn:aStream.
+! !
+
 !LineSegment methodsFor:'queries'!
 
+angle
+    "return the receiver's angle (in degrees) in a polar coordinate system."
+
+    ^ (endPoint - startPoint) angle
+
+    "
+     (LineSegment from:0@0 to:100@0) angle
+     (LineSegment from:0@0 to:100@100) angle
+     (LineSegment from:0@0 to:0@100) angle
+     (LineSegment from:0@0 to:-100@100) angle
+     (LineSegment from:0@0 to:-100@0) angle
+     (LineSegment from:0@0 to:-100@-100) angle
+     (LineSegment from:0@0 to:0@-100) angle
+    "
+!
+
 computeBounds
     "return the smallest enclosing rectangle"
 
@@ -286,5 +311,5 @@
 !LineSegment class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/LineSegment.st,v 1.13 2003-08-29 17:32:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LineSegment.st,v 1.14 2004-03-02 08:45:25 cg Exp $'
 ! !