<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>LineNumber</after>
        <action>SpaceNumber</action>
        <scheme>(define SpaceNumber::Scale (cons "1 2 3 4" "f' a' c'' e''"))
(define SpaceNumber::notelist '())
(define SpaceNumber::buttonlist '())
(define SpaceNumber::score 0)
(define SpaceNumber::CurrentNote "")
(define SpaceNumber::CurrentNoteNum 0)
(define SpaceNumber::NoteIndex 0)

(let ((time (gettimeofday)))
  (set! *random-state*
    (seed-&gt;random-state (+ (car time)
      (cdr time)))))

(define (SpaceNumber::gotoEnd)
  (d-CursorRight)
  (if (d-NextObject)
    (SpaceNumber::gotoEnd)
    (d-CursorRight)))

(define (SpaceNumber::NewNote)
  (SpaceNumber::gotoEnd)
  (set! SpaceNumber::CurrentNoteNum (random (length SpaceNumber::notelist)))
  (set! SpaceNumber::CurrentNote (list-ref SpaceNumber::notelist SpaceNumber::CurrentNoteNum))
  (d-CursorToNote SpaceNumber::CurrentNote)
  (d-Insert0)
  )

(define (SpaceNumber::showscore)
 (d-DirectivePut-score-display "SpaceNumber::GameScore" (string-append "&lt;b&gt;Score: &lt;/b&gt;" (number-&gt;string SpaceNumber::score))))


;TODO perhaps inherit this from EducationGames
(define (SpaceNumber::PlaceAnswerStatus gfx)
  (begin
    (d-DirectivePut-note-minpixels "SpaceNumber::tick" 30)
    (d-DirectivePut-note-gx "SpaceNumber::tick" -10)
    (d-DirectivePut-note-gy "SpaceNumber::tick" 40)
    (d-DirectivePut-note-graphic "SpaceNumber::tick" gfx)))

(define (SpaceNumber::OfferChord)
  (SpaceNumber::showscore)
  (SpaceNumber::NewNote)
)

(define (SpaceNumber::Go)
  (SpaceNumber::showscore)
  (SpaceNumber::gotoEnd)
  (SpaceNumber::OfferChord)
)

(define (SpaceNumber::notechosen NoteListPosition)
  (if  (= SpaceNumber::CurrentNoteNum (string-&gt;number NoteListPosition))
    (begin
      (set! SpaceNumber::score (+ SpaceNumber::score 1))
      (SpaceNumber::PlaceAnswerStatus "CheckMark")
      )
    (begin
      (set! SpaceNumber::score (- SpaceNumber::score 1))
      (SpaceNumber::PlaceAnswerStatus "CrossSign")
  	))
   (SpaceNumber::OfferChord)
  )

(define (SpaceNumber::createbutton note)
  (CreateButton (string-append "SpaceNumber::" note)  (string-append " &lt;span font_desc=\"22\" foreground=\"blue\"&gt;" note  "&lt;/span&gt;"))
     (d-SetDirectiveTagActionScript  (string-append "SpaceNumber::" note) (string-append "(SpaceNumber::notechosen \"" (number-&gt;string SpaceNumber::NoteIndex) "\")"))
     (set! SpaceNumber::NoteIndex (+ SpaceNumber::NoteIndex 1))
    )
  
(define (SpaceNumber::help)
  (d-InfoDialog "After you see the note appear on the screen hit the number that corresponds with the line that it is on.")
)
  
;;;;main procedure to call for SpaceNumber
(define (SpaceNumber::SpaceNumbers Scale) 

  (set! SpaceNumber::Scale Scale)
 
  (set! SpaceNumber::buttonlist (string-split (car SpaceNumber::Scale) #\space))
  (set! SpaceNumber::notelist (string-split (cdr SpaceNumber::Scale) #\space))

  (CreateButton "SpaceNumber::GameScore" "&lt;span font_desc=\"22\"&gt;Click to start&lt;/span&gt;")
  (d-SetDirectiveTagActionScript "SpaceNumber::GameScore" "(SpaceNumber::Go)")

  (CreateButton "SpaceNumber::GameHelp" "&lt;b&gt;Help&lt;/b&gt;")
  (d-SetDirectiveTagActionScript "SpaceNumber::GameHelp" "(SpaceNumber::help)")

  (map SpaceNumber::createbutton SpaceNumber::buttonlist)
)

(SpaceNumber::SpaceNumbers SpaceNumber::Scale) </scheme>
        <label>Identify Space Number</label>
        <tooltip>Identify the space number in which the note is display on</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
