[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Quarter-tone notation with arrows
From: |
Joseph Wakeling |
Subject: |
Re: Quarter-tone notation with arrows |
Date: |
Tue, 07 Apr 2009 11:44:41 +0200 |
User-agent: |
Thunderbird 2.0.0.21 (X11/20090319) |
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{}
}