0 BEGIN PGM Q-KONTURA(ORIGO) MM 1 BLK FORM 0.1 Z X-50 Y-50 Z-50 2 BLK FORM 0.2 X+100 Y+100 Z+0 3 ; 4 TOOL CALL 13 Z S2000 F2000 5 ; 6 FN 0: Q30 =+0 ;SOURADNICE POVRCHU 7 FN 0: Q31 =-40 ;HROUBKA FREZOVANI 8 FN 0: Q32 =+20 ;PRIDAVEK PRO STRANU 9 FN 0: Q33 =+2 ;BOCNI UBER 10 ; 11 LBL 10 12 FN 2: Q32 =+Q32 - +Q33 13 CYCL DEF 14.0 OBRYS 14 CYCL DEF 14.1 LBL obrysu1 15 CYCL DEF 25 LINIE OBRYSU ~ Q1=+Q31 ;HLOUBKA FREZOVANI ~ Q3=+Q32 ;PRIDAVEK PRO STRANU ~ Q5=+Q30 ;SOURADNICE POVRCHU ~ Q7=+50 ;BEZPECNA VYSKA ~ Q10=+Q31 ;HLOUBKA PRISUVU ~ Q11=+2000 ;POSUV NA HLOUBKU ~ Q12= AUTO ;POSUV PRO FREZOVANI ~ Q15=+1 ;ZPUSOB FREZOVANI 16 M3 M99 17 FN 11: IF +Q32 GT +0 GOTO LBL 10 18 M30 19 LBL 1 20 APPR CT X+10 Y+10 CCA90 R+15 RL 21 L Y+90 22 L X+90 23 L Y+10 24 L X+10 25 DEP CT CCA90 R+15 26 LBL 0 27 END PGM Q-KONTURA(ORIGO) MM