
#!!
1. Set sampler player for track
2. Add a note
3. Add sample position automation
4. play / stop
6. copy track
7. new song
8. paste track
9. play / stop
10. add system out automation
11. play / stop
12. new song
13. crash
!!#

(define (play-a-little)
  (<ra> :play-block-from-start)
  (<ra> :msleep 1000)
  (<ra> :play-stop))

(define id-instrument (<ra> :create-audio-instrument "Sample Player" "Sample Player"))
(<ra> :set-instrument-for-track id-instrument 0)
(<ra> :add-note2 60 40000 0 0 1 50 0 1)
(define fx-num (<ra> :create-fx 0.2 0 "Start Position" 0))
(play-a-little)
(<ra> :copy-track)
(<ra> :reset-undo)
(<ra> :new-song)
(<ra> :paste-track)
(define fx-num2 (<ra> :create-fx 0.8 0 "Sustain" 0))
(play-a-little)
(<ra> :new-song)

