source file of the GNU LilyPond music typesetter
- (c) 1998--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1998--2003 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"
-class Dimension_cache;
-typedef Interval (*Dim_cache_callback)(Dimension_cache const *);
-typedef Real (*Offset_cache_callback)(Dimension_cache const *);
/**
- Adminstration of offset dimension info.
- */
-class Dimension_cache
+ Adminstration of offset dimension info.
+*/
+struct Dimension_cache
{
- bool valid_b_;
- Interval dim_;
- /**
- The offset wrt. to the center of #parent_l_#
- */
-
- Real extra_offset_;
- Real basic_offset_;
- bool off_valid_b_;
+ /*
+ Multi typed:
- Score_element *elt_l_;
- friend class Score_element;
+ - cons: interval
+ - procedure: callback
+ - else: empty
+ */
+ SCM dimension_;
- void init ();
-public:
- Array<Offset_cache_callback> off_callbacks_;
/**
- What to call to find extent. Nil means empty.
+ The offset wrt. to the center of #parent_#
*/
- Dim_cache_callback callback_l_;
- static Interval point_dimension_callback (Dimension_cache const* );
- Axis axis () const;
- Real get_offset () const;
- void set_callback (Dim_cache_callback);
- /** The #offset_# is defined with regard to this graphical_element/
- dimension_cache. */
- void set_offset_callback (Offset_cache_callback);
- Dimension_cache * parent_l_;
-
- Score_element *element_l () const { return elt_l_; }
- void invalidate ();
- void invalidate_dependencies ();
+ Real offset_;
+ SCM offset_callbacks_;
- Dimension_cache(Dimension_cache const&);
- Dimension_cache ();
-
+ char offsets_left_;
/**
- Find the offset relative to D. If D equals THIS, then it is 0.
- Otherwise, it recursively defd as
-
- OFFSET_ + PARENT_L_->relative_coordinate (D)
+ What to call to find extent. Nil means empty.
*/
- Real relative_coordinate (Dimension_cache *d) const;
- Dimension_cache*common_refpoint (Dimension_cache const* s) const;
- Dimension_cache*common_refpoint (Link_array<Dimension_cache> caches) const;
- void set_empty (bool);
- void translate (Real);
+ Grob * parent_;
- // junkme.
- void set_offset (Real);
-
- bool valid_b () const { return valid_b_; }
- bool empty_b() const;
- Interval get_dim () const;
+ Dimension_cache (Dimension_cache const&);
+ Dimension_cache ();
+ void init ();
};