version 1.11, 1995/01/19 17:48:01
|
version 1.14, 1995/02/08 13:38:51
|
Line 26
|
Line 26
|
|
|
: f, ( f -- ) here 1 floats allot f! ; |
: f, ( f -- ) here 1 floats allot f! ; |
|
|
\ !! have create produce faligned pfas |
|
: fconstant ( r -- ) |
: fconstant ( r -- ) |
falign here f, Create A, |
Create f, |
DOES> @ f@ ; |
DOES> f@ ; |
|
|
: fvariable |
|
falign here 0. d>f f, AConstant ; |
|
|
|
: fdepth ( -- n ) f0 @ fp@ - [ 1 floats ] Literal / ; |
: fdepth ( -- n ) f0 @ fp@ - [ 1 floats ] Literal / ; |
|
|
: FLit ( -- r ) r> faligned dup f@ float+ >r ; |
: FLit ( -- r ) r> dup f@ float+ >r ; |
: FLiteral ( r -- ) postpone FLit falign f, ; immediate |
: FLiteral ( r -- ) |
|
BEGIN here cell+ dup faligned <> WHILE postpone noop REPEAT |
|
postpone FLit f, ; immediate |
|
|
&16 Value precision |
&15 Value precision |
: set-precision to precision ; |
: set-precision to precision ; |
|
|
: scratch ( r -- addr len ) |
: scratch ( r -- addr len ) |
Line 83
|
Line 81
|
|
|
' sfnumber IS notfound |
' sfnumber IS notfound |
|
|
|
: fvariable ( -- ) |
|
Create 0e0 f, ; |
|
\ does> ( -- f-addr ) |
|
|
1e0 fasin 2e0 f* fconstant pi |
1e0 fasin 2e0 f* fconstant pi |
|
|
: f2* 2e0 f* ; |
: f2* 2e0 f* ; |
: f2/ 2e0 f/ ; |
: f2/ .5e0 f* ; |
: 1/f 1e0 fswap f/ ; |
: 1/f 1e0 fswap f/ ; |
|
|
|
|