| |
|
| : 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 ) |
| |
|
| ' 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* ; |
