2 hairpin.cc -- implement Hairpin
4 source file of the GNU LilyPond music typesetter
6 (c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
12 #include "font-interface.hh"
13 #include "dimensions.hh"
14 #include "paper-def.hh"
16 #include "paper-column.hh"
18 MAKE_SCHEME_CALLBACK (Hairpin
, brew_molecule
, 1);
21 Hairpin::brew_molecule (SCM smob
)
23 Grob
*me
= unsmob_grob (smob
);
24 Spanner
*spanner
= dynamic_cast<Spanner
*> (me
);
26 Real line
= me
->paper_l ()->get_var ("stafflinethickness");
28 SCM s
= me
->get_grob_property ("grow-direction");
35 Direction grow_dir
= to_dir (s
);
38 /* Ugh, must be same as Text_spanner::brew_molecule. */
39 Real padding
= gh_scm2double (me
->get_grob_property ("if-text-padding"));
41 Drul_array
<bool> broken
;
42 Drul_array
<Item
*> bounds
;
46 bounds
[d
] =spanner
->get_bound (d
);
47 broken
[d
] = bounds
[d
]->break_status_dir () != CENTER
;
49 while (flip (&d
) != LEFT
);
51 Grob
*common
= bounds
[LEFT
]->common_refpoint (bounds
[RIGHT
], X_AXIS
);
52 Drul_array
<Real
> x_points
;
57 x_points
[d
] = b
->relative_coordinate (common
, X_AXIS
);
61 x_points
[d
] = b
->extent (common
,X_AXIS
)[RIGHT
] ;
65 if (dynamic_cast<Paper_column
*> (b
))
68 If we're hung on a paper column, that means we're not
69 adjacent to a text-dynamic, and we may move closer. We
70 make the padding a little smaller, here.
72 Interval e
=b
->extent (common
, X_AXIS
);
74 e
= Interval (0,0) + b
->relative_coordinate (common
, X_AXIS
);
76 x_points
[d
] = e
.center () - d
* padding
/3; // ugh.
80 Interval e
=b
->extent (common
, X_AXIS
);
82 x_points
[d
] = e
[-d
] - d
*padding
;
86 while (flip (&d
) != LEFT
);
89 Real width
= x_points
[RIGHT
] - x_points
[LEFT
];
93 warning (_ ((grow_dir
< 0) ? "decrescendo too small"
94 : "crescendo too small"));
98 bool continued
= broken
[Direction (-grow_dir
)];
99 Real height
= gh_scm2double (me
->get_grob_property ("height"));
100 Real thick
= line
* gh_scm2double (me
->get_grob_property ("thickness"));
106 endh
= continued
? height
/2 : 0.0;
110 starth
= continued
? height
/2 : 0.0;
115 TODO: junk this and, make a general
117 Lookup::line (XY1, XY2).
119 SCM hairpin
= gh_list (ly_symbol2scm ("hairpin"),
120 gh_double2scm (thick
),
121 gh_double2scm (width
),
122 gh_double2scm (starth
),
123 gh_double2scm (endh
),
127 We make the hairpin too large in Y direction, so it stays at
128 proper distance from the staff.
130 Interval yext
= 2* height
* Interval (-1,1);
131 Box
b (Interval (0, width
), yext
);
132 Molecule
mol (b
, hairpin
);
134 mol
.translate_axis (x_points
[LEFT
]
135 - bounds
[LEFT
]->relative_coordinate (common
, X_AXIS
),
138 return mol
.smobbed_copy ();