;; plays examples of three wave primitives
to beep

make "a sinewave 220
make "b squarewave 220
make "c trianglewave 220
make "a copywave a 220
make "b copywave b 220
make "c copywave c 220
make "a waveenvelope a [[.9 10] [0 990]]
make "b waveenvelope b [[.9 10] [0 990]]
make "c waveenvelope c [[.9 10] [0 990]]

repeat 3 [
	playwave a
	rest 10
	playwave b
	rest 10
	playwave c
]

end


;; an envelope on a triangle wave
to trienv
make "a trianglewave 440
make "a copywave a 440 * 10
make "a waveenvelope a [[.9 2500] [0 2500] [.9 2500] [0 2500]]

playwave a

end



;; an example of combining waves 
to combo
make "a sinewave 660
make "a copywave a 660
make "b trianglewave 440
make "b copywave b 440
make "c squarewave 360
make "c copywave c 360
make "d fput c list a b

make "d combinewaves d
make "e waveenvelope d [[.9 800] [0 200]]

playwave e

end


;; adding a wave at a specified point give in milliseconds
to waveat
make "a sinewave 880
make "a copywave a 1760
make "b trianglewave 440
make "b copywave b 880
make "c addwaveat a b 1000

playwave c

end