ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/REPOS_ERICCA/magic/cas_test/opttopo/mat_bloc.magic
Revision: 813
Committed: Mon Aug 8 17:37:17 2016 UTC (9 years ago) by nana
File size: 26698 byte(s)
Log Message:
Cas_test et vasy squelettisation

File Contents

# User Rev Content
1 nana 813 // Fichier MAGIC - UQTR;
2     //*i:913;
3     %1=GEOMETRIE(0.001000000000000000,STEP,mat_bloc.STEP);
4     %1=GEOMETRIE_EPS(1.000000000000000e-06);
5     %2=VOLUME(2,($3),-1,0);
6     %3=COQUILLE($2,($6,$38,$62,$80,$98,$110));
7     %4=SURFACE_STEP(465);
8     %5=FACE(6,$4,($7),1,0);
9     %6=COFACE($5,$3,1);
10     %7=BOUCLE($5,($16,$23,$30,$35));
11     %8=COURBE_STEP(509);
12     %9=POINT_STEP(511);
13     %10=SOMMET(14,$9,0);
14     %11=POINT_STEP(510);
15     %12=SOMMET(15,$11,0);
16     %13=ARETE(19,$8,$14,$15,1,0);
17     %14=COSOMMET($10,$13,1);
18     %15=COSOMMET($12,$13,2);
19     %16=COARETE($13,$7,1);
20     %17=COURBE_STEP(688);
21     %18=POINT_STEP(494);
22     %19=SOMMET(31,$18,0);
23     %20=ARETE(143,$17,$21,$22,1,0);
24     %21=COSOMMET($12,$20,1);
25     %22=COSOMMET($19,$20,2);
26     %23=COARETE($20,$7,1);
27     %24=COURBE_STEP(535);
28     %25=POINT_STEP(495);
29     %26=SOMMET(28,$25,0);
30     %27=ARETE(40,$24,$28,$29,1,0);
31     %28=COSOMMET($19,$27,1);
32     %29=COSOMMET($26,$27,2);
33     %30=COARETE($27,$7,1);
34     %31=COURBE_STEP(539);
35     %32=ARETE(39,$31,$33,$34,1,0);
36     %33=COSOMMET($26,$32,1);
37     %34=COSOMMET($10,$32,2);
38     %35=COARETE($32,$7,1);
39     %36=SURFACE_STEP(544);
40     %37=FACE(38,$36,($39),-1,0);
41     %38=COFACE($37,$3,1);
42     %39=BOUCLE($37,($48,$53,$54,$59));
43     %40=COURBE_STEP(487);
44     %41=POINT_STEP(488);
45     %42=SOMMET(35,$41,0);
46     %43=POINT_STEP(489);
47     %44=SOMMET(33,$43,0);
48     %45=ARETE(37,$40,$46,$47,1,0);
49     %46=COSOMMET($42,$45,1);
50     %47=COSOMMET($44,$45,2);
51     %48=COARETE($45,$39,1);
52     %49=COURBE_STEP(493);
53     %50=ARETE(32,$49,$51,$52,1,0);
54     %51=COSOMMET($10,$50,1);
55     %52=COSOMMET($44,$50,2);
56     %53=COARETE($50,$39,-1);
57     %54=COARETE($32,$39,-1);
58     %55=COURBE_STEP(502);
59     %56=ARETE(24,$55,$57,$58,1,0);
60     %57=COSOMMET($26,$56,1);
61     %58=COSOMMET($42,$56,2);
62     %59=COARETE($56,$39,1);
63     %60=SURFACE_STEP(504);
64     %61=FACE(22,$60,($63),-1,0);
65     %62=COFACE($61,$3,1);
66     %63=BOUCLE($61,($70,$71,$72,$77));
67     %64=COURBE_STEP(698);
68     %65=POINT_STEP(689);
69     %66=SOMMET(140,$65,0);
70     %67=ARETE(137,$64,$68,$69,1,0);
71     %68=COSOMMET($66,$67,1);
72     %69=COSOMMET($42,$67,2);
73     %70=COARETE($67,$63,1);
74     %71=COARETE($56,$63,-1);
75     %72=COARETE($27,$63,-1);
76     %73=COURBE_STEP(570);
77     %74=ARETE(56,$73,$75,$76,1,0);
78     %75=COSOMMET($19,$74,1);
79     %76=COSOMMET($66,$74,2);
80     %77=COARETE($74,$63,1);
81     %78=SURFACE_STEP(697);
82     %79=FACE(135,$78,($81),-1,0);
83     %80=COFACE($79,$3,1);
84     %81=BOUCLE($79,($88,$89,$90,$95));
85     %82=COURBE_STEP(1285);
86     %83=POINT_STEP(639);
87     %84=SOMMET(128,$83,0);
88     %85=ARETE(132,$82,$86,$87,1,0);
89     %86=COSOMMET($84,$85,1);
90     %87=COSOMMET($66,$85,2);
91     %88=COARETE($85,$81,1);
92     %89=COARETE($74,$81,-1);
93     %90=COARETE($20,$81,-1);
94     %91=COURBE_STEP(643);
95     %92=ARETE(127,$91,$93,$94,1,0);
96     %93=COSOMMET($12,$92,1);
97     %94=COSOMMET($84,$92,2);
98     %95=COARETE($92,$81,1);
99     %96=SURFACE_STEP(732);
100     %97=FACE(159,$96,($99),-1,0);
101     %98=COFACE($97,$3,1);
102     %99=BOUCLE($97,($100,$105,$106,$107));
103     %100=COARETE($50,$99,1);
104     %101=COURBE_STEP(726);
105     %102=ARETE(160,$101,$103,$104,1,0);
106     %103=COSOMMET($84,$102,1);
107     %104=COSOMMET($44,$102,2);
108     %105=COARETE($102,$99,-1);
109     %106=COARETE($92,$99,-1);
110     %107=COARETE($13,$99,-1);
111     %108=SURFACE_STEP(654);
112     %109=FACE(117,$108,($111),-1,0);
113     %110=COFACE($109,$3,1);
114     %111=BOUCLE($109,($112,$113,$114,$115));
115     %112=COARETE($102,$111,1);
116     %113=COARETE($45,$111,-1);
117     %114=COARETE($67,$111,-1);
118     %115=COARETE($85,$111,-1);
119     %116=VOLUME(79,($117),-1,0);
120     %117=COQUILLE($116,($120,$152,$176,$194,$212,$224));
121     %118=SURFACE_STEP(594);
122     %119=FACE(81,$118,($121),-1,0);
123     %120=COFACE($119,$117,1);
124     %121=BOUCLE($119,($130,$137,$144,$149));
125     %122=COURBE_STEP(588);
126     %123=POINT_STEP(589);
127     %124=SOMMET(83,$123,0);
128     %125=POINT_STEP(545);
129     %126=SOMMET(69,$125,0);
130     %127=ARETE(84,$122,$128,$129,1,0);
131     %128=COSOMMET($124,$127,1);
132     %129=COSOMMET($126,$127,2);
133     %130=COARETE($127,$121,1);
134     %131=COURBE_STEP(609);
135     %132=POINT_STEP(610);
136     %133=SOMMET(70,$132,0);
137     %134=ARETE(72,$131,$135,$136,1,0);
138     %135=COSOMMET($126,$134,1);
139     %136=COSOMMET($133,$134,2);
140     %137=COARETE($134,$121,1);
141     %138=COURBE_STEP(531);
142     %139=POINT_STEP(550);
143     %140=SOMMET(64,$139,0);
144     %141=ARETE(41,$138,$142,$143,1,0);
145     %142=COSOMMET($133,$141,1);
146     %143=COSOMMET($140,$141,2);
147     %144=COARETE($141,$121,1);
148     %145=COURBE_STEP(581);
149     %146=ARETE(89,$145,$147,$148,1,0);
150     %147=COSOMMET($140,$146,1);
151     %148=COSOMMET($124,$146,2);
152     %149=COARETE($146,$121,1);
153     %150=SURFACE_STEP(604);
154     %151=FACE(74,$150,($153),-1,0);
155     %152=COFACE($151,$117,1);
156     %153=BOUCLE($151,($162,$167,$168,$173));
157     %154=COURBE_STEP(635);
158     %155=POINT_STEP(631);
159     %156=SOMMET(97,$155,0);
160     %157=POINT_STEP(1190);
161     %158=SOMMET(923,$157,0);
162     %159=ARETE(96,$154,$160,$161,1,0);
163     %160=COSOMMET($156,$159,1);
164     %161=COSOMMET($158,$159,2);
165     %162=COARETE($159,$153,1);
166     %163=COURBE_STEP(549);
167     %164=ARETE(66,$163,$165,$166,1,0);
168     %165=COSOMMET($124,$164,1);
169     %166=COSOMMET($158,$164,2);
170     %167=COARETE($164,$153,-1);
171     %168=COARETE($146,$153,-1);
172     %169=COURBE_STEP(599);
173     %170=ARETE(76,$169,$171,$172,1,0);
174     %171=COSOMMET($140,$170,1);
175     %172=COSOMMET($156,$170,2);
176     %173=COARETE($170,$153,1);
177     %174=SURFACE_STEP(526);
178     %175=FACE(44,$174,($177),-1,0);
179     %176=COFACE($175,$117,1);
180     %177=BOUCLE($175,($184,$185,$186,$191));
181     %178=COURBE_STEP(630);
182     %179=POINT_STEP(626);
183     %180=SOMMET(100,$179,0);
184     %181=ARETE(99,$178,$182,$183,1,0);
185     %182=COSOMMET($180,$181,1);
186     %183=COSOMMET($156,$181,2);
187     %184=COARETE($181,$177,1);
188     %185=COARETE($170,$177,-1);
189     %186=COARETE($141,$177,-1);
190     %187=COURBE_STEP(625);
191     %188=ARETE(102,$187,$189,$190,1,0);
192     %189=COSOMMET($133,$188,1);
193     %190=COSOMMET($180,$188,2);
194     %191=COARETE($188,$177,1);
195     %192=SURFACE_STEP(525);
196     %193=FACE(42,$192,($195),-1,0);
197     %194=COFACE($193,$117,1);
198     %195=BOUCLE($193,($202,$203,$204,$209));
199     %196=COURBE_STEP(517);
200     %197=POINT_STEP(575);
201     %198=SOMMET(51,$197,0);
202     %199=ARETE(50,$196,$200,$201,1,0);
203     %200=COSOMMET($198,$199,1);
204     %201=COSOMMET($180,$199,2);
205     %202=COARETE($199,$195,1);
206     %203=COARETE($188,$195,-1);
207     %204=COARETE($134,$195,-1);
208     %205=COURBE_STEP(466);
209     %206=ARETE(7,$205,$207,$208,1,0);
210     %207=COSOMMET($126,$206,1);
211     %208=COSOMMET($198,$206,2);
212     %209=COARETE($206,$195,1);
213     %210=SURFACE_STEP(450);
214     %211=FACE(13,$210,($213),1,0);
215     %212=COFACE($211,$117,1);
216     %213=BOUCLE($211,($218,$219,$220,$221));
217     %214=COURBE_STEP(457);
218     %215=ARETE(11,$214,$216,$217,1,0);
219     %216=COSOMMET($158,$215,1);
220     %217=COSOMMET($198,$215,2);
221     %218=COARETE($215,$213,1);
222     %219=COARETE($206,$213,-1);
223     %220=COARETE($127,$213,-1);
224     %221=COARETE($164,$213,1);
225     %222=SURFACE_STEP(1188);
226     %223=FACE(1287,$222,($225),-1,0);
227     %224=COFACE($223,$117,1);
228     %225=BOUCLE($223,($226,$227,$228,$229));
229     %226=COARETE($215,$225,-1);
230     %227=COARETE($159,$225,-1);
231     %228=COARETE($181,$225,-1);
232     %229=COARETE($199,$225,-1);
233     %230=VOLUME(155,($231),-1,0);
234     %231=COQUILLE($230,($234,$266,$290,$308,$326,$338));
235     %232=SURFACE_STEP(672);
236     %233=FACE(156,$232,($235),-1,0);
237     %234=COFACE($233,$231,1);
238     %235=BOUCLE($233,($244,$251,$258,$263));
239     %236=COURBE_STEP(649);
240     %237=POINT_STEP(645);
241     %238=SOMMET(122,$237,0);
242     %239=POINT_STEP(644);
243     %240=SOMMET(123,$239,0);
244     %241=ARETE(121,$236,$242,$243,1,0);
245     %242=COSOMMET($238,$241,1);
246     %243=COSOMMET($240,$241,2);
247     %244=COARETE($241,$235,1);
248     %245=COURBE_STEP(621);
249     %246=POINT_STEP(617);
250     %247=SOMMET(105,$246,0);
251     %248=ARETE(104,$245,$249,$250,1,0);
252     %249=COSOMMET($240,$248,1);
253     %250=COSOMMET($247,$248,2);
254     %251=COARETE($248,$235,1);
255     %252=COURBE_STEP(616);
256     %253=POINT_STEP(612);
257     %254=SOMMET(108,$253,0);
258     %255=ARETE(107,$252,$256,$257,1,0);
259     %256=COSOMMET($247,$255,1);
260     %257=COSOMMET($254,$255,2);
261     %258=COARETE($255,$235,1);
262     %259=COURBE_STEP(611);
263     %260=ARETE(110,$259,$261,$262,1,0);
264     %261=COSOMMET($254,$260,1);
265     %262=COSOMMET($238,$260,2);
266     %263=COARETE($260,$235,1);
267     %264=SURFACE_STEP(666);
268     %265=FACE(111,$264,($267),-1,0);
269     %266=COFACE($265,$231,1);
270     %267=BOUCLE($265,($276,$281,$282,$287));
271     %268=COURBE_STEP(664);
272     %269=POINT_STEP(657);
273     %270=SOMMET(115,$269,0);
274     %271=POINT_STEP(656);
275     %272=SOMMET(116,$271,0);
276     %273=ARETE(114,$268,$274,$275,1,0);
277     %274=COSOMMET($270,$273,1);
278     %275=COSOMMET($272,$273,2);
279     %276=COARETE($273,$267,1);
280     %277=COURBE_STEP(705);
281     %278=ARETE(170,$277,$279,$280,1,0);
282     %279=COSOMMET($238,$278,1);
283     %280=COSOMMET($272,$278,2);
284     %281=COARETE($278,$267,-1);
285     %282=COARETE($260,$267,-1);
286     %283=COURBE_STEP(763);
287     %284=ARETE(173,$283,$285,$286,1,0);
288     %285=COSOMMET($254,$284,1);
289     %286=COSOMMET($270,$284,2);
290     %287=COARETE($284,$267,1);
291     %288=SURFACE_STEP(757);
292     %289=FACE(174,$288,($291),-1,0);
293     %290=COFACE($289,$231,1);
294     %291=BOUCLE($289,($298,$299,$300,$305));
295     %292=COURBE_STEP(758);
296     %293=POINT_STEP(749);
297     %294=SOMMET(178,$293,0);
298     %295=ARETE(177,$292,$296,$297,1,0);
299     %296=COSOMMET($294,$295,1);
300     %297=COSOMMET($270,$295,2);
301     %298=COARETE($295,$291,1);
302     %299=COARETE($284,$291,-1);
303     %300=COARETE($255,$291,-1);
304     %301=COURBE_STEP(720);
305     %302=ARETE(162,$301,$303,$304,1,0);
306     %303=COSOMMET($247,$302,1);
307     %304=COSOMMET($294,$302,2);
308     %305=COARETE($302,$291,1);
309     %306=SURFACE_STEP(715);
310     %307=FACE(163,$306,($309),-1,0);
311     %308=COFACE($307,$231,1);
312     %309=BOUCLE($307,($316,$321,$322,$323));
313     %310=COURBE_STEP(709);
314     %311=POINT_STEP(710);
315     %312=SOMMET(165,$311,0);
316     %313=ARETE(166,$310,$314,$315,1,0);
317     %314=COSOMMET($312,$313,1);
318     %315=COSOMMET($240,$313,2);
319     %316=COARETE($313,$309,-1);
320     %317=COURBE_STEP(471);
321     %318=ARETE(4,$317,$319,$320,1,0);
322     %319=COSOMMET($312,$318,1);
323     %320=COSOMMET($294,$318,2);
324     %321=COARETE($318,$309,1);
325     %322=COARETE($302,$309,-1);
326     %323=COARETE($248,$309,-1);
327     %324=SURFACE_STEP(874);
328     %325=FACE(271,$324,($327),-1,0);
329     %326=COFACE($325,$231,1);
330     %327=BOUCLE($325,($328,$333,$334,$335));
331     %328=COARETE($278,$327,1);
332     %329=COURBE_STEP(869);
333     %330=ARETE(275,$329,$331,$332,1,0);
334     %331=COSOMMET($312,$330,1);
335     %332=COSOMMET($272,$330,2);
336     %333=COARETE($330,$327,-1);
337     %334=COARETE($313,$327,1);
338     %335=COARETE($241,$327,-1);
339     %336=SURFACE_STEP(778);
340     %337=FACE(207,$336,($339),-1,0);
341     %338=COFACE($337,$231,1);
342     %339=BOUCLE($337,($340,$341,$342,$343));
343     %340=COARETE($330,$339,1);
344     %341=COARETE($273,$339,-1);
345     %342=COARETE($295,$339,-1);
346     %343=COARETE($318,$339,-1);
347     %344=VOLUME(214,($345),-1,0);
348     %345=COQUILLE($344,($348,$380,$404,$422,$440,$452));
349     %346=SURFACE_STEP(772);
350     %347=FACE(215,$346,($349),-1,0);
351     %348=COFACE($347,$345,1);
352     %349=BOUCLE($347,($358,$365,$372,$377));
353     %350=COURBE_STEP(770);
354     %351=POINT_STEP(684);
355     %352=SOMMET(144,$351,0);
356     %353=POINT_STEP(803);
357     %354=SOMMET(239,$353,0);
358     %355=ARETE(218,$350,$356,$357,1,0);
359     %356=COSOMMET($352,$355,1);
360     %357=COSOMMET($354,$355,2);
361     %358=COARETE($355,$349,1);
362     %359=COURBE_STEP(802);
363     %360=POINT_STEP(798);
364     %361=SOMMET(242,$360,0);
365     %362=ARETE(241,$359,$363,$364,1,0);
366     %363=COSOMMET($354,$362,1);
367     %364=COSOMMET($361,$362,2);
368     %365=COARETE($362,$349,1);
369     %366=COURBE_STEP(861);
370     %367=POINT_STEP(857);
371     %368=SOMMET(245,$367,0);
372     %369=ARETE(244,$366,$370,$371,1,0);
373     %370=COSOMMET($361,$369,1);
374     %371=COSOMMET($368,$369,2);
375     %372=COARETE($369,$349,1);
376     %373=COURBE_STEP(856);
377     %374=ARETE(247,$373,$375,$376,1,0);
378     %375=COSOMMET($368,$374,1);
379     %376=COSOMMET($352,$374,2);
380     %377=COARETE($374,$349,1);
381     %378=SURFACE_STEP(851);
382     %379=FACE(248,$378,($381),-1,0);
383     %380=COFACE($379,$345,1);
384     %381=BOUCLE($379,($390,$395,$396,$401));
385     %382=COURBE_STEP(849);
386     %383=POINT_STEP(842);
387     %384=SOMMET(252,$383,0);
388     %385=POINT_STEP(841);
389     %386=SOMMET(253,$385,0);
390     %387=ARETE(251,$382,$388,$389,1,0);
391     %388=COSOMMET($384,$387,1);
392     %389=COSOMMET($386,$387,2);
393     %390=COARETE($387,$381,1);
394     %391=COURBE_STEP(733);
395     %392=ARETE(194,$391,$393,$394,1,0);
396     %393=COSOMMET($352,$392,1);
397     %394=COSOMMET($386,$392,2);
398     %395=COARETE($392,$381,-1);
399     %396=COARETE($374,$381,-1);
400     %397=COURBE_STEP(794);
401     %398=ARETE(197,$397,$399,$400,1,0);
402     %399=COSOMMET($368,$398,1);
403     %400=COSOMMET($384,$398,2);
404     %401=COARETE($398,$381,1);
405     %402=SURFACE_STEP(788);
406     %403=FACE(198,$402,($405),-1,0);
407     %404=COFACE($403,$345,1);
408     %405=BOUCLE($403,($412,$413,$414,$419));
409     %406=COURBE_STEP(789);
410     %407=POINT_STEP(780);
411     %408=SOMMET(202,$407,0);
412     %409=ARETE(201,$406,$410,$411,1,0);
413     %410=COSOMMET($408,$409,1);
414     %411=COSOMMET($384,$409,2);
415     %412=COARETE($409,$405,1);
416     %413=COARETE($398,$405,-1);
417     %414=COARETE($369,$405,-1);
418     %415=COURBE_STEP(840);
419     %416=ARETE(255,$415,$417,$418,1,0);
420     %417=COSOMMET($361,$416,1);
421     %418=COSOMMET($408,$416,2);
422     %419=COARETE($416,$405,1);
423     %420=SURFACE_STEP(835);
424     %421=FACE(256,$420,($423),-1,0);
425     %422=COFACE($421,$345,1);
426     %423=BOUCLE($421,($424,$431,$436,$437));
427     %424=COARETE($392,$423,1);
428     %425=COURBE_STEP(748);
429     %426=POINT_STEP(744);
430     %427=SOMMET(186,$426,0);
431     %428=ARETE(185,$425,$429,$430,1,0);
432     %429=COSOMMET($386,$428,1);
433     %430=COSOMMET($427,$428,2);
434     %431=COARETE($428,$423,1);
435     %432=COURBE_STEP(743);
436     %433=ARETE(188,$432,$434,$435,1,0);
437     %434=COSOMMET($427,$433,1);
438     %435=COSOMMET($354,$433,2);
439     %436=COARETE($433,$423,1);
440     %437=COARETE($355,$423,-1);
441     %438=SURFACE_STEP(738);
442     %439=FACE(190,$438,($441),-1,0);
443     %440=COFACE($439,$345,1);
444     %441=BOUCLE($439,($442,$447,$448,$449));
445     %442=COARETE($433,$441,-1);
446     %443=COURBE_STEP(813);
447     %444=ARETE(227,$443,$445,$446,1,0);
448     %445=COSOMMET($427,$444,1);
449     %446=COSOMMET($408,$444,2);
450     %447=COARETE($444,$441,1);
451     %448=COARETE($416,$441,-1);
452     %449=COARETE($362,$441,-1);
453     %450=SURFACE_STEP(808);
454     %451=FACE(230,$450,($453),-1,0);
455     %452=COFACE($451,$345,1);
456     %453=BOUCLE($451,($454,$455,$456,$457));
457     %454=COARETE($387,$453,-1);
458     %455=COARETE($409,$453,-1);
459     %456=COARETE($444,$453,-1);
460     %457=COARETE($428,$453,-1);
461     %458=VOLUME(237,($459),-1,0);
462     %459=COQUILLE($458,($462,$494,$518,$536,$554,$566));
463     %460=SURFACE_STEP(901);
464     %461=FACE(290,$460,($463),1,0);
465     %462=COFACE($461,$459,1);
466     %463=BOUCLE($461,($472,$479,$486,$491));
467     %464=COURBE_STEP(896);
468     %465=POINT_STEP(955);
469     %466=SOMMET(293,$465,0);
470     %467=POINT_STEP(954);
471     %468=SOMMET(294,$467,0);
472     %469=ARETE(292,$464,$470,$471,1,0);
473     %470=COSOMMET($466,$469,1);
474     %471=COSOMMET($468,$469,2);
475     %472=COARETE($469,$463,1);
476     %473=COURBE_STEP(953);
477     %474=POINT_STEP(949);
478     %475=SOMMET(297,$474,0);
479     %476=ARETE(296,$473,$477,$478,1,0);
480     %477=COSOMMET($468,$476,1);
481     %478=COSOMMET($475,$476,2);
482     %479=COARETE($476,$463,1);
483     %480=COURBE_STEP(829);
484     %481=POINT_STEP(825);
485     %482=SOMMET(220,$481,0);
486     %483=ARETE(219,$480,$484,$485,1,0);
487     %484=COSOMMET($475,$483,1);
488     %485=COSOMMET($482,$483,2);
489     %486=COARETE($483,$463,1);
490     %487=COURBE_STEP(824);
491     %488=ARETE(222,$487,$489,$490,1,0);
492     %489=COSOMMET($482,$488,1);
493     %490=COSOMMET($466,$488,2);
494     %491=COARETE($488,$463,1);
495     %492=SURFACE_STEP(819);
496     %493=FACE(223,$492,($495),-1,0);
497     %494=COFACE($493,$459,1);
498     %495=BOUCLE($493,($504,$509,$510,$515));
499     %496=COURBE_STEP(865);
500     %497=POINT_STEP(814);
501     %498=SOMMET(225,$497,0);
502     %499=POINT_STEP(922);
503     %500=SOMMET(279,$499,0);
504     %501=ARETE(278,$496,$502,$503,1,0);
505     %502=COSOMMET($498,$501,1);
506     %503=COSOMMET($500,$501,2);
507     %504=COARETE($501,$495,1);
508     %505=COURBE_STEP(921);
509     %506=ARETE(281,$505,$507,$508,1,0);
510     %507=COSOMMET($466,$506,1);
511     %508=COSOMMET($500,$506,2);
512     %509=COARETE($506,$495,-1);
513     %510=COARETE($488,$495,-1);
514     %511=COURBE_STEP(917);
515     %512=ARETE(284,$511,$513,$514,1,0);
516     %513=COSOMMET($482,$512,1);
517     %514=COSOMMET($498,$512,2);
518     %515=COARETE($512,$495,1);
519     %516=SURFACE_STEP(911);
520     %517=FACE(285,$516,($519),-1,0);
521     %518=COFACE($517,$459,1);
522     %519=BOUCLE($517,($526,$527,$528,$533));
523     %520=COURBE_STEP(912);
524     %521=POINT_STEP(903);
525     %522=SOMMET(289,$521,0);
526     %523=ARETE(288,$520,$524,$525,1,0);
527     %524=COSOMMET($522,$523,1);
528     %525=COSOMMET($498,$523,2);
529     %526=COARETE($523,$519,1);
530     %527=COARETE($512,$519,-1);
531     %528=COARETE($483,$519,-1);
532     %529=COURBE_STEP(971);
533     %530=ARETE(332,$529,$531,$532,1,0);
534     %531=COSOMMET($475,$530,1);
535     %532=COSOMMET($522,$530,2);
536     %533=COARETE($530,$519,1);
537     %534=SURFACE_STEP(962);
538     %535=FACE(333,$534,($537),-1,0);
539     %536=COFACE($535,$459,1);
540     %537=BOUCLE($535,($544,$545,$546,$551));
541     %538=COURBE_STEP(833);
542     %539=POINT_STEP(889);
543     %540=SOMMET(260,$539,0);
544     %541=ARETE(259,$538,$542,$543,1,0);
545     %542=COSOMMET($540,$541,1);
546     %543=COSOMMET($522,$541,2);
547     %544=COARETE($541,$537,1);
548     %545=COARETE($530,$537,-1);
549     %546=COARETE($476,$537,-1);
550     %547=COURBE_STEP(888);
551     %548=ARETE(264,$547,$549,$550,1,0);
552     %549=COSOMMET($468,$548,1);
553     %550=COSOMMET($540,$548,2);
554     %551=COARETE($548,$537,1);
555     %552=SURFACE_STEP(983);
556     %553=FACE(318,$552,($555),-1,0);
557     %554=COFACE($553,$459,1);
558     %555=BOUCLE($553,($560,$561,$562,$563));
559     %556=COURBE_STEP(978);
560     %557=ARETE(321,$556,$558,$559,1,0);
561     %558=COSOMMET($500,$557,1);
562     %559=COSOMMET($540,$557,2);
563     %560=COARETE($557,$555,1);
564     %561=COARETE($548,$555,-1);
565     %562=COARETE($469,$555,-1);
566     %563=COARETE($506,$555,1);
567     %564=SURFACE_STEP(973);
568     %565=FACE(325,$564,($567),-1,0);
569     %566=COFACE($565,$459,1);
570     %567=BOUCLE($565,($568,$569,$570,$571));
571     %568=COARETE($501,$567,-1);
572     %569=COARETE($523,$567,-1);
573     %570=COARETE($541,$567,-1);
574     %571=COARETE($557,$567,-1);
575     %572=VOLUME(305,($573),-1,0);
576     %573=COQUILLE($572,($576,$608,$632,$650,$668,$680));
577     %574=SURFACE_STEP(941);
578     %575=FACE(306,$574,($577),1,0);
579     %576=COFACE($575,$573,1);
580     %577=BOUCLE($575,($586,$593,$600,$605));
581     %578=COURBE_STEP(939);
582     %579=POINT_STEP(932);
583     %580=SOMMET(309,$579,0);
584     %581=POINT_STEP(931);
585     %582=SOMMET(310,$581,0);
586     %583=ARETE(308,$578,$584,$585,1,0);
587     %584=COSOMMET($580,$583,1);
588     %585=COSOMMET($582,$583,2);
589     %586=COARETE($583,$577,1);
590     %587=COURBE_STEP(930);
591     %588=POINT_STEP(926);
592     %589=SOMMET(313,$588,0);
593     %590=ARETE(312,$587,$591,$592,1,0);
594     %591=COSOMMET($582,$590,1);
595     %592=COSOMMET($589,$590,2);
596     %593=COARETE($590,$577,1);
597     %594=COURBE_STEP(925);
598     %595=POINT_STEP(985);
599     %596=SOMMET(316,$595,0);
600     %597=ARETE(315,$594,$598,$599,1,0);
601     %598=COSOMMET($589,$597,1);
602     %599=COSOMMET($596,$597,2);
603     %600=COARETE($597,$577,1);
604     %601=COURBE_STEP(1044);
605     %602=ARETE(364,$601,$603,$604,1,0);
606     %603=COSOMMET($596,$602,1);
607     %604=COSOMMET($580,$602,2);
608     %605=COARETE($602,$577,1);
609     %606=SURFACE_STEP(1039);
610     %607=FACE(365,$606,($609),-1,0);
611     %608=COFACE($607,$573,1);
612     %609=BOUCLE($607,($618,$623,$624,$629));
613     %610=COURBE_STEP(1037);
614     %611=POINT_STEP(1030);
615     %612=SOMMET(368,$611,0);
616     %613=POINT_STEP(1029);
617     %614=SOMMET(369,$613,0);
618     %615=ARETE(367,$610,$616,$617,1,0);
619     %616=COSOMMET($612,$615,1);
620     %617=COSOMMET($614,$615,2);
621     %618=COARETE($615,$609,1);
622     %619=COURBE_STEP(1028);
623     %620=ARETE(371,$619,$621,$622,1,0);
624     %621=COSOMMET($580,$620,1);
625     %622=COSOMMET($614,$620,2);
626     %623=COARETE($620,$609,-1);
627     %624=COARETE($602,$609,-1);
628     %625=COURBE_STEP(1024);
629     %626=ARETE(374,$625,$627,$628,1,0);
630     %627=COSOMMET($596,$626,1);
631     %628=COSOMMET($612,$626,2);
632     %629=COARETE($626,$609,1);
633     %630=SURFACE_STEP(947);
634     %631=FACE(299,$630,($633),-1,0);
635     %632=COFACE($631,$573,1);
636     %633=BOUCLE($631,($640,$641,$642,$647));
637     %634=COURBE_STEP(1007);
638     %635=POINT_STEP(998);
639     %636=SOMMET(353,$635,0);
640     %637=ARETE(352,$634,$638,$639,1,0);
641     %638=COSOMMET($636,$637,1);
642     %639=COSOMMET($612,$637,2);
643     %640=COARETE($637,$633,1);
644     %641=COARETE($626,$633,-1);
645     %642=COARETE($597,$633,-1);
646     %643=COURBE_STEP(997);
647     %644=ARETE(357,$643,$645,$646,1,0);
648     %645=COSOMMET($589,$644,1);
649     %646=COSOMMET($636,$644,2);
650     %647=COARETE($644,$633,1);
651     %648=SURFACE_STEP(992);
652     %649=FACE(358,$648,($651),-1,0);
653     %650=COFACE($649,$573,1);
654     %651=BOUCLE($649,($658,$659,$660,$665));
655     %652=COURBE_STEP(1049);
656     %653=POINT_STEP(1045);
657     %654=SOMMET(362,$653,0);
658     %655=ARETE(361,$652,$656,$657,1,0);
659     %656=COSOMMET($654,$655,1);
660     %657=COSOMMET($636,$655,2);
661     %658=COARETE($655,$651,1);
662     %659=COARETE($644,$651,-1);
663     %660=COARETE($590,$651,-1);
664     %661=COURBE_STEP(963);
665     %662=ARETE(341,$661,$663,$664,1,0);
666     %663=COSOMMET($582,$662,1);
667     %664=COSOMMET($654,$662,2);
668     %665=COARETE($662,$651,1);
669     %666=SURFACE_STEP(1017);
670     %667=FACE(342,$666,($669),-1,0);
671     %668=COFACE($667,$573,1);
672     %669=BOUCLE($667,($674,$675,$676,$677));
673     %670=COURBE_STEP(1015);
674     %671=ARETE(345,$670,$672,$673,1,0);
675     %672=COSOMMET($614,$671,1);
676     %673=COSOMMET($654,$671,2);
677     %674=COARETE($671,$669,1);
678     %675=COARETE($662,$669,-1);
679     %676=COARETE($583,$669,-1);
680     %677=COARETE($620,$669,1);
681     %678=SURFACE_STEP(1006);
682     %679=FACE(349,$678,($681),-1,0);
683     %680=COFACE($679,$573,1);
684     %681=BOUCLE($679,($682,$683,$684,$685));
685     %682=COARETE($615,$681,-1);
686     %683=COARETE($637,$681,-1);
687     %684=COARETE($655,$681,-1);
688     %685=COARETE($671,$681,-1);
689     %686=VOLUME(383,($687),-1,0);
690     %687=COQUILLE($686,($690,$722,$746,$770,$786,$794));
691     %688=SURFACE_STEP(1141);
692     %689=FACE(418,$688,($691),-1,0);
693     %690=COFACE($689,$687,1);
694     %691=BOUCLE($689,($700,$707,$714,$719));
695     %692=COURBE_STEP(1156);
696     %693=POINT_STEP(1152);
697     %694=SOMMET(474,$693,0);
698     %695=POINT_STEP(1151);
699     %696=SOMMET(475,$695,0);
700     %697=ARETE(473,$692,$698,$699,1,0);
701     %698=COSOMMET($694,$697,1);
702     %699=COSOMMET($696,$697,2);
703     %700=COARETE($697,$691,-1);
704     %701=COURBE_STEP(1082);
705     %702=POINT_STEP(1078);
706     %703=SOMMET(379,$702,0);
707     %704=ARETE(378,$701,$705,$706,1,0);
708     %705=COSOMMET($703,$704,1);
709     %706=COSOMMET($694,$704,2);
710     %707=COARETE($704,$691,-1);
711     %708=COURBE_STEP(1150);
712     %709=POINT_STEP(1201);
713     %710=SOMMET(477,$709,0);
714     %711=ARETE(476,$708,$712,$713,1,0);
715     %712=COSOMMET($710,$711,1);
716     %713=COSOMMET($703,$711,2);
717     %714=COARETE($711,$691,-1);
718     %715=COURBE_STEP(1087);
719     %716=ARETE(417,$715,$717,$718,1,0);
720     %717=COSOMMET($696,$716,1);
721     %718=COSOMMET($710,$716,2);
722     %719=COARETE($716,$691,-1);
723     %720=SURFACE_STEP(1076);
724     %721=FACE(381,$720,($723),-1,0);
725     %722=COFACE($721,$687,1);
726     %723=BOUCLE($721,($732,$737,$738,$743));
727     %724=COURBE_STEP(1059);
728     %725=POINT_STEP(1055);
729     %726=SOMMET(392,$725,0);
730     %727=POINT_STEP(1054);
731     %728=SOMMET(393,$727,0);
732     %729=ARETE(391,$724,$730,$731,1,0);
733     %730=COSOMMET($726,$729,1);
734     %731=COSOMMET($728,$729,2);
735     %732=COARETE($729,$723,1);
736     %733=COURBE_STEP(1174);
737     %734=ARETE(441,$733,$735,$736,1,0);
738     %735=COSOMMET($694,$734,1);
739     %736=COSOMMET($728,$734,2);
740     %737=COARETE($734,$723,-1);
741     %738=COARETE($697,$723,1);
742     %739=COURBE_STEP(1133);
743     %740=ARETE(431,$739,$741,$742,1,0);
744     %741=COSOMMET($726,$740,1);
745     %742=COSOMMET($696,$740,2);
746     %743=COARETE($740,$723,-1);
747     %744=SURFACE_STEP(1125);
748     %745=FACE(432,$744,($747),-1,0);
749     %746=COFACE($745,$687,1);
750     %747=BOUCLE($745,($754,$761,$766,$767));
751     %748=COURBE_STEP(1126);
752     %749=POINT_STEP(1117);
753     %750=SOMMET(436,$749,0);
754     %751=ARETE(435,$748,$752,$753,1,0);
755     %752=COSOMMET($703,$751,1);
756     %753=COSOMMET($750,$751,2);
757     %754=COARETE($751,$747,1);
758     %755=COURBE_STEP(1116);
759     %756=POINT_STEP(1175);
760     %757=SOMMET(439,$756,0);
761     %758=ARETE(438,$755,$759,$760,1,0);
762     %759=COSOMMET($757,$758,1);
763     %760=COSOMMET($750,$758,2);
764     %761=COARETE($758,$747,-1);
765     %762=COURBE_STEP(1200);
766     %763=ARETE(479,$762,$764,$765,1,0);
767     %764=COSOMMET($710,$763,1);
768     %765=COSOMMET($757,$763,2);
769     %766=COARETE($763,$747,-1);
770     %767=COARETE($711,$747,1);
771     %768=SURFACE_STEP(1195);
772     %769=FACE(481,$768,($771),-1,0);
773     %770=COFACE($769,$687,1);
774     %771=BOUCLE($769,($776,$777,$782,$783));
775     %772=COURBE_STEP(1086);
776     %773=ARETE(413,$772,$774,$775,1,0);
777     %774=COSOMMET($750,$773,1);
778     %775=COSOMMET($728,$773,2);
779     %776=COARETE($773,$771,1);
780     %777=COARETE($729,$771,-1);
781     %778=COURBE_STEP(1170);
782     %779=ARETE(443,$778,$780,$781,1,0);
783     %780=COSOMMET($757,$779,1);
784     %781=COSOMMET($726,$779,2);
785     %782=COARETE($779,$771,-1);
786     %783=COARETE($758,$771,1);
787     %784=SURFACE_STEP(1164);
788     %785=FACE(445,$784,($787),1,0);
789     %786=COFACE($785,$687,1);
790     %787=BOUCLE($785,($788,$789,$790,$791));
791     %788=COARETE($716,$787,1);
792     %789=COARETE($763,$787,1);
793     %790=COARETE($779,$787,1);
794     %791=COARETE($740,$787,1);
795     %792=SURFACE_STEP(1142);
796     %793=FACE(422,$792,($795),-1,0);
797     %794=COFACE($793,$687,1);
798     %795=BOUCLE($793,($796,$797,$798,$799));
799     %796=COARETE($704,$795,1);
800     %797=COARETE($734,$795,1);
801     %798=COARETE($773,$795,-1);
802     %799=COARETE($751,$795,-1);
803     %800=VOLUME(429,($801),-1,0);
804     %801=COQUILLE($800,($804,$836,$860,$878,$896,$908));
805     %802=SURFACE_STEP(1070);
806     %803=FACE(384,$802,($805),1,0);
807     %804=COFACE($803,$801,1);
808     %805=BOUCLE($803,($814,$821,$828,$833));
809     %806=COURBE_STEP(1065);
810     %807=POINT_STEP(1061);
811     %808=SOMMET(388,$807,0);
812     %809=POINT_STEP(1060);
813     %810=SOMMET(389,$809,0);
814     %811=ARETE(387,$806,$812,$813,1,0);
815     %812=COSOMMET($808,$811,1);
816     %813=COSOMMET($810,$811,2);
817     %814=COARETE($811,$805,1);
818     %815=COURBE_STEP(1165);
819     %816=POINT_STEP(1020);
820     %817=SOMMET(375,$816,0);
821     %818=ARETE(449,$815,$819,$820,1,0);
822     %819=COSOMMET($810,$818,1);
823     %820=COSOMMET($817,$818,2);
824     %821=COARETE($818,$805,1);
825     %822=COURBE_STEP(880);
826     %823=POINT_STEP(876);
827     %824=SOMMET(268,$823,0);
828     %825=ARETE(267,$822,$826,$827,1,0);
829     %826=COSOMMET($817,$825,1);
830     %827=COSOMMET($824,$825,2);
831     %828=COARETE($825,$805,1);
832     %829=COURBE_STEP(884);
833     %830=ARETE(265,$829,$831,$832,1,0);
834     %831=COSOMMET($824,$830,1);
835     %832=COSOMMET($808,$830,2);
836     %833=COARETE($830,$805,1);
837     %834=SURFACE_STEP(1097);
838     %835=FACE(405,$834,($837),-1,0);
839     %836=COFACE($835,$801,1);
840     %837=BOUCLE($835,($846,$851,$852,$857));
841     %838=COURBE_STEP(1098);
842     %839=POINT_STEP(1089);
843     %840=SOMMET(409,$839,0);
844     %841=POINT_STEP(1088);
845     %842=SOMMET(410,$841,0);
846     %843=ARETE(408,$838,$844,$845,1,0);
847     %844=COSOMMET($840,$843,1);
848     %845=COSOMMET($842,$843,2);
849     %846=COARETE($843,$837,1);
850     %847=COURBE_STEP(1052);
851     %848=ARETE(398,$847,$849,$850,1,0);
852     %849=COSOMMET($824,$848,1);
853     %850=COSOMMET($842,$848,2);
854     %851=COARETE($848,$837,-1);
855     %852=COARETE($825,$837,-1);
856     %853=COURBE_STEP(1113);
857     %854=ARETE(401,$853,$855,$856,1,0);
858     %855=COSOMMET($817,$854,1);
859     %856=COSOMMET($840,$854,2);
860     %857=COARETE($854,$837,1);
861     %858=SURFACE_STEP(1107);
862     %859=FACE(402,$858,($861),-1,0);
863     %860=COFACE($859,$801,1);
864     %861=BOUCLE($859,($868,$869,$870,$875));
865     %862=COURBE_STEP(1108);
866     %863=POINT_STEP(1053);
867     %864=SOMMET(395,$863,0);
868     %865=ARETE(404,$862,$866,$867,1,0);
869     %866=COSOMMET($864,$865,1);
870     %867=COSOMMET($840,$865,2);
871     %868=COARETE($865,$861,1);
872     %869=COARETE($854,$861,-1);
873     %870=COARETE($818,$861,-1);
874     %871=COURBE_STEP(565);
875     %872=ARETE(59,$871,$873,$874,1,0);
876     %873=COSOMMET($810,$872,1);
877     %874=COSOMMET($864,$872,2);
878     %875=COARETE($872,$861,1);
879     %876=SURFACE_STEP(555);
880     %877=FACE(61,$876,($879),-1,0);
881     %878=COFACE($877,$801,1);
882     %879=BOUCLE($877,($880,$887,$892,$893));
883     %880=COARETE($848,$879,1);
884     %881=COURBE_STEP(678);
885     %882=POINT_STEP(679);
886     %883=SOMMET(148,$882,0);
887     %884=ARETE(149,$881,$885,$886,1,0);
888     %885=COSOMMET($842,$884,1);
889     %886=COSOMMET($883,$884,2);
890     %887=COARETE($884,$879,1);
891     %888=COURBE_STEP(683);
892     %889=ARETE(145,$888,$890,$891,1,0);
893     %890=COSOMMET($883,$889,1);
894     %891=COSOMMET($808,$889,2);
895     %892=COARETE($889,$879,1);
896     %893=COARETE($830,$879,-1);
897     %894=SURFACE_STEP(564);
898     %895=FACE(57,$894,($897),-1,0);
899     %896=COFACE($895,$801,1);
900     %897=BOUCLE($895,($898,$903,$904,$905));
901     %898=COARETE($889,$897,-1);
902     %899=COURBE_STEP(574);
903     %900=ARETE(55,$899,$901,$902,1,0);
904     %901=COSOMMET($864,$900,1);
905     %902=COSOMMET($883,$900,2);
906     %903=COARETE($900,$897,-1);
907     %904=COARETE($872,$897,-1);
908     %905=COARETE($811,$897,-1);
909     %906=SURFACE_STEP(583);
910     %907=FACE(85,$906,($909),-1,0);
911     %908=COFACE($907,$801,1);
912     %909=BOUCLE($907,($910,$911,$912,$913));
913     %910=COARETE($900,$909,1);
914     %911=COARETE($884,$909,-1);
915     %912=COARETE($843,$909,-1);
916     %913=COARETE($865,$909,-1);
917     FIN;
918