View difference between Paste ID: EWktwBEg and Jb3e4t6S

-'Ante2
+'Coprifessura
 
-Function T_PAT(ByVal XC As Double, ByVal YC As Double)
+Sub S_1014688A(ByVal NND As Integer)
 ACT_MOD = "1014688"
-If XC = 0 Then
+
-XC = (12.15 + 0.1)
+
-ACC = "C180."
+
-Else
+
-XC = XC - (12.15 + 0.1)
+
-ACC = "C0."
+
-End If
+
 
-T_PAT = T_SPECIAL(XC, YC, "PATTINO-FNL", ACC)
+'************************************* SCRITTURA LISTATO
 
-End Function
+XSC = 12 - 2 * SPS
 YSCINF = 12 + 1.75 - 2 * SPS 'MOD
 YSCSUP = YSCINF + 19 'MOD
 DSTA = (L - M2) / 2
-Sub S_1017132A(ByVal NND As Integer)
+QQ = 15
-ACT_MOD = "1017132"
+
-CLAMP = 1
+'R01A = T_RECT1(QQ - XSC, XSC, QQ - YSCINF, YSCINF) & T_RECT1(QQ - XSC, XSC, YSCSUP, H + 3)
 'R01B = T_RECT1(L - XSC, L + (QQ - XSC), YSCSUP, H + 3) & T_RECT1(L - XSC, L + (QQ - XSC), QQ - YSCINF, YSCINF)
 
 R01A = T_RECT1(XSC - QQ, XSC, YSCINF - QQ, YSCINF) & T_RECT1(XSC - QQ, XSC, YSCSUP, H + 3)
 R01B = T_RECT1(L - XSC, L + (QQ - XSC), YSCSUP, H + 3) & T_RECT1(L - XSC, L + (QQ - XSC), YSCINF - QQ, YSCINF)
 R01 = R01A & R01B
 
 R02A = T_CIRC(XSC, YSCINF, 3.3) & T_CIRC(XSC, YSCSUP, 3.3)
-M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
+R02B = T_CIRC(L - XSC, YSCINF, 3.3) & T_CIRC(L - XSC, YSCSUP, 3.3)
-M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
+R02 = R02A & R02B
-M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
+
-M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
+R03 = T_SLOT(DSTA, H - 8, 14, 5, 90) & T_SLOT(L - DSTA, H - 8, 14, 5, 90)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+'''R04A = T_RECT1(XSC + 40, L - XSC - 40, H - 10, H + 5) 'faccio passata con 15x15
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+'''R04 = R04A '& R04B & R04C
 
 R05A = T_RAD(XSC, 0, 3) & T_RAD(0, YSCINF, 3) & T_RAD(L - XSC, 0, 4) & T_RAD(L, YSCINF, 4)
 R05B = T_RAD(0, YSCSUP, 2) & T_RAD(L, YSCSUP, 1)
 R05C = T_RAD(XSC, H, 2) & T_RAD(L - XSC, H, 1) & T_RAD(XSC + 40, H, 1) & T_RAD(L - XSC - 40, H, 2)
-SCS = 6
+R05 = R05A & R05B & R05C
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+
 
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
 P1 = L / 2 - 85
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+P2 = L / 2 + 85
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
+STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
-R01 = R01 & T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
+
-R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
+
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M6 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(121 - 30, L - (14 + BT + M5 - 4 * SPS), 7.2)      'SERVE IL TONDO Ø7
+
-R01 = R01 & T_CIRC(121, L - (14 + BT + M5 - 4 * SPS), 20)            'SERVE IL TONDO Ø20.2
+    STR_OUT(0) = TablePosition(L, H, 0, 0, POSINTAB)
-R01 = R01 & T_CIRC(121 + 55, L - (14 + BT + M5 - 4 * SPS), 20)       'SERVE IL TONDO Ø19.5
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = "TOOL(QUADRO,C696,A0,15)"
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+    STR_OUT(3) = "TOOLANGLE(0)"
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+    STR_OUT(4) = "MIDCUT(N)"
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M3 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(XSC + 40) & "," & Jcdf(H - 10 + 15) & "," & Jcdf(L - XSC - 40) & "," & Jcdf(H - 10 + 15) & ",0,0,0,M0))"
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+    STR_OUT(6) = TL_CUT_O
     STR_OUT(7) = "TOOLANGLE(0)"
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+    STR_OUT(8) = "MIDCUT(N)"
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+    STR_OUT(9) = UnloadOutline(110, 6, 0, -6, L, H)
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(L) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, L, H, 0, 0)
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+    STR_OUT(11) = "'FINE BLOCCO"
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 
-YY1 = 14 + BT + 32 - 4 * SPS
+
     STR_OUT(0) = TablePosition(L, H, 0, 0, POSINTAB)
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
     STR_OUT(2) = "TOOL(QUADRO,C696,A0,15)"
     STR_OUT(3) = "TOOLANGLE(0)"
-Select Case VV
+    STR_OUT(4) = "MIDCUT(N)"
-Case 1, 2
+    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(XSC + 40) & "," & Jcdf(H - 10 + 15) & "," & Jcdf(L - XSC - 40) & "," & Jcdf(H - 10 + 15) & ",0,0,0,M0))"
-SPEK = 0
+    STR_OUT(6) = TL_CUT_V2
-Case 3, 4
+    STR_OUT(7) = "TOOLANGLE(90)"
-SPEK = 1
+    STR_OUT(8) = "MIDCUT(N)"
-Case Else
+    STR_OUT(9) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(H) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
-MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
+    STR_OUT(10) = TL_CUT_O
-End Select
+    STR_OUT(11) = "TOOLANGLE(0)"
     STR_OUT(12) = "MIDCUT(N)"
-fn = R01 & R02 & R04
+    STR_OUT(13) = UnloadOutline(110, 6, 0, -6, L, H)
     STR_OUT(14) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(L) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, L, H, 0, 0)
-P2 = H - 400
+    STR_OUT(15) = "'FINE BLOCCO"
 
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+
-STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
+Call FVTPT(3, NND, "C")
 
 End Sub
 
 Sub S_1007069A(ByVal NND As Integer)
-Call CUT_END_S(H, L, "0", POSINTAB)
+ACT_MOD = "1007069"
 CLAMP = 0
-Call CUT_END_S(H, L, "B", POSINTAB)
+
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-Sub S_1017011A(ByVal NND As Integer)
+
-ACT_MOD = "1017011"
+
-CLAMP = 1
+
 
 
 SCA = (H - 18) / 2    'SCARICO RETTANGOLARE
 
 R01 = T_RECT1(L - 11.6, L + 3.4, -6, SCA)
 R01 = R01 & T_RECT1(L - 11.6, L + 3.4, H - SCA, H + 6)
 
-M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
+R01 = R01 & T_CIRC(L - 11.6, SCA, 3.3)
-M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
+R01 = R01 & T_CIRC(L - 11.6, H - SCA, 3.3)
-M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
+R01 = R01 & T_CIRC(55.5, H - 5, 4.2)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+R01 = R01 & T_CIRC(55.5 + 10, H - 5, 4.2)
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+R01 = R01 & T_CIRC(55.5, 5, 4.2)
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+R01 = R01 & T_CIRC(55.5 + 10, 5, 4.2)
-If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
+R01 = R01 & T_CIRC(55.5 + M2, H - 5, 4.2)
 R01 = R01 & T_CIRC(55.5 + M2 + 10, H - 5, 4.2)
 R01 = R01 & T_CIRC(55.5 + M2, 5, 4.2)
 R01 = R01 & T_CIRC(55.5 + M2 + 10, 5, 4.2)
 
-SCS = 6
+R01 = R01 & T_RAD(4.5, H + 1.5, 4)    'RAGGIATORE PER SCASSO
-If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
+R01 = R01 & T_RAD(5, H + 1.5, 4)      'RAGGIATORE PER SCASSO
 R01 = R01 & T_RAD(5.5, H + 1.5, 4)    'RAGGIATORE PER SCASSO
-R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
+R01 = R01 & T_RAD(6, H + 1.5, 4)      'RAGGIATORE PER SCASSO
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
 R01 = R01 & T_RAD(4.5 + 10, H + 1.5, 4)  'RAGGIATORE PER SCASSO
-R01 = R01 & T_CIRC(46, L - 5, 4.2)
+R01 = R01 & T_RAD(5 + 10, H + 1.5, 4)    'RAGGIATORE PER SCASSO
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
+R01 = R01 & T_RAD(5.5 + 10, H + 1.5, 4)  'RAGGIATORE PER SCASSO
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + 45 - 4 * SPS), 10)
+R01 = R01 & T_RAD(6 + 10, H + 1.5, 4)    'RAGGIATORE PER SCASSO
-R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
+
-R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
+R01 = R01 & T_RECT1(-0.8, 6, H - 1, H + 5.8) 'ATTENZIONE
-R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M5 - 4 * SPS), 10)
+R01 = R01 & T_RECT1(11, 11 + 6.8, H - 1, H + 5.8)
-R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(121 - 30, L - (14 + BT + M2 - 4 * SPS), 7.2)  'SERVE IL TONDO Ø7
+R01 = R01 & T_RAD(4.5, -1.5, 1)      'RAGGIATORE PER SCASSO
-R01 = R01 & T_CIRC(121, L - (14 + BT + M2 - 4 * SPS), 20)        'SERVE IL TONDO Ø20.2
+R01 = R01 & T_RAD(5, -1.5, 1)         'RAGGIATORE PER SCASSO
-R01 = R01 & T_CIRC(121 + 55, L - (14 + BT + M2 - 4 * SPS), 20)   'SERVE IL TONDO Ø19.5
+R01 = R01 & T_RAD(5.5, -1.5, 1)       'RAGGIATORE PER SCASSO
 R01 = R01 & T_RAD(6, -1.5, 1)         'RAGGIATORE PER SCASSO
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
+R01 = R01 & T_RAD(4.5 + 10, -1.5, 1)  'RAGGIATORE PER SCASSO
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M3 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
+R01 = R01 & T_RAD(5 + 10, -1.5, 1)    'RAGGIATORE PER SCASSO
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
+R01 = R01 & T_RAD(5.5 + 10, -1.5, 1) 'RAGGIATORE PER SCASSO
 R01 = R01 & T_RAD(6 + 10, -1.5, 1)    'RAGGIATORE PER SCASSO
-R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
+R01 = R01 & T_RECT1(-0.8, 6, -5.8, 1)
-R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
+R01 = R01 & T_RECT1(11, 11 + 6.8, -5.8, 1)
-R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+fn = R01
-R01 = R01 & T_BLQ(H - 10, L - (14 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 P1 = 250
 P2 = L - 400
-YY1 = 14 + BT + 32 - 4 * SPS
+
 STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
-'R03 = T_SPECIAL(H - 14.65 + 2.5, L - YY1, "PATTINO-FNL", 0) & T_SPECIAL(H - 14.65 + 2.5, L - YY1 - M3, "PATTINO-FNL", 0)
+
-R03 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
 
 POSINTAB = def_posintab(NND)
-fn = R01 & R02 & R03
+Call CUT_END_S(L, H, "0", POSINTAB)
 Call FVTPT(3, NND, "")
-P2 = H - 400
+Call CUT_END_S(L, H, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
-STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
+Call CUT_END_S(L, H, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 
 End Sub
-Call CUT_END_S(H, L, "0", POSINTAB)
+
 
-Call CUT_END_S(H, L, "B", POSINTAB)
+
 Sub S_1026845A(ByVal NND As Integer)
 ACT_MOD = "1026845"
 CLAMP = 0
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
-Sub S_1015591A(ByVal NND As Integer)
+
-ACT_MOD = "1015591"
+
-CLAMP = 1
+
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 
 '************************************* SCRITTURA LISTATO
 
 R01 = T_RECT1(-4.6, 10.4, -2.8, 12.2) & T_RECT1(-4.6, 10.4, H - 15.2, H + 6)
 R02 = T_RECT1(L + 4.6, L - 10.4, -2.8, 12.2) & T_RECT1(L + 4.6, L - 10.4, H - 15.2, H + 6)
-M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
+R03 = T_SLOT(30.4, H - 2.75, 10.5, 5, 90) & T_SLOT(30.4 + M2, H - 2.75, 10.5, 5, 90)
-M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
+R04 = T_CIRC(11.2, 11.2, 3.3) & T_CIRC(11.2, H - 14.2, 3.3) & T_CIRC(L - 11.2, 11.2, 3.3) & T_CIRC(L - 11.2, H - 14.2, 3.3)
-BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
+
-LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
+
-VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
+
-VV = Replace(VV, "H", "")
+P1 = L / 2 - 85
 P2 = L / 2 + 85
-SCS = 6
+
 STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
 
-Select Case VV
+
-Case 1
+
 POSINTAB = def_posintab(NND)
-R01 = T_RECT1(-46, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+    STR_OUT(0) = TablePosition(L, H, 0, 0, POSINTAB)
     STR_OUT(1) = TL_CUT_O
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+    STR_OUT(2) = "TOOLANGLE(0)"
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
+    STR_OUT(3) = "MIDCUT(N)"
-R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
+    STR_OUT(4) = UnloadOutline(110, 6, 0, -6, L, H)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
+    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(L) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, L, H, 0, 0)
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
+
 Call FVTPT(3, NND, "")
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS) - 55, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 55)
+
     STR_OUT(0) = TablePosition(L, H, 0, 0, POSINTAB)
-R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+    STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+    STR_OUT(2) = TL_CUT_V2
     STR_OUT(3) = "TOOLANGLE(90)"
     STR_OUT(4) = "MIDCUT(N)"
-R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
+    STR_OUT(5) = "PUN(LIN" & CNLV_GEO & "(P," & "0" & "," & Jcdf(H) & "," & "0" & "," & Jcdf(0) & ",-6,-6,0,M0))"
-R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
+    STR_OUT(6) = TL_CUT_O
-R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
+    STR_OUT(7) = "TOOLANGLE(0)"
-R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+    STR_OUT(8) = "MIDCUT(N)"
-R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+    STR_OUT(9) = UnloadOutline(110, 6, 0, -6, L, H)
-R01 = R01 & T_BLQ(H - 10, L - (M1 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (M1 + BT + LA - 4 - 4 * SPS), 1, 1)
+    STR_OUT(10) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(L) & "," & -LUTH & "," & Jcdf(0) & "," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, L, H, 0, 0)
     STR_OUT(11) = "'FINE BLOCCO"
 
-YY1 = M1 + BT + 32 - 4 * SPS
+Call FVTPT(3, NND, "C")
 
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
-SPEK = 0
+
 
-Case 2
+Sub S_10288740(ByVal NND As Integer)
 ACT_MOD = "1028874"
-R01 = T_RECT1(-6.6, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+
 
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
+
-R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
+
 VV = Replace(VV, "P", "")
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS) - 55, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 55)
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+SCA = 10.4
 COR = 1.35
 
-R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
+R01 = T_RAD(SCA + 4.5 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
-R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
+R01 = R01 & T_RAD(SCA + 5 + COR, H + 1.3, 4)  'RAGGIATORE PER SCASSO
-R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
+R01 = R01 & T_RAD(SCA + 5.5 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
-R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+R01 = R01 & T_RAD(SCA + 6 + COR, H + 1.3, 4)  'RAGGIATORE PER SCASSO
-R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+R01 = R01 & T_RAD(SCA + 4.5 + 11 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
-R01 = R01 & T_BLQ(H - 10, L - (M1 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (M1 + BT + LA - 4 - 4 * SPS), 1, 1)
+R01 = R01 & T_RAD(SCA + 5 + 11 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
 R01 = R01 & T_RAD(SCA + 5.5 + 11 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
 R01 = R01 & T_RAD(SCA + 6 + 11 + COR, H + 1.3, 4) 'RAGGIATORE PER SCASSO
-YY1 = M1 + BT + 32 - 4 * SPS
+
 R01 = R01 & T_RECT1(6 - 3.5 + SCA, 6 - 3.5 + SCA + 6.8, H - 1, H + 5.8) 'ATTENZIONE
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+R01 = R01 & T_RECT1(17 - 3.5 + SCA, 17 - 3.5 + 6.8 + SCA, H - 1, H + 5.8)
-SPEK = 0
+
 R01 = R01 & T_RAD(L - 4.5 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
-Case 3
+R01 = R01 & T_RAD(L - 5 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
 R01 = R01 & T_RAD(L - 5.5 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
-R01 = T_RECT1(-46, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+R01 = R01 & T_RAD(L - 6 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+R01 = R01 & T_RAD(L - 4.5 - 11 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
 R01 = R01 & T_RAD(L - 5 - 11 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+R01 = R01 & T_RAD(L - 5.5 - 11 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
+R01 = R01 & T_RAD(L - 6 - 11 - SCA - COR, H + 1.3, 3) 'RAGGIATORE PER SCASSO
-R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
+R01 = R01 & T_RECT1(L - (6 - 3.5 + SCA), L - (6 - 3.5 + SCA + 6.8), H - 1, H + 5.8) 'ATTENZIONE
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
+R01 = R01 & T_RECT1(L - (17 - 3.5 + SCA), L - (17 - 3.5 + 6.8 + SCA), H - 1, H + 5.8)
 
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS) - 55, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS))
+R02 = T_CIRC(10.4 + 27, H - 12.5, 5) & T_CIRC(10.4 + 27 + 11, H - 12.5, 5) & T_CIRC(L - 10.4 - 27, H - 12.5, 5) & T_CIRC(L - 10.4 - 27 - 11, H - 12.5, 5)
-R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 55)
+R03 = T_SLOT(10.4 + 27, 2.75, 10.5, 5, 90) & T_SLOT(10.4 + 27 + 11, 2.75, 10.5, 5, 90) & T_SLOT(L - 10.4 - 27, 2.75, 10.5, 5, 90) & T_SLOT(L - 10.4 - 27 - 11, 2.75, 10.5, 5, 90)
 
-R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+R04 = T_RECT1(-4.6, 10.4, -0.1, 14.9) & T_RECT1(L + 4.6, L - 10.4, -0.1, 14.9)
-R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+R05 = T_RECT1(-4.6, 10.4, H - 21.9, H + 6) & T_RECT1(L + 4.6, L - 10.4, H - 21.9, H + 6)
 R06 = T_CIRC(11.3, 14, 3.3) & T_CIRC(L - 11.3, 14, 3.3) & T_CIRC(11.3, H - 21, 3.3) & T_CIRC(L - 11.3, H - 21, 3.3)
 
-R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
+
-R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
+fn = R01 & R02 & R03 & R04 & R05 & R06
-R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
+
-R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M3 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M3 - 18 - 4 * SPS), 1, 1)
+P2 = L - 400
-R01 = R01 & T_BLQ(H - 10, L - (M1 + BT + LA - 4 - 5 - 4 * SPS), H - 15, L - (M1 + BT + LA - 4 - 4 * SPS), 1, 1)
+
 STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
 
-YY1 = M1 + BT + 32 - 4 * SPS
+
 
-R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
+
-SPEK = 1
+Call CUT_END_S(L, H, "0", POSINTAB)
 Call FVTPT(3, NND, "")
-Case 4
+Call CUT_END_S(L, H, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
-R01 = T_RECT1(-6.6, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
+Call CUT_END_S(L, H, "C", POSINTAB)
-R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
+Call FVTPT(3, NND, "C")
 
-R01 = R01 & T_CIRC(46, L - 5, 4.5)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
+
-R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
+
-R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
+