User:Lilipond/Lilypond/Griffschrift/var

Bearbeiten • Versionen • Cache leeren • Seiteninformation

#(allow-volta-hook "||")
SPause = \markup { \musicglyph #"rests.4" } %% Sechzehntelpause
APause = \markup { \musicglyph #"rests.3" } %% Achtelpause
VPause = \markup { \musicglyph #"rests.2" } %% Viertelpause
HPause = \markup { \musicglyph #"rests.1" } %% Halbe Pause
GPause = \markup { \musicglyph #"rests.0" } %% Ganze Pause


%% http://lsr.di.unimi.it/LSR/Item?id=784
%% war die Vorlage
%% ich habe überflüssige Definitionen entfernt, um die Sachlage übersichtlicher
%% zu gestalten

#(define-public NATURAL-RAISE  2/10)
#(define-public NATURAL-LOWER -2/10)

% Note names can now be defined to represent these pitches in our
% Lilypond input.
% Das Ziel ist, die Eingabe so einfach wie möglich zu gestalten

GriffPitchNames =  #`(
                       (ce    . ,(ly:make-pitch -1 0 NATURAL-LOWER))
                       (c     . ,(ly:make-pitch -1 0 NATURAL))
                       (ci    . ,(ly:make-pitch -1 0 NATURAL-RAISE))

                       (de    . ,(ly:make-pitch -1 1 NATURAL-LOWER))
                       (d     . ,(ly:make-pitch -1 1 NATURAL))
                       (di    . ,(ly:make-pitch -1 1 NATURAL-RAISE))

                       (ee    . ,(ly:make-pitch -1 2 NATURAL-LOWER))
                       (e     . ,(ly:make-pitch -1 2 NATURAL))
                       (ei    . ,(ly:make-pitch -1 2 NATURAL-RAISE))

                       (fe    . ,(ly:make-pitch -1 3 NATURAL-LOWER))
                       (f     . ,(ly:make-pitch -1 3 NATURAL))
                       (fi    . ,(ly:make-pitch -1 3 NATURAL-RAISE))

                       (ge    . ,(ly:make-pitch -1 4 NATURAL-LOWER))
                       (g     . ,(ly:make-pitch -1 4 NATURAL))
                       (gi    . ,(ly:make-pitch -1 4 NATURAL-RAISE))

                       (ae    . ,(ly:make-pitch -1 5 NATURAL-LOWER))
                       (a     . ,(ly:make-pitch -1 5 NATURAL))
                       (ai    . ,(ly:make-pitch -1 5 NATURAL-RAISE))

                       (be    . ,(ly:make-pitch -1 6 NATURAL-LOWER))
                       (b     . ,(ly:make-pitch -1 6 NATURAL))
                       (bi    . ,(ly:make-pitch -1 6 NATURAL-RAISE))

                       (he    . ,(ly:make-pitch -1 6 NATURAL-LOWER))
                       (h     . ,(ly:make-pitch -1 6 NATURAL))
                       (hi    . ,(ly:make-pitch -1 6 NATURAL-RAISE))
                       )

pitchnames = \GriffPitchNames
#(ly:parser-set-note-names pitchnames)

% The symbols for each alteration
GriffGlyphs = #`(
                  (,NATURAL-RAISE . "noteheads.s2cross")
                  (  0            . "accidentals.natural")
                  (,NATURAL-LOWER . "noteheads.s0harmonic")
                  )