+ SCM octave_dir = remove_elt_property (octave_dir_scm_sym);
+ if (octave_dir != SCM_BOOL_F)
+ {
+ Direction d = Direction (gh_int2scm (SCM_CDR(octave_dir)));
+ g = new G_text_item;
+ pscore_l_->typeset_element (g);
+
+ g->text_str_ = "8";
+ g->style_str_ = "italic";
+ g->dim_cache_[Y_AXIS].parent_l_ = &dim_cache_[Y_AXIS];
+ g->dim_cache_[X_AXIS].parent_l_ = &dim_cache_[X_AXIS];
+ add_dependency (g); // just to be sure.
+
+ Real r = do_height ()[d] + g->extent (Y_AXIS)[-d];
+ g->dim_cache_[Y_AXIS].set_offset (r);
+ g->set_elt_property (visibility_lambda_scm_sym,
+ get_elt_property (visibility_lambda_scm_sym));
+ }
+
+ }