]> git.donarmstrong.com Git - lilypond.git/blob - lily/grob-closure.cc
Moving files into input/manual/
[lilypond.git] / lily / grob-closure.cc
1 #include "grob.hh"
2 #include "simple-closure.hh"
3
4 SCM
5 axis_offset_symbol (Axis a)
6 {
7   return a == X_AXIS
8     ? ly_symbol2scm ("X-offset")
9     : ly_symbol2scm ("Y-offset");
10 }
11
12 SCM
13 axis_parent_positioning (Axis a)
14 {
15   return (a == X_AXIS)
16     ? Grob::x_parent_positioning_proc
17     : Grob::y_parent_positioning_proc;
18 }
19
20
21
22 /*
23   Replace
24
25   (orig-proc GROB)
26
27   by
28
29   (+ (PROC GROB) (orig-proc GROB))
30   
31 */
32 void
33 add_offset_callback (Grob *g, SCM proc, Axis a)
34 {
35   SCM data = g->get_property_data (axis_offset_symbol (a));
36   if (!scm_is_number (data)
37       && !ly_is_procedure (data)
38       && !is_simple_closure (data))
39     {
40       g->internal_set_property (axis_offset_symbol (a),
41                                 proc);
42       return ;
43     }
44
45   if (ly_is_procedure (data))
46     data = ly_make_simple_closure (scm_list_1  (data));
47   else if (is_simple_closure (data))
48     data = simple_closure_expression (data);
49
50   SCM plus = ly_lily_module_constant ("+");
51
52   if (ly_is_procedure (proc))
53     proc = ly_make_simple_closure (scm_list_1 (proc));
54   
55   SCM expr = scm_list_3 (plus, proc, data);
56   g->internal_set_property (axis_offset_symbol (a),
57                             ly_make_simple_closure (expr));
58 }
59
60
61 /*
62   replace
63
64   (orig-proc GROB)
65
66   by
67
68   (PROC GROB (orig-proc GROB)) 
69
70 */
71 void
72 chain_offset_callback (Grob *g, SCM proc, Axis a)
73 {
74   SCM data = g->get_property_data (axis_offset_symbol (a));
75
76   if (ly_is_procedure (data))
77     data = ly_make_simple_closure (scm_list_1  (data));
78   else if (is_simple_closure (data))
79     data = simple_closure_expression (data);
80   else if (!scm_is_number (data))
81     data = scm_from_int (0);
82   
83   SCM expr = scm_list_2 (proc, data);
84   g->internal_set_property (axis_offset_symbol (a),
85                             
86                             // twice: one as a wrapper for grob property routines,
87                             // once for the actual delayed binding. 
88                             ly_make_simple_closure (ly_make_simple_closure (expr)));
89 }