( -*-forth-*- )


( interpret all numeric values and operations as floating point )
floats

( create 2 outlets )
<s> anything outlet out0
<s> anything outlet out1

( an example of a pd-style message )

: test <f> <f>         ( parse 2 float arguments to stack )
    2dup               ( duplicate top 2 stack elements )
    - out1 float-out   ( send the difference to outlet 1 )
    + out0 float-out   ( send the sum to outlet 0 )
;



( compiling messages )

( to create a fixed message do something like this )
( the word <>_ compiles the rest of the input stream until semicolon )
create my-msg <>_  zwizwa test 1 2 3 ;

my-msg send


( for sending words see the file pd.mole )