10:12@greggirwin . Call is really useful. In this sample I use 2 simple functions which are conjointly activated:
light: func [
b [float!]
][
plot/2: yellow
canvas/draw: reduce [plot]
wait b
plot/2: black
canvas/draw: reduce[plot]
]
beep: func [
b [float!]
][
prog: rejoin ["play -n synth " form b " sine 700"]
call/wait prog
]
11:23@greggirwin A better solution
plot: compose [pen green fill-pen black circle 150x150 100]
light: func [
b [float!]
][
plot/4: yellow wait b plot/4: black
]
beep: func [
b [float!]
][
call/wait rejoin ["play -n synth " form b " sine 700"]
]