patch::: 1.3.96.jcn7

[lilypond.git] / lily / include / lookup.hh

diff --git a/lily/include/lookup.hh b/lily/include/lookup.hh
index c290cbd64f2e9b32d8b4d2b938bd293273dc50fc..80e47c21ac120d2f8b5525b45890ee71711eeb63 100644 (file)
--- a/lily/include/lookup.hh
+++ b/lily/include/lookup.hh
@@ -3,64 +3,45 @@
 
   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
+#ifndef LOOKUP_HH
+#define LOOKUP_HH
 
-#include "atom.hh"
-#include "fproto.hh"
-#include "scalar.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
+/**
+   handy interface to symbol table
+   TODO: move this into GUILE?
  */
-struct Lookup {
-  Paper_def * paper_l_;
-  Symtables *symtables_p_;
-  String texsetting;
-
-  Lookup();
-  Lookup (Lookup const &);
-  ~Lookup();
-  
-  void add (String, Symtable*);
-  void print() const;
-
-  Atom fill (Box b) const;
-  Atom beam_element (int,int,Real=0) const;
-
-  /// round slope to closest TeXslope
-  Atom beam (Real&,Real, Real) const;
-  Atom ps_beam (Real, Real, Real)const;
-  Atom tex_beam (Real&, Real) const;
-
-  Atom streepje (int type) const;
-
-  Atom vbrace (Real &dy) const;
-  Atom meter (Array<Scalar>) const;
-  Atom stem (Real y1_pos, Real y2_pos) const;
-  Atom rule_symbol (Real height, Real width) const;
-  Atom accidental (int) const;
-  Atom ball (int) const;
-  Atom flag (int, Direction) const;
-  Atom rest (int, bool outside) const;
-  Atom clef (String) const;
-  Atom bar (String, Real height) const;
-    
-  Atom dots () const;
-  Atom slur (Real &dy, Real &dx, Real ht, Direction dir) const;
-  Atom plet (Real &dy, Real &dx, Direction dir) const;
-  Atom tex_slur (int dy, Real &dx, Direction dir) const;
-  Atom ps_slur (Real dy, Real dx, Real ht, Real dir) const;
-  Atom half_slur (int dy, Real &dx, Direction dir, int xpart) const;
-  Atom half_slur_middlepart (Real &dx, Direction dir) const;
-  Atom big_slur (int dy, Real &dx, Direction dir) const;
-  Atom text (String style, String text, int align = 1) const;
-  Atom script (String idx) const;
-  Atom hairpin (Real & width, bool decresc, bool continued) const;
-  Atom dynamic (String) const;
+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