\version "2.19.15"

%% Functions for Setup of Pedals (and levers)

#(define (logme message value)
   (display message)
   (display " : ")
   (display value)
   (newline))


%% global variables
#(define copedent '())
#(define pedalList '())
#(define tmp #f)


%% setup functions

SetupPedalStart =
#(define-void-function (parser location )
   ()
   (set! pedalList '())
)


AddPedal =
#(define-void-function (parser location stringno from to)
   ( integer? ly:pitch? ly:pitch?)
   (set! tmp (cons #{ #from #} #{ #to #}))
   (set! pedalList (acons stringno tmp pedalList))
   null
)

SetupPedalEnd =
#(define-void-function(parser location pedalName)
   (string?)
   (set! copedent (acons pedalName pedalList copedent))
   null
   )