patch::: 1.3.96.jcn7

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

diff --git a/lily/include/lookup.hh b/lily/include/lookup.hh
index d0616359e28133e356a12538cc3e6e3d300442e9..80e47c21ac120d2f8b5525b45890ee71711eeb63 100644 (file)
--- a/lily/include/lookup.hh
+++ b/lily/include/lookup.hh
@@ -3,59 +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_;
-    String texsetting;
-    /* *************** */
-    void add (String, Symtable*);
-    void print() const;
-
-    Atom linestaff (int n, Real ss, Real w) const;
-    Atom fill (Box b) const;
-    Atom beam_element (int,int,Real=0) const;
-
-    /// round slope to closest TeXslope
-    Atom 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 (int dy, Real &dx, Direction 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) const;
-    Atom dynamic (String) const;
-    Lookup();
-    Lookup (Lookup const &);
-    ~Lookup();
+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