1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
Float : SimpleNumber {
isFloat { ^true }
asFloat { ^this }
+ { arg aNumber, adverb; _AddFloat; ^aNumber.performBinaryOpOnSimpleNumber('+', this, adverb) }
- { arg aNumber, adverb; _SubFloat; ^aNumber.performBinaryOpOnSimpleNumber('-', this, adverb) }
* { arg aNumber, adverb; _MulFloat; ^aNumber.performBinaryOpOnSimpleNumber('*', this, adverb) }
clip { arg lo, hi; _ClipFloat; ^this.primitiveFailed }
wrap { arg lo, hi; _WrapFloat; ^this.primitiveFailed }
fold { arg lo, hi; _FoldFloat; ^this.primitiveFailed }
coin { ^1.0.rand < this }
xrand2 { ^this.rand2 }
// returns an Integer which is the bit pattern of this as a
// 32bit single precision float
as32Bits { _As32Bits }
// returns an Integer which is the bit pattern of high
// 32 bits of the 64 bit double precision floating point value
high32Bits { _High32Bits }
low32Bits { _Low32Bits }
*from32Bits { arg word;
_From32Bits
^this.primitiveFailed
}
*from64Bits { arg hiWord, loWord;
_From64Bits
^this.primitiveFailed
}
// iteration
do { arg function;
// iterates function from 0 to this-1
// special byte codes inserted by compiler for this method
var i = 0.0;
while ({ (i + 0.5) < this }, { function.value(i, i); i = i + 1.0; });
}
reverseDo { arg function;
// iterates function from this-1 to 0
// special byte codes inserted by compiler for this method
var i, j=0.0;
i = this - 1.0;
while ({ (i + 0.5) >= 0.0 }, { function.value(i, j); i = i - 1.0; j = j + 1.0; });
}
asStringPrec { arg precision;
_Float_AsStringPrec
^this.primitiveFailed
}
archiveAsCompileString { ^true }
// the correct place to implement compileString for Float is in DumpParseNode.cpp
// int asCompileString(PyrSlot *slot, char *str)
// for now, solve it here.
storeOn { |stream|
var str;
if(this == inf) { stream << "inf"; ^this };
if(this == -inf) { stream << "-inf"; ^this };
str = super.asString;
stream << str;
// if it doesn't already have a . or is 1e-05 then add a .0 to force it to Float
if(str.find(".").isNil and: { str.find("e").isNil }) {
stream << ".0";
}
}
switch { | ... cases|
"Float:switch is unsafe, rounding via Float:asInteger:switch".warn;
^this.asInteger.switch(*cases)
}
}
|
