Point.st
changeset 7450 759a184d56ab
parent 7360 719b7bdf6b55
child 7489 105fecd23134
equal deleted inserted replaced
7449:192789c6e1c2 7450:759a184d56ab
   966     "return true, if the receiver is some kind of point"
   966     "return true, if the receiver is some kind of point"
   967 
   967 
   968     ^ true
   968     ^ true
   969 ! !
   969 ! !
   970 
   970 
       
   971 !Point methodsFor:'testing'!
       
   972 
       
   973 isFinite
       
   974 	^x isFinite and: [y isFinite]
       
   975 !
       
   976 
       
   977 isInfinite
       
   978 	^x isInfinite or: [y isInfinite]
       
   979 ! !
       
   980 
   971 !Point methodsFor:'transformations'!
   981 !Point methodsFor:'transformations'!
   972 
   982 
   973 * scale 
   983 * scale 
   974     "Return a new Point that is the product of the 
   984     "Return a new Point that is the product of the 
   975      receiver and scale (which is a Point or Number)."
   985      receiver and scale (which is a Point or Number)."
  1130 ! !
  1140 ! !
  1131 
  1141 
  1132 !Point class methodsFor:'documentation'!
  1142 !Point class methodsFor:'documentation'!
  1133 
  1143 
  1134 version
  1144 version
  1135     ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.59 2003-06-16 09:28:49 cg Exp $'
  1145     ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.60 2003-06-21 10:42:57 cg Exp $'
  1136 ! !
  1146 ! !
  1137 
  1147 
  1138 Point initialize!
  1148 Point initialize!