olaf_909three.lisp

/* block */

(~ tempo (st 0.14018692))

(fun onevelo 
	(hold (seq 40 90 50 100 60 120) 
		(hold 
			(seq 1 2 (ch 3 3 4 4 4 4 4 4 4 4 5))
			(seq 3 5 (ch 4 4 4 4 4 4 4 4 4 4 5)))))


(midi-note
	(~ tempo)
	(st 36)
	(st 0.05)
	(seq onevelo onevelo onevelo onevelo onevelo)
	)

(midi-note
	(~ tempo)
	(st 44)
	(st 0.05)
	(linlin (seq onevelo onevelo onevelo onevelo) (st 0) (st 128) (st 80) (st 110))
	)

(midi-note
	(~ tempo)
	(st 38)
	(st 0.05)
	(seq (ch 90 120 128) (latch (ch 50 50 50 50 50 50 128) (st 4)) (st 0) )
	)