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

File Contents

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