0 BEGIN PGM 9010_FR MM 1 ;Gravure de majuscules et de minuscules en ligne droite ou 2 ;en cercle � partir de la TNC 155 B/Q 3 BLK FORM 0.1 Z X+0 Y+0 Z-8 4 BLK FORM 0.2 X+100 Y+90 Z+0 5 ; 6 ;Donn�es de coupe 7 FN 0: Q2 =+1 ; EFFET DU FACTEUR D'ECHELLE 8 ; Q2=CONTENU DE MP 213/7410 9 ; 0: AGIT SUR 3 AXES 10 ; 1: AGIT SUR 2 AXES 11 FN 0: Q4 =-1 ; PROFONDEUR FRAISAGE 12 FN 0: Q6 =+1000 ; AVANCE FRAISAGE 13 FN 0: Q7 =+500 ; AVANCE DE LA PASSE EN PROFONDEUR 14 FN 0: Q8 =+5 ; DISTANCE D'APPROCHE 15 ; 16 ; 17 ;Appel de l'outil de gravure 18 TOOL CALL 200 Z S8000 19 L Z+20 R0 F9998 M3 20 ;================================== 21 ; 22 ;Param�tres pour le texte sur un cercle 23 FN 0: Q5 =+10 ; HAUTEUR DE CARACTERE 24 FN 0: Q11 =+50 ; CENTRE DE CERCLE EN X 25 FN 0: Q12 =+45 ; CENTRE DU CERCLE EN Y 26 FN 0: Q16 =+25 ; RAYON 27 FN 0: Q17 =+115 ; ANGLE DE DEPART 28 FN 0: Q14 =-3 ; INCREMENT ANGULAIRE SUPPLEMENTAIRE 29 ; 30 ;D�but de la programmation du texte 31 ;Exemple de texte : "TNC" 32 ;Affectation des lettres, voir PDF 33 ; 34 FN 0: Q1 =+84 ; T 35 CALL LBL 1 36 FN 0: Q1 =+78 ; N 37 CALL LBL 1 38 FN 0: Q1 =+67 ; C 39 CALL LBL 1 40 ; 41 ;Fin de la programmation du texte 42 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 43 ; 44 ;R�initialisation de param�tres 45 FN 0: Q16 =+0 ; RAYON 46 FN 0: Q14 =+0 ; ANGLE SUPPLEMENTAIRE 47 FN 0: Q29 =+0 ; ROTATION 48 ;================================== 49 ; 50 ;================================== 51 ;Param�tres pour le texte sur une ligne 52 FN 0: Q5 =+7 ; HAUTEUR DE CARACTERE 53 FN 0: Q21 =+42.5 ; POINT DE DEPART EN X 54 FN 0: Q22 =+16 ; POINT DE DEPART EN Y 55 FN 0: Q24 =+0 ; INCREMENT SUPPLEMENTAIRE EN X 56 ; 57 ;D�but de la programmation du texte 58 ;Exemple de texte : "Texte" 59 ;Affectation des lettres, voir PDF 60 ; 61 FN 0: Q1 =+84 ; T 62 CALL LBL 1 63 FN 0: Q1 =+101 ; e 64 CALL LBL 1 65 FN 0: Q1 =+120 ; x 66 CALL LBL 1 67 FN 0: Q1 =+116 ; t 68 CALL LBL 1 69 ; 70 ;Fin de la programmation du texte 71 ;!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 72 ;================================== 73 ;Fin du programme 74 L Z+22 R0 F9999 M2 75 ; 76 * - Sous-programmes 77 LBL 1 78 FN 0: Q9 =+Q4 79 FN 9: IF +Q2 EQU +1 GOTO LBL 4 80 FN 4: Q9 =+Q4 DIV +Q5 81 LBL 4 82 FN 9: IF +Q16 EQU +0 GOTO LBL 6 83 FN 2: Q29 =+Q17 - +90 84 FN 11: IF +Q17 GT +0 GOTO LBL 5 85 FN 1: Q29 =+Q17 + +90 86 LBL 5 87 FN 7: Q21 = COS +Q17 88 FN 3: Q21 =+Q21 * +Q16 89 FN 1: Q21 =+Q21 + +Q11 90 FN 6: Q22 = SIN +Q17 91 FN 3: Q22 =+Q22 * +Q16 92 FN 1: Q22 =+Q22 + +Q12 93 LBL 6 94 CYCL DEF 7.0 POINT ZERO 95 CYCL DEF 7.1 X+Q21 96 CYCL DEF 7.2 Y+Q22 97 FN 4: Q20 =+Q5 DIV +10 98 CYCL DEF 11.0 FACTEUR ECHELLE 99 CYCL DEF 11.1 SCL Q20 100 CYCL DEF 10.0 ROTATION 101 CYCL DEF 10.1 ROT+Q29 102 FN 10: IF +Q1 NE +0 GOTO LBL Q1 103 FN 9: IF +Q1 EQU +0 GOTO LBL 9 104 LBL 32 ; BLK 105 FN 1: Q33 =+Q108 + +6 106 FN 9: IF +9 EQU +9 GOTO LBL 9 107 LBL 45 ; - 108 L X-2 Y+5 R0 F9998 109 L Z+Q9 R0 FQ7 110 L X+2 R0 FQ6 111 FN 1: Q33 =+Q108 + +5.5 112 FN 9: IF +9 EQU +9 GOTO LBL 9 113 LBL 46 ; . 114 CC X-1.5 Y+1 115 LP PR+0.5 PA+0 R0 F9998 116 L Z+Q9 R0 FQ7 117 CP PA+0 DR- R0 FQ6 118 FN 1: Q33 =+Q108 + +4.5 119 FN 9: IF +9 EQU +9 GOTO LBL 9 120 LBL 47 ; / 121 L X-2.5 Y+1 R0 F9998 122 L Z+Q9 R0 FQ7 123 L X+2.5 Y+10 R0 FQ6 124 FN 1: Q33 =+Q108 + +6.5 125 FN 9: IF +9 EQU +9 GOTO LBL 9 126 LBL 48 ; 0 127 L X-2.639 Y+2.639 R0 FMAX 128 L Z+Q9 R0 FQ7 129 CC X+0 Y+2.639 130 CP PA+0 DR+ 131 L Y+7.361 R0 FQ6 132 CC X+0 Y+7.361 133 CP PA+180 DR+ 134 L Y+2.639 135 FN 1: Q33 =+Q108 + +6.5 136 FN 9: IF +9 EQU +9 GOTO LBL 9 137 LBL 49 ; 1 138 L X-2.111 Y+7.778 R0 F9998 139 L Z+Q9 R0 FQ7 140 L X+0.111 Y+10 R0 FQ6 141 L Y+0 142 FN 1: Q33 =+Q108 + +6.3 143 FN 9: IF +9 EQU +9 GOTO LBL 9 144 LBL 50 ; 2 145 L X-2.404 Y+8.147 R0 FMAX 146 L Z+Q9 R0 FQ7 147 CC X+0.012 Y+7.5 148 C X+2.007 Y+5.996 DR- R0 FQ6 149 L X-2.511 Y+0 150 L X+2.489 151 FN 1: Q33 =+Q108 + +7.9 152 FN 9: IF +9 EQU +9 GOTO LBL 9 153 LBL 51 ; 3 154 L X-2.455 Y+8.147 R0 FMAX 155 CC X-0.041 Y+7.5 156 L Z+Q9 R0 FQ7 157 C X+0.515 Y+5.063 DR- R0 FQ6 158 L Y+4.938 159 CC X-0.041 Y+2.5 160 C X-2.455 Y+1.853 DR- 161 FN 1: Q33 =+Q108 + +8.3 162 FN 9: IF +9 EQU +9 GOTO LBL 9 163 LBL 52 ; 4 164 L X+0.972 Y+10 R0 FMAX 165 L Z+Q9 R0 FQ7 166 L X-2.361 Y+1.953 R0 FQ6 167 L Y+1.111 168 L X+2.361 169 L Z+Q8 R0 FMAX 170 L X+0.972 Y+4.444 R0 FMAX 171 L Z+Q9 R0 FQ7 172 L Y+0 R0 FQ6 173 FN 1: Q33 =+Q108 + +8.3 174 FN 9: IF +9 EQU +9 GOTO LBL 9 175 LBL 53 ; 5 176 CC X-0.043 Y+2.5 177 L X-2.457 Y+1.853 R0 FMAX 178 L Z+Q9 R0 FQ7 179 CP PA+0 DR+ R0 FQ6 180 L Y+4.167 181 CC X-0.043 Y+4.167 182 C X-2.457 Y+4.814 DR+ 183 L Y+10 184 L X+2.457 185 FN 1: Q33 =+Q108 + +8.3 186 FN 9: IF +9 EQU +9 GOTO LBL 9 187 LBL 54 ; 6 188 CC X+0 Y+4.167 189 L X-2.5 Y+4.167 R0 FMAX 190 L Z+Q9 R0 FQ7 191 CP PA+0 DR- R0 FQ6 192 L Y+2.5 193 CC X+0 Y+2.5 194 CP PA+180 DR- 195 L Y+7.5 196 CC X+0 Y+7.5 197 C X+2.415 Y+8.147 DR- 198 FN 1: Q33 =+Q108 + +8.3 199 FN 9: IF +9 EQU +9 GOTO LBL 9 200 LBL 55 ; 7 201 L X-2.222 Y+8.889 R0 FMAX 202 L Z+Q9 R0 FQ7 203 L Y+10 R0 FQ6 204 L X+2.222 205 L Y+9.113 206 L X-2.222 Y+0 207 FN 1: Q33 =+Q108 + +7.5 208 FN 9: IF +9 EQU +9 GOTO LBL 9 209 LBL 56 ; 8 210 CC X+0 Y+7.5 211 L X-0.006 Y+5 R0 FMAX 212 L Z+Q9 R0 FQ7 213 CP PA+270 DR- 214 CC X+0 Y+2.5 215 CP PA+90 DR- 216 FN 1: Q33 =+Q108 + +8.3 217 FN 9: IF +9 EQU +9 GOTO LBL 9 218 LBL 57 ; 9 219 L X-2.415 Y+1.853 R0 FMAX 220 L Z+Q9 R0 FQ7 221 CC X+0 Y+2.5 222 CP PA+0 DR+ R0 FQ6 223 L Y+7.5 224 CC X+0 Y+7.5 225 CP PA+180 DR+ 226 L Y+5.833 227 CC X+0 Y+5.833 228 CP PA+0 DR+ 229 FN 1: Q33 =+Q108 + +8.3 230 FN 9: IF +9 EQU +9 GOTO LBL 9 231 LBL 58 ; : 232 L X+0 Y+2.5 R0 FMAX 233 L Z+Q9 R0 FQ7 234 L Z+Q8 R0 FMAX 235 L Y+7.5 R0 FMAX 236 L Z+Q9 R0 FQ7 237 FN 1: Q33 =+Q108 + +8.3 238 FN 9: IF +9 EQU +9 GOTO LBL 9 239 LBL 65 ; A (MAJ) 240 L X-3.639 Y+0 R0 FMAX 241 L Z+Q9 R0 FQ7 242 L X+0 Y+10 R0 FQ6 243 L X+3.639 Y+0 244 L X+2.426 Y+3.333 245 L X-2.426 246 FN 1: Q33 =+Q108 + +9.5 247 FN 9: IF +9 EQU +9 GOTO LBL 9 248 LBL 66 ; B 249 L X-3.056 Y+5 R0 FMAX 250 L Z+Q9 R0 FQ7 251 L X+0.556 R0 FQ6 252 CC X+0.556 Y+7.5 253 CP PA+90 DR+ 254 L X-3.056 255 L Y+0 256 L X+0.556 257 CC X+0.556 Y+2.5 258 CP PA+90 DR+ 259 FN 1: Q33 =+Q108 + +9.5 260 FN 9: IF +9 EQU +9 GOTO LBL 9 261 LBL 67 ; C 262 CC X+0.057 Y+6.667 263 L X+3.276 Y+7.529 R0 FMAX 264 L Z+Q9 R0 FQ7 265 CP PA+180 DR+ R0 FQ6 266 L Y+3.333 267 CC X+0.057 Y+3.333 268 C X+3.276 Y+2.471 DR+ 269 FN 1: Q33 =+Q108 + +9.6 270 FN 9: IF +9 EQU +9 GOTO LBL 9 271 LBL 68 ; D 272 L X-3.055 Y+10 R0 FMAX 273 L Z+Q9 R0 FQ7 274 L Y+0 R0 FQ6 275 L X-0.278 276 CC X-0.278 Y+3.333 277 CP PA+0 DR+ 278 L Y+6.667 279 CC X-0.278 Y+6.667 280 CP PA+90 DR+ 281 L X-3.056 282 FN 1: Q33 =+Q108 + +9.5 283 FN 9: IF +9 EQU +9 GOTO LBL 9 284 LBL 69 ; E 285 L X+3.056 Y+10 R0 FMAX 286 L Z+Q9 R0 FQ7 287 L X-3.056 R0 FQ6 288 L Y+0 289 L X+3.056 290 L Z+Q8 R0 FMAX 291 L X+0.833 Y+5 R0 FMAX 292 L Z+Q9 R0 FQ7 293 L X-3.056 R0 FQ6 294 FN 1: Q33 =+Q108 + +8.8 295 FN 9: IF +9 EQU +9 GOTO LBL 9 296 LBL 70 ; F 297 L X+3.056 Y+10 R0 FMAX 298 L Z+Q9 R0 FQ7 299 L X-3.056 FQ6 300 L Y+0 301 L Y+5 302 L X+0.833 303 FN 1: Q33 =+Q108 + +9.5 304 FN 9: IF +9 EQU +9 GOTO LBL 9 305 LBL 71 ; G 306 CC X+0 Y+6.389 307 L X+3.393 Y+7.624 R0 FMAX 308 L Z+Q9 R0 FQ7 309 CP PA+180 DR+ FQ6 310 L Y+3.611 311 CC X+0 Y+3.611 312 CP PA+0 DR+ 313 L Y+4.444 314 L X+0.833 315 FN 1: Q33 =+Q108 + +10.3 316 FN 9: IF +9 EQU +9 GOTO LBL 9 317 LBL 72 ; H 318 L X-3.333 Y+10 R0 FMAX 319 L Z+Q9 R0 FQ7 320 L Y+0 FQ6 321 L Y+5 322 L X+3.333 323 L Y+10 324 L Y+0 325 FN 1: Q33 =+Q108 + +8.8 326 FN 9: IF +9 EQU +9 GOTO LBL 9 327 LBL 73 ; I 328 L X-2.5 Y+0 R0 F9998 329 L Z+Q9 R0 FQ7 330 L Y+10 R0 FQ6 331 FN 1: Q33 =+Q108 + +5 332 FN 9: IF +9 EQU +9 GOTO LBL 9 333 LBL 74 ; J 334 L X-2.731 Y+2.058 R0 FMAX 335 L Z+Q9 R0 FQ7 336 CC X-0.047 Y+2.778 337 CP PA+0 DR+ FQ6 338 L Y+10 339 FN 1: Q33 =+Q108 + +8.3 340 FN 9: IF +9 EQU +9 GOTO LBL 9 341 LBL 75 ; K 342 L X-3.056 Y+10 R0 FMAX 343 L Z+Q9 R0 FQ7 344 L Y+0 R0 FQ6 345 L Y+2.778 346 L X+3.056 Y+10 347 L Z+Q8 R0 FMAX 348 L Y+0 R0 FMAX 349 L Z+Q9 R0 FQ7 350 L X-0.853 Y+5.381 351 FN 1: Q33 =+Q108 + +9.5 352 FN 9: IF +9 EQU +9 GOTO LBL 9 353 LBL 76 ; L 354 L X-3.056 Y+10 R0 FMAX 355 L Z+Q9 R0 FQ7 356 L Y+0 R0 FQ6 357 L X+2.8 358 FN 1: Q33 =+Q108 + +7.5 359 FN 9: IF +9 EQU +9 GOTO LBL 9 360 LBL 77 ; M 361 L X-3.611 Y+0 R0 F9998 362 L Z+Q9 R0 FQ7 363 L Y+10 R0 FQ6 364 L X+0 Y+3.333 365 L X+3.611 Y+10 366 L Y+0 367 FN 1: Q33 =+Q108 + +10.3 368 FN 9: IF +9 EQU +9 GOTO LBL 9 369 LBL 78 ; N 370 L X-3.056 Y+0 R0 F9998 371 L Z+Q9 R0 FQ7 372 L Y+10 R0 FQ6 373 L X+3.056 Y+0 374 L Y+10 375 FN 1: Q33 =+Q108 + +9.5 376 FN 9: IF +9 EQU +9 GOTO LBL 9 377 LBL 79 ; O 378 L X-3.056 Y+3.056 R0 FMAX 379 L Z+Q9 R0 FQ7 380 CC X+0 Y+3.056 381 CP PA+0 DR+ FQ6 382 L Y+6.944 383 CC X+0 Y+6.944 384 CP PA+180 DR+ 385 L Y+3.056 386 FN 1: Q33 =+Q108 + +10.3 387 FN 9: IF +9 EQU +9 GOTO LBL 9 388 LBL 80 ; P 389 L X-3.056 Y+0 R0 FMAX 390 L Z+Q9 R0 FQ7 391 L Y+10 R0 FQ6 392 L X+0.486 393 CC X+0.486 Y+7.431 394 CP PA+270 DR- 395 L X-3.056 396 FN 1: Q33 =+Q108 + +9 397 FN 9: IF +9 EQU +9 GOTO LBL 9 398 LBL 81 ; Q 399 CC X+0 Y+3.056 400 L X-3.056 Y+3.056 401 L Z+Q9 R0 FQ7 402 CP PA+0 DR+ FQ6 403 L Y+6.944 404 CC X+0 Y+6.944 405 CP PA+180 DR+ 406 L Y+3.056 407 L Z+Q8 R0 FMAX 408 L X+1.087 Y+1.968 R0 FMAX 409 L Z+Q9 R0 FQ7 410 L X+3.056 Y+0 R0 FQ6 411 FN 1: Q33 =+Q108 + +10.3 412 FN 9: IF +9 EQU +9 GOTO LBL 9 413 LBL 82 ; R 414 L X-3.056 Y+0 R0 F9998 415 L Z+Q9 R0 FQ7 416 L Y+10 R0 FQ6 417 L X+0.486 418 CC X+0.486 Y+7.431 419 CP PA+270 DR- 420 L X-3.056 421 L X+0.486 422 L X+2.857 Y+0 423 FN 1: Q33 =+Q108 + +9.5 424 FN 9: IF +9 EQU +9 GOTO LBL 9 425 LBL 83 ; S 426 L X-3.143 Y+1.302 R0 FMAX 427 L Z+Q9 R0 FQ7 428 CC X+0 Y+4.444 429 C X+2.232 Y+0.601 DR+ FQ6 430 CC X+1.151 Y+2.463 431 C X+1.708 Y+4.542 DR+ 432 L X-1.708 Y+5.458 433 CC X-1.151 Y+7.537 434 C X-2.232 Y+9.398 DR- 435 CC X+0 Y+5.556 436 C X+3.143 Y+8.698 DR- 437 FN 1: Q33 =+Q108 + +9.1 438 FN 9: IF +9 EQU +9 GOTO LBL 9 439 LBL 84 ; T 440 L X-3.056 Y+10 R0 F9998 441 L Z+Q9 R0 FQ7 442 L X+3.056 R0 FQ6 443 L X+0 444 L Y+0 445 FN 1: Q33 =+Q108 + +9.1 446 FN 9: IF +9 EQU +9 GOTO LBL 9 447 LBL 85 ; U 448 L X-3.611 Y+10 R0 F9998 449 L Z+Q9 R0 FQ7 450 L Y+3.611 451 CC X+0 Y+3.611 452 CP PA+0 DR+ 453 L Y+10 454 FN 1: Q33 =+Q108 + +9.5 455 FN 9: IF +9 EQU +9 GOTO LBL 9 456 LBL 86 ; V 457 L X-3.443 Y+10 R0 F9998 458 L Z+Q9 R0 FQ7 459 L X+0 Y+0 R0 FQ6 460 L X+3.443 Y+10 461 FN 1: Q33 =+Q108 + +9.5 462 FN 9: IF +9 EQU +9 GOTO LBL 9 463 LBL 87 ; W 464 L X-4.986 Y+10 R0 F9998 465 L Z+Q9 R0 FQ7 466 L X-2.493 Y+0 R0 FQ6 467 L X+0 Y+10 468 L X+2.493 Y+0 469 L X+4.986 Y+10 470 FN 1: Q33 =+Q108 + +10.4 471 FN 9: IF +9 EQU +9 GOTO LBL 9 472 LBL 88 ; X 473 L X-3.124 Y+10 R0 F9998 474 L Z+Q9 R0 FQ7 475 L X+3.124 Y+0 R0 FQ6 476 L Z+Q8 R0 FMAX 477 L X+3.124 Y+10 R0 FMAX 478 L Z+Q9 R0 FQ7 479 L X-3.124 Y+0 FQ6 480 FN 1: Q33 =+Q108 + +8.3 481 FN 9: IF +9 EQU +9 GOTO LBL 9 482 LBL 89 ; Y 483 L X-3.124 Y+10 R0 F9998 484 L Z+Q9 R0 FQ7 485 L X+0 Y+5 R0 FQ6 486 L X+0 Y+0 487 L Z+Q8 R0 FMAX 488 L Y+5 R0 FMAX 489 L Z+Q9 R0 FQ7 490 L X+3.124 Y+10 FQ6 491 FN 1: Q33 =+Q108 + +8.3 492 FN 9: IF +9 EQU +9 GOTO LBL 9 493 LBL 90 ; Z 494 L X-3.611 Y+10 R0 F9998 495 L Z+Q9 R0 FQ7 496 L X+3.611 R0 FQ6 497 L X-3.611 Y+0 498 L X+3.611 499 FN 1: Q33 =+Q108 + +9.5 500 FN 9: IF +9 EQU +9 GOTO LBL 9 501 LBL 97 ; AA 502 L X+2.569 Y+0 R0 F9999 503 Z+Q9 R0 FQ7 504 L Y+6.666 505 L Y+4.097 506 CC X+0 Y+4.097 507 C X-2.569 Y+4.097 DR+ 508 L Y+2.569 509 CC X+0 Y+2.569 510 C X+2.569 Y+2.569 DR+ 511 FN 1: Q33 =+Q108 + +8.3 512 FN 9: IF +9 EQU +9 GOTO LBL 9 513 LBL 98 ; BB 514 L X-2.569 Y+10 R0 FMAX 515 L Z+Q9 R0 FQ7 516 L Y+0 R0 FQ6 517 L Y+2.569 518 CC X+0 Y+2.569 519 CP PA+0 DR+ 520 L Y+4.097 521 CC X+0 Y+4.097 522 CP PA+180 DR+ 523 FN 1: Q33 =+Q108 + +7 524 FN 9: IF +9 EQU +9 GOTO LBL 9 525 LBL 99 ; CC 526 L X+2.397 Y+1.285 R0 FMAX 527 L Z+Q9 R0 FQ7 528 CC X+0.172 Y+2.569 529 CP PA+180 DR- R0 FQ6 530 L Y+4.097 531 CC X+0.172 Y+4.097 532 CR X+2.397 Y+5.382 R+2.5 DR- 533 FN 1: Q33 =+Q108 + +7 534 FN 9: IF +9 EQU +9 GOTO LBL 9 535 LBL 100 ; DD 536 L X+2.569 Y+10 R0 FMAX 537 L Z+Q9 R0 FQ7 538 L Y+0 R0 FQ6 539 L Y+2.569 540 CC X+0 Y+2.569 541 CP PA+180 DR- 542 L Y+4.097 543 CC X+0 Y+4.097 544 CP PA+0 DR- 545 FN 1: Q33 =+Q108 + +7 546 FN 9: IF +9 EQU +9 GOTO LBL 9 547 LBL 101 ; EE 548 CC X+0 Y+2.569 549 L X+2.105 Y+1.096 R0 F9999 550 L Z+Q9 R0 FQ7 551 C X-2.569 Y+2.569 DR- FQ6 552 L X-2.569 Y+4.097 553 CC X+0 Y+4.097 554 C X+2.569 Y+4.097 DR- 555 L Y+3.403 556 L X-2.569 557 FN 1: Q33 =+Q108 + +7 558 FN 9: IF +9 EQU +9 GOTO LBL 9 559 LBL 102 ; FF 560 L X-1.25 Y+6.667 R0 FMAX 561 L Z+Q9 R0 FQ7 562 L X+1.25 563 L Z+Q8 R0 FMAX 564 L X+1.667 Y+10 R0 FMAX 565 L Z+Q9 R0 FQ7 566 CC X+1.667 Y+8.333 567 CP PA+180 DR+ R0 FQ6 568 L X+0 Y+0 569 FN 1: Q33 =+Q108 + +6.8 570 FN 9: IF +9 EQU +9 GOTO LBL 9 571 LBL 103 ; GG 572 L X-2.105 Y-2.238 R0 FMAX 573 L Z+Q9 R0 FQ7 574 CC X+0 Y-0.764 575 CP PA+0 DR+ 576 L Y+6.667 577 L Y+4.097 578 CC X+0 Y+4.097 579 CP PA+180 DR+ 580 L Y+2.569 581 CC X+0 Y+2.569 582 CP PA+0 DR+ 583 FN 1: Q33 =+Q108 + +7.5 584 FN 9: IF +9 EQU +9 GOTO LBL 9 585 LBL 104 ; HH 586 L X-2.569 Y+10 R0 F9999 587 L Z+Q9 R0 FQ7 588 L Y+0 FQ6 589 L Y+4.097 X-2.569 R0 F9999 590 CC X+0 Y+4.097 591 C X+2.569 Y+4.097 DR- R0 FQ6 592 L Y+0 X+2.569 593 FN 1: Q33 =+Q108 + +7 594 FN 9: IF +9 EQU +9 GOTO LBL 9 595 LBL 105 ; II 596 L X+0 Y+0 R0 FMAX 597 L Z+Q9 R0 FQ7 598 L Y+6.667 R0 FQ6 599 L Z+Q8 R0 FMAX 600 L Y+10 R0 FMAX 601 L Z+Q9 R0 FQ7 602 FN 1: Q33 =+Q108 + +4.3 603 FN 9: IF +9 EQU +9 GOTO LBL 9 604 LBL 106 ; JJ 605 L X-1.833 Y-3.333 R0 FMAX 606 L Z+Q9 R0 FQ7 607 CC X-1.833 Y-1.667 608 CP PA+0 DR+ R0 FQ6 609 L Y+6.667 610 L Z+Q8 R0 FMAX 611 L Y+10 R0 FMAX 612 L Z+Q9 R0 FQ7 613 FN 1: Q33 =+Q108 + +5 614 FN 9: IF +9 EQU +9 GOTO LBL 9 615 LBL 107 ; KK 616 L X-2.17 Y+10 R0 FMAX 617 L Z+Q9 R0 FQ7 618 L Y+0 R0 FQ6 619 L Y+1.111 620 L X+2.17 Y+6.667 621 L Z+Q8 R0 FMAX 622 L Y+0 R0 FMAX 623 L Z+Q9 R0 FQ7 624 L X-0.434 Y+3.333 R0 FQ6 625 FN 1: Q33 =+Q108 + +7 626 FN 9: IF +9 EQU +9 GOTO LBL 9 627 LBL 108 ; LL 628 L X+0.833 Y+0 R0 FMAX 629 L Z+Q9 R0 FQ7 630 CC X+0.833 Y+1.667 631 CP PA+180 DR- R0 FQ6 632 L Y+10 633 FN 1: Q33 =+Q108 + +7 634 FN 9: IF +9 EQU +9 GOTO LBL 9 635 LBL 109 ; MM 636 L X-4.444 Y+0 R0 FMAX 637 L Z+Q9 R0 FQ7 638 L Y+6.667 R0 FQ6 639 L Y+4.444 640 CC X-2.222 Y+4.444 641 CP PA+0 DR- 642 L Y+0 643 L Y+4.444 644 CC X+2.222 Y+4.444 645 CP PA+0 DR- 646 L Y+0 647 FN 1: Q33 =+Q108 + +10 648 FN 9: IF +9 EQU +9 GOTO LBL 9 649 LBL 110 ; NN 650 L X-2.569 Y+0 R0 FMAX 651 L Z+Q9 R0 FQ7 652 L Y+6.667 R0 FQ6 653 L Y+4.097 654 CC X+0 Y+4.097 655 CP PA+0 DR- 656 L Y+0 657 FN 1: Q33 =+Q108 + +7.5 658 FN 9: IF +9 EQU +9 GOTO LBL 9 659 LBL 111 ; OO 660 L X-2.569 Y+2.569 R0 FMAX 661 L Z+Q9 R0 FQ7 662 L Y+4.097 R0 FQ6 663 CC X+0 Y+4.097 664 CP PA+0 DR- 665 L Y+2.569 666 CC X+0 Y+2.569 667 CP PA+180 DR- 668 FN 1: Q33 =+Q108 + +7 669 FN 9: IF +9 EQU +9 GOTO LBL 9 670 LBL 112 ; PP 671 L X-2.569 Y-3.333 R0 FMAX 672 L Z+Q9 R0 FQ7 673 L Y+6.667 R0 FQ6 674 L Y+4.097 675 CC X+0 Y+4.097 676 CP PA+0 DR- 677 L Y+2.569 678 CC X+0 Y+2.569 679 CP PA+180 DR- 680 FN 1: Q33 =+Q108 + +7 681 FN 9: IF +9 EQU +9 GOTO LBL 9 682 LBL 113 ; QQ 683 L X+2.569 Y-3.333 R0 FMAX 684 L Z+Q9 R0 FQ7 685 L Y+6.667 R0 FQ6 686 L Y+4.097 687 CC X+0 Y+4.097 688 CP PA+180 DR+ 689 L Y+2.569 690 CC X+0 Y+2.569 691 CP PA+0 DR+ 692 FN 1: Q33 =+Q108 + +7 693 FN 9: IF +9 EQU +9 GOTO LBL 9 694 LBL 114 ; RR 695 L X-1.215 Y+0 R0 FMAX 696 L Z+Q9 R0 FQ7 697 L Y+6.667 R0 FQ6 698 L Y+4.236 699 CC X+1.215 Y+4.236 700 C X+1.844 Y+6.584 DR- 701 FN 1: Q33 =+Q108 + +6 702 FN 9: IF +9 EQU +9 GOTO LBL 9 703 LBL 115 ; SS 704 L X-1.994 Y+0.753 R0 FMAX 705 L Z+Q9 R0 FQ7 706 CC X-0.177 Y+2.569 707 C X+1.526 Y+0.646 DR+ R0 FQ6 708 CC X+0.605 Y+1.686 709 C X+0.965 Y+3.027 DR+ 710 L X-1.32 Y+3.639 711 CC X-0.96 Y+4.981 712 C X-1.881 Y+6.021 DR- 713 CC X-0.177 Y+4.097 714 C X+1.64 Y+5.914 DR- 715 FN 1: Q33 =+Q108 + +6 716 FN 9: IF +9 EQU +9 GOTO LBL 9 717 LBL 116 ; TT 718 L X-1.458 Y+6.667 R0 FMAX 719 L Z+Q9 R0 FQ7 720 L X+1.042 R0 FQ6 721 L Z+Q8 R0 FMAX 722 L X-0.208 Y+10 R0 FMAX 723 L Z+Q9 R0 FQ7 724 L Y+1.667 R0 FQ6 725 CC X+1.458 Y+1.667 726 C X+1.458 Y+0 DR+ 727 FN 1: Q33 =+Q108 + +7 728 FN 9: IF +9 EQU +9 GOTO LBL 9 729 LBL 117 ; UU 730 L X-2.569 Y+6.667 R0 FMAX 731 L Z+Q9 R0 FQ7 732 L Y+2.569 R0 FQ6 733 CC X+0 Y+2.569 734 CP PA+0 DR+ 735 L Y+0 736 L Y+6.667 737 FN 1: Q33 =+Q108 + +7 738 FN 9: IF +9 EQU +9 GOTO LBL 9 739 LBL 118 ; VV 740 L X-2.166 Y+6.667 R0 FMAX 741 L Z+Q9 R0 FQ7 742 L X+0 Y+0 R0 FQ6 743 L X+2.166 Y+6.667 744 FN 1: Q33 =+Q108 + +7 745 FN 9: IF +9 EQU +9 GOTO LBL 9 746 LBL 119 ; WW 747 L X-3.823 Y+6.667 R0 FMAX 748 L Z+Q9 R0 FQ7 749 L X-1.912 Y+0 R0 FQ6 750 L X+0 Y+6.667 751 L X+1.912 Y+0 752 L X+3.823 Y+6.667 753 FN 1: Q33 =+Q108 + +8 754 FN 9: IF +9 EQU +9 GOTO LBL 9 755 LBL 120 ; XX 756 L X-1.944 Y+0 R0 FMAX 757 L Z+Q9 R0 FQ7 758 L X+1.944 Y+6.667 R0 FQ6 759 L Z+Q8 R0 FMAX 760 L X-1.944 Y+6.667 R0 FMAX 761 L Z+Q9 R0 FQ7 762 L X+1.944 Y+0 R0 FQ6 763 FN 1: Q33 =+Q108 + +7 764 FN 9: IF +9 EQU +9 GOTO LBL 9 765 LBL 121 ; YY 766 L X-1.724 Y-3.233 R0 FMAX 767 L Z+Q9 R0 FQ7 768 CC X-2.294 Y-1.667 769 C X-0.709 Y-2.182 DR+ R0 FQ6 770 L X+2.166 Y+6.667 771 L Z+Q8 R0 FMAX 772 L X-2.166 Y+6.667 R0 FMAX 773 L Z+Q9 R0 FQ7 774 L X+0 Y+0 R0 FQ6 775 FN 1: Q33 =+Q108 + +7 776 FN 9: IF +9 EQU +9 GOTO LBL 9 777 LBL 122 ; ZZ 778 L X-2.222 Y+6.667 R0 FMAX 779 L Z+Q9 R0 FQ7 780 L X+2.222 R0 FQ6 781 L X-2.222 Y+0 782 L X+2.222 783 FN 1: Q33 =+Q108 + +7 784 FN 9: IF +9 EQU +9 GOTO LBL 9 785 LBL 130 ; ESZET 786 L X-2.688 Y+0 R0 FMAX 787 L Z+Q9 R0 FQ7 788 L Y+8.333 R0 FQ6 789 CC X-1.021 Y+8.333 790 CP PA+90 DR- 791 L X+0 Y+10 792 CC X+0 Y+8.333 793 CP PA+270 DR- 794 CC X+0 Y+4.167 795 C X+2.259 Y+5.238 DR- 796 CC X-1.757 Y+3.333 797 C X+2.259 Y+1.429 DR- 798 CC X+0 Y+2.5 799 C X+0 Y+0 DR- 800 FN 1: Q33 =+Q108 + +7 801 FN 9: IF +9 EQU +9 GOTO LBL 9 802 LBL 9 803 FN 10: IF +Q16 NE +0 GOTO LBL 7 804 FN 3: Q35 =+Q33 * +Q20 805 FN 1: Q21 =+Q21 + +Q35 806 FN 1: Q21 =+Q21 + +Q24 807 LBL 7 808 FN 9: IF +Q16 EQU +0 GOTO LBL 8 809 FN 4: Q34 =+Q33 DIV +Q16 810 FN 3: Q34 =+Q34 * +57.296 811 FN 3: Q34 =+Q34 * +Q20 812 FN 11: IF +Q17 GT +0 GOTO LBL 2 813 FN 1: Q17 =+Q17 + +Q34 814 FN 12: IF +Q17 LT +0 GOTO LBL 3 815 LBL 2 816 FN 2: Q17 =+Q17 - +Q34 817 LBL 3 818 FN 1: Q17 =+Q17 + +Q14 819 LBL 8 820 CYCL DEF 11.0 FACTEUR ECHELLE 821 CYCL DEF 11.1 SCL 1 822 CYCL DEF 10.0 ROTATION 823 CYCL DEF 10.1 ROT+0 824 CYCL DEF 7.0 POINT ZERO 825 CYCL DEF 7.1 X+0 826 CYCL DEF 7.2 Y+0 827 L Z+Q8 R0 F9998 828 LBL 199 829 LBL 0 830 END PGM 9010_FR MM