- Direction d = Direction (gh_scm2int (SCM_CDR(octave_dir)));
- g = new 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);
-
- SCM my_vis = get_elt_property (visibility_lambda_scm_sym);
- if (my_vis != SCM_BOOL_F)
- g->set_elt_property (visibility_lambda_scm_sym, SCM_CDR (my_vis));
-