Point.st
changeset 8972 c3fb4f2e91f8
parent 8791 1171ee15fa9c
child 10559 f6a5f339f072
--- a/Point.st	Mon Nov 07 13:06:56 2005 +0100
+++ b/Point.st	Tue Nov 08 09:44:47 2005 +0100
@@ -247,6 +247,20 @@
     "Squeak mimicri return the receiver as Point - this is the receiver"
 
     ^ self
+!
+
+asLargerPowerOfTwo
+    ^ x asLargerPowerOfTwo @ y asLargerPowerOfTwo
+!
+
+asSmallerPowerOfTwo
+    ^ x asSmallerPowerOfTwo @ y asSmallerPowerOfTwo
+!
+
+maxDimension
+    "Answer the larger of the two dimensions."
+
+    ^ x max: y.
 ! !
 
 !Point methodsFor:'accessing'!
@@ -1152,7 +1166,7 @@
 !Point class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.68 2005-03-16 19:13:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.69 2005-11-08 08:44:47 cg Exp $'
 ! !
 
 Point initialize!