\version "2.19.15"
\include "psg-functions.ily"

%% Setup of E9th 
%% Stage One default copedent

%% Tuning
%%	From lo to hi
%%	b[2], d[3], e[3], f#[3], g#[3], b[3], e[4], g#[4], d#[4], f#[4]

tuning = \stringTuning <
c,,,% this tune's only to show one more string
b, d e fis gis b e' gis' dis' fis'>
  
%% A pedal
\SetupPedalStart
\AddPedal 5 b cis'
\AddPedal 10 b, cis
\SetupPedalEnd "A"

%% B pedal
\SetupPedalStart
\AddPedal 3 gis' a'
\AddPedal 6 gis a
\SetupPedalEnd "B"

%% C pedal
\SetupPedalStart
\AddPedal 4 e' fis'
\AddPedal 5 b cis'
\SetupPedalEnd "C"

%% D Knee lever (LKR)
\SetupPedalStart
\AddPedal 4 e' dis'
\AddPedal 8 e dis
\SetupPedalEnd "D"

%% F Knee lever (LKL)
\SetupPedalStart
\AddPedal 4 e' f'
\AddPedal 8 e f
\SetupPedalEnd "F"

%% G Knee lever (RKL)
\SetupPedalStart
\AddPedal 1 fis' g'
\AddPedal 7 fis g
\SetupPedalEnd "G"

%% E Knee lever (RKR)
\SetupPedalStart
\AddPedal 2 dis' d'
\SetupPedalEnd "E"


%% SHORTCUTS to each pedal
pedA = #(define-music-function (parser location mm)(ly:music?)
          #{ \pedalAction "A" $mm #})

pedB = #(define-music-function (parser location mm)(ly:music?)
	#{ \pedalAction "B" $mm #})

pedC = #(define-music-function (parser location mm)(ly:music?)
	#{ \pedalAction "C" $mm #})

pedD = #(define-music-function (parser location mm)(ly:music?)
	#{ \pedalAction "D" $mm #})

pedE = #(define-music-function (parser location mm)(ly:music?)
	#{ \pedalAction "E" $mm #})

pedF = #(define-music-function (parser location mm)(ly:music?)
	#{ \pedalAction "F" $mm #})

pedG = #(define-music-function (parser location mm)(ly:music?)
	#{ \pedalAction "G" $mm #})