Mercurial > MadButterfly
annotate tools/mb_c_source.m4 @ 204:eb6ff421da7e
Doc about mb_obj_t
| author | Thinker K.F. Li <thinker@branda.to> |
|---|---|
| date | Wed, 10 Dec 2008 11:49:39 +0800 |
| parents | bcad1ccdf45c |
| children | 3fadd2f2742e |
| rev | line source |
|---|---|
| 63 | 1 changequote(`[', `]')dnl |
| 2 include([foreach.m4])dnl | |
| 3 divert([-1]) | |
| 4 | |
| 64 | 5 define([UNQUOTE], [$*]) |
| 6 | |
| 7 define([QUOTE], [[[$*]]]) | |
| 63 | 8 |
| 64 | 9 define([COUNT],[ifelse([$*],[],0,[$#])]) |
| 63 | 10 |
| 64 | 11 define([IMPORT],[define([$1],[$2$1(]$[]@[)])]) |
| 63 | 12 |
| 64 | 13 define([D_COLOR_STOP],[ |
| 14 {$6,$2,$3,$4,$5}]) | |
| 63 | 15 |
| 16 define([D_ADD_LINEAR_PAINT],[dnl | |
| 64 | 17 ifelse(COUNT($6),0,,[dnl |
| 18 static const int n_$1_stops = COUNT($6); | |
| 19 static const grad_stop_t $1_stops[[]] = {UNQUOTE($6)}; | |
| 63 | 20 ])dnl |
| 21 ]) | |
| 22 | |
| 23 define([D_ADD_RADIAL_PAINT],[dnl | |
| 64 | 24 ifelse(COUNT($5),0,,[dnl |
| 25 static const int n_$1_stops = COUNT($5); | |
| 26 static const grad_stop_t $1_stops[[]] = {UNQUOTE($5)}; | |
| 63 | 27 ])dnl |
| 28 ]) | |
| 29 | |
| 30 define([DECLARE_VARS], [divert([-1]) | |
| 64 | 31 define([DIMPORT],[IMPORT(]QUOTE($[]1)[,[D_])]) |
| 32 DIMPORT([ADD_LINEAR_PAINT]) | |
| 33 DIMPORT([ADD_RADIAL_PAINT]) | |
| 34 DIMPORT([COLOR_STOP]) | |
| 78 | 35 define([REF_STOPS_RADIAL]) |
| 36 define([REF_STOPS_LINEAR]) | |
|
73
9ab15ebc9061
Observer for mouse events
Thinker K.F. Li <thinker@branda.to>
parents:
69
diff
changeset
|
37 define([ADD_PATH]) |
| 64 | 38 define([ADD_RECT]) |
| 39 define([ADD_COORD]) | |
| 83 | 40 define([ADD_TEXT],) |
| 64 | 41 define([FILL_SHAPE]) |
| 42 define([STROKE_SHAPE]) | |
| 43 define([FILL_SHAPE_WITH_PAINT]) | |
| 44 define([STROKE_SHAPE_WITH_PAINT]) | |
|
80
e548221c04eb
svg2code.py support stroke
Thinker K.F. Li <thinker@branda.to>
parents:
78
diff
changeset
|
45 define([STROKE_WIDTH]) |
| 81 | 46 define([GROUP_HIDE],) |
| 47 define([RECT_HIDE],) | |
| 48 define([PATH_HIDE],) | |
|
84
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
49 define([COORD_TRANSLATE],) |
|
85
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
50 define([COORD_MATRIX],) |
|
100
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
51 define([SHAPE_TRANSLATE],) |
|
85
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
52 define([SHAPE_MATRIX],) |
| 63 | 53 divert[]]) |
| 54 | |
| 55 define([S_ADD_LINEAR_PAINT],[ | |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
56 obj->$1 = rdman_paint_linear_new(rdman, $2, $3, $4, $5); |
| 64 | 57 ifelse(COUNT($6),0,,[dnl |
| 58 stops = (grad_stop_t *)malloc(sizeof(grad_stop_t) * n_$1_stops); | |
| 59 memcpy(stops, $1_stops, sizeof(grad_stop_t) * n_$1_stops); | |
| 60 paint_linear_stops(obj->$1, n_$1_stops, stops); | |
| 61 ])dnl | |
| 63 | 62 ]) |
| 64 | 63 |
| 63 | 64 define([S_ADD_RADIAL_PAINT],[ |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
65 obj->$1 = rdman_paint_radial_new(rdman, $2, $3, $4); |
| 64 | 66 ifelse(COUNT($5),0,,[ |
| 67 stops = (grad_stop_t *)malloc(sizeof(grad_stop_t) * n_$1_stops); | |
| 68 memcpy(stops, $1_stops, sizeof(grad_stop_t) * n_$1_stops); | |
| 69 paint_radial_stops(obj->$1, n_$1_stops, stops); | |
| 70 ])dnl | |
| 63 | 71 ]) |
| 72 | |
| 64 | 73 define([S_COLOR_STOP],[]) |
| 78 | 74 |
| 75 define([S_REF_STOPS_RADIAL],[dnl | |
| 64 | 76 [ stops = (grad_stop_t *)malloc(sizeof(grad_stop_t) * n_$2_stops); |
| 77 memcpy(stops, $2_stops, sizeof(grad_stop_t) * n_$2_stops); | |
| 78 paint_radial_stops(obj->$1, n_$2_stops, stops); | |
| 79 ]]) | |
| 80 | |
| 78 | 81 define([S_REF_STOPS_LINEAR],[dnl |
| 82 [ stops = (grad_stop_t *)malloc(sizeof(grad_stop_t) * n_$2_stops); | |
| 83 memcpy(stops, $2_stops, sizeof(grad_stop_t) * n_$2_stops); | |
| 84 paint_linear_stops(obj->$1, n_$2_stops, stops); | |
| 85 ]]) | |
| 86 | |
| 64 | 87 define([S_ADD_RECT],[[ |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
88 obj->$1 = rdman_shape_rect_new(rdman, $2, $3, $4, $5, $6, $7); |
|
197
bcad1ccdf45c
Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well.
wycc@wycc-desktop
parents:
186
diff
changeset
|
89 |
|
80
e548221c04eb
svg2code.py support stroke
Thinker K.F. Li <thinker@branda.to>
parents:
78
diff
changeset
|
90 rdman_add_shape(rdman, obj->$1, obj->$8); |
| 64 | 91 ]]) |
| 92 | |
| 93 define([S_ADD_PATH],[[ | |
|
197
bcad1ccdf45c
Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well.
wycc@wycc-desktop
parents:
186
diff
changeset
|
94 { |
|
bcad1ccdf45c
Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well.
wycc@wycc-desktop
parents:
186
diff
changeset
|
95 char _cmds[] = "$3"; |
|
bcad1ccdf45c
Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well.
wycc@wycc-desktop
parents:
186
diff
changeset
|
96 float _args[] = {$4}; |
|
bcad1ccdf45c
Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well.
wycc@wycc-desktop
parents:
186
diff
changeset
|
97 int _fix_args[] = {$6}; |
|
bcad1ccdf45c
Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well.
wycc@wycc-desktop
parents:
186
diff
changeset
|
98 obj->$1 = rdman_shape_path_new_from_binary(rdman, _cmds,_args,$5,_fix_args,$7); |
|
bcad1ccdf45c
Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well.
wycc@wycc-desktop
parents:
186
diff
changeset
|
99 rdman_add_shape(rdman, obj->$1, obj->$2); |
|
bcad1ccdf45c
Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well.
wycc@wycc-desktop
parents:
186
diff
changeset
|
100 } |
| 64 | 101 ]]) |
| 102 | |
| 103 define([S_ADD_COORD],[[ | |
|
66
309f1eefbec0
create new coords from redraw_man
Thinker K.F. Li <thinker@branda.to>
parents:
64
diff
changeset
|
104 obj->$1 = rdman_coord_new(rdman, obj->$2); |
| 64 | 105 ]]) |
| 106 | |
| 83 | 107 define([S_ADD_TEXT],[[ |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
108 obj->$1 = rdman_shape_text_new(rdman, "$2", $3, $4, $5, |
|
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
109 cairo_get_font_face(rdman->cr)); |
| 83 | 110 rdman_add_shape(rdman, obj->$1, obj->$6); |
| 111 ]]) | |
| 112 | |
| 64 | 113 define([S_FILL_SHAPE_WITH_PAINT],[dnl |
| 114 [ rdman_paint_fill(rdman, obj->$2, obj->$1); | |
| 115 ]]) | |
| 116 | |
| 117 define([S_STROKE_SHAPE_WITH_PAINT],[dnl | |
| 118 [ rdman_paint_stroke(rdman, obj->$2, obj->$1); | |
| 119 ]]) | |
| 120 | |
| 121 define([S_FILL_SHAPE],[dnl | |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
122 [ obj->$1_fill = rdman_paint_color_new(rdman, $2, $3, $4, $5); |
| 64 | 123 rdman_paint_fill(rdman, obj->$1_fill, obj->$1); |
| 124 ]]) | |
| 125 | |
| 126 define([S_STROKE_SHAPE],[dnl | |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
127 [ obj->$1_stroke = rdman_paint_color_new(rdman, $2, $3, $4, $5); |
| 64 | 128 rdman_paint_stroke(rdman, obj->$1_stroke, obj->$1); |
| 129 ]]) | |
| 130 | |
|
80
e548221c04eb
svg2code.py support stroke
Thinker K.F. Li <thinker@branda.to>
parents:
78
diff
changeset
|
131 define([S_STROKE_WIDTH],[dnl |
|
e548221c04eb
svg2code.py support stroke
Thinker K.F. Li <thinker@branda.to>
parents:
78
diff
changeset
|
132 [ obj->$1->stroke_width = $2; |
|
e548221c04eb
svg2code.py support stroke
Thinker K.F. Li <thinker@branda.to>
parents:
78
diff
changeset
|
133 ]]) |
|
e548221c04eb
svg2code.py support stroke
Thinker K.F. Li <thinker@branda.to>
parents:
78
diff
changeset
|
134 |
| 81 | 135 define([S_GROUP_HIDE],[dnl |
| 136 [ coord_hide(obj->$1); | |
| 137 ]]) | |
| 138 | |
| 139 define([S_RECT_HIDE],[dnl | |
| 140 [ sh_hide(obj->$1); | |
| 141 ]]) | |
| 142 | |
| 143 define([S_PATH_HIDE],[dnl | |
| 144 [ sh_hide(obj->$1); | |
| 145 ]]) | |
| 146 | |
|
84
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
147 define([S_COORD_TRANSLATE],[dnl |
|
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
148 [ memset(obj->$1->matrix, 0, sizeof(obj->$1->matrix)); |
|
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
149 obj->$1->matrix[0] = 1; |
|
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
150 obj->$1->matrix[2] = $2; |
|
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
151 obj->$1->matrix[4] = 1; |
|
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
152 obj->$1->matrix[5] = $3; |
|
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
153 rdman_coord_changed(rdman, obj->$1); |
|
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
154 ]]) |
|
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
155 |
|
85
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
156 define([S_COORD_MATRIX],[dnl |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
157 [ obj->$1->matrix[0] = $2; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
158 obj->$1->matrix[3] = $3; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
159 obj->$1->matrix[1] = $4; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
160 obj->$1->matrix[4] = $5; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
161 obj->$1->matrix[2] = $6; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
162 obj->$1->matrix[5] = $7; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
163 rdman_coord_changed(rdman, obj->$1); |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
164 ]]) |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
165 |
|
100
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
166 define([S_SHAPE_TRANSLATE],[dnl |
|
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
167 [ memset(obj->$1->matrix, 0, sizeof(obj->$1->matrix)); |
|
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
168 obj->$1->matrix[0] = 1; |
|
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
169 obj->$1->matrix[2] = $2; |
|
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
170 obj->$1->matrix[4] = 1; |
|
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
171 obj->$1->matrix[5] = $3; |
|
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
172 rdman_coord_changed(rdman, obj->$1); |
|
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
173 ]]) |
|
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
174 |
|
85
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
175 define([S_SHAPE_MATRIX],[dnl |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
176 [ obj->$1->matrix[0] = $2; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
177 obj->$1->matrix[3] = $3; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
178 obj->$1->matrix[1] = $4; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
179 obj->$1->matrix[4] = $5; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
180 obj->$1->matrix[2] = $6; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
181 obj->$1->matrix[5] = $7; |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
182 rdman_coord_changed(rdman, obj->$1); |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
183 ]]) |
|
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
184 |
| 63 | 185 define([SETUP_VARS],[divert([-1]) |
| 64 | 186 define([SIMPORT],[IMPORT(]QUOTE($[]1)[,[S_])]) |
| 187 SIMPORT([ADD_LINEAR_PAINT]) | |
| 188 SIMPORT([ADD_RADIAL_PAINT]) | |
| 189 SIMPORT([COLOR_STOP]) | |
| 78 | 190 SIMPORT([REF_STOPS_RADIAL]) |
| 191 SIMPORT([REF_STOPS_LINEAR]) | |
| 64 | 192 SIMPORT([ADD_PATH],) |
| 193 SIMPORT([ADD_RECT]) | |
| 194 SIMPORT([ADD_COORD]) | |
| 83 | 195 SIMPORT([ADD_TEXT]) |
| 64 | 196 SIMPORT([FILL_SHAPE]) |
| 197 SIMPORT([STROKE_SHAPE]) | |
| 198 SIMPORT([FILL_SHAPE_WITH_PAINT]) | |
| 199 SIMPORT([STROKE_SHAPE_WITH_PAINT]) | |
| 81 | 200 SIMPORT([STROKE_WIDTH]) |
| 201 SIMPORT([GROUP_HIDE]) | |
| 202 SIMPORT([RECT_HIDE]) | |
| 203 SIMPORT([PATH_HIDE]) | |
|
84
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
204 SIMPORT([COORD_TRANSLATE]) |
|
85
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
205 SIMPORT([COORD_MATRIX]) |
|
100
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
206 SIMPORT([SHAPE_TRANSLATE]) |
|
85
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
207 SIMPORT([SHAPE_MATRIX]) |
| 63 | 208 divert[]]) |
| 209 | |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
210 define([F_ADD_LINEAR_PAINT],[[ |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
211 stops = paint_linear_stops(obj->$1, 0, NULL); |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
212 free(stops); |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
213 rdman_paint_free(rdman, obj->$1); |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
214 ]]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
215 |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
216 define([F_ADD_RADIAL_PAINT],[[ |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
217 stops = paint_radial_stops(obj->$1, 0, NULL); |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
218 free(stops); |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
219 rdman_paint_free(rdman, obj->$1); |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
220 ]]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
221 |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
222 define([F_ADD_PATH],[[ |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
223 rdman_shape_free(rdman, obj->$1); |
| 83 | 224 ]]) |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
225 |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
226 define([F_ADD_RECT],[[ |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
227 rdman_shape_free(rdman, obj->$1); |
| 83 | 228 ]]) |
| 229 | |
| 230 define([F_ADD_TEXT],[[ | |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
231 rdman_shape_free(rdman, obj->$1); |
| 83 | 232 ]]) |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
233 |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
234 define([F_FILL_SHAPE],[[ |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
235 rdman_paint_free(rdman, obj->$1_fill); |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
236 ]]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
237 |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
238 define([F_STROKE_SHAPE],[[ |
|
159
b90abd31a281
Postponse free of coords, shapes, and paints when the rdman is dirty.
Thinker K.F. Li <thinker@branda.to>
parents:
154
diff
changeset
|
239 rdman_paint_free(rdman, obj->$1_stroke); |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
240 ]]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
241 |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
242 define([CLEAR_VARS],[divert([-1]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
243 define([FIMPORT],[IMPORT(]QUOTE($[]1)[,[F_])]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
244 FIMPORT([ADD_LINEAR_PAINT]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
245 FIMPORT([ADD_RADIAL_PAINT]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
246 define([COLOR_STOP]) |
| 78 | 247 define([REF_STOPS_RADIAL]) |
| 248 define([REF_STOPS_LINEAR]) | |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
249 FIMPORT([ADD_PATH],) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
250 FIMPORT([ADD_RECT]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
251 define([ADD_COORD]) |
| 83 | 252 FIMPORT([ADD_TEXT]) |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
253 FIMPORT([FILL_SHAPE]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
254 FIMPORT([STROKE_SHAPE]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
255 define([FILL_SHAPE_WITH_PAINT]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
256 define([STROKE_SHAPE_WITH_PAINT]) |
|
80
e548221c04eb
svg2code.py support stroke
Thinker K.F. Li <thinker@branda.to>
parents:
78
diff
changeset
|
257 define([STROKE_WIDTH]) |
| 81 | 258 define([GROUP_HIDE],) |
| 259 define([RECT_HIDE],) | |
| 260 define([PATH_HIDE],) | |
|
84
42698de1f653
Support translate() function for transform attribute of 'g' tag.
Thinker K.F. Li <thinker@branda.to>
parents:
83
diff
changeset
|
261 define([COORD_TRANSLATE],) |
|
85
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
262 define([COORD_MATRIX],) |
|
100
1a1dda98730c
Fix the bug of order of cross & inner product of vectors
Thinker K.F. Li <thinker@branda.to>
parents:
85
diff
changeset
|
263 define([SHAPE_TRANSLATE],) |
|
85
9b4a02bcaeb1
matrix() function in transform attribute of group and shapes
Thinker K.F. Li <thinker@branda.to>
parents:
84
diff
changeset
|
264 define([SHAPE_MATRIX],) |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
265 divert[]]) |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
266 |
| 154 | 267 define([REVERSE_VARS],[divert([-1]) |
| 268 define([__REV_VAR],[]) | |
| 269 define([PUSH_REV], [ | |
| 270 pushdef([__REV_VAR]) | |
| 271 define([__REV_VAR], ]QUOTE(QUOTE($[]1))[)]) | |
| 272 define([POP_ALL_REV], [dnl | |
| 273 ifelse(__REV_VAR, [], ,[UNQUOTE(__REV_VAR)[]dnl | |
| 274 popdef([__REV_VAR])[]POP_ALL_REV[]])]) | |
| 275 define([RIMPORT], [ | |
| 276 define(]QUOTE($[]1)[, | |
| 277 [PUSH_REV(]]QUOTE(QUOTE($[]1))[[(]QUOTE($[]@)[))]) | |
| 278 ]) | |
| 279 RIMPORT([ADD_LINEAR_PAINT]) | |
| 280 RIMPORT([ADD_RADIAL_PAINT]) | |
| 281 RIMPORT([COLOR_STOP]) | |
| 282 RIMPORT([REF_STOPS_RADIAL]) | |
| 283 RIMPORT([REF_STOPS_LINEAR]) | |
| 284 RIMPORT([ADD_PATH]) | |
| 285 RIMPORT([ADD_RECT]) | |
| 286 RIMPORT([ADD_COORD]) | |
| 287 RIMPORT([ADD_TEXT]) | |
| 288 RIMPORT([FILL_SHAPE]) | |
| 289 RIMPORT([STROKE_SHAPE]) | |
| 290 RIMPORT([FILL_SHAPE_WITH_PAINT]) | |
| 291 RIMPORT([STROKE_SHAPE_WITH_PAINT]) | |
| 292 RIMPORT([STROKE_WIDTH]) | |
| 293 RIMPORT([GROUP_HIDE]) | |
| 294 RIMPORT([RECT_HIDE]) | |
| 295 RIMPORT([PATH_HIDE]) | |
| 296 RIMPORT([COORD_TRANSLATE]) | |
| 297 RIMPORT([COORD_MATRIX]) | |
| 298 RIMPORT([SHAPE_TRANSLATE]) | |
| 299 RIMPORT([SHAPE_MATRIX]) | |
| 300 divert[]dnl | |
| 301 ]) | |
| 302 | |
| 63 | 303 define([MADBUTTERFLY],[dnl |
| 304 [#include <stdio.h> | |
|
69
a6150b4e0667
Fix bug of newing linear & radial paints
Thinker K.F. Li <thinker@branda.to>
parents:
68
diff
changeset
|
305 #include <stdlib.h> |
|
a6150b4e0667
Fix bug of newing linear & radial paints
Thinker K.F. Li <thinker@branda.to>
parents:
68
diff
changeset
|
306 #include <string.h> |
|
186
530bb7728546
Move header files to $(top_srcdir)/include/ and prefixed with 'mb_'.
Thinker K.F. Li <thinker@branda.to>
parents:
159
diff
changeset
|
307 #include <mb_types.h> |
|
530bb7728546
Move header files to $(top_srcdir)/include/ and prefixed with 'mb_'.
Thinker K.F. Li <thinker@branda.to>
parents:
159
diff
changeset
|
308 #include <mb_redraw_man.h> |
|
530bb7728546
Move header files to $(top_srcdir)/include/ and prefixed with 'mb_'.
Thinker K.F. Li <thinker@branda.to>
parents:
159
diff
changeset
|
309 #include <mb_shapes.h> |
|
530bb7728546
Move header files to $(top_srcdir)/include/ and prefixed with 'mb_'.
Thinker K.F. Li <thinker@branda.to>
parents:
159
diff
changeset
|
310 #include <mb_paint.h> |
| 63 | 311 #include "$1.h" |
| 312 | |
|
130
3a4d6179e6a9
change mb_c_source.m4 and mb_c_header.m4 to specify parent for SVG object
Thinker K.F. Li <thinker@branda.to>
parents:
113
diff
changeset
|
313 $1_t *$1_new(redraw_man_t *rdman, coord_t *parent_coord) { |
| 64 | 314 $1_t *obj; |
| 315 grad_stop_t *stops = NULL;]DECLARE_VARS | |
| 63 | 316 $2[]dnl |
| 317 [ | |
| 318 obj = ($1_t *)malloc(sizeof($1_t)); | |
| 319 if(obj == NULL) return NULL; | |
| 154 | 320 obj->rdman = rdman; |
| 63 | 321 ]SETUP_VARS |
|
130
3a4d6179e6a9
change mb_c_source.m4 and mb_c_header.m4 to specify parent for SVG object
Thinker K.F. Li <thinker@branda.to>
parents:
113
diff
changeset
|
322 obj->root_coord = rdman_coord_new(rdman, parent_coord); |
| 63 | 323 $2 |
| 324 [ return obj; | |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
325 } |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
326 |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
327 void $1_free($1_t *obj) { |
| 68 | 328 grad_stop_t *stops = NULL; |
| 154 | 329 redraw_man_t *rdman; |
| 330 | |
| 331 rdman = obj->rdman; | |
| 332 ]REVERSE_VARS[]dnl | |
| 333 divert([-1])dnl | |
| 334 $2[]dnl | |
| 335 divert[]dnl | |
| 336 CLEAR_VARS[]dnl | |
| 337 POP_ALL_REV[ | |
| 338 rdman_coord_subtree_free(rdman, obj->root_coord); | |
|
67
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
339 free(obj); |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
340 } |
|
3f2872a1a2fe
clear objects in *_free() for generated code
Thinker K.F. Li <thinker@branda.to>
parents:
66
diff
changeset
|
341 ]dnl |
| 63 | 342 ]) |
| 343 divert[]dnl |