API tools faq
paste
View difference between Paste ID: 9VBs2FZS and M2wCzu3B
SHOW: | | - or go back to the newest paste.
1-
'Piastroni
1+
'Riv Ante
2
3-
Sub S_1005784C(NND)

3+
Sub S_10275400(ByVal NND As Integer)

4
ACT_MOD = "1027540"

5-
ACT_MOD = INFO_DAT(NND, 0, 6)

5+
CLAMP = 1

6-
CLAMP = 0

6+
7-
NHD = 15

7+
8
H = INPUT_NUM(NND, "H", H, ACT_MOD)

9-
CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)

9+
10-
FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)

10+
11
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

12
BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)

13
14
15
SCS = 6

16-
VV = INPUT_STR(NND, "VER", VV, ACT_MOD)

16+
R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS)

17-
'***********************************************************

17+
R02 = T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)

18-
Dim POSINTAB As Byte

18+
If ver = 1 Then R03 = T_CIRC(100, L - (91.5 + 16.5 + 13.5), 22) Else R03 = ""

19-
M = H

19+
20-
XP = (CO + 120 - 170 - 170) / 2

20+
21-
XP2 = (CO + 120 - 210 - 210) / 2

21+
Select Case ver

22-
'*********************************LAVORAZIONI

22+
Case 1, 2 '********************************************* FORO EMERGENZA *********************

23
R04 = T_RECT1(H - 1398, H - 1398 - 304, L - 13.5 - 16.5 - 21.5, L - 13.5 - 16.5 - 21.5 - 104)

24-
Select Case VV

24+
Case 3, 4

25-
Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"

25+
R04 = T_RECT1(1398, 1398 + 304, L - 13.5 - 16.5 - 21.5, L - 13.5 - 16.5 - 21.5 - 104)

26-
AGG = 2

26+
27-
Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"

27+
MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)

28-
AGG = 1

28+
29
30-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

30+
31
fn = R01 & R02 & R03 & R04

32
33
P1 = 250

34-
R01 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)

34+
35-
R02 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + XP2 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)

35+
36
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

37-
R03 = T_CIRC(MR_X(87.5, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 * 2 + 2 * XP - 60, H, AGG), 3, 3.3)

37+
STRINGA = MIRROR(STRINGA, H, L, 1, 1)

38-
R04 = T_RECT2(MR_X(87.5 - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(87.5 - 60 + 170 * 2 + 2 * XP, H, AGG), 49 - 8, 10, 16)

38+
39-
R05 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1)

39+
40-
R06 = T_CIRC(MR_X(87.5 + FL, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 60 + 1, 10.1)

40+
41-
R07 = T_CIRC(MR_X(87.5, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL - CO - 4, H, AGG), 68, 10.1)

41+
42
Call CUT_END_S_RV(H, L, "0", POSINTAB)

43-
R08 = T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5 - 26, H, AGG), 13.5, 4.2) & T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5, H, AGG), 13.5, 4.2)

43+
44-
R09 = T_CIRC(MR_X(87.5 - 29.4, H, AGG), L - 30 - 23 - 1, 6) & T_CIRC(MR_X(87.5 - 29.4 + 63, H, AGG), L - 30 - 45 - 1, 6) & T_CIRC(MR_X(87.5 + CO - 67 - 35, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67 - 2, H, AGG), L - 30 - 22 - 21.5 - 1, 6)

44+
Call CUT_END_S_RV(H, L, "B", POSINTAB)

45
Call FVTPT(3, NND, "B")

46-
R10 = T_CIRC(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2) & T_CIRC(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2)

46+
47-
R11 = T_SLOT(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90) & T_SLOT(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90)

47+
48
End Sub

49-
R12 = T_CIRC(MR_X(6.5, H, AGG), L - (30 - 10.5), 6)

49+
50-
R13 = T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150 + 40, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 140, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(M - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6)

50+
Sub S_10257410(ByVal NND As Integer)

51-
'R14 = T_SLOT(127.1, 30 - 12, 38.8, 6.8, 0)

51+
ACT_MOD = "1025741"

52-
R14 = T_SLOT(MR_X(127.1, H, AGG), L - (30 - 12), 38.8, 7, 0)

52+
CLAMP = 1

53-
R15 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0)

53+
54
L = INPUT_NUM(NND, "L", L, ACT_MOD)

55-
'Select Case VV

55+
56-
'Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"

56+
57-
R16 = T_SMUS(H + 1, 141)

57+
58-
'Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"

58+
59-
'R16 = T_SMUS(-1, 141)

59+
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

60-
'Case Else

60+
BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)

61-
'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

61+
62-
'End Select

62+
63
SCS = 6

64-
'**********************************************

64+
R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS)

65-
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16

65+
R02 = T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)

66
67
'If ver = 1 Or ver = 3 Then R03 = T_CIRC(100, L - (90.5 + 16.5 + 13.5), 22) Else R03 = ""

68
69
Select Case ver

70
Case 1, 2 '********************************************* FORO EMERGENZA *********************

71
R04 = T_RECT1(H - 1398, H - 1398 - 304, L - 13.5 - 16.5 - M2 + 104 / 2, L - 13.5 - 16.5 - M2 - 104 / 2)

72
If ver = 1 Then R03 = T_CIRC(100, L - (90.5 + 16.5 + 13.5), 22) Else R03 = ""

73
Case 3, 4

74
R04 = T_RECT1(1398, 1398 + 304, L - 13.5 - 16.5 - M2 + 104 / 2, L - 13.5 - 16.5 - M2 - 104 / 2)

75
If ver = 3 Then R03 = T_CIRC(H - 100, L - (90.5 + 16.5 + 13.5), 22) Else R03 = ""

76
Case Else

77-
Call CUT_END_S(H, L, "0", POSINTAB)

77+
MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)

78
End Select

79-
Call CUT_END_S(H, L, "C", POSINTAB)

79+
80-
Call FVTPT(3, NND, "C")

80+
81
fn = R01 & R02 & R03 & R04

82-
Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)

82+
83-
Call FVTPT(3, NND, "D")

83+
84-
Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)

84+
85-
Call FVTPT(3, NND, "E")

85+
86
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

87
STRINGA = MIRROR(STRINGA, H, L, 1, 1)

88
89-
Sub S_1005784E(NND)

89+
90
91-
ACT_MOD = INFO_DAT(NND, 0, 6)

91+
92-
CLAMP = 0

92+
Call CUT_END_S_RV(H, L, "0", POSINTAB)

93-
NHD = 15

93+
94
Call CUT_END_S_RV(H, L, "B", POSINTAB)

95-
CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)

95+
Call FVTPT(3, NND, "B")

96-
FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)

96+
97
End Sub

98
99
100
Sub S_10155340(ByVal NND As Integer)

101
ACT_MOD = "1015534"

102-
VV = INPUT_STR(NND, "VER", VV, ACT_MOD)

102+
CLAMP = 1

103-
'***********************************************************

103+
104-
Dim POSINTAB As Byte

104+
105-
M = H

105+
106-
XP = (CO + 120 - 170 - 170) / 2

106+
107-
XP2 = (CO + 120 - 210 - 210) / 2

107+
108-
'*********************************LAVORAZIONI

108+
109
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

110-
Select Case VV

110+
BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)

111-
Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"

111+
112-
AGG = 2

112+
113-
Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"

113+
SCS = 6

114-
AGG = 1

114+
R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS)

115
R02 = T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)

116-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

116+
117
Select Case ver

118
119
Case 1, 3  '********************************************* FORO EMERGENZA *********************

120-
R01 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)

120+
R03 = T_CIRC(100, L - (90.5 + 16.5 + 13.5), 22)

121-
R02 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + XP2 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)

121+
Case 2

122
R03 = T_CIRC(H - 100, L - (90.5 + 16.5 + 13.5), 22)

123-
R03 = T_CIRC(MR_X(87.5, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 * 2 + 2 * XP - 60, H, AGG), 3, 3.3)

123+
124-
R04 = T_RECT2(MR_X(87.5 - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(87.5 - 60 + 170 * 2 + 2 * XP, H, AGG), 49 - 8, 10, 16)

124+
R03 = ""

125-
R05 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1)

125+
MsgBox "ATTENZIONE ERRORE VERSIONE SU " & ACT_MOD, vbCritical

126-
R06 = T_CIRC(MR_X(87.5 + FL, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 60 + 1, 10.1)

126+
127-
R07 = T_CIRC(MR_X(87.5, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL - CO - 4, H, AGG), 68, 10.1)

127+
128
fn = R01 & R02 & R03

129-
R08 = T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5 - 26, H, AGG), 13.5, 4.2) & T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5, H, AGG), 13.5, 4.2)

129+
130-
R09 = T_CIRC(MR_X(87.5 - 29.4, H, AGG), L - 30 - 23 - 1, 6) & T_CIRC(MR_X(87.5 - 29.4 + 63, H, AGG), L - 30 - 45 - 1, 6) & T_CIRC(MR_X(87.5 + CO - 67 - 35, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67 - 2, H, AGG), L - 30 - 22 - 21.5 - 1, 6)

130+
131
P2 = H - 400

132-
R10 = T_CIRC(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2) & T_CIRC(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2)

132+
133-
R11 = T_SLOT(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90) & T_SLOT(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90)

133+
134
STRINGA = MIRROR(STRINGA, H, L, 1, 1)

135-
R12 = T_CIRC(MR_X(6.5, H, AGG), L - (30 - 10.5), 6)

135+
136-
R13 = T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150 + 40, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 140, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(M - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6)

136+
137-
'R14 = T_SLOT(127.1, 30 - 12, 38.8, 6.8, 0)

137+
138-
R14 = T_SLOT(MR_X(127.1, H, AGG), L - (30 - 12), 38.8, 7, 0)

138+
139-
R15 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0)

139+
Call CUT_END_S_RV(H, L, "0", POSINTAB)

140
Call FVTPT(3, NND, "")

141-
'Select Case VV

141+
Call CUT_END_S_RV(H, L, "B", POSINTAB)

142-
'Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"

142+
Call FVTPT(3, NND, "B")

143-
R16 = T_SMUS(H + 1, 141)

143+
144-
R17 = T_RECT2(MR_X(174, H, AGG), L - (30 - 10.5), 6.8, 6.8)

144+
145-
'Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"

145+
146-
'R16 = T_SMUS(-1, 141)

146+
147-
'Case Else

147+
148-
'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

148+
149-
'End Select

149+
Sub S_10155310(ByVal NND As Integer)

150
ACT_MOD = "1015531"

151-
'**********************************************

151+
CLAMP = 1

152-
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17

152+
153
L = INPUT_NUM(NND, "L", L, ACT_MOD)

154
H = INPUT_NUM(NND, "H", H, ACT_MOD)

155
SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10

156
M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)

157
BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)

158
159
160
SCS = 6

161
R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS) & T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)

162
163
fn = R01

164-
Call CUT_END_S(H, L, "0", POSINTAB)

164+
165
P1 = 250

166-
Call CUT_END_S(H, L, "C", POSINTAB)

166+
167-
Call FVTPT(3, NND, "C")

167+
168
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

169-
Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)

169+
STRINGA = MIRROR(STRINGA, H, L, 1, 1)

170-
Call FVTPT(3, NND, "D")

170+
171-
Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)

171+
172-
Call FVTPT(3, NND, "E")

172+
173
POSINTAB = def_posintab(NND)

174
Call CUT_END_S_RV(H, L, "0", POSINTAB)

175
Call FVTPT(3, NND, "")

176
Call CUT_END_S_RV(H, L, "B", POSINTAB)

177
Call FVTPT(3, NND, "B")

178-
Sub S_0902935C(NND)

178+
179
180-
ACT_MOD = INFO_DAT(NND, 0, 6)

180+
181-
CLAMP = 0

181+
182-
NHD = 15

182+
183
Sub S_10153570(ByVal NND As Integer)

184-
CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)

184+
ACT_MOD = "1015357"

185-
ss = INPUT_NUM(NND, "M2", ss, ACT_MOD)

185+
CLAMP = 1

186-
WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)

186+
187-
FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)

187+
188-
FR = INPUT_NUM(NND, "FR", FR, ACT_MOD)

188+
189-
MR = INPUT_NUM(NND, "MR", MR, ACT_MOD)

189+
190-
BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)

190+
191-
BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)

191+
BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)

192
193
194
SCS = 6

195
R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS) & T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)

196-
VV = INPUT_STR(NND, "VER", VV, ACT_MOD)

196+
197-
'***********************************************************

197+
fn = R01

198-
Dim POSINTAB As Byte

198+
199-
XP = (CO + 120 - 170 - 170) / 2

199+
200-
XP2 = (CO + 120 - 210 - 210) / 2

200+
201-
'*********************************LAVORAZIONI

201+
202-
 

202+
203-
Select Case VV

203+
STRINGA = MIRROR(STRINGA, H, L, 1, 1)

204-
Case "P22", "P24", "P02", "P04", "P06", "P08", "P10"

204+
205-
AGG = 2

205+
206-
Case "P01", "P21", "P03", "P23", "P05", "P11", "P07", "P12", "P09", "P13", "P14", "P15", "P31", "P32"

206+
207-
AGG = 1

207+
Call CUT_END_S_RV(H, L, "0", POSINTAB)

208
Call FVTPT(3, NND, "")

209-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

209+
Call CUT_END_S_RV(H, L, "B", POSINTAB)

210
Call FVTPT(3, NND, "B")

211
212
213-
R01A = T_SLOT(MR_X(MR - 60 - 47, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170 + XP, H, AGG), 13, 30, 11, 0)

213+
214-
R01B = T_SLOT(MR_X(MR - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)

214+
215-
R01C = T_SLOT(MR_X(MR - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 * 2 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)

215+
216-
R01 = R01A & R01B & R01C

216+
217
Sub S_10130980(ByVal NND As Integer)

218-
R02 = T_CIRC(MR_X(MR, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 2 * 170 + 2 * XP - 60, H, AGG), 3, 3.3)

218+
ACT_MOD = "1013098"

219
CLAMP = 1

220-
R03 = T_RECT2(MR_X(MR - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(MR + CO + 60, H, AGG), 49 - 8, 10, 16)

220+
221-
R04 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 60 + 1, 10.1)

221+
222-
R05 = T_CIRC(MR_X(9 + FR, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS - FL, H, AGG), 68, 10.1)

222+
223
H = INPUT_NUM(NND, "H", H, ACT_MOD)

224-
SCC = 1

224+
225-
R06 = T_CIRC(MR_X(MR + BL, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + BL + 35, H, AGG), L - 30 - 22 - SCC, 4.2)

225+
226-
R07 = T_CIRC(MR_X(9 + ss - 30, H, AGG), L - 30 - 23 - SCC, 6) & T_CIRC(MR_X(9 + ss + 30 + 3, H, AGG), L - 30 - 45 - SCC, 6) 'MANCA QUOTA SUL DISEGNO

226+
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

227-
R08 = T_CIRC(MR_X(MR + CO - BR, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + CO - BR - 35, H, AGG), L - 30 - 22 - SCC, 4.2)

227+
BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)

228
229-
R09 = T_CIRC(MR_X(MR - 60, H, AGG), L - 30 - 14 - 20, 20.2) & T_CIRC(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 20, 20.2)

229+
230
SCS = 6

231-
R10 = T_SLOT(MR_X(MR - 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90) & T_SLOT(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90)

231+
R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS)

232
R01 = R01 & T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)

233-
R11 = T_RECT2(MR_X(H - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(9 + ss + 23 + 32 + 105, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100 - 40, H, AGG), L - (30 - 10.5), 8.6, 8.6)

233+
234-
R12 = T_CIRC(MR_X(9 + ss - 96, H, AGG), L - (30 - 10.5), 8.8) '9

234+
Select Case ver

235-
'R13 = T_SLOT(9 + SS + 23 + 16, L - 30 - 12, 38.8, 6.8, 0)

235+
236-
R13 = T_SLOT(MR_X(9 + ss + 23 + 16, H, AGG), L - 30 + 12, 38.8, 7, 0)

236+
Case 1, 3  '********************************************* FORO EMERGENZA *********************

237-
R14 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0)

237+
R02 = T_CIRC(100, L - (90.5 + 16.5 + 13.5), 22)

238
R02 = R02 & T_CIRC(100 - 30, L - (90.5 + 16.5 + 13.5), 5.5)

239
R02 = R02 & T_CIRC(100 + 55, L - (90.5 + 16.5 + 13.5), 20)

240-
'Select Case VV

240+
241-
'Case "P01", "P21", "P03", "P23", "P05", "P11", "P07", "P12", "P09", "P13", "P14", "P15", "P31", "P32"

241+
Case 2

242-
R16 = T_SMUS(H + 1, 141)

242+
R02 = T_CIRC(H - 100, L - (90.5 + 16.5 + 13.5), 22)

243-
'Case "P22", "P24", "P02", "P04", "P06", "P08", "P10"

243+
R02 = R02 & T_CIRC(H - 100 + 30, L - (90.5 + 16.5 + 13.5), 5.5)

244-
'R16 = T_SMUS(-1, 141)

244+
R02 = R02 & T_CIRC(H - 100 - 55, L - (90.5 + 16.5 + 13.5), 20)

245-
'Case Else

245+
246-
'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

246+
247-
'End Select

247+
248
MsgBox "ATTENZIONE ERRORE VERSIONE SU " & ACT_MOD, vbCritical

249
End Select

250
251-
'**********************************************

251+
fn = R01 & R02

252-
fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R16

252+
253
P1 = 250

254
P2 = H - 400

255
MVAL = 500

256
STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn

257
STRINGA = MIRROR(STRINGA, H, L, 1, 1)

258
259
Call SAVE_SUB(NND, STRINGA)

260
261
POSINTAB = def_posintab(NND)

262
Call CUT_END_S_RV(H, L, "0", POSINTAB)

263-
Call CUT_END_S(H, L, "0", POSINTAB)

263+
264
Call CUT_END_S_RV(H, L, "B", POSINTAB)

265-
Call CUT_END_S(H, L, "C", POSINTAB)

265+
Call FVTPT(3, NND, "B")

266-
Call FVTPT(3, NND, "C")

266+
267
268-
Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)

268+
269-
Call FVTPT(3, NND, "D")

269+
270-
Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)

270+
271-
Call FVTPT(3, NND, "E")

271+
272
Sub S_10068260(ByVal NND As Integer)

273
ACT_MOD = "1006826"

274
CLAMP = 1

275-
Sub S_0902935D(NND)

275+
276
L = INPUT_NUM(NND, "L", L, ACT_MOD)

277-
ACT_MOD = INFO_DAT(NND, 0, 6)

277+
278-
CLAMP = 0

278+
279-
NHD = 15

279+
280
M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)

281-
CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)

281+
M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)

282-
ss = INPUT_NUM(NND, "SS", ss, ACT_MOD)

282+
ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)

283-
WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)

283+
BNB = INPUT_NUM(NND, "BNB", BNB, ACT_MOD)

284-
FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)

284+
285-
FR = INPUT_NUM(NND, "FR", FR, ACT_MOD)

285+
286-
MR = INPUT_NUM(NND, "MR", MR, ACT_MOD)

286+
287-
BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)

287+
SCS = 6

288-
BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)

288+
R01 = T_RECT1(-SCS, 5, L - 34.5, L + SCS) & T_RECT1(H - 5, H + SCS, L - 34.5, L + SCS)

289-
M1 = INPUT_STR(NND, "M1", M1, ACT_MOD)

289+
290-
M2 = INPUT_STR(NND, "M2", M2, ACT_MOD)

290+
Select Case M3

291
Case 18

292
'R02 = T_RECT1(-15, 5, -2, M3) & T_RECT1(H - 5, H + 15, -2, 18)

293
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

294
Case 2

295
296
If ver = 5 Or ver = 7 Then

297-
VV = INPUT_STR(NND, "VER", VV, ACT_MOD)

297+
'R02 = T_RECT1(-15, 5, -2, 18) & T_RECT1(H - 5, H + 5, -8, M3) 'AGGIUNTA 04/12/2018

298-
'***********************************************************

298+
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

299-
Dim POSINTAB As Byte

299+
Else

300-
XP = (CO + 120 - 170 - 170) / 2

300+
'R02 = T_RECT1(-5, 5, -8, M3) & T_RECT1(H - 5, H + 15, -2, 18)

301-
XP2 = (CO + 120 - 210 - 210) / 2

301+
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

302-
'*********************************LAVORAZIONI

302+
End If

303-
 

303+
304-
Select Case VV

304+
305-
Case "P22", "P24", "P02", "P04", "P06", "P08", "P10"

305+
MsgBox ("ERRORE M3 SU " & ACT_MOD)

306-
AGG = 2

306+
307-
Case "P01", "P21", "P03", "P23", "P05", "P11", "P07", "P12", "P09", "P13", "P14", "P15", "P31", "P32"

307+
308-
AGG = 1

308+
309
Select Case ver

310-
MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)

310+
Case 1, 4 '********************************************* FORO EMERGENZA *********************

311
R03 = T_CIRC(100, L - (M2 + 16.5 + 13.5), 20)

312
Case 2, 5

313
R03 = T_CIRC(H - 100, L - (M2 + 16.5 + 13.5), 20)

314-
R01A = T_SLOT(MR_X(MR - 60 - 47, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170 + XP, H, AGG), 13, 30, 11, 0)

314+
315-
R01B = T_SLOT(MR_X(MR - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)

315+
R03 = ""

316-
R01C = T_SLOT(MR_X(MR - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 * 2 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)

316+
317-
R01 = R01A & R01B & R01C

317+
318
fn = R01 & R02 & R03

319-
R02 = T_CIRC(MR_X(MR, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 2 * 170 + 2 * XP - 60, H, AGG), 3, 3.3)

319+
320
P1 = 250

321-
R03 = T_RECT2(MR_X(MR - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(MR + CO + 60, H, AGG), 49 - 8, 10, 16)

321+
322-
R04 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 60 + 1, 10.1)

322+
323-
R05 = T_CIRC(MR_X(9 + FR, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS - FL, H, AGG), 68, 10.1)

323+
324
STRINGA = MIRROR(STRINGA, H, L, 1, 1)

325-
SCC = 1

325+
326-
R06 = T_CIRC(MR_X(MR + BL, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + BL + 35, H, AGG), L - 30 - 22 - SCC, 4.2)

326+
327-
R07 = T_CIRC(MR_X(9 + ss - 30, H, AGG), L - 30 - 23 - SCC, 6) & T_CIRC(MR_X(9 + ss + 30 + 3, H, AGG), L - 30 - 45 - SCC, 6) 'MANCA QUOTA SUL DISEGNO

327+
328-
R08 = T_CIRC(MR_X(MR + CO - BR, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + CO - BR - 35, H, AGG), L - 30 - 22 - SCC, 4.2)

328+
Call CUT_END_S_RV(H, L, "0", POSINTAB)

329
Call FVTPT(3, NND, "")

330-
R09 = T_CIRC(MR_X(MR - 60, H, AGG), L - 30 - 14 - 20, 20.2) & T_CIRC(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 20, 20.2)

330+
Call CUT_END_S_RV(H, L, "B", POSINTAB)

331
Call FVTPT(3, NND, "B")

332-
R10 = T_SLOT(MR_X(MR - 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90) & T_SLOT(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90)

332+
333
334-
R11 = T_RECT2(MR_X(H - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + M1, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(9 + ss + 23 + 32 + 105, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100 - 40, H, AGG), L - (30 - 10.5), 8.6, 8.6)

334+
335-
R12 = T_CIRC(MR_X(9 + ss - 96, H, AGG), L - (30 - 10.5), 8.8) '9

335+
336-
'R13 = T_SLOT(9 + SS + 23 + 16, L - 30 - 12, 38.8, 6.8, 0)

336+
337-
R13 = T_SLOT(MR_X(9 + ss + 23 + 16, H, AGG), L - 30 + 12, 38.8, 7, 0)

337+
        

    


            


                                


        

            



                
    

        Public Pastes
    

    
            

    

                    

        

    





    


    
    
    
    
    
    
    
    




    


    



                

            We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.             OK, I Understand
        

    
                

            

                
                    
                
            

            

                Not a member of Pastebin yet?

                Sign Up, it unlocks many cool features!