%abc
%writefields Q 0
%%beginps
%--- Dreiklang auf nachfolgenden Ton bezogen
/dreiklang{/y exch def /x exch def gsave
x 5 sub y 3 add 2.8 0 360 1 0 0 setrgbcolor arc fill
x 5 sub y 9 add 2.8 0 360 0 0.5 1 setrgbcolor arc fill
x 5 sub y 15 add 2.8 0 360 0 1 0 setrgbcolor arc fill
grestore
}def
%--- Dreiklang für Startton angepasst
/dreiklangC{gsave /y exch def /x exch def
/x x 30 sub def
/y y -3 sub def
x y 2.8 0 360 1 0 0 setrgbcolor arc fill
x y 6 add 2.8 0 360 0 0.5 1 setrgbcolor arc fill
x y 12 add 2.8 0 360 0 1 0 setrgbcolor arc fill
%x y M -10 -10 RM 0.5 0.5 0.5 setrgbcolor 20 0 RL 0 30 RL -20 0 RL 0 -30 RL stroke
%0.5 0.5 0.5 setrgbcolor x y 6 add 12 0 360 arc stroke
x 10 add y 20 sub M 0.5 0.5 0.5 setrgbcolor 0 50 RL 3 0 RM 0 -50 RL stroke
x 35 sub y 15 sub M /Times-Roman 10 selectfont (Dreiklang) show
grestore
}def
/dreiklangF{gsave /y exch def /x exch def
/x x 30 sub def
/y y -12 sub def
x y 2.8 0 360 1 0 0 setrgbcolor arc fill
x y 6 add 2.8 0 360 0 0.5 1 setrgbcolor arc fill
x y 12 add 2.8 0 360 0 1 0 setrgbcolor arc fill
%x y M -10 -10 RM 0.5 0.5 0.5 setrgbcolor 20 0 RL 0 30 RL -20 0 RL 0 -30 RL stroke
%0.5 0.5 0.5 setrgbcolor x y 6 add 12 0 360 arc stroke
x 10 add y 20 sub M 0.5 0.5 0.5 setrgbcolor 0 50 RL 3 0 RM 0 -50 RL stroke
x 35 sub y 15 sub M /Times-Roman 10 selectfont (Dreiklang) show
grestore
}def
%%endps
%%deco dk 2 dreiklang 10 0 0
%%deco dkC 2 dreiklangC 10 0 0
%%deco dkF 2 dreiklangF 10 0 0
%%map dreiklangC C color="#ff0000"
%%map dreiklangC c color="#ff0000"
%%map dreiklangC E color="#00aaff"
%%map dreiklangC G color="#00ff00"
%%map dreiklangF F, color="#ff0000"
%%map dreiklangF F color="#ff0000"
%%map dreiklangF A, color="#00aaff"
%%map dreiklangF A color="#00aaff"
%%map dreiklangF C, color="#00ff00"
%%map dreiklangF C color="#00ff00"
%%map dreiklangF c color="#00ff00"
%%map dreiklangD D, color="#ff0000"
%%map dreiklangD D color="#ff0000"
%%map dreiklangD d color="#ff0000"
%%map dreiklangD F, color="#00aaff"
%%map dreiklangD F color="#00aaff"
%%map dreiklangD f color="#00aaff"
%%map dreiklangD A, color="#00ff00"
%%map dreiklangD A color="#00ff00"
%%setfont-1 Times-Roman 10
X:1
T:Wach auf, meins Herzens Schöne
T:Fermate (= Aushaltezeichen)
K:D
%%text Bei einer Fermate wird der Ton länger ausgehalten als der Notenwert anzeigt.
%%text (Das Musikprogramm kann das leider nicht!)
!fermata!e
X:1
T:Early one morning
M:4/4
L:1/4
Q:1/4=120
K:D
V:1
%%text Eine eingeklammerte Note (hier im Auftakt) wird in manchen Strophen nicht gesungen.
%%text Das Musikprogramm spielt sie trotzdem in jedem Fall ab!
%