source file of the GNU LilyPond music typesetter
- (c) 1998 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1998--2004 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
#include "real.hh"
#include "lily-proto.hh"
#include "parray.hh"
+#include "dimension-cache-callback.hh"
+#include "lily-guile.hh"
/**
- Adminstration of offset dimension info.
- */
-class Dimension_cache
+ Adminstration of offset dimension info.
+*/
+struct Dimension_cache
{
- bool valid_b_;
- /** Is this element dimensionless?.
- This is private to guarantee correctness of the cache
+ /*
+ Multi typed:
+
+ - cons: interval
+ - procedure: callback
+ - else: empty
*/
- bool empty_b_;
- Interval dim_;
+ SCM dimension_;
+
/**
- The offset wrt. to the center of #parent_l_#
+ The offset wrt. to the center of #parent_#
*/
- Real offset_;
- Graphical_element *elt_l_;
- friend class Graphical_element;
- void init ();
-public:
- /** The #offset_# is defined with regard to this graphical_element/
- dimension_cache. */
-
- Dimension_cache * parent_l_;
- Link_array<Dimension_cache> dependencies_l_arr_;
-
- Real absolute_coordinate () const;
- void invalidate ();
- void invalidate_dependencies ();
+ Real offset_;
+ SCM offset_callbacks_;
- Dimension_cache(Dimension_cache const&);
+ char offsets_left_;
+
+ /**
+ What to call to find extent. Nil means empty.
+ */
+ Grob * parent_;
+
+ Dimension_cache (Dimension_cache const&);
Dimension_cache ();
- void set_group_l (Graphical_axis_group*);
- Real relative_coordinate (Dimension_cache *d) const;
- Dimension_cache*common_group (Dimension_cache const* s) const;
- Dimension_cache*common_group (Link_array<Dimension_cache> caches) const;
- void set_empty (bool);
- void translate (Real);
- void set_offset (Real);
- bool valid_b () const { return valid_b_; }
- bool empty_b() const { return empty_b_; }
- void set_dim (Interval);
- Interval get_dim () const;
+ void init ();
};