Joseph Wakeling wrote: > I've attached the .ly files for people's amusement. I don't know if > it's even _possible_ to make them work, but the errors seem to crop up > when the transposition would normally transform a natural into a flat or > sharp (or vice versa).
Whoops, I attached the wrong files. This has the right versions.
#(define-public SHARP-Q-FLAT 1001/4000) #(define-public FLAT-Q-SHARP -1001/4000) quartertonearrowPitchNames = #`( (cff . ,(ly:make-pitch -1 0 DOUBLE-FLAT)) (ctqf . ,(ly:make-pitch -1 0 THREE-Q-FLAT)) (cf . ,(ly:make-pitch -1 0 FLAT)) (cfqs . ,(ly:make-pitch -1 0 FLAT-Q-SHARP)) (cqf . ,(ly:make-pitch -1 0 SEMI-FLAT)) (c . ,(ly:make-pitch -1 0 NATURAL)) (cqs . ,(ly:make-pitch -1 0 SEMI-SHARP)) (csqf . ,(ly:make-pitch -1 0 SHARP-Q-FLAT)) (cs . ,(ly:make-pitch -1 0 SHARP)) (ctqs . ,(ly:make-pitch -1 0 THREE-Q-SHARP)) (css . ,(ly:make-pitch -1 0 DOUBLE-SHARP)) (cx . ,(ly:make-pitch -1 0 DOUBLE-SHARP)) (dff . ,(ly:make-pitch -1 1 DOUBLE-FLAT)) (dtqf . ,(ly:make-pitch -1 1 THREE-Q-FLAT)) (df . ,(ly:make-pitch -1 1 FLAT)) (dfqs . ,(ly:make-pitch -1 1 FLAT-Q-SHARP)) (dqf . ,(ly:make-pitch -1 1 SEMI-FLAT)) (d . ,(ly:make-pitch -1 1 NATURAL)) (dqs . ,(ly:make-pitch -1 1 SEMI-SHARP)) (dsqf . ,(ly:make-pitch -1 1 SHARP-Q-FLAT)) (ds . ,(ly:make-pitch -1 1 SHARP)) (dtqs . ,(ly:make-pitch -1 1 THREE-Q-SHARP)) (dss . ,(ly:make-pitch -1 1 DOUBLE-SHARP)) (dx . ,(ly:make-pitch -1 1 DOUBLE-SHARP)) (eff . ,(ly:make-pitch -1 2 DOUBLE-FLAT)) (etqf . ,(ly:make-pitch -1 2 THREE-Q-FLAT)) (ef . ,(ly:make-pitch -1 2 FLAT)) (efqs . ,(ly:make-pitch -1 2 FLAT-Q-SHARP)) (eqf . ,(ly:make-pitch -1 2 SEMI-FLAT)) (e . ,(ly:make-pitch -1 2 NATURAL)) (eqs . ,(ly:make-pitch -1 2 SEMI-SHARP)) (esqf . ,(ly:make-pitch -1 2 SHARP-Q-FLAT)) (es . ,(ly:make-pitch -1 2 SHARP)) (etqs . ,(ly:make-pitch -1 2 THREE-Q-SHARP)) (ess . ,(ly:make-pitch -1 2 DOUBLE-SHARP)) (ex . ,(ly:make-pitch -1 2 DOUBLE-SHARP)) (fff . ,(ly:make-pitch -1 3 DOUBLE-FLAT)) (ftqf . ,(ly:make-pitch -1 3 THREE-Q-FLAT)) (ff . ,(ly:make-pitch -1 3 FLAT)) (ffqs . ,(ly:make-pitch -1 3 FLAT-Q-SHARP)) (fqf . ,(ly:make-pitch -1 3 SEMI-FLAT)) (f . ,(ly:make-pitch -1 3 NATURAL)) (fqs . ,(ly:make-pitch -1 3 SEMI-SHARP)) (fsqf . ,(ly:make-pitch -1 3 SHARP-Q-FLAT)) (fs . ,(ly:make-pitch -1 3 SHARP)) (ftqs . ,(ly:make-pitch -1 3 THREE-Q-SHARP)) (fss . ,(ly:make-pitch -1 3 DOUBLE-SHARP)) (fx . ,(ly:make-pitch -1 3 DOUBLE-SHARP)) (gff . ,(ly:make-pitch -1 4 DOUBLE-FLAT)) (gtqf . ,(ly:make-pitch -1 4 THREE-Q-FLAT)) (gf . ,(ly:make-pitch -1 4 FLAT)) (gfqs . ,(ly:make-pitch -1 4 FLAT-Q-SHARP)) (gqf . ,(ly:make-pitch -1 4 SEMI-FLAT)) (g . ,(ly:make-pitch -1 4 NATURAL)) (gqs . ,(ly:make-pitch -1 4 SEMI-SHARP)) (gsqf . ,(ly:make-pitch -1 4 SHARP-Q-FLAT)) (gs . ,(ly:make-pitch -1 4 SHARP)) (gtqs . ,(ly:make-pitch -1 4 THREE-Q-SHARP)) (gss . ,(ly:make-pitch -1 4 DOUBLE-SHARP)) (gx . ,(ly:make-pitch -1 4 DOUBLE-SHARP)) (aff . ,(ly:make-pitch -1 5 DOUBLE-FLAT)) (atqf . ,(ly:make-pitch -1 5 THREE-Q-FLAT)) (af . ,(ly:make-pitch -1 5 FLAT)) (afqs . ,(ly:make-pitch -1 5 FLAT-Q-SHARP)) (aqf . ,(ly:make-pitch -1 5 SEMI-FLAT)) (a . ,(ly:make-pitch -1 5 NATURAL)) (aqs . ,(ly:make-pitch -1 5 SEMI-SHARP)) (asqf . ,(ly:make-pitch -1 5 SHARP-Q-FLAT)) (as . ,(ly:make-pitch -1 5 SHARP)) (atqs . ,(ly:make-pitch -1 5 THREE-Q-SHARP)) (ass . ,(ly:make-pitch -1 5 DOUBLE-SHARP)) (ax . ,(ly:make-pitch -1 5 DOUBLE-SHARP)) (bff . ,(ly:make-pitch -1 6 DOUBLE-FLAT)) (btqf . ,(ly:make-pitch -1 6 THREE-Q-FLAT)) (bf . ,(ly:make-pitch -1 6 FLAT)) (bfqs . ,(ly:make-pitch -1 6 FLAT-Q-SHARP)) (bqf . ,(ly:make-pitch -1 6 SEMI-FLAT)) (b . ,(ly:make-pitch -1 6 NATURAL)) (bqs . ,(ly:make-pitch -1 6 SEMI-SHARP)) (bsqf . ,(ly:make-pitch -1 6 SHARP-Q-FLAT)) (bs . ,(ly:make-pitch -1 6 SHARP)) (btqs . ,(ly:make-pitch -1 6 THREE-Q-SHARP)) (bss . ,(ly:make-pitch -1 6 DOUBLE-SHARP)) (bx . ,(ly:make-pitch -1 6 DOUBLE-SHARP)) ) %% set pitch names. pitchnames = \quartertonearrowPitchNames #(ly:parser-set-note-names parser pitchnames) quartertonearrowGlyphs = #`( (4001/4000 . "accidentals.doublesharp") (1 . "accidentals.doublesharp") (3001/4000 . "accidentals.sharp.arrowup") (3/4 . "accidentals.sharp.arrowup") (2001/4000 . "accidentals.sharp") (1/2 . "accidentals.sharp") (1001/4000 . "accidentals.sharp.arrowdown") (1/4 . "accidentals.natural.arrowup") (1/4000 . "accidentals.natural") (0 . "accidentals.natural") (-1/4000 "accidentals.natural") (-1/4 . "accidentals.natural.arrowdown") (-1001/4000 . "accidentals.flat.arrowup") (-1/2 . "accidentals.flat") (-2001/4000 . "accidentals.flat") (-3/4 . "accidentals.flat.arrowdown") (-3001/4000 . "accidentals.flat.arrowdown") (-1 . "accidentals.flatflat") (-4001/4000 "accidentals.flatflat") ) \layout { \context { \Score \override KeySignature #'glyph-name-alist = \quartertonearrowGlyphs \override Accidental #'glyph-name-alist = \quartertonearrowGlyphs \override AccidentalCautionary #'glyph-name-alist = \quartertonearrowGlyphs \override TrillPitchAccidental #'glyph-name-alist = \quartertonearrowGlyphs \override AmbitusAccidental #'glyph-name-alist = \quartertonearrowGlyphs } }
\version "2.12.1" \include "quartertonearrows.ly" quartertonephrase = \relative c' { c8[ cqs cqf csqf cfqs cs cf ctqs ctqf css cff] } \score { { #(set-accidental-style 'dodecaphonic) \time 11/8 \quartertonephrase \transpose bf c' { \quartertonephrase } \transpose f c' { \quartertonephrase } \transpose b c' { \quartertonephrase } \transpose af c' { \quartertonephrase } \transpose ef' c' { \quartertonephrase } } \layout{} \midi{} }
_______________________________________________ lilypond-user mailing list lilypond-user@gnu.org http://lists.gnu.org/mailman/listinfo/lilypond-user