2 #include "cmpinclude.h"
3 #include "gacela_chip.h"
4 void init__home_jsancho_proyectos_gacela_gacela_chip(){do_init((void *)VV);}
5 #include "gacela_chipmunk.c"
6 /* function definition for CPINITCHIPMUNK */
9 { object *old_base=vs_base;
10 gacela_cpInitChipmunk();
11 vs_top=(vs_base=old_base)+1;
14 /* function definition for CPRESETSHAPEIDCOUNTER */
17 { object *old_base=vs_base;
18 gacela_cpResetShapeIdCounter();
19 vs_top=(vs_base=old_base)+1;
22 /* function definition for CPSPACENEW */
25 { object *old_base=vs_base;
29 vs_top=(vs_base=old_base)+1;
30 vs_base[0]=CMPmake_fixnum(x);
32 /* function definition for CPSPACEADDBODY */
35 { object *old_base=vs_base;
36 gacela_cpSpaceAddBody(
37 object_to_int(vs_base[0]),
38 object_to_int(vs_base[1]));
39 vs_top=(vs_base=old_base)+1;
42 /* function definition for CPSPACEADDSHAPE */
45 { object *old_base=vs_base;
46 gacela_cpSpaceAddShape(
47 object_to_int(vs_base[0]),
48 object_to_int(vs_base[1]));
49 vs_top=(vs_base=old_base)+1;
52 /* function definition for CPSPACEFREE */
55 { object *old_base=vs_base;
57 object_to_int(vs_base[0]));
58 vs_top=(vs_base=old_base)+1;
61 /* function definition for CPBODYNEW */
64 { object *old_base=vs_base;
68 object_to_float(vs_base[0]),
69 object_to_float(vs_base[1]),
70 object_to_float(vs_base[2]));
71 vs_top=(vs_base=old_base)+1;
72 vs_base[0]=CMPmake_fixnum(x);
74 /* function definition for CPBODYFREE */
77 { object *old_base=vs_base;
79 object_to_int(vs_base[0]));
80 vs_top=(vs_base=old_base)+1;
83 /* function definition for CPCIRCLESHAPENEW */
86 { object *old_base=vs_base;
89 gacela_cpCircleShapeNew(
90 object_to_int(vs_base[0]),
91 object_to_float(vs_base[1]),
92 object_to_float(vs_base[2]),
93 object_to_float(vs_base[3]));
94 vs_top=(vs_base=old_base)+1;
95 vs_base[0]=CMPmake_fixnum(x);
97 /* function definition for CPPOLYSHAPENEW */
100 { object *old_base=vs_base;
103 gacela_cpPolyShapeNew(
104 object_to_int(vs_base[0]),
105 object_to_int(vs_base[1]),
106 object_to_int(vs_base[2]),
107 object_to_float(vs_base[3]),
108 object_to_float(vs_base[4]));
109 vs_top=(vs_base=old_base)+1;
110 vs_base[0]=CMPmake_fixnum(x);
112 /* function definition for CPSHAPEFREE */
115 { object *old_base=vs_base;
117 object_to_int(vs_base[0]));
118 vs_top=(vs_base=old_base)+1;
121 /* function definition for SET-SPACE-PROPERTIES */
124 { object *old_base=vs_base;
125 set_space_properties(
126 object_to_int(vs_base[0]),
127 object_to_float(vs_base[1]),
128 object_to_float(vs_base[2]));
129 vs_top=(vs_base=old_base)+1;
132 /* function definition for MAKE-SPACE */
135 {register object *base=vs_base;
136 register object *sup=base+VM1; VC1
139 parse_key(vs_base,FALSE,FALSE,1,VV[3]);vs_top=sup;
141 base[2]= ((object)VV[0]);
143 vs_top=(vs_base=base+2)+2;
148 /* function definition for MAKE-BODY */
151 {register object *base=vs_base;
152 register object *sup=base+VM2; VC2
155 parse_key(vs_base,FALSE,FALSE,1,VV[3]);vs_top=sup;
157 base[2]= ((object)VV[1]);
159 vs_top=(vs_base=base+2)+2;
164 /* function definition for MAKE-SHAPE */
167 {register object *base=vs_base;
168 register object *sup=base+VM3; VC3
171 parse_key(vs_base,FALSE,FALSE,1,VV[3]);vs_top=sup;
173 base[2]= ((object)VV[2]);
175 vs_top=(vs_base=base+2)+2;
180 /* function definition for CREATE-SPACE */
183 {register object *base=vs_base;
184 register object *sup=base+VM4; VC4
187 parse_key(vs_base,FALSE,FALSE,1,VV[7]);vs_top=sup;
194 base[2]= ((object)VV[3]);
199 vs_top=(vs_base=base+2)+2;
204 base[2]= ((object)VV[0]);
210 vs_top=(vs_base=base+2)+3;
215 V6= (VFUN_NARGS=2,(*(LnkLI12))((V4),(V6)));
221 V7= make_cons(STREF(object,(V5),0),(V6));
224 {vs_push((V7)->c.c_car);V7=(V7)->c.c_cdr;}
231 vs_top=(vs_base=base+2)+1;
235 /* function definition for CREATE-BODY */
238 {register object *base=vs_base;
239 register object *sup=base+VM5; VC5
243 parse_key(vs_base,FALSE,FALSE,2,VV[14],VV[15]);vs_top=sup;
256 base[4]= ((object)VV[3]);
259 base[8]= ((object)VV[6]);
260 vs_top=(vs_base=base+6)+3;
264 vs_top=(vs_base=base+4)+2;
268 base[4]= ((object)VV[1]);
274 vs_top=(vs_base=base+4)+3;
278 vs_top=(vs_base=base+4)+1;
282 static void LnkT17(){ call_or_link(((object)VV[17]),(void **)(void *)&Lnk17);} /* MAKE-BODY */
283 static void LnkT16(){ call_or_link(((object)VV[16]),(void **)(void *)&Lnk16);} /* CPNEWBODY */
284 static void LnkT13(){ call_or_link(((object)VV[13]),(void **)(void *)&Lnk13);} /* SET-SPACE-PROPERTIES */
285 static object LnkTLI12(object first,...){object V1;va_list ap;va_start(ap,first);V1=call_vproc_new(((object)VV[12]),(void **)(void *)&LnkLI12,first,ap);va_end(ap);return V1;} /* UNION */
286 static void LnkT11(){ call_or_link(((object)VV[11]),(void **)(void *)&Lnk11);} /* SET-RESOURCE */
287 static void LnkT10(){ call_or_link(((object)VV[10]),(void **)(void *)&Lnk10);} /* MAKE-SPACE */
288 static void LnkT9(){ call_or_link(((object)VV[9]),(void **)(void *)&Lnk9);} /* CPSPACENEW */
289 static void LnkT8(){ call_or_link(((object)VV[8]),(void **)(void *)&Lnk8);} /* INIT-CHIPMUNK */
291 #ifdef SYSTEM_SPECIAL_INIT