Use alists for instrument and character names.
[opera_libre.git] / texte / nomenclature.ly
blobc65ae3640c12322413c8a0183055fb145cf469c7
1 %------------------------------------------------------------------%
2 % Opéra Libre -- nomenclature.ly %
3 % %
4 % (c) Lewis Trondheim & Valentin Villenave, 2008 %
5 % %
6 %------------------------------------------------------------------%
8 %% Depends on: text-functions.ly
10 %%%%%%%%%%%%%%%%%%%%%%%%% Instrument Names %%%%%%%%%%%%%%%%%%%%%%%%%
12 %% Instruments ----------------------------------------------------%
14 #(set! instruments `(
15 (cello-one ("Violoncelle 1" . "Vlc. 1"))
16 (cello-two ("Violoncelle 2" . "Vlc. 2"))
17 (clarinet-one ("Clarinette 1" . "Cl. 1"))
18 (clarinet-a ("Clarinette en La" . "Cl. 2"))
19 (clarinet-bass ("Clarinette Basse" . "Cl. B"))
20 (double-bass ("Contrebasse" . "Cb."))
21 (flute-one ("Flute 1" . "Fl. 1"))
22 (flute-two ("Flute 2" . "Fl. 2"))
23 (piccolo ("Piccolo" . "Pic."))
24 (saxophone-one ("Saxophone Alto 1" . "Sax. A 1"))
25 (saxophone-two ("Saxophone Alto 2" . "Sax. A 2"))
26 (saxophone-baritone("Saxophone Baryton" . "Sax. B"))
27 (viola-one ("Alto 1" . "Alt. 1"))
28 (viola-two ("Alto 2" . "Alt. 2"))
29 (violin-one ("Violon 1" . "Vl. 1"))
30 (violin-two ("Violon 2" . "Vl. 2"))
31 (violin-three ("Violon 3" . "Vl. 3"))
34 %% Voices ---------------------------------------------------------%
36 SopranoType = "Soprano lyrique"
37 ContraltoType = "Alto"
38 TenorType = "Ténor"
39 BarytonType = "Baryton"
41 %%%%%%%%%%%%%%%%%%%%%%%%%%%% Characters %%%%%%%%%%%%%%%%%%%%%%%%%%%%
43 %% Names ----------------------------------------------------------%
46 #(set! characters `(
47 (soprano-one ("Le Docteur" . "Doct."))
48 (soprano-two ("La Reine" . "Reine."))
49 (contralto ("Dieu" . "Dieu."))
50 (tenor ("Le Chef" . "Chef."))
51 (baritone-one ("L'Étranger" . "Étr."))
52 (baritone-two ("Le Roi" . "Roi."))
55 %% List -----------------------------------------------------------%
57 CharacterList = \markup {
58 \fill-line {
59 \center-column {
60 \override #'(line-width . 60)
61 \override #'(box-padding . 5.0)
62 \rounded-box
63 \fill-line {
64 \center-column {
65 \fill-line { Personnages }
66 \override #'(baseline-skip . 6)
67 \fill-line {
68 \left-column {
69 \SopranoUnName
70 \SopranoDeuxName
71 \ContraltoName
72 \TenorName
73 \BarytonUnName
74 \BarytonDeuxName
76 \right-column {
77 \SopranoType
78 \SopranoType
79 \ContraltoType
80 \TenorType
81 \BarytonType
82 \BarytonType
89 } %}
91 %%-----------------------------------------------------------------%