load-osc

# create a word 'RX' that will collect lists of OSC messages from UDP
# port 1234.

1234 osc-collector RX

# handles a single message
: print-message
    "OSC:" p p cr ;

# when using opengl, include this function in your 'anim' loop
: poll-messages 
    RX { print-message } for-each ;


# ad-hoc main loop.
: server
  begin
      	poll-messages	# handle all OSC messages
	block-poll 	# do management stuff (prevent busy loop)
  again ;

server