]> git.donarmstrong.com Git - lilypond.git/blob - lily/gregorian-ligature.cc
Moving files into input/manual/
[lilypond.git] / lily / gregorian-ligature.cc
1 /*
2   gregorian-ligature.cc -- implement Gregorian_ligature
3
4   source file of the GNU LilyPond music typesetter
5
6   (c) 2003--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
7 */
8
9 #include "gregorian-ligature.hh"
10
11 #include "grob.hh"
12
13 void check_prefix (string name, int mask, int prefix_set, string *str)
14 {
15   if (prefix_set & mask)
16     {
17       if (!str->empty ())
18         *str += ", ";
19       *str += name;
20     }
21 }
22
23 string
24 Gregorian_ligature::prefixes_to_str (Grob *primitive)
25 {
26   string str;
27   int prefix_set
28     = scm_to_int (primitive->get_property ("prefix-set"));
29   check_prefix ("virga", VIRGA, prefix_set, &str);
30   check_prefix ("stropha", STROPHA, prefix_set, &str);
31   check_prefix ("inclinatum", INCLINATUM, prefix_set, &str);
32   check_prefix ("auctum", AUCTUM, prefix_set, &str);
33   check_prefix ("descendens", DESCENDENS, prefix_set, &str);
34   check_prefix ("ascendens", ASCENDENS, prefix_set, &str);
35   check_prefix ("oriscus", ORISCUS, prefix_set, &str);
36   check_prefix ("quilisma", QUILISMA, prefix_set, &str);
37   check_prefix ("deminutum", DEMINUTUM, prefix_set, &str);
38   check_prefix ("cavum", CAVUM, prefix_set, &str);
39   check_prefix ("linea", LINEA, prefix_set, &str);
40   return str;
41 }
42
43 /*
44   CHECK ME -- does prefix-set come from here ?
45
46   In a way, yes.  Actually, prefix-set is a property that is written
47   by code of GregorianLigatureEngraver that is virtually invoked by a
48   subclass like VaticanaLigatureEngraver.  The property is lateron
49   read by the associated item class, such as VaticanaLigature.--jr
50 */
51 ADD_INTERFACE (Gregorian_ligature, "gregorian-ligature-interface",
52                "A gregorian ligature",
53                "virga stropha inclinatum auctum descendens ascendens "
54                "oriscus quilisma deminutum cavum linea pes-or-flexa "
55                "context-info prefix-set");