View difference between Paste ID: FLQYVGTD and 9VBs2FZS

-'Riv Ante
+'Slim
 
-Sub S_10275400(ByVal NND As Integer)
+Sub S_10269750(ByVal NND As Integer)
-ACT_MOD = "1027540"
+ACT_MOD = "1026975"
-CLAMP = 1
+CLAMP = 0
 
 
 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
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
 
 
-SCS = 6
+fn = ""
-R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS)
+
-R02 = T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)
+
-If ver = 1 Then R03 = T_CIRC(100, L - (91.5 + 16.5 + 13.5), 22) Else R03 = ""
+
 P2 = H - 400
 MVAL = 500
-Select Case ver
+
-Case 1, 2 '********************************************* FORO EMERGENZA *********************
+
-R04 = T_RECT1(H - 1398, H - 1398 - 304, L - 13.5 - 16.5 - 21.5, L - 13.5 - 16.5 - 21.5 - 104)
+
 
-R04 = T_RECT1(1398, 1398 + 304, L - 13.5 - 16.5 - 21.5, L - 13.5 - 16.5 - 21.5 - 104)
+
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 
 End Sub
 
 Sub S_1026712A(ByVal NND As Integer)
-STRINGA = MIRROR(STRINGA, H, L, 1, 1)
+ACT_MOD = "1026712"
 CLAMP = 0
 
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
-Call CUT_END_S_RV(H, L, "0", POSINTAB)
+
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
-Call CUT_END_S_RV(H, L, "B", POSINTAB)
+VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
 
 
 fn = ""
 
-Sub S_10257410(ByVal NND As Integer)
+
-ACT_MOD = "1025741"
+
-CLAMP = 1
+
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
-SCS = 6
+Call CUT_END_S(H, L, "C", POSINTAB)
-R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS)
+Call FVTPT(3, NND, "C")
-R02 = T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)
+
 
-'If ver = 1 Or ver = 3 Then R03 = T_CIRC(100, L - (90.5 + 16.5 + 13.5), 22) Else R03 = ""
+
 
-Select Case ver
+Sub S_10284540(ByVal NND As Integer)
-Case 1, 2 '********************************************* FORO EMERGENZA *********************
+ACT_MOD = "1028454"
-R04 = T_RECT1(H - 1398, H - 1398 - 304, L - 13.5 - 16.5 - M2 + 104 / 2, L - 13.5 - 16.5 - M2 - 104 / 2)
+CLAMP = 0
-If ver = 1 Then R03 = T_CIRC(100, L - (90.5 + 16.5 + 13.5), 22) Else R03 = ""
+
 
-R04 = T_RECT1(1398, 1398 + 304, L - 13.5 - 16.5 - M2 + 104 / 2, L - 13.5 - 16.5 - M2 - 104 / 2)
+
-If ver = 3 Then R03 = T_CIRC(H - 100, L - (90.5 + 16.5 + 13.5), 22) Else R03 = ""
+
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
 
 Select Case VV
 Case 1, 2
 R01 = T_RECT1(-6, 22, 35.5, L + 6) & T_RECT1(H - 31, H + 6, -6, 59)
 Case 3, 4
 R01 = T_RECT1(H + 6, H - 22, 35.5, L + 6) & T_RECT1(31, -6, -6, 59)
 Case Else
 MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
-STRINGA = MIRROR(STRINGA, H, L, 1, 1)
+
 
 fn = R01
 
 
-Call CUT_END_S_RV(H, L, "0", POSINTAB)
+
 P2 = H - 400
-Call CUT_END_S_RV(H, L, "B", POSINTAB)
+
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
-Sub S_10155340(ByVal NND As Integer)
+Call CUT_END_S(H, L, "0", POSINTAB)
-ACT_MOD = "1015534"
+
-CLAMP = 1
+Call CUT_END_S(H, L, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 
 End Sub
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+
 
 Sub S_10285220(ByVal NND As Integer)
 ACT_MOD = "1028522"
-SCS = 6
+CLAMP = 0
-R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS)
+
-R02 = T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)
+
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
-Select Case ver
+
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
-Case 1, 3  '********************************************* FORO EMERGENZA *********************
+
-R03 = T_CIRC(100, L - (90.5 + 16.5 + 13.5), 22)
+VV = INPUT_NUM(NND, "VER", ver, ACT_MOD)
-Case 2
+
-R03 = T_CIRC(H - 100, L - (90.5 + 16.5 + 13.5), 22)
+
 Select Case VV 'MODIFICATA 26/10/2020
-R03 = ""
+Case 1, 2
-MsgBox "ATTENZIONE ERRORE VERSIONE SU " & ACT_MOD, vbCritical
+R01 = T_RECT1(-0.6, 22, 33.7, L + 6) & T_RECT1(H - 31, H + 1.6, -6, M2)
 Case 3, 4
 R01 = T_RECT1(H + 0.6, H - 22, 33.7, L + 6) & T_RECT1(31, -1.6, -6, M2)
 Case Else
 MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
 End Select
 
 fn = R01
 
-STRINGA = MIRROR(STRINGA, H, L, 1, 1)
+
 P1 = 250
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
-Call CUT_END_S_RV(H, L, "0", POSINTAB)
+
 Call SAVE_SUB(NND, STRINGA)
-Call CUT_END_S_RV(H, L, "B", POSINTAB)
+
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(H, L, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(H, L, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
 Call CUT_END_S(H, L, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
-Sub S_10155310(ByVal NND As Integer)
+
-ACT_MOD = "1015531"
+
-CLAMP = 1
+
 
 
 Sub S_1026633A(ByVal NND As Integer)
 ACT_MOD = "1026633"
 CLAMP = 0
 
 
 L = INPUT_NUM(NND, "L", L, ACT_MOD)
-SCS = 6
+
-R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS) & T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)
+
 VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
 
 
 XX_CR = (L - 75 - 75) / 3
 R01 = T_SLOT(75, 7, 10, 5, 90) & T_SLOT(75 + XX_CR, 7, 10, 5, 90) & T_SLOT(75 + 2 * XX_CR, 7, 10, 5, 90) & T_SLOT(75 + 3 * XX_CR, 7, 10, 5, 90) & T_SLOT(L - 75, 7, 10, 5, 90)
 
-STRINGA = MIRROR(STRINGA, H, L, 1, 1)
+
 fn = R01
 
 
 P1 = 250
-Call CUT_END_S_RV(H, L, "0", POSINTAB)
+
 MVAL = 500
-Call CUT_END_S_RV(H, L, "B", POSINTAB)
+STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(L, H, "0", POSINTAB)
 Call FVTPT(3, NND, "")
-Sub S_10153570(ByVal NND As Integer)
+Call CUT_END_S(L, H, "B", POSINTAB)
-ACT_MOD = "1015357"
+
-CLAMP = 1
+Call CUT_END_S(L, H, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 
 End Sub
 
 Sub S_10328000(ByVal NND As Integer)
 ACT_MOD = "1032800"
 CLAMP = 0
-SCS = 6
+
-R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS) & T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)
+
 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
 VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
 
 R01 = T_RECT1(-6, 31.5, 14.5, H - 30.5) & T_RECT1(L - 31.5, L + 6, 14.5, H - 30.5)
-STRINGA = MIRROR(STRINGA, H, L, 1, 1)
+R02 = T_RECT1(-3.5, 16.5, -1, 14.5 + 4.5) & T_RECT1(L - 16.5, L + 3.5, -1, 14.5 + 4.5)
 
 fn = R01 & R02
 
-Call CUT_END_S_RV(H, L, "0", POSINTAB)
+
 P1 = 250
-Call CUT_END_S_RV(H, L, "B", POSINTAB)
+
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(L, H, "0", POSINTAB)
-Sub S_10130980(ByVal NND As Integer)
+
-ACT_MOD = "1013098"
+Call CUT_END_S(L, H, "B", POSINTAB)
-CLAMP = 1
+
 Call CUT_END_S(L, H, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 
 End Sub
 
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+
 Sub S_10287960(ByVal NND As Integer)
 ACT_MOD = "1028796"
 CLAMP = 0
-SCS = 6
+
-R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS)
+
-R01 = R01 & T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)
+
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
-Select Case ver
+
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
-Case 1, 3  '********************************************* FORO EMERGENZA *********************
+VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
-R02 = T_CIRC(100, L - (90.5 + 16.5 + 13.5), 22)
+
-R02 = R02 & T_CIRC(100 - 30, L - (90.5 + 16.5 + 13.5), 5.5)
+
-R02 = R02 & T_CIRC(100 + 55, L - (90.5 + 16.5 + 13.5), 20)
+
 R01 = T_RECT1(-6, 31.5, 14.5, H - 30.5) & T_RECT1(L - 31.5, L + 6, 14.5, H - 30.5)
-Case 2
+R02 = T_RECT1(-3.5, 16.5, -1, 14.5 + 4.5) & T_RECT1(L - 16.5, L + 3.5, -1, 14.5 + 4.5)
-R02 = T_CIRC(H - 100, L - (90.5 + 16.5 + 13.5), 22)
+R03 = T_SLOT(38.5, 2.5, 14.5, 9, 90) & T_SLOT(38.5 + M1, 2.5, 14.5, 9, 90) & T_SLOT(L - 38.5, 2.5, 14.5, 9, 90) & T_SLOT(L - 38.5 - M1, 2.5, 14.5, 9, 90)
-R02 = R02 & T_CIRC(H - 100 + 30, L - (90.5 + 16.5 + 13.5), 5.5)
+
-R02 = R02 & T_CIRC(H - 100 - 55, L - (90.5 + 16.5 + 13.5), 20)
+
 fn = R01 & R02 & R03
 
 
-MsgBox "ATTENZIONE ERRORE VERSIONE SU " & ACT_MOD, vbCritical
+
 P2 = H - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(L, H, "0", POSINTAB)
-STRINGA = MIRROR(STRINGA, H, L, 1, 1)
+
 Call CUT_END_S(L, H, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
 Call CUT_END_S(L, H, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
-Call CUT_END_S_RV(H, L, "0", POSINTAB)
+
 
-Call CUT_END_S_RV(H, L, "B", POSINTAB)
+
 
 
 Sub S_10269010(ByVal NND As Integer)
 ACT_MOD = "1026901"
 CLAMP = 0
 
 
-Sub S_10068260(ByVal NND As Integer)
+
-ACT_MOD = "1006826"
+
-CLAMP = 1
+
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
 
 
-M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
+R01 = T_RECT1(-6, 31.5, 14.5, H - 30.5) & T_RECT1(L - 31.5, L + 6, 14.5, H - 30.5)
-ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
+R02 = T_RECT1(-3.5, 16.5, -1, 14.5 + 4.5) & T_RECT1(L - 16.5, L + 3.5, -1, 14.5 + 4.5)
 
 R03 = T_SLOT(M2, 2.5, 14.5, 9, 90) & T_SLOT(M2 + M1, 2.5, 14.5, 9, 90) & T_SLOT(L - M2, 2.5, 14.5, 9, 90) & T_SLOT(L - M2 - M1, 2.5, 14.5, 9, 90)
 R04 = T_SLOT(L / 2 - M1 / 2, 2.5, 14.5, 9, 90) & T_SLOT(L / 2 + M1 / 2, 2.5, 14.5, 9, 90)
 
-SCS = 6
+
-R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS) & T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)
+
 
-Select Case M3
+
-Case 18
+
-'R02 = T_RECT1(-15, 5, -2, M3) & T_RECT1(H - 5, H + 15, -2, 18)
+P2 = L - 400
-R02 = T_RECT1(-6, 5, -22.5, M3) & T_RECT1(H - 5, H + 6, -22.5, 18) 'AGGIUNTA 23/11/2021 ZELI CAMBIATO PUNZONE 40,5*11 INVECE CHE QUADRI 20 e 10
+
-Case 2
+STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
 
-If ver = 5 Or ver = 7 Then
+
-'R02 = T_RECT1(-15, 5, -2, 18) & T_RECT1(H - 5, H + 5, -8, M3) 'AGGIUNTA 04/12/2018
+
-R02 = T_RECT1(-6, 5, -22.5, 18) & T_RECT1(H - 5, H + 6, -38.5, M3) 'AGGIUNTA 23/11/2021 ZELI CAMBIATO PUNZONE 40,5*11 INVECE CHE QUADRI 20 e 10
+
-Else
+Call CUT_END_S(L, H, "0", POSINTAB)
-'R02 = T_RECT1(-5, 5, -8, M3) & T_RECT1(H - 5, H + 15, -2, 18)
+
-R02 = T_RECT1(-6, 5, -38.5, M3) & T_RECT1(H - 5, H + 6, -22.5, 18) 'AGGIUNTA 23/11/2021 ZELI CAMBIATO PUNZONE 40,5*11 INVECE CHE QUADRI 20 e 10
+Call CUT_END_S(L, H, "B", POSINTAB)
-End If
+
 Call CUT_END_S(L, H, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
-MsgBox ("ERRORE M3 SU " & ACT_MOD)
+
 
 End Sub
 
-Select Case ver
+
-Case 1, 4 '********************************************* FORO EMERGENZA *********************
+Sub S_1026901A(ByVal NND As Integer)
-R03 = T_CIRC(100, L - (M2 + 16.5 + 13.5), 20)
+ACT_MOD = "1026901"
-Case 2, 5
+CLAMP = 0
-R03 = T_CIRC(H - 100, L - (M2 + 16.5 + 13.5), 20)
+
 
-R03 = ""
+
 H = INPUT_NUM(NND, "H", H, ACT_MOD)
 M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
 M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
 SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
 VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
 BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)
 
 AGY = 2
-STRINGA = MIRROR(STRINGA, H, L, 1, 1)
+
 R01 = T_RECT1(-6, 31.5, MR_Y(14.5, H, AGY), MR_Y(H - 30.5, H, AGY)) & T_RECT1(L - 31.5, L + 6, MR_Y(14.5, H, AGY), MR_Y(H - 30.5, H, AGY))
 R02 = T_RECT1(-3.5, 16.5, MR_Y(-1, H, AGY), MR_Y(14.5 + 4.5, H, AGY)) & T_RECT1(L - 16.5, L + 3.5, MR_Y(-1, H, AGY), MR_Y(14.5 + 4.5, H, AGY))
 
-Call CUT_END_S_RV(H, L, "0", POSINTAB)
+R03 = T_SLOT(M2, MR_Y(2.5, H, AGY), 14.5, 9, 90) & T_SLOT(M2 + M1, MR_Y(2.5, H, AGY), 14.5, 9, 90) & T_SLOT(L - M2, MR_Y(2.5, H, AGY), 14.5, 9, 90) & T_SLOT(L - M2 - M1, MR_Y(2.5, H, AGY), 14.5, 9, 90)
 R04 = T_SLOT(L / 2 - M1 / 2, MR_Y(2.5, H, AGY), 14.5, 9, 90) & T_SLOT(L / 2 + M1 / 2, MR_Y(2.5, H, AGY), 14.5, 9, 90)
-Call CUT_END_S_RV(H, L, "B", POSINTAB)
+
 
 fn = R01 & R02 & R03 & R04
 
 
 P1 = 250
 P2 = L - 400
 MVAL = 500
 STRINGA = R000(NHD, NND, SPS, L, H, P1, P2, MVAL) & fn
 
 Call SAVE_SUB(NND, STRINGA)
 
 POSINTAB = def_posintab(NND)
 Call CUT_END_S(L, H, "0", POSINTAB)
 Call FVTPT(3, NND, "")
 Call CUT_END_S(L, H, "B", POSINTAB)
 Call FVTPT(3, NND, "B")
 Call CUT_END_S(L, H, "C", POSINTAB)
 Call FVTPT(3, NND, "C")
 
 
 End Sub