--- a/LimitedPrecisionReal.st Tue Mar 16 00:33:11 2004 +0100
+++ b/LimitedPrecisionReal.st Tue Mar 16 09:52:06 2004 +0100
@@ -388,52 +388,6 @@
!LimitedPrecisionReal methodsFor:'coercing & converting'!
-asFixedPoint
- "return the receiver as fixedPoint number.
- Q: what should the scale be here ?"
-
- ^ self asFraction asFixedPoint
-
- "
- 0.3 asFixedPoint
- 0.5 asFixedPoint
- (1/5) asFloat asFixedPoint
- (1/3) asFloat asFixedPoint
- (2/3) asFloat asFixedPoint
- (1/8) asFloat asFixedPoint
- 3.14159 asFixedPoint
- 0.0000001 asFraction
- 0.0000001 asFixedPoint
- "
-
- "Modified: / 25.10.1997 / 15:36:54 / cg"
-!
-
-asFixedPoint:scale
- "return the receiver as fixedPoint number with the given
- number of post-decimal-digits."
-
- ^ self asFraction asFixedPoint:scale
-
- "
- 0.3 asFixedPoint:4
- 0.3 asFixedPoint:3
- 0.3 asFixedPoint:2
- 0.3 asFixedPoint:1
- 0.3 asFixedPoint:0
-
- 0.5 asFixedPoint:3
- (1/5) asFloat asFixedPoint:1
- (1/8) asFloat asFixedPoint:1
- 1.0 asFixedPoint:2
- 3.14159 asFixedPoint:2
- 3.14159 asFixedPoint:3
- (3.14159 asFixedPoint:2) asFixedPoint:5
- "
-
- "Modified: / 5.8.1998 / 13:29:51 / cg"
-!
-
asFloat
^ Float fromLimitedPrecisionReal:self
!
@@ -1018,7 +972,7 @@
!LimitedPrecisionReal class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.58 2004-03-12 18:49:58 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.59 2004-03-16 08:52:06 stefan Exp $'
! !
LimitedPrecisionReal initialize!