\version "2.19.83" %{ % Define alterations: 1/6 of a whole tonestep. % 53-ET tonestep #(define-public COMMA 6/53) % 53-ET alterations in terms of 12-ET whole tones. #(define-public FLAT (* -5 COMMA)) #(define-public SHARP (* 5 COMMA)) %} % Define pitch names EqualFiftythreePitchNames = #`( (cff . ,(ly:make-pitch -1 0 -10/10)) (cffu . ,(ly:make-pitch -1 0 -9/10)) (cffuu . ,(ly:make-pitch -1 0 -8/10)) (cfdd . ,(ly:make-pitch -1 0 -7/10)) (cfd . ,(ly:make-pitch -1 0 -6/10)) (cf . ,(ly:make-pitch -1 0 -5/10)) (cfu . ,(ly:make-pitch -1 0 -4/10)) (cfuu . ,(ly:make-pitch -1 0 -3/10)) (cdd . ,(ly:make-pitch -1 0 -2/10)) (cd . ,(ly:make-pitch -1 0 -1/10)) (c . ,(ly:make-pitch -1 0 0/10)) (cu . ,(ly:make-pitch -1 0 1/10)) (cuu . ,(ly:make-pitch -1 0 2/10)) (csdd . ,(ly:make-pitch -1 0 3/10)) (csd . ,(ly:make-pitch -1 0 4/10)) (cs . ,(ly:make-pitch -1 0 5/10)) (csu . ,(ly:make-pitch -1 0 6/10)) (csuu . ,(ly:make-pitch -1 0 7/10)) (cssdd . ,(ly:make-pitch -1 0 8/10)) (cssd . ,(ly:make-pitch -1 0 9/10)) (css . ,(ly:make-pitch -1 0 10/10)) (dff . ,(ly:make-pitch -1 1 -10/10)) (dffu . ,(ly:make-pitch -1 1 -9/10)) (dffuu . ,(ly:make-pitch -1 1 -8/10)) (dfdd . ,(ly:make-pitch -1 1 -7/10)) (dfd . ,(ly:make-pitch -1 1 -6/10)) (df . ,(ly:make-pitch -1 1 -5/10)) (dfu . ,(ly:make-pitch -1 1 -4/10)) (dfuu . ,(ly:make-pitch -1 1 -3/10)) (ddd . ,(ly:make-pitch -1 1 -2/10)) (dd . ,(ly:make-pitch -1 1 -1/10)) (d . ,(ly:make-pitch -1 1 0/10)) (du . ,(ly:make-pitch -1 1 1/10)) (duu . ,(ly:make-pitch -1 1 2/10)) (dsdd . ,(ly:make-pitch -1 1 3/10)) (dsd . ,(ly:make-pitch -1 1 4/10)) (ds . ,(ly:make-pitch -1 1 5/10)) (dsu . ,(ly:make-pitch -1 1 6/10)) (dsuu . ,(ly:make-pitch -1 1 7/10)) (dssdd . ,(ly:make-pitch -1 1 8/10)) (dssd . ,(ly:make-pitch -1 1 9/10)) (dss . ,(ly:make-pitch -1 1 10/10)) (eff . ,(ly:make-pitch -1 2 -10/10)) (effu . ,(ly:make-pitch -1 2 -9/10)) (effuu . ,(ly:make-pitch -1 2 -8/10)) (efdd . ,(ly:make-pitch -1 2 -7/10)) (efd . ,(ly:make-pitch -1 2 -6/10)) (ef . ,(ly:make-pitch -1 2 -5/10)) (efu . ,(ly:make-pitch -1 2 -4/10)) (efuu . ,(ly:make-pitch -1 2 -3/10)) (edd . ,(ly:make-pitch -1 2 -2/10)) (ed . ,(ly:make-pitch -1 2 -1/10)) (e . ,(ly:make-pitch -1 2 0/10)) (eu . ,(ly:make-pitch -1 2 1/10)) (euu . ,(ly:make-pitch -1 2 2/10)) (esdd . ,(ly:make-pitch -1 2 3/10)) (esd . ,(ly:make-pitch -1 2 4/10)) (es . ,(ly:make-pitch -1 2 5/10)) (esu . ,(ly:make-pitch -1 2 6/10)) (esuu . ,(ly:make-pitch -1 2 7/10)) (essdd . ,(ly:make-pitch -1 2 8/10)) (essd . ,(ly:make-pitch -1 2 9/10)) (ess . ,(ly:make-pitch -1 2 10/10)) (fff . ,(ly:make-pitch -1 3 -10/10)) (fffu . ,(ly:make-pitch -1 3 -9/10)) (fffuu . ,(ly:make-pitch -1 3 -8/10)) (ffdd . ,(ly:make-pitch -1 3 -7/10)) (ffd . ,(ly:make-pitch -1 3 -6/10)) (ff . ,(ly:make-pitch -1 3 -5/10)) (ffu . ,(ly:make-pitch -1 3 -4/10)) (ffuu . ,(ly:make-pitch -1 3 -3/10)) (fdd . ,(ly:make-pitch -1 3 -2/10)) (fd . ,(ly:make-pitch -1 3 -1/10)) (f . ,(ly:make-pitch -1 3 0/10)) (fu . ,(ly:make-pitch -1 3 1/10)) (fuu . ,(ly:make-pitch -1 3 2/10)) (fsdd . ,(ly:make-pitch -1 3 3/10)) (fsd . ,(ly:make-pitch -1 3 4/10)) (fs . ,(ly:make-pitch -1 3 5/10)) (fsu . ,(ly:make-pitch -1 3 6/10)) (fsuu . ,(ly:make-pitch -1 3 7/10)) (fssdd . ,(ly:make-pitch -1 3 8/10)) (fssd . ,(ly:make-pitch -1 3 9/10)) (fss . ,(ly:make-pitch -1 3 10/10)) (gff . ,(ly:make-pitch -1 4 -10/10)) (gffu . ,(ly:make-pitch -1 4 -9/10)) (gffuu . ,(ly:make-pitch -1 4 -8/10)) (gfdd . ,(ly:make-pitch -1 4 -7/10)) (gfd . ,(ly:make-pitch -1 4 -6/10)) (gf . ,(ly:make-pitch -1 4 -5/10)) (gfu . ,(ly:make-pitch -1 4 -4/10)) (gfuu . ,(ly:make-pitch -1 4 -3/10)) (gdd . ,(ly:make-pitch -1 4 -2/10)) (gd . ,(ly:make-pitch -1 4 -1/10)) (g . ,(ly:make-pitch -1 4 0/10)) (gu . ,(ly:make-pitch -1 4 1/10)) (guu . ,(ly:make-pitch -1 4 2/10)) (gsdd . ,(ly:make-pitch -1 4 3/10)) (gsd . ,(ly:make-pitch -1 4 4/10)) (gs . ,(ly:make-pitch -1 4 5/10)) (gsu . ,(ly:make-pitch -1 4 6/10)) (gsuu . ,(ly:make-pitch -1 4 7/10)) (gssdd . ,(ly:make-pitch -1 4 8/10)) (gssd . ,(ly:make-pitch -1 4 9/10)) (gss . ,(ly:make-pitch -1 4 10/10)) (aff . ,(ly:make-pitch -1 5 -10/10)) (affu . ,(ly:make-pitch -1 5 -9/10)) (affuu . ,(ly:make-pitch -1 5 -8/10)) (afdd . ,(ly:make-pitch -1 5 -7/10)) (afd . ,(ly:make-pitch -1 5 -6/10)) (af . ,(ly:make-pitch -1 5 -5/10)) (afu . ,(ly:make-pitch -1 5 -4/10)) (afuu . ,(ly:make-pitch -1 5 -3/10)) (add . ,(ly:make-pitch -1 5 -2/10)) (ad . ,(ly:make-pitch -1 5 -1/10)) (a . ,(ly:make-pitch -1 5 0/10)) (au . ,(ly:make-pitch -1 5 1/10)) (auu . ,(ly:make-pitch -1 5 2/10)) (asdd . ,(ly:make-pitch -1 5 3/10)) (asd . ,(ly:make-pitch -1 5 4/10)) (as . ,(ly:make-pitch -1 5 5/10)) (asu . ,(ly:make-pitch -1 5 6/10)) (asuu . ,(ly:make-pitch -1 5 7/10)) (assdd . ,(ly:make-pitch -1 5 8/10)) (assd . ,(ly:make-pitch -1 5 9/10)) (ass . ,(ly:make-pitch -1 5 10/10)) (bff . ,(ly:make-pitch -1 6 -10/10)) (bffu . ,(ly:make-pitch -1 6 -9/10)) (bffuu . ,(ly:make-pitch -1 6 -8/10)) (bfdd . ,(ly:make-pitch -1 6 -7/10)) (bfd . ,(ly:make-pitch -1 6 -6/10)) (bf . ,(ly:make-pitch -1 6 -5/10)) (bfu . ,(ly:make-pitch -1 6 -4/10)) (bfuu . ,(ly:make-pitch -1 6 -3/10)) (bdd . ,(ly:make-pitch -1 6 -2/10)) (bd . ,(ly:make-pitch -1 6 -1/10)) (b . ,(ly:make-pitch -1 6 0/10)) (bu . ,(ly:make-pitch -1 6 1/10)) (buu . ,(ly:make-pitch -1 6 2/10)) (bsdd . ,(ly:make-pitch -1 6 3/10)) (bsd . ,(ly:make-pitch -1 6 4/10)) (bs . ,(ly:make-pitch -1 6 5/10)) (bsu . ,(ly:make-pitch -1 6 6/10)) (bsuu . ,(ly:make-pitch -1 6 7/10)) (bssdd . ,(ly:make-pitch -1 6 8/10)) (bssd . ,(ly:make-pitch -1 6 9/10)) (bss . ,(ly:make-pitch -1 6 10/10)) ) %% Set pitch names. pitchnames = \EqualFiftythreePitchNames #(ly:parser-set-note-names EqualFiftythreePitchNames) tuning = #53 \include "regular.ly" %{ E53 symbol -10 accidentals.flatflat -9 accidentals.flat.arrowboth -8 accidentals.flatflat.slash -7 accidentals.flat.mirroredflat -6 accidentals.flat.arrowdown -5 accidentals.flat -4 accidentals.flat.arrowup -3 accidentals.flat.slash -2 accidentals.flat.mirroredflat -1 accidentals.natural.arrowdown 0 accidentals.natural 1 accidentals.natural.arrowup 2 accidentals.sharp.slashslash.stem 3 accidentals.sharp.slashslashslash.stem 4 accidentals.sharp.arrowdown 5 accidentals.sharp 6 accidentals.sharp.arrowup 7 accidentals.sharp.slashslashslash.stemstem 8 accidentals.sharp.slashslash.stemstemstem 9 accidentals.sharp.arrowboth 10 accidentals.doublesharp %} EqualFiftythreeGlyphsA = #`( (-60/53 . "accidentals.flatflat") (-54/53 . "accidentals.flat.arrowboth") (-48/53 . "accidentals.flatflat.slash") (-42/53 . "accidentals.mirroredflat.flat") (-36/53 . "accidentals.flat.arrowdown") (-30/53 . "accidentals.flat") (-24/53 . "accidentals.flat.arrowup") (-18/53 . "accidentals.flat.slash") (-12/53 . "accidentals.mirroredflat") (-6/53 . "accidentals.natural.arrowdown") (0 . "accidentals.natural") (6/53 . "accidentals.natural.arrowup") (12/53 . "accidentals.sharp.slashslash.stem") (18/53 . "accidentals.sharp.slashslashslash.stem") (24/53 . "accidentals.sharp.arrowdown") (30/53 . "accidentals.sharp") (36/53 . "accidentals.sharp.arrowup") (42/53 . "accidentals.sharp.slashslashslash.stemstem") (48/53 . "accidentals.sharp.slashslash.stemstemstem") (54/53 . "accidentals.sharp.arrowboth") (60/53 . "accidentals.doublesharp")) % Choose style of accidentals: EqualFiftythreeGlyphs = \EqualFiftythreeGlyphsA \layout { \context { \Score keyAlterationOrder = #`( % Flats: (6 . -6/53) (6 . -12/53) (6 . -18/53) (6 . -24/53) (6 . -36/53) (6 . -30/53) (6 . -42/53) (6 . -48/53) (6 . -54/53) (6 . -60/53) (2 . -6/53) (2 . -12/53) (2 . -18/53) (2 . -24/53) (2 . -36/53) (2 . -30/53) (2 . -42/53) (2 . -48/53) (2 . -54/53) (2 . -60/53) (5 . -6/53) (5 . -12/53) (5 . -18/53) (5 . -24/53) (5 . -36/53) (5 . -30/53) (5 . -42/53) (5 . -48/53) (5 . -54/53) (5 . -60/53) (1 . -6/53) (1 . -12/53) (1 . -18/53) (1 . -24/53) (1 . -36/53) (1 . -30/53) (1 . -42/53) (1 . -48/53) (1 . -54/53) (1 . -60/53) (4 . -6/53) (4 . -12/53) (4 . -18/53) (4 . -24/53) (4 . -36/53) (4 . -30/53) (4 . -42/53) (4 . -48/53) (4 . -54/53) (4 . -60/53) (0 . -6/53) (0 . -12/53) (0 . -18/53) (0 . -24/53) (0 . -36/53) (0 . -30/53) (0 . -42/53) (0 . -48/53) (0 . -54/53) (0 . -60/53) (3 . -6/53) (3 . -12/53) (3 . -18/53) (3 . -24/53) (3 . -36/53) (3 . -30/53) (3 . -42/53) (3 . -48/53) (3 . -54/53) (3 . -60/53) % Sharps: (3 . 6/53) (3 . 12/53) (3 . 18/53) (3 . 24/53) (3 . 30/53) (3 . 36/53) (3 . 42/53) (3 . 48/53) (3 . 54/53) (3 . 60/53) (0 . 6/53) (0 . 12/53) (0 . 18/53) (0 . 24/53) (0 . 30/53) (0 . 36/53) (0 . 42/53) (0 . 48/53) (0 . 54/53) (0 . 60/53) (4 . 6/53) (4 . 12/53) (4 . 18/53) (4 . 24/53) (4 . 30/53) (4 . 36/53) (4 . 42/53) (4 . 48/53) (4 . 54/53) (4 . 60/53) (1 . 6/53) (1 . 12/53) (1 . 18/53) (1 . 24/53) (1 . 30/53) (1 . 36/53) (1 . 42/53) (1 . 48/53) (1 . 54/53) (1 . 60/53) (5 . 6/53) (5 . 12/53) (5 . 18/53) (5 . 24/53) (5 . 30/53) (5 . 36/53) (5 . 42/53) (5 . 48/53) (5 . 54/53) (5 . 60/53) (2 . 6/53) (2 . 12/53) (2 . 18/53) (2 . 24/53) (2 . 30/53) (2 . 36/53) (2 . 42/53) (2 . 48/53) (2 . 54/53) (2 . 60/53) (6 . 6/53) (6 . 12/53) (6 . 18/53) (6 . 24/53) (6 . 30/53) (6 . 36/53) (6 . 42/53) (6 . 48/53) (6 . 54/53) (6 . 60/53) ) \override KeySignature #'glyph-name-alist = \EqualFiftythreeGlyphs \override Accidental #'glyph-name-alist = \EqualFiftythreeGlyphs \override AccidentalCautionary #'glyph-name-alist = \EqualFiftythreeGlyphs \override TrillPitchAccidental #'glyph-name-alist = \EqualFiftythreeGlyphs \override AmbitusAccidental #'glyph-name-alist = \EqualFiftythreeGlyphs } } % Uncomment to typeset available notes. %{ music = \new Staff { \override Score.RehearsalMark.break-align-symbols = #'(clef) \clef treble \mark \markup { E53 } \numericTimeSignature \time 4/4 \tempo 4 = 60 % Prevent cancelling naturals being printed: \set Staff.extraNatural = ##f \set Staff.midiInstrument = "church organ" \relative c' { cff4 cffu cffuu cfdd | cfd cf cfu cfuu | cdd cd c cu | cuu csdd csd cs | csu csuu cssdd cssd | css r2. | dff4 dffu dffuu dfdd | dfd df dfu dfuu | ddd dd d du | duu dsdd dsd ds | dsu dsuu dssdd dssd | dss r2. | eff4 effu effuu efdd | efd ef efu efuu | edd ed e eu | euu esdd esd es | esu esuu essdd essd | ess r2. | fff4 fffu fffuu ffdd | ffd ff ffu ffuu | fdd fd f fu | fuu fsdd fsd fs | fsu fsuu fssdd fssd | fss r2. | gff4 gffu gffuu gfdd | gfd gf gfu gfuu | gdd gd g gu | guu gsdd gsd gs | gsu gsuu gssdd gssd | gss r2. | aff4 affu affuu afdd | afd af afu afuu | add ad a au | auu asdd asd as | asu asuu assdd assd | ass r2. | bff4 bffu bffuu bfdd | bfd bf bfu bfuu | bdd bd b bu | buu bsdd bsd bs | bsu bsuu bssdd bssd | bss r2. | } } \score { \music \layout { \context { \Staff \remove "Time_signature_engraver" } } } \score { \unfoldRepeats \music \midi {} } %}