Layout to sound
[1/3] from: ljurado:bariloche:ar at: 2-Aug-2003 4:59
This is my embedded double-beep:
layout [origin 0x0 btn 21x83 btn 21x111]
Can you get anothers sounds ?
REBOL []
s: make object! [
type: 'sound rate: 22050 channels: 2 bits: 16 volume: 0.5 data: #{}]
s/data: to-binary to-image layout [origin 0x0 btn 21x83 btn 21x111]
play: func [s] [sp: open sound:// insert sp s wait sp close sp]
play s
--------
Luis
[2/3] from: antonr::iinet::net::au at: 4-Aug-2003 15:26
Very interesting!
blue and red colours map to left and right channels
(on winxp at least):
s/data: to-binary to-image view layout [
backcolor black origin 0x0
btn blue 80x100
btn red 80x100
btn white 80x33
]
play s
Anton.
[3/3] from: antonr:iinet:au at: 4-Aug-2003 15:31
What fun!
s/data: to-binary to-image view layout [
origin 4 box 100x300 effect [gradient 0x1 0.0.255 255.0.0]
]
origin is like pulse width, and somehow the red/blueness maps
to stereo position.
Change origin to 1 for a really tinny noise, and 20 for a
fatter noise.
Anton.