#include "warn.hh"
#include "dimensions.hh"
#include "bezier.hh"
-#include "string-convert.hh"
#include "file-path.hh"
#include "main.hh"
#include "lily-guile.hh"
-#include "font-metric.hh"
Stencil
Lookup::dot (Offset p, Real radius)
return Stencil (b, horizontal_bend);
}
-/*
- TODO: junk me.
-*/
-Stencil
-Lookup::accordion (SCM s, Real staff_space, Font_metric *fm)
-{
- Stencil m;
- string sym = ly_scm2string (scm_car (s));
- string reg = ly_scm2string (scm_car (scm_cdr (s)));
-
- if (sym == "Discant")
- {
- Stencil r = fm->find_by_name ("accordion.accDiscant");
- m.add_stencil (r);
- if (reg.substr (0, 1) == "F")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 2.5 PT, Y_AXIS);
- m.add_stencil (d);
- reg = reg.substr (1);
- }
- int eflag = 0x00;
- if (reg.substr (0, 3) == "EEE")
- {
- eflag = 0x07;
- reg = reg.substr (3);
- }
- else if (reg.substr (0, 2) == "EE")
- {
- eflag = 0x05;
- reg = reg.substr (2);
- }
- else if (reg.substr (0, 2) == "Eh")
- {
- eflag = 0x04;
- reg = reg.substr (2);
- }
- else if (reg.substr (0, 1) == "E")
- {
- eflag = 0x02;
- reg = reg.substr (1);
- }
- if (eflag & 0x02)
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
- m.add_stencil (d);
- }
- if (eflag & 0x04)
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
- d.translate_axis (0.8 * staff_space PT, X_AXIS);
- m.add_stencil (d);
- }
- if (eflag & 0x01)
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
- d.translate_axis (-0.8 * staff_space PT, X_AXIS);
- m.add_stencil (d);
- }
- if (reg.substr (0, 2) == "SS")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (0.5 * staff_space PT, Y_AXIS);
- d.translate_axis (0.4 * staff_space PT, X_AXIS);
- m.add_stencil (d);
- d.translate_axis (-0.8 * staff_space PT, X_AXIS);
- m.add_stencil (d);
- reg = reg.substr (2);
- }
- if (reg.substr (0, 1) == "S")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (0.5 * staff_space PT, Y_AXIS);
- m.add_stencil (d);
- reg = reg.substr (1);
- }
- }
- else if (sym == "Freebase")
- {
- Stencil r = fm->find_by_name ("accordion.accFreebase");
- m.add_stencil (r);
- if (reg.substr (0, 1) == "F")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
- m.add_stencil (d);
- reg = reg.substr (1);
- }
- if (reg == "E")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
- m.add_stencil (d);
- }
- }
- else if (sym == "Bayanbase")
- {
- Stencil r = fm->find_by_name ("accordion.accBayanbase");
- m.add_stencil (r);
- if (reg.substr (0, 1) == "T")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 2.5 PT, Y_AXIS);
- m.add_stencil (d);
- reg = reg.substr (1);
- }
- /* include 4' reed just for completeness. You don't want to use this. */
- if (reg.substr (0, 1) == "F")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
- m.add_stencil (d);
- reg = reg.substr (1);
- }
- if (reg.substr (0, 2) == "EE")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
- d.translate_axis (0.4 * staff_space PT, X_AXIS);
- m.add_stencil (d);
- d.translate_axis (-0.8 * staff_space PT, X_AXIS);
- m.add_stencil (d);
- reg = reg.substr (2);
- }
- if (reg.substr (0, 1) == "E")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
- m.add_stencil (d);
- reg = reg.substr (1);
- }
- }
- else if (sym == "Stdbase")
- {
- Stencil r = fm->find_by_name ("accordion.accStdbase");
- m.add_stencil (r);
- if (reg.substr (0, 1) == "T")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 3.5 PT, Y_AXIS);
- m.add_stencil (d);
- reg = reg.substr (1);
- }
- if (reg.substr (0, 1) == "F")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 2.5 PT, Y_AXIS);
- m.add_stencil (d);
- reg = reg.substr (1);
- }
- if (reg.substr (0, 1) == "M")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 2 PT, Y_AXIS);
- d.translate_axis (staff_space PT, X_AXIS);
- m.add_stencil (d);
- reg = reg.substr (1);
- }
- if (reg.substr (0, 1) == "E")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 1.5 PT, Y_AXIS);
- m.add_stencil (d);
- reg = reg.substr (1);
- }
- if (reg.substr (0, 1) == "S")
- {
- Stencil d = fm->find_by_name ("accordion.accDot");
- d.translate_axis (staff_space * 0.5 PT, Y_AXIS);
- m.add_stencil (d);
- reg = reg.substr (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")
- {
- Stencil r = fm->find_by_name ("accordion.accSB");
- m.add_stencil (r);
- }
- else if (sym == "BB")
- {
- Stencil r = fm->find_by_name ("accordion.accBB");
- m.add_stencil (r);
- }
- else if (sym == "OldEE")
- {
- Stencil r = fm->find_by_name ("accordion.accOldEE");
- m.add_stencil (r);
- }
- else if (sym == "OldEES")
- {
- Stencil r = fm->find_by_name ("accordion.accOldEES");
- m.add_stencil (r);
- }
- return m;
-}
-
Stencil
Lookup::repeat_slash (Real w, Real s, Real t)
{
+++ /dev/null
-\version "2.10.0"
-% Symbols needed to print accordion music
-%
-% 2' = T
-% 4' = F
-% 8' = E
-% 16' = S
-%
-
-accDiscant = #(make-articulation "accDiscant")
-accDiscantF = #(make-articulation "accDiscantF")
-accDiscantE = #(make-articulation "accDiscantE")
-accDiscantEh = #(make-articulation "accDiscantEh")
-accDiscantFE = #(make-articulation "accDiscantFE")
-accDiscantFEh = #(make-articulation "accDiscantFEh")
-accDiscantEE = #(make-articulation "accDiscantEE")
-accDiscantFEE = #(make-articulation "accDiscantFEE")
-accDiscantEEE = #(make-articulation "accDiscantEEE")
-accDiscantFEEE = #(make-articulation "accDiscantFEEE")
-accDiscantS = #(make-articulation "accDiscantS")
-accDiscantFS = #(make-articulation "accDiscantFS")
-accDiscantES = #(make-articulation "accDiscantES")
-accDiscantEhS = #(make-articulation "accDiscantEhS")
-accDiscantFES = #(make-articulation "accDiscantFES")
-accDiscantFEhS = #(make-articulation "accDiscantFEhS")
-accDiscantEES = #(make-articulation "accDiscantEES")
-accDiscantFEES = #(make-articulation "accDiscantFEES")
-accDiscantEEES = #(make-articulation "accDiscantEEES")
-accDiscantFEEES = #(make-articulation "accDiscantFEEES")
-accDiscantSS = #(make-articulation "accDiscantSS")
-accDiscantESS = #(make-articulation "accDiscantESS")
-accDiscantEESS = #(make-articulation "accDiscantEESS")
-accDiscantEEESS = #(make-articulation "accDiscantEEESS")
-
-accFreebase = #(make-articulation "accFreebase")
-accFreebaseF = #(make-articulation "accFreebaseF")
-accFreebaseE = #(make-articulation "accFreebaseE")
-accFreebaseFE = #(make-articulation "accFreebaseFE")
-
-accBayanbase = #(make-articulation "accBayanbase")
-accBayanbaseT = #(make-articulation "accBayanbaseT")
-accBayanbaseE = #(make-articulation "accBayanbaseE")
-accBayanbaseTE = #(make-articulation "accBayanbaseTE")
-accBayanbaseEE = #(make-articulation "accBayanbaseEE")
-accBayanbaseTEE = #(make-articulation "accBayanbaseTEE")
-
-accStdbase = #(make-articulation "accStdbase")
-accStdbaseFE = #(make-articulation "accStdbaseFE")
-accStdbaseTFE = #(make-articulation "accStdbaseTFE")
-accStdbaseMES = #(make-articulation "accStdbaseMES")
-accStdbaseTFMES = #(make-articulation "accStdbaseTFMES")
-
-accSB = #(make-articulation "accSB")
-accBB = #(make-articulation "accBB")
-accOldEE = #(make-articulation "accOldEE")
-accOldEES = #(make-articulation "accOldEES")