(d-MoveToBeginning)
(use-modules (ice-9 optargs))
(define TwinkleDictation::acceptable_input (list "a" "b" "c" "d" "e" "f" "g"))
(define (EducationGames::GetAcceptableKeyInput acceptable_list)
(let (
(input 0)
(getinput 0))
(set! getinput
(lambda ()
(set! input (d-GetKeypress))
(if (not (or (boolean? input) (member input acceptable_list)))
(getinput))))
(getinput)
input))
(define (HideNotes)
(d-DirectivePut-chord-graphic "test" "CrossSign")
(d-DirectivePut-chord-override "test" DENEMO_OVERRIDE_GRAPHIC))
(define (Next)
(if (d-NextObject)
(begin
(HideNotes)
(Next))))
(Next)
(define (CheckNote)
(if (string=? (d-GetNoteName) (EducationGames::GetAcceptableKeyInput TwinkleDictation::acceptable_input))
(d-DirectiveDelete-chord "test"))
(CheckNote))
(d-MoveToBeginning)
(CheckNote)
ScoreTagline
tagline=""
32
PrintAllHeaders
print-all-headers = ##t
32
a4
20
1
1
1
11
-1
0
100
100
100
100
1
4
120
voice 1
1
4
4
5
0
NONE
127
0
0
0
0
8
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
7
test
CrossSign
4
5
test
CrossSign
4
5
test
CrossSign
4
4
test
CrossSign
4
5
test
CrossSign
4
6
test
CrossSign
4
7
test
CrossSign
4
8
test
CrossSign
4
8
test
CrossSign
4
8
test
CrossSign
4
8
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
7
test
CrossSign
4
5
test
CrossSign
4
5
test
CrossSign
4
5
test
CrossSign
4
4
test
CrossSign
4
6
test
CrossSign
4
8
test
CrossSign
4
8
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
5
test
CrossSign
4
5
test
CrossSign
4
5
test
CrossSign
4
5
test
CrossSign
4
5
test
CrossSign
4
6
test
CrossSign
4
7
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
7
test
CrossSign
4
8
test
CrossSign
4
8
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
7
test
CrossSign
4
5
test
CrossSign
4
5
test
CrossSign
4
5
test
CrossSign
4
4
test
CrossSign
4
6
test
CrossSign
4
8
test
CrossSign
4
8
test
CrossSign
4
6
test
CrossSign
4
6
test
CrossSign
4
6