- if (octmol){
- Real dy =lastoct*7*paper()->internote_f();
- octmol->translate(Offset(0, dy));
- output->add(*octmol);
- delete octmol;
+ if (octave_mol_p)
+ {
+ Real dy =lastoct*7*note_distance;
+ octave_mol_p->translate_axis (dy, Y_AXIS);
+ output->add_molecule (*octave_mol_p);
+ delete octave_mol_p;
+ }
+
+ if (accidental_arr_.size())
+ {
+ Drul_array<SCM> pads;
+
+ /*
+ Use a cons?
+ */
+ pads[RIGHT] = get_elt_property ("right-padding");
+ pads[LEFT] = get_elt_property ("left-padding");
+
+ Direction d = LEFT;
+ do {
+ if (!gh_number_p (pads[d]))
+ continue;
+
+ Box b(Interval (0, gh_scm2double (pads[d]) * note_distance),
+ Interval (0,0));
+ Molecule m (lookup_l ()->fill (b));
+ output->add_at_edge (X_AXIS, d, m, 0);
+ } while ( flip (&d)!= LEFT);