From 1b071315c1d318e46035ec8bc0b73da55a025ae8 Mon Sep 17 00:00:00 2001 From: Tom Cato Amundsen Date: Fri, 30 Apr 1999 14:40:03 +0200 Subject: [PATCH] patch::: 1.1.41.tca1 pl 41.tca1 - Lookup::accordion and removed some accordionfonts --- NEWS | 2 + VERSION | 2 +- lily/lookup.cc | 198 ++++++++++++++++++++++++++++++++++++-- mf/feta-accordion.mf | 203 +++------------------------------------ scm/accordion-script.scm | 102 +++++++++++--------- 5 files changed, 269 insertions(+), 238 deletions(-) diff --git a/NEWS b/NEWS index 02a1840575..eb98873ff6 100644 --- a/NEWS +++ b/NEWS @@ -1,3 +1,5 @@ +pl 41.tca1 + - Lookup::accordion and removed some accordionfonts pl 40.uu2 - rest ledger lines are dimensionless. - Score_elements are added to the Paper_score directly when diff --git a/VERSION b/VERSION index e1f975fa6e..a7dabb98b0 100644 --- a/VERSION +++ b/VERSION @@ -2,7 +2,7 @@ PACKAGE_NAME=LilyPond MAJOR_VERSION=1 MINOR_VERSION=1 PATCH_LEVEL=41 -MY_PATCH_LEVEL= +MY_PATCH_LEVEL=tca1 # use the above to send patches: MY_PATCH_LEVEL is always empty for a # released version. diff --git a/lily/lookup.cc b/lily/lookup.cc index efe249977a..f53c1506c3 100644 --- a/lily/lookup.cc +++ b/lily/lookup.cc @@ -600,10 +600,196 @@ Molecule Lookup::accordion (SCM s) const { Molecule m; - - /* - Tom: go ahead. - */ - return m; - + String sym = ly_scm2string(SCM_CAR(s)); + String reg = ly_scm2string(SCM_CAR(SCM_CDR(s))); + Real interline_f = paper_l_->get_realvar(interline_scm_sym); + if (sym == "Discant") + { + Molecule r = afm_find("scripts-accDiscant"); + m.add_molecule(r); + if (reg.left_str(1) == "F") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 2.5 PT, Y_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-1); + } + int eflag = 0x00; + if (reg.left_str(3) == "EEE") + { + eflag = 0x07; + reg = reg.right_str(reg.length_i()-3); + } + else if (reg.left_str(2) == "EE") + { + eflag = 0x05; + reg = reg.right_str(reg.length_i()-2); + } + else if (reg.left_str(2) == "Eh") + { + eflag = 0x04; + reg = reg.right_str(reg.length_i()-2); + } + else if (reg.left_str(1) == "E") + { + eflag = 0x02; + reg = reg.right_str(reg.length_i()-1); + } + if (eflag & 0x02) + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 1.5 PT, Y_AXIS); + m.add_molecule(d); + } + if (eflag & 0x04) + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 1.5 PT, Y_AXIS); + d.translate_axis(0.8 * interline_f PT, X_AXIS); + m.add_molecule(d); + } + if (eflag & 0x01) + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 1.5 PT, Y_AXIS); + d.translate_axis(-0.8 * interline_f PT, X_AXIS); + m.add_molecule(d); + } + if (reg.left_str(2) == "SS") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(0.5 * interline_f PT, Y_AXIS); + d.translate_axis(0.4 * interline_f PT, X_AXIS); + m.add_molecule(d); + d.translate_axis(-0.8 * interline_f PT, X_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-2); + } + if (reg.left_str(1) == "S") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(0.5 * interline_f PT, Y_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-1); + } + } + else if (sym == "Freebase") + { + Molecule r = afm_find("scripts-accFreebase"); + m.add_molecule(r); + if (reg.left_str(1) == "F") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 1.5 PT, Y_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-1); + } + if (reg == "E") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 0.5 PT, Y_AXIS); + m.add_molecule(d); + } + } + else if (sym == "Bayanbase") + { + Molecule r = afm_find("scripts-accBayanbase"); + m.add_molecule(r); + if (reg.left_str(1) == "T") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 2.5 PT, Y_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-1); + } + /* include 4' reed just for completeness. You don't want to use this. */ + if (reg.left_str(1) == "F") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 1.5 PT, Y_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-1); + } + if (reg.left_str(2) == "EE") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 0.5 PT, Y_AXIS); + d.translate_axis(0.4 * interline_f PT, X_AXIS); + m.add_molecule(d); + d.translate_axis(-0.8 * interline_f PT, X_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-2); + } + if (reg.left_str(1) == "E") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 0.5 PT, Y_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-1); + } + } + else if (sym == "Stdbase") + { + Molecule r = afm_find("scripts-accStdbase"); + m.add_molecule(r); + if (reg.left_str(1) == "T") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 3.5 PT, Y_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-1); + } + if (reg.left_str(1) == "F") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 2.5 PT, Y_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-1); + } + if (reg.left_str(1) == "M") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 2 PT, Y_AXIS); + d.translate_axis(interline_f PT, X_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-1); + } + if (reg.left_str(1) == "E") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 1.5 PT, Y_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-1); + } + if (reg.left_str(1) == "S") + { + Molecule d = afm_find("scripts-accDot"); + d.translate_axis(interline_f * 0.5 PT, Y_AXIS); + m.add_molecule(d); + reg = reg.right_str(reg.length_i()-1); + } + } + /* ugh maybe try to use regular font for S.B. and B.B and only use one font + for the rectangle */ + else if (sym == "SB") + { + Molecule r = afm_find("scripts-accSB"); + m.add_molecule(r); + } + else if (sym == "BB") + { + Molecule r = afm_find("scripts-accBB"); + m.add_molecule(r); + } + else if (sym == "OldEE") + { + Molecule r = afm_find("scripts-accOldEE"); + m.add_molecule(r); + } + else if (sym == "OldEES") + { + Molecule r = afm_find("scripts-accOldEES"); + m.add_molecule(r); + } + return m; } diff --git a/mf/feta-accordion.mf b/mf/feta-accordion.mf index 3974a52342..190e7e576d 100644 --- a/mf/feta-accordion.mf +++ b/mf/feta-accordion.mf @@ -1,19 +1,18 @@ % -*- Fundamental -*- - - -accreg_dot_size# := .7interline#; +accreg_dot_size# := .6interline#; accreg_linethickness# := 1.3stafflinethickness#; % This dimention is the same on all registersymbols. % The different symbols should calculate their other % dimensions from this and accreg_dot_size -accreg_lh# := 1.2interline#; +accreg_lh# := 1.0interline#; define_pixels(accreg_dot_size, accreg_linethickness, accreg_lh); pen accreg_pen; accreg_pen := pencircle xscaled accreg_linethickness yscaled 0.7accreg_linethickness; -def draw_discant_reg(expr A, B, C, D, E, F) = + +fet_beginchar("accDiscant", "accDiscant", "accDiscant") save r, sx; r# = 3/2accreg_lh#; define_pixels(r); @@ -24,18 +23,16 @@ def draw_discant_reg(expr A, B, C, D, E, F) = sx = cosd(19.471221); draw (-sx*r, r/3)--(sx*r, r/3); draw (-sx*r, -r/3)--(sx*r, -r/3); + currentpicture := currentpicture shifted (0, r); +fet_endchar; +fet_beginchar("accDot", "accDot", "accDot") + set_char_box(accreg_dot_size#, accreg_dot_size#, 0, 0); pickup pencircle scaled accreg_dot_size; - if A = 1: drawdot (0, 2/3r); fi - if B = 1: drawdot (r/2, 0); fi - if C = 1: drawdot (0, 0); fi - if D = 1: drawdot (-r/2, 0); fi - if E = 1: drawdot (0, -2/3r); fi - if F = 1: drawdot (-.25r, -.642r); drawdot (.25r, -.642r); fi - currentpicture := currentpicture shifted (0, r); -enddef; + draw(0, 0); +fet_endchar; -def draw_freebase_reg(expr rFour, rEight) = +fet_beginchar("accFreebase", "accFreebase", "accFreebase") save r; r#= accreg_lh#; define_pixels(r); @@ -43,13 +40,10 @@ def draw_freebase_reg(expr rFour, rEight) = pickup accreg_pen; draw fullcircle scaled 2r; draw (-r, 0)--(r, 0); - pickup pencircle scaled accreg_dot_size; - if rFour = 1: draw (0, r/2); fi - if rEight = 1: draw (0, -r/2); fi currentpicture := currentpicture shifted (0, r); -enddef; +fet_endchar; -def draw_stdbase_reg(expr A, B, C, D, E) = +fet_beginchar("accStdbase", "accStdbase", "accStdbase") save r, sx; r# = 2accreg_lh#; define_pixels(r); @@ -60,16 +54,10 @@ def draw_stdbase_reg(expr A, B, C, D, E) = draw (-r, 0)--(r, 0); draw (-sx*r, r/2)--(sx*r, r/2); draw (-sx*r, -r/2)--(sx*r, -r/2); - pickup pencircle scaled accreg_dot_size; - if A = 1: draw (0, -3/4r); fi - if B = 1: draw (0, -1/4r); fi - if C = 1: draw (0, 1/4r); fi - if D = 1: draw (0, 3/4r); fi - if E = 1: draw (1/2r, 0); fi currentpicture := currentpicture shifted (0, r); -enddef; +fet_endchar; -def draw_bayanbase_reg_sign(expr nTwo, nEight) = +fet_beginchar("accBayanbase", "accBayanbase", "accBayanbase") save lh; lh = accreg_lh; % set_char_box(accreg_lh#, accreg_lh#, 3accreg_lh#, 0); @@ -78,168 +66,7 @@ def draw_bayanbase_reg_sign(expr nTwo, nEight) = draw (0, 0)--(2w, 0)--(2w, 3accreg_lh)--(0, 3accreg_lh)--(0, 0); draw (0, accreg_lh)--(2w, accreg_lh); draw (0, 2accreg_lh)--(2w, 2accreg_lh); - - pickup pencircle scaled accreg_dot_size; - if nTwo = 1: draw (w, 5/2lh); fi - if nEight = 1: draw (w, lh/2); fi - if nEight = 2: draw (5/8w, lh/2); draw (11/8w, lh/2); fi currentpicture := currentpicture shifted (-w, 0);% -3lh); -enddef; - -fet_beginchar("accDiscant", "accDiscant", "accDiscant") - draw_discant_reg(0, 0, 0, 0, 0, 0); -fet_endchar; - -fet_beginchar("accDiscantF", "accDiscantF", "accDiscantF") - draw_discant_reg(1, 0, 0, 0, 0, 0); -fet_endchar; - -fet_beginchar("accDiscantEh", "accDiscantEh", "accDiscantEh") - draw_discant_reg(0, 1, 0, 0, 0, 0); -fet_endchar; - -fet_beginchar("accDiscantE", "accDiscantE", "accDiscantE") - draw_discant_reg(0, 0, 1, 0, 0, 0); -fet_endchar; - -fet_beginchar("accDiscantFE", "accDiscantFE", "accDiscantFE") - draw_discant_reg(1, 0, 1, 0, 0, 0); -fet_endchar; - -fet_beginchar("accDiscantFEh", "accDiscantFEh", "accDiscantFEh") - draw_discant_reg(1, 1, 0, 0, 0, 0); -fet_endchar; - -fet_beginchar("accDiscantEE", "accDiscantEE", "accDiscantEE") - draw_discant_reg(0, 1, 0, 1, 0, 0); -fet_endchar; - -fet_beginchar("accDiscantFEE", "accDiscantFEE", "accDiscantFEE") - draw_discant_reg(1, 1, 0, 1, 0, 0); -fet_endchar; - -fet_beginchar("accDiscantEEE", "accDiscantEEE", "accDiscantEEE") - draw_discant_reg(0, 1, 1, 1, 0, 0); -fet_endchar; - -fet_beginchar("accDiscantFEEE", "accDiscantFEEE", "accDiscantFEEE") - draw_discant_reg(1, 1, 1, 1, 0, 0); -fet_endchar; - -fet_beginchar("accDiscantS", "accDiscantS", "accDiscantS") - draw_discant_reg(0, 0, 0, 0, 1, 0); -fet_endchar; - -fet_beginchar("accDiscantFS", "accDiscantFS", "accDiscantFS") - draw_discant_reg(1, 0, 0, 0, 1, 0); -fet_endchar; - -fet_beginchar("accDiscantES", "accDiscantES", "accDiscantES") - draw_discant_reg(0, 0, 1, 0, 1, 0); -fet_endchar; - -fet_beginchar("accDiscantEhS", "accDiscantEhS", "accDiscantEhS") - draw_discant_reg(0, 1, 0, 0, 1, 0); -fet_endchar; - -fet_beginchar("accDiscantFES", "accDiscantFES", "accDiscantFES") - draw_discant_reg(1, 0, 1, 0, 1, 0); -fet_endchar; - -fet_beginchar("accDiscantFEhS", "accDiscantFEhS", "accDiscantFEhS") - draw_discant_reg(1, 1, 0, 0, 1, 0); -fet_endchar; - -fet_beginchar("accDiscantEES", "accDiscantEES", "accDiscantEES") - draw_discant_reg(0, 1, 0, 1, 1, 0); -fet_endchar; - -fet_beginchar("accDiscantFEES", "accDiscantFEES", "accDiscantFEES") - draw_discant_reg(1, 1, 0, 1, 1, 0); -fet_endchar; - -fet_beginchar("accDiscantEEES", "accDiscantEEES", "accDiscantEEES") - draw_discant_reg(0, 1, 1, 1, 1, 0); -fet_endchar; - -fet_beginchar("accDiscantFEEES", "accDiscantFEEES", "accDiscantFEEES") - draw_discant_reg(1, 1, 1, 1, 1, 0); -fet_endchar; - -fet_beginchar("accDiscantSS", "accDiscantSS", "accDiscantSS") - draw_discant_reg(0, 0, 0, 0, 0, 1); -fet_endchar; - -fet_beginchar("accDiscantESS", "accDiscantESS", "accDiscantESS") - draw_discant_reg(0, 0, 1, 0, 0, 1); -fet_endchar; - -fet_beginchar("accDiscantEESS", "accDiscantEESS", "accDiscantEESS") - draw_discant_reg(0, 1, 0, 1, 0, 1); -fet_endchar; - -fet_beginchar("accDiscantEEESS", "accDiscantEEESS", "accDiscantEEESS") - draw_discant_reg(0, 1, 1, 1, 0, 1); -fet_endchar; - -fet_beginchar("accFreebase", "accFreebase", "accFreebase") - draw_freebase_reg(0, 0); -fet_endchar; - -fet_beginchar("accFreebaseF", "accFreebaseF", "accFreebaseF") - draw_freebase_reg(1, 0); -fet_endchar; - -fet_beginchar("accFreebaseE", "accFreebaseE", "accFreebaseE") - draw_freebase_reg(0, 1); -fet_endchar; - -fet_beginchar("accFreebaseFE", "accFreebaseFE", "accFreebaseFE") - draw_freebase_reg(1, 1); -fet_endchar; - -fet_beginchar("accStdbase", "accStdbase", "accStdbase") - draw_stdbase_reg(0, 0, 0, 0, 0); -fet_endchar; - -fet_beginchar("accStdbaseM", "accStdbaseM", "accStdbaseM") - draw_stdbase_reg(1, 1, 1, 1, 1); -fet_endchar; - -fet_beginchar("accStdbaseBp", "accStdbaseBp", "accStdbaseBp") - draw_stdbase_reg(1, 1, 0, 0, 1); -fet_endchar; - -fet_beginchar("accStdbaseT", "accStdbaseT", "accStdbaseT") - draw_stdbase_reg(0, 1, 1, 1, 0); -fet_endchar; - -fet_beginchar("accStdbaseTp", "accStdbaseTp", "accStdbaseTp") - draw_stdbase_reg(0, 1, 1, 0, 0); -fet_endchar; - -fet_beginchar("accBayanbase", "accBayanbase", "accBayanbase") - draw_bayanbase_reg_sign(0, 0); -fet_endchar; - -fet_beginchar("accBayanbaseT", "accBayanbaseT", "accBayanbaseT") - draw_bayanbase_reg_sign(1, 0); -fet_endchar; - -fet_beginchar("accBayanbaseE", "accBayanbaseE", "accBayanbaseE") - draw_bayanbase_reg_sign(0, 1); -fet_endchar; - -fet_beginchar("accBayanbaseTE", "accBayanbaseTE", "accBayanbaseTE") - draw_bayanbase_reg_sign(1, 1); -fet_endchar; - -fet_beginchar("accBayanbaseEE", "accBayanbaseEE", "accBayanbaseEE") - draw_bayanbase_reg_sign(0, 2); -fet_endchar; - -fet_beginchar("accBayanbaseTEE", "accBayanbaseTEE", "accBayanbaseTEE") - draw_bayanbase_reg_sign(1, 2); fet_endchar; def def_B(expr w, h) = diff --git a/scm/accordion-script.scm b/scm/accordion-script.scm index 388d3e6c96..c1a5d0605d 100644 --- a/scm/accordion-script.scm +++ b/scm/accordion-script.scm @@ -7,49 +7,65 @@ (set! script-alist (append - '(("accDiscant" . ((accordion ("accDiscant" . "accDiscant")) #f 0 1 0)) - ("accDiscantF" . ((accordion ("accDiscantF" . "accDiscantF")) #f 0 1 0)) - ("accDiscantE" . ((accordion ("accDiscantE" . "accDiscantE")) #f 0 1 0)) - ("accDiscantEh" . ((accordion ("accDiscantEh" . "accDiscantEh")) #f 0 1 0)) - ("accDiscantFE" . ((accordion ("accDiscantFE" . "accDiscantFE")) #f 0 1 0)) - ("accDiscantFEh" . ((accordion ("accDiscantFEh" . "accDiscantFEh")) #f 0 1 0)) - ("accDiscantEE" . ((accordion ("accDiscantEE" . "accDiscantEE")) #f 0 1 0)) - ("accDiscantFEE" . ((accordion ("accDiscantFEE" . "accDiscantFEE")) #f 0 1 0)) - ("accDiscantEEE" . ((accordion ("accDiscantEEE" . "accDiscantEEE")) #f 0 1 0)) - ("accDiscantFEEE" . ((accordion ("accDiscantFEEE" . "accDiscantFEEE")) #f 0 1 0)) - ("accDiscantS" . ((accordion ("accDiscantS" . "accDiscantS")) #f 0 1 0)) - ("accDiscantFS" . ((accordion ("accDiscantFS" . "accDiscantFS")) #f 0 1 0)) - ("accDiscantES" . ((accordion ("accDiscantES" . "accDiscantES")) #f 0 1 0)) - ("accDiscantEhS" . ((accordion ("accDiscantEhS" . "accDiscantEhS")) #f 0 1 0)) - ("accDiscantFES" . ((accordion ("accDiscantFES" . "accDiscantFES")) #f 0 1 0)) - ("accDiscantFEhS" . ((accordion ("accDiscantFEhS" . "accDiscantFEhS")) #f 0 1 0)) - ("accDiscantEES" . ((accordion ("accDiscantEES" . "accDiscantEES")) #f 0 1 0)) - ("accDiscantFEES" . ((accordion ("accDiscantFEES" . "accDiscantFEES")) #f 0 1 0)) - ("accDiscantEEES" . ((accordion ("accDiscantEEES" . "accDiscantEEES")) #f 0 1 0)) - ("accDiscantFEEES" . ((accordion ("accDiscantFEEES" . "accDiscantFEEES")) #f 0 1 0)) - ("accDiscantSS" . ((accordion ("accDiscantSS" . "accDiscantSS")) #f 0 1 0)) - ("accDiscantESS" . ((accordion ("accDiscantESS" . "accDiscantESS")) #f 0 1 0)) - ("accDiscantEESS" . ((accordion ("accDiscantEESS" . "accDiscantEESS")) #f 0 1 0)) - ("accDiscantEEESS" . ((accordion ("accDiscantEEESS" . "accDiscantEEESS")) #f 0 1 0)) - ("accFreebase" . ((accordion ("accFreebase" . "accFreebase")) #f 0 1 0)) - ("accFreebaseF" . ((accordion ("accFreebaseF" . "accFreebaseF")) #f 0 1 0)) - ("accFreebaseE" . ((accordion ("accFreebaseE" . "accFreebaseE")) #f 0 1 0)) - ("accFreebaseFE" . ((accordion ("accFreebaseFE" . "accFreebaseFE")) #f 0 1 0)) - ("accBayanbase" . ((accordion ("accBayanbase" . "accBayanbase")) #f 0 1 0)) - ("accBayanbaseT" . ((accordion ("accBayanbaseT" . "accBayanbaseT")) #f 0 1 0)) - ("accBayanbaseE" . ((accordion ("accBayanbaseE" . "accBayanbaseE")) #f 0 1 0)) - ("accBayanbaseTE" . ((accordion ("accBayanbaseTE" . "accBayanbaseTE")) #f 0 1 0)) - ("accBayanbaseEE" . ((accordion ("accBayanbaseEE" . "accBayanbaseEE")) #f 0 1 0)) - ("accBayanbaseTEE" . ((accordion ("accBayanbaseTEE" . "accBayanbaseTEE")) #f 0 1 0)) - ("accStdbase" . ((accordion ("accStdbase" . "accStdbase")) #f 0 1 0)) - ("accStdbaseTp" . ((accordion ("accStdbaseTp" . "accStdbaseTp")) #f 0 1 0)) - ("accStdbaseT" . ((accordion ("accStdbaseT" . "accStdbaseT")) #f 0 1 0)) - ("accStdbaseBp" . ((accordion ("accStdbaseBp" . "accStdbaseBp")) #f 0 1 0)) - ("accStdbaseM" . ((accordion ("accStdbaseM" . "accStdbaseM")) #f 0 1 0)) - ("accSB" . ((accordion ("accSB" . "accSB")) #f 0 1 0)) - ("accBB" . ((accordion ("accBB" . "accBB")) #f 0 1 0)) - ("accOldEE" . ((accordion ("accOldEE" . "accOldEE")) #f 0 1 0)) - ("accOldEES" . ((accordion ("accOldEES" . "accOldEES")) #f 0 1 0))) + '(("accDiscant" . ((accordion "Discant" "") #f 0 1 0)) + ("accDiscantF" . ((accordion "Discant" "F") #f 0 1 0)) + ("accDiscantE" . ((accordion "Discant" "E") #f 0 1 0)) + ("accDiscantEh" . ((accordion "Discant" "Eh") #f 0 1 0)) + ("accDiscantFE" . ((accordion "Discant" "FE") #f 0 1 0)) + ("accDiscantFEh" . ((accordion "Discant" "FEh") #f 0 1 0)) + ("accDiscantEE" . ((accordion "Discant" "EE") #f 0 1 0)) + ("accDiscantFEE" . ((accordion "Discant" "FEE") #f 0 1 0)) + ("accDiscantEEE" . ((accordion "Discant" "EEE") #f 0 1 0)) + ("accDiscantFEEE" . ((accordion "Discant" "FEEE") #f 0 1 0)) + ("accDiscantS" . ((accordion "Discant" "S") #f 0 1 0)) + ("accDiscantFS" . ((accordion "Discant" "FS") #f 0 1 0)) + ("accDiscantES" . ((accordion "Discant" "ES") #f 0 1 0)) + ("accDiscantEhS" . ((accordion "Discant" "EhS") #f 0 1 0)) + ("accDiscantFES" . ((accordion "Discant" "FES") #f 0 1 0)) + ("accDiscantFEhS" . ((accordion "Discant" "FEhS") #f 0 1 0)) + ("accDiscantEES" . ((accordion "Discant" "EES") #f 0 1 0)) + ("accDiscantFEES" . ((accordion "Discant" "FEES") #f 0 1 0)) + ("accDiscantEEES" . ((accordion "Discant" "EEES") #f 0 1 0)) + ("accDiscantFEEES" . ((accordion "Discant" "FEEES") #f 0 1 0)) + ("accDiscantSS" . ((accordion "Discant" "SS") #f 0 1 0)) + ("accDiscantESS" . ((accordion "Discant" "ESS") #f 0 1 0)) + ("accDiscantEESS" . ((accordion "Discant" "EESS") #f 0 1 0)) + ("accDiscantEEESS" . ((accordion "Discant" "EEESS") #f 0 1 0)) + ("accFreebase" . ((accordion "Freebase" "") #f 0 -1 0)) + ("accFreebaseF" . ((accordion "Freebase" "F") #f 0 -1 0)) + ("accFreebaseE" . ((accordion "Freebase" "E") #f 0 -1 0)) + ("accFreebaseFE" . ((accordion "Freebase" "FE") #f 0 -1 0)) + ("accBayanbase" . ((accordion "Bayanbase" "") #f 0 -1 0)) + ("accBayanbaseT" . ((accordion "Bayanbase" "T") #f 0 -1 0)) + ("accBayanbaseE" . ((accordion "Bayanbase" "E") #f 0 -1 0)) + ("accBayanbaseTE" . ((accordion "Bayanbase" "TE") #f 0 -1 0)) + ("accBayanbaseEE" . ((accordion "Bayanbase" "EE") #f 0 -1 0)) + ("accBayanbaseTEE" . ((accordion "Bayanbase" "TFEE") #f 0 -1 0)) +;; I don't know what naming of standard base registers is best? +;; The 'tenor-piano' style of names has been used in some old accordion +;; scores I have seen. But you never name the registers. These four are +;; the symbols that are most used then typesetting music, but in the real +;; world it differs a lot from instrument to instrument what registers +;; are available. + ("accStdbase" . ((accordion "Stdbase" "") #f 0 -1 0)) +;; tenor-piano + ("accStdbaseTp" . ((accordion "Stdbase" "FE") #f 0 -1 0)) +;; tenor + ("accStdbaseT" . ((accordion "Stdbase" "TFE") #f 0 -1 0)) +;; bass-piano + ("accStdbaseBp" . ((accordion "Stdbase" "MES") #f 0 -1 0)) +;; master (changed from accStdbaseM) + ("accStdbaseMa" . ((accordion "Stdbase" "TFMES") #f 0 -1 0)) + + ("accStdbaseFE" . ((accordion "Stdbase" "FE") #f 0 -1 0)) + ("accStdbaseTFE" . ((accordion "Stdbase" "TFE") #f 0 -1 0)) + ("accStdbaseMES" . ((accordion "Stdbase" "MES") #f 0 -1 0)) + ("accStdbaseTFMES" . ((accordion "Stdbase" "TFMES") #f 0 -1 0)) + + ("accSB" . ((accordion "SB" "") #f 0 -1 0)) + ("accBB" . ((accordion "BB" "") #f 0 -1 0)) + ("accOldEE" . ((accordion "OldEE" "") #f 0 -1 0)) + ("accOldEES" . ((accordion "OldEES" "") #f 0 -1 0))) script-alist) ) -- 2.39.2