source file of the GNU LilyPond music typesetter
- (c) 1997 Han-Wen Nienhuys <hanwen@stack.nl>
+ (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ Jan Nieuwenhuizen <janneke@gnu.org>
*/
-#ifndef LOOKUPSYMS_HH
-#define LOOKUPSYMS_HH
-
-#include "symbol.hh"
-#include "fproto.hh"
-#include "scalar.hh"
-
-/// intuitive interface to symbol table
-struct Lookup {
- Paper_def * paper_l_;
- Symtables *symtables_;
- String texsetting;
- /* *************** */
- void add(String, Symtable*);
- void print()const;
-
- Symbol linestaff(int n, Real w)const;
- Symbol fill(Box b)const;
- Symbol beam_element(int,int,Real=0)const;
-
- /// round slope to closest TeXslope
- Symbol beam(Real&,Real)const;
-
- /**
- pos == 3 : 3 lines above staff (extending below note)
-
- pos == -3: below staff
- */
- Symbol streepjes(int pos)const;
-
- Symbol vbrace(Real &dy) const;
- Symbol meter(Array<Scalar>)const;
- Symbol stem(Real y1_pos, Real y2_pos)const;
- Symbol rule_symbol(Real height, Real width)const;
- Symbol accidental(int)const;
- Symbol ball(int)const;
- Symbol flag(int)const;
- Symbol rest(int, bool outside)const;
- Symbol clef(String)const;
- Symbol bar(String, Real height)const;
-
- Symbol dots(int)const;
- Symbol slur(int dy, Real &dx, int dir)const;
- Symbol half_slur(int dy, Real &dx, int dir, int xpart)const;
- Symbol half_slur_middlepart(Real &dx, int dir)const;
- Symbol big_slur(int dy, Real &dx, int dir)const;
- Symbol text(String style, String text, int align = 1)const;
- Symbol script(String idx)const;
- Symbol hairpin(Real & width, bool decresc)const;
- Symbol dynamic(String)const;
- Lookup();
- Lookup(Lookup const &);
- ~Lookup();
+#ifndef LOOKUP_HH
+#define LOOKUP_HH
+
+#include "smobs.hh"
+#include "lily-guile.hh"
+#include "string.hh"
+#include "molecule.hh"
+#include "flower-proto.hh"
+#include "direction.hh"
+#include "box.hh"
+
+/**
+ handy interface to symbol table
+ TODO: move this into GUILE?
+ */
+class Lookup
+{
+ Lookup ();
+ Lookup (Lookup const&);
+ DECLARE_SIMPLE_SMOBS(Lookup,);
+public:
+
+ static SCM make_lookup ();
+ String font_name_;
+ Adobe_font_metric * afm_l_;
+
+ Molecule afm_find (String, bool warn=true) const;
+ Molecule accordion (SCM arg, Real interline_f) const;
+
+ static Molecule frame (Box b, Real thick);
+ static Molecule slur (Bezier controls, Real cthick, Real thick) ;
+ static Molecule beam (Real, Real, Real) ;
+ static Molecule dashed_slur (Bezier, Real thick, Real dash) ;
+ static Molecule blank (Box b) ;
+ static Molecule filledbox (Box b) ;
};
-
-#endif
+Lookup* unsmob_lookup (SCM);
+#endif // LOOKUP_HH