2 grid-line-engraver.cc -- implement Grid_point_engraver
4 source file of the GNU LilyPond music typesetter
6 (c) 2005 Han-Wen Nienhuys <hanwen@xs4all.nl>
10 #include "engraver.hh"
13 class Grid_point_engraver : public Engraver
16 TRANSLATOR_DECLARATIONS (Grid_point_engraver);
18 virtual void process_music ();
22 Grid_point_engraver::process_music ()
24 SCM grid_interval = get_property ("gridInterval");
25 if (Moment *mom = unsmob_moment (grid_interval))
27 Moment now = now_mom ();
29 if (!now.main_part_.mod_rat (mom->main_part_))
31 make_item ("GridPoint", SCM_EOL);
36 Grid_point_engraver::Grid_point_engraver ()
40 ADD_TRANSLATOR (Grid_point_engraver,
41 /* descr */ "generate grid points.",
42 /* creats*/ "GridPoint",
45 /* reads */ "gridInterval",