| 1 |
picher |
199 |
// 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 |
|
|
|
