Commit b3f96f6b authored by pazsan's avatar pazsan

Added xhold

parent e4122347
......@@ -70,8 +70,9 @@ Carray expix
BEGIN 2dup > WHILE dup 2* swap fft-step
REPEAT 2drop drop ;
: normalize ( -- ) #points dup s>f 1/f
0 DO I values dup z@ 2 fpick zscale z! LOOP fdrop ;
: fftscale ( r -- )
#points 0 DO I values dup z@ 2 fpick zscale z! LOOP fdrop ;
: normalize ( -- ) #points s>f 1/f fftscale ;
: fft ( -- ) #points true (fft ;
: rfft ( -- ) #points false (fft ;
......
......@@ -83,6 +83,12 @@ Defer -trailing-garbage ( xc-addr u1 -- addr u2 ) \ xchar-ext
over >r +x/string
r> xc@ ;
Create xholdbuf 8 allot
: xhold ( xc -- )
\G Put xc into the pictured numeric output
xholdbuf 8 xc!+? 2drop
BEGIN 1- dup xholdbuf u>= WHILE dup c@ hold REPEAT drop ;
\ fixed-size versions of these words
: char- ( c-addr1 -- c-addr2 )
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment