- SCM d= get_elt_property ("dot-count");
- if (!gh_number_p (d) || !gh_scm2int (d))
- {
- set_elt_property ("transparent", SCM_BOOL_T);
- set_extent_callback (0, X_AXIS);
- set_extent_callback (0, Y_AXIS);
- }
- else
- {
- if (!directional_element (this).get ())
- directional_element (this).set (UP);