2 grid-line-engraver.cc -- implement Grid_point_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
13 #include "translator.icc"
15 class Grid_point_engraver
: public Engraver
18 TRANSLATOR_DECLARATIONS (Grid_point_engraver
);
20 void process_music ();
24 Grid_point_engraver::process_music ()
26 SCM grid_interval
= get_property ("gridInterval");
27 if (Moment
*mom
= unsmob_moment (grid_interval
))
29 Moment now
= now_mom ();
31 if (!now
.main_part_
.mod_rat (mom
->main_part_
))
32 make_item ("GridPoint", SCM_EOL
);
36 Grid_point_engraver::Grid_point_engraver ()
40 ADD_TRANSLATOR (Grid_point_engraver
,
42 "Generate grid points.",