%abc %abc %%beginps %--- Dreiklang für Startton angepasst /dreiklang1{gsave /y exch def /x exch def /x x 30 sub def /y y -3 sub def /Times-Roman 10 selectfont x 18 sub y 3 sub moveto (DO) show x 18 sub y 9 add moveto (SO) show x y 2.8 0 360 1 0 0 setrgbcolor arc fill x y 12 add 2.8 0 360 0 1 0 setrgbcolor arc fill 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 45 sub y 15 sub M /Times-Roman 10 selectfont (Solmisation) show grestore }def %%endps %%deco dk1 2 dreiklang1 10 0 0 X:10 T:G-Dur - Tonleiter T:Vorzeichen 1 \u266f %%writefields Q 0 M:4/4 L:1/4 Q:1/4=60 K:G V:1 %%beginml

%%endml %%MIDI program 51 y50!dk1!G A B c d e f g||