| 1 |
// Fichier MAGIC - UQTR; |
| 2 |
//*i:326; |
| 3 |
%1=GEOMETRIE(1.000000000000000,STEP,pont.step,/home/gilles/dev/magic/app/VMM/VMM/win32/mat.dat); |
| 4 |
%2=VOLUME(32,($3),0,0); |
| 5 |
%3=COQUILLE($2,($6,$38,$90,$142,$158,$199,$240,$256,$268,$280,$288,$300,$308,$320)); |
| 6 |
%4=SURFACE_STEP(196); |
| 7 |
%5=FACE(33,$4,($7),-1,1,((Pn,-10000000.00000000))); |
| 8 |
%6=COFACE($5,$3,1); |
| 9 |
%7=BOUCLE($5,($16,$23,$30,$35)); |
| 10 |
%8=COURBE_STEP(339); |
| 11 |
%9=POINT_STEP(335); |
| 12 |
%10=SOMMET(115,$9,1,((Pn,-10000000.00000000))); |
| 13 |
%11=POINT_STEP(334); |
| 14 |
%12=SOMMET(116,$11,1,((Pn,-10000000.00000000))); |
| 15 |
%13=ARETE(114,$8,$14,$15,1,1,((Pn,-10000000.00000000))); |
| 16 |
%14=COSOMMET($10,$13,1); |
| 17 |
%15=COSOMMET($12,$13,2); |
| 18 |
%16=COARETE($13,$7,-1); |
| 19 |
%17=COURBE_STEP(352); |
| 20 |
%18=POINT_STEP(325); |
| 21 |
%19=SOMMET(109,$18,1,((Pn,-10000000.00000000))); |
| 22 |
%20=ARETE(108,$17,$21,$22,1,1,((Pn,-10000000.00000000))); |
| 23 |
%21=COSOMMET($10,$20,1); |
| 24 |
%22=COSOMMET($19,$20,2); |
| 25 |
%23=COARETE($20,$7,1); |
| 26 |
%24=COURBE_STEP(333); |
| 27 |
%25=POINT_STEP(353); |
| 28 |
%26=SOMMET(106,$25,1,((Pn,-10000000.00000000))); |
| 29 |
%27=ARETE(120,$24,$28,$29,1,1,((Pn,-10000000.00000000))); |
| 30 |
%28=COSOMMET($19,$27,1); |
| 31 |
%29=COSOMMET($26,$27,2); |
| 32 |
%30=COARETE($27,$7,1); |
| 33 |
%31=COURBE_STEP(277); |
| 34 |
%32=ARETE(118,$31,$33,$34,1,1,((Pn,-10000000.00000000))); |
| 35 |
%33=COSOMMET($12,$32,1); |
| 36 |
%34=COSOMMET($26,$32,2); |
| 37 |
%35=COARETE($32,$7,-1); |
| 38 |
%36=SURFACE_STEP(151); |
| 39 |
%37=FACE(37,$36,($39),-1,0); |
| 40 |
%38=COFACE($37,$3,1); |
| 41 |
%39=BOUCLE($37,($48,$55,$60,$61,$68,$75,$82,$87)); |
| 42 |
%40=COURBE_STEP(308); |
| 43 |
%41=POINT_STEP(198); |
| 44 |
%42=SOMMET(30,$41,0); |
| 45 |
%43=POINT_STEP(386); |
| 46 |
%44=SOMMET(170,$43,1,((Da,0.000000000000000))); |
| 47 |
%45=ARETE(158,$40,$46,$47,1,0); |
| 48 |
%46=COSOMMET($42,$45,1); |
| 49 |
%47=COSOMMET($44,$45,2); |
| 50 |
%48=COARETE($45,$39,1); |
| 51 |
%49=COURBE_STEP(385); |
| 52 |
%50=POINT_STEP(394); |
| 53 |
%51=SOMMET(258,$50,1,((Da,0.000000000000000))); |
| 54 |
%52=ARETE(172,$49,$53,$54,1,1,((Da,0.000000000000000))); |
| 55 |
%53=COSOMMET($44,$52,1); |
| 56 |
%54=COSOMMET($51,$52,2); |
| 57 |
%55=COARETE($52,$39,1); |
| 58 |
%56=COURBE_STEP(402); |
| 59 |
%57=ARETE(226,$56,$58,$59,1,0); |
| 60 |
%58=COSOMMET($51,$57,1); |
| 61 |
%59=COSOMMET($26,$57,2); |
| 62 |
%60=COARETE($57,$39,1); |
| 63 |
%61=COARETE($27,$39,-1); |
| 64 |
%62=COURBE_STEP(413); |
| 65 |
%63=POINT_STEP(372); |
| 66 |
%64=SOMMET(209,$63,1,((Da,0.000000000000000))); |
| 67 |
%65=ARETE(189,$62,$66,$67,1,0); |
| 68 |
%66=COSOMMET($19,$65,1); |
| 69 |
%67=COSOMMET($64,$65,2); |
| 70 |
%68=COARETE($65,$39,1); |
| 71 |
%69=COURBE_STEP(398); |
| 72 |
%70=POINT_STEP(403); |
| 73 |
%71=SOMMET(216,$70,1,((Da,0.000000000000000))); |
| 74 |
%72=ARETE(227,$69,$73,$74,1,1,((Da,0.000000000000000))); |
| 75 |
%73=COSOMMET($64,$72,1); |
| 76 |
%74=COSOMMET($71,$72,2); |
| 77 |
%75=COARETE($72,$39,1); |
| 78 |
%76=COURBE_STEP(324); |
| 79 |
%77=POINT_STEP(282); |
| 80 |
%78=SOMMET(111,$77,0); |
| 81 |
%79=ARETE(110,$76,$80,$81,1,0); |
| 82 |
%80=COSOMMET($78,$79,1); |
| 83 |
%81=COSOMMET($71,$79,2); |
| 84 |
%82=COARETE($79,$39,-1); |
| 85 |
%83=COURBE_STEP(281); |
| 86 |
%84=ARETE(113,$83,$85,$86,1,0); |
| 87 |
%85=COSOMMET($78,$84,1); |
| 88 |
%86=COSOMMET($42,$84,2); |
| 89 |
%87=COARETE($84,$39,1); |
| 90 |
%88=SURFACE_STEP(391); |
| 91 |
%89=FACE(169,$88,($91),-1,0); |
| 92 |
%90=COFACE($89,$3,1); |
| 93 |
%91=BOUCLE($89,($100,$107,$114,$121,$126,$127,$134,$139)); |
| 94 |
%92=COURBE_STEP(329); |
| 95 |
%93=POINT_STEP(315); |
| 96 |
%94=SOMMET(131,$93,1,((Da,0.000000000000000))); |
| 97 |
%95=POINT_STEP(314); |
| 98 |
%96=SOMMET(132,$95,0); |
| 99 |
%97=ARETE(130,$92,$98,$99,1,0); |
| 100 |
%98=COSOMMET($94,$97,1); |
| 101 |
%99=COSOMMET($96,$97,2); |
| 102 |
%100=COARETE($97,$91,1); |
| 103 |
%101=COURBE_STEP(383); |
| 104 |
%102=POINT_STEP(393); |
| 105 |
%103=SOMMET(163,$102,0); |
| 106 |
%104=ARETE(259,$101,$105,$106,1,0); |
| 107 |
%105=COSOMMET($103,$104,1); |
| 108 |
%106=COSOMMET($96,$104,2); |
| 109 |
%107=COARETE($104,$91,-1); |
| 110 |
%108=COURBE_STEP(409); |
| 111 |
%109=POINT_STEP(405); |
| 112 |
%110=SOMMET(204,$109,1,((Da,0.000000000000000))); |
| 113 |
%111=ARETE(203,$108,$112,$113,1,0); |
| 114 |
%112=COSOMMET($110,$111,1); |
| 115 |
%113=COSOMMET($103,$111,2); |
| 116 |
%114=COARETE($111,$91,-1); |
| 117 |
%115=COURBE_STEP(313); |
| 118 |
%116=POINT_STEP(309); |
| 119 |
%117=SOMMET(136,$116,1,((Da,0.000000000000000))); |
| 120 |
%118=ARETE(135,$115,$119,$120,1,1,((Da,0.000000000000000))); |
| 121 |
%119=COSOMMET($117,$118,1); |
| 122 |
%120=COSOMMET($110,$118,2); |
| 123 |
%121=COARETE($118,$91,-1); |
| 124 |
%122=COURBE_STEP(304); |
| 125 |
%123=ARETE(159,$122,$124,$125,1,0); |
| 126 |
%124=COSOMMET($10,$123,1); |
| 127 |
%125=COSOMMET($117,$123,2); |
| 128 |
%126=COARETE($123,$91,-1); |
| 129 |
%127=COARETE($13,$91,1); |
| 130 |
%128=COURBE_STEP(288); |
| 131 |
%129=POINT_STEP(284); |
| 132 |
%130=SOMMET(188,$129,1,((Da,0.000000000000000))); |
| 133 |
%131=ARETE(187,$128,$132,$133,1,0); |
| 134 |
%132=COSOMMET($130,$131,1); |
| 135 |
%133=COSOMMET($12,$131,2); |
| 136 |
%134=COARETE($131,$91,-1); |
| 137 |
%135=COURBE_STEP(371); |
| 138 |
%136=ARETE(210,$135,$137,$138,1,1,((Da,0.000000000000000))); |
| 139 |
%137=COSOMMET($94,$136,1); |
| 140 |
%138=COSOMMET($130,$136,2); |
| 141 |
%139=COARETE($136,$91,-1); |
| 142 |
%140=SURFACE_STEP(366); |
| 143 |
%141=FACE(211,$140,($143),-1,0); |
| 144 |
%142=COFACE($141,$3,1); |
| 145 |
%143=BOUCLE($141,($148,$149,$154,$155)); |
| 146 |
%144=COURBE_STEP(376); |
| 147 |
%145=ARETE(207,$144,$146,$147,1,0); |
| 148 |
%146=COSOMMET($96,$145,1); |
| 149 |
%147=COSOMMET($42,$145,2); |
| 150 |
%148=COARETE($145,$143,1); |
| 151 |
%149=COARETE($84,$143,-1); |
| 152 |
%150=COURBE_STEP(236); |
| 153 |
%151=ARETE(67,$150,$152,$153,1,0); |
| 154 |
%152=COSOMMET($103,$151,1); |
| 155 |
%153=COSOMMET($78,$151,2); |
| 156 |
%154=COARETE($151,$143,-1); |
| 157 |
%155=COARETE($104,$143,1); |
| 158 |
%156=SURFACE_STEP(237); |
| 159 |
%157=FACE(70,$156,($159,$188),1,0); |
| 160 |
%158=COFACE($157,$3,1); |
| 161 |
%159=BOUCLE($157,($168,$175,$182,$187)); |
| 162 |
%160=COURBE_STEP(242); |
| 163 |
%161=POINT_STEP(238); |
| 164 |
%162=SOMMET(66,$161,0); |
| 165 |
%163=POINT_STEP(243); |
| 166 |
%164=SOMMET(64,$163,0); |
| 167 |
%165=ARETE(65,$160,$166,$167,1,0); |
| 168 |
%166=COSOMMET($162,$165,1); |
| 169 |
%167=COSOMMET($164,$165,2); |
| 170 |
%168=COARETE($165,$159,1); |
| 171 |
%169=COURBE_STEP(247); |
| 172 |
%170=POINT_STEP(248); |
| 173 |
%171=SOMMET(60,$170,0); |
| 174 |
%172=ARETE(61,$169,$173,$174,1,0); |
| 175 |
%173=COSOMMET($164,$172,1); |
| 176 |
%174=COSOMMET($171,$172,2); |
| 177 |
%175=COARETE($172,$159,1); |
| 178 |
%176=COURBE_STEP(252); |
| 179 |
%177=POINT_STEP(341); |
| 180 |
%178=SOMMET(105,$177,0); |
| 181 |
%179=ARETE(58,$176,$180,$181,1,0); |
| 182 |
%180=COSOMMET($171,$179,1); |
| 183 |
%181=COSOMMET($178,$179,2); |
| 184 |
%182=COARETE($179,$159,1); |
| 185 |
%183=COURBE_STEP(125); |
| 186 |
%184=ARETE(45,$183,$185,$186,1,0); |
| 187 |
%185=COSOMMET($178,$184,1); |
| 188 |
%186=COSOMMET($162,$184,2); |
| 189 |
%187=COARETE($184,$159,1); |
| 190 |
%188=BOUCLE($157,($189,$194,$195,$196)); |
| 191 |
%189=COARETE($79,$188,1); |
| 192 |
%190=COURBE_STEP(129); |
| 193 |
%191=ARETE(43,$190,$192,$193,1,1,((Da,0.000000000000000))); |
| 194 |
%192=COSOMMET($110,$191,1); |
| 195 |
%193=COSOMMET($71,$191,2); |
| 196 |
%194=COARETE($191,$188,-1); |
| 197 |
%195=COARETE($111,$188,1); |
| 198 |
%196=COARETE($151,$188,1); |
| 199 |
%197=SURFACE_STEP(142); |
| 200 |
%198=FACE(42,$197,($200,$229),-1,0); |
| 201 |
%199=COFACE($198,$3,1); |
| 202 |
%200=BOUCLE($198,($209,$216,$223,$228)); |
| 203 |
%201=COURBE_STEP(345); |
| 204 |
%202=POINT_STEP(145); |
| 205 |
%203=SOMMET(40,$202,0); |
| 206 |
%204=POINT_STEP(419); |
| 207 |
%205=SOMMET(101,$204,0); |
| 208 |
%206=ARETE(104,$201,$207,$208,1,0); |
| 209 |
%207=COSOMMET($203,$206,1); |
| 210 |
%208=COSOMMET($205,$206,2); |
| 211 |
%209=COARETE($206,$200,-1); |
| 212 |
%210=COURBE_STEP(318); |
| 213 |
%211=POINT_STEP(121); |
| 214 |
%212=SOMMET(46,$211,0); |
| 215 |
%213=ARETE(100,$210,$214,$215,1,0); |
| 216 |
%214=COSOMMET($212,$213,1); |
| 217 |
%215=COSOMMET($203,$213,2); |
| 218 |
%216=COARETE($213,$200,-1); |
| 219 |
%217=COURBE_STEP(265); |
| 220 |
%218=POINT_STEP(146); |
| 221 |
%219=SOMMET(38,$218,0); |
| 222 |
%220=ARETE(77,$217,$221,$222,1,0); |
| 223 |
%221=COSOMMET($219,$220,1); |
| 224 |
%222=COSOMMET($212,$220,2); |
| 225 |
%223=COARETE($220,$200,-1); |
| 226 |
%224=COURBE_STEP(317); |
| 227 |
%225=ARETE(82,$224,$226,$227,1,0); |
| 228 |
%226=COSOMMET($205,$225,1); |
| 229 |
%227=COSOMMET($219,$225,2); |
| 230 |
%228=COARETE($225,$200,-1); |
| 231 |
%229=BOUCLE($198,($230,$231,$232,$237)); |
| 232 |
%230=COARETE($45,$229,-1); |
| 233 |
%231=COARETE($145,$229,-1); |
| 234 |
%232=COARETE($97,$229,-1); |
| 235 |
%233=COURBE_STEP(359); |
| 236 |
%234=ARETE(86,$233,$235,$236,1,1,((Da,0.000000000000000))); |
| 237 |
%235=COSOMMET($94,$234,1); |
| 238 |
%236=COSOMMET($44,$234,2); |
| 239 |
%237=COARETE($234,$229,1); |
| 240 |
%238=SURFACE_STEP(427); |
| 241 |
%239=FACE(87,$238,($241),-1,0); |
| 242 |
%240=COFACE($239,$3,1); |
| 243 |
%241=BOUCLE($239,($242,$247,$248,$253)); |
| 244 |
%242=COARETE($213,$241,1); |
| 245 |
%243=COURBE_STEP(256); |
| 246 |
%244=ARETE(52,$243,$245,$246,1,0); |
| 247 |
%245=COSOMMET($164,$244,1); |
| 248 |
%246=COSOMMET($203,$244,2); |
| 249 |
%247=COARETE($244,$241,-1); |
| 250 |
%248=COARETE($165,$241,-1); |
| 251 |
%249=COURBE_STEP(178); |
| 252 |
%250=ARETE(73,$249,$251,$252,1,0); |
| 253 |
%251=COSOMMET($162,$250,1); |
| 254 |
%252=COSOMMET($212,$250,2); |
| 255 |
%253=COARETE($250,$241,1); |
| 256 |
%254=SURFACE_STEP(271); |
| 257 |
%255=FACE(74,$254,($257),-1,0); |
| 258 |
%256=COFACE($255,$3,1); |
| 259 |
%257=BOUCLE($255,($258,$259,$260,$265)); |
| 260 |
%258=COARETE($220,$257,1); |
| 261 |
%259=COARETE($250,$257,-1); |
| 262 |
%260=COARETE($184,$257,-1); |
| 263 |
%261=COURBE_STEP(424); |
| 264 |
%262=ARETE(80,$261,$263,$264,1,0); |
| 265 |
%263=COSOMMET($178,$262,1); |
| 266 |
%264=COSOMMET($219,$262,2); |
| 267 |
%265=COARETE($262,$257,1); |
| 268 |
%266=SURFACE_STEP(355); |
| 269 |
%267=FACE(91,$266,($269),-1,0); |
| 270 |
%268=COFACE($267,$3,1); |
| 271 |
%269=BOUCLE($267,($270,$271,$272,$277)); |
| 272 |
%270=COARETE($225,$269,1); |
| 273 |
%271=COARETE($262,$269,-1); |
| 274 |
%272=COARETE($179,$269,-1); |
| 275 |
%273=COURBE_STEP(346); |
| 276 |
%274=ARETE(95,$273,$275,$276,1,0); |
| 277 |
%275=COSOMMET($171,$274,1); |
| 278 |
%276=COSOMMET($205,$274,2); |
| 279 |
%277=COARETE($274,$269,1); |
| 280 |
%278=SURFACE_STEP(222); |
| 281 |
%279=FACE(9,$278,($281),-1,0); |
| 282 |
%280=COFACE($279,$3,1); |
| 283 |
%281=BOUCLE($279,($282,$283,$284,$285)); |
| 284 |
%282=COARETE($206,$281,1); |
| 285 |
%283=COARETE($274,$281,-1); |
| 286 |
%284=COARETE($172,$281,-1); |
| 287 |
%285=COARETE($244,$281,1); |
| 288 |
%286=SURFACE_STEP(133); |
| 289 |
%287=FACE(4,$286,($289),1,0); |
| 290 |
%288=COFACE($287,$3,1); |
| 291 |
%289=BOUCLE($287,($290,$295,$296,$297)); |
| 292 |
%290=COARETE($57,$289,-1); |
| 293 |
%291=COURBE_STEP(340); |
| 294 |
%292=ARETE(78,$291,$293,$294,1,1,((Da,0.000000000000000))); |
| 295 |
%293=COSOMMET($130,$292,1); |
| 296 |
%294=COSOMMET($51,$292,2); |
| 297 |
%295=COARETE($292,$289,-1); |
| 298 |
%296=COARETE($131,$289,1); |
| 299 |
%297=COARETE($32,$289,1); |
| 300 |
%298=SURFACE_STEP(299); |
| 301 |
%299=FACE(92,$298,($301),1,1,((Da,0.000000000000000))); |
| 302 |
%300=COFACE($299,$3,1); |
| 303 |
%301=BOUCLE($299,($302,$303,$304,$305)); |
| 304 |
%302=COARETE($52,$301,-1); |
| 305 |
%303=COARETE($234,$301,-1); |
| 306 |
%304=COARETE($136,$301,1); |
| 307 |
%305=COARETE($292,$301,1); |
| 308 |
%306=SURFACE_STEP(232); |
| 309 |
%307=FACE(23,$306,($309),1,1,((Da,0.000000000000000))); |
| 310 |
%308=COFACE($307,$3,1); |
| 311 |
%309=BOUCLE($307,($310,$315,$316,$317)); |
| 312 |
%310=COARETE($72,$309,-1); |
| 313 |
%311=COURBE_STEP(202); |
| 314 |
%312=ARETE(24,$311,$313,$314,1,1,((Da,0.000000000000000))); |
| 315 |
%313=COSOMMET($117,$312,1); |
| 316 |
%314=COSOMMET($64,$312,2); |
| 317 |
%315=COARETE($312,$309,-1); |
| 318 |
%316=COARETE($118,$309,1); |
| 319 |
%317=COARETE($191,$309,1); |
| 320 |
%318=SURFACE_STEP(212); |
| 321 |
%319=FACE(20,$318,($321),1,0); |
| 322 |
%320=COFACE($319,$3,1); |
| 323 |
%321=BOUCLE($319,($322,$323,$324,$325)); |
| 324 |
%322=COARETE($65,$321,-1); |
| 325 |
%323=COARETE($20,$321,-1); |
| 326 |
%324=COARETE($123,$321,1); |
| 327 |
%325=COARETE($312,$321,1); |
| 328 |
FIN; |
| 329 |
|
