API tools faq
paste
Advertisement
Dece111

Ante

Dece111
Feb 28th, 2024 (edited)
116
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 114.54 KB | Source Code | 0 0
raw download clone embed print report
  1. 'Ante2
  2.  
  3. Function T_PAT(ByVal XC As Double, ByVal YC As Double)
  4.  
  5. If XC = 0 Then
  6. XC = (12.15 + 0.1)
  7. ACC = "C180."
  8. Else
  9. XC = XC - (12.15 + 0.1)
  10. ACC = "C0."
  11. End If
  12.  
  13. T_PAT = T_SPECIAL(XC, YC, "PATTINO-FNL", ACC)
  14.  
  15. End Function
  16.  
  17.  
  18.  
  19. Sub S_1017132A(ByVal NND As Integer)
  20. ACT_MOD = "1017132"
  21. CLAMP = 1
  22.  
  23.  
  24. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  25. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  26. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  27. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  28. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  29. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  30. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  31. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  32. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  33. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  34. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  35. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  36. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  37. VV = Replace(VV, "P", "")
  38.  
  39.  
  40.  
  41. SCS = 6
  42. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  43.  
  44. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  45. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  46.  
  47. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  48. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
  49. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
  50. R01 = R01 & T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
  51. R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
  52. R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M6 - 4 * SPS), 10)
  53. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
  54. R01 = R01 & T_CIRC(121 - 30, L - (14 + BT + M5 - 4 * SPS), 7.2)      'SERVE IL TONDO Ø7
  55. R01 = R01 & T_CIRC(121, L - (14 + BT + M5 - 4 * SPS), 20)            'SERVE IL TONDO Ø20.2
  56. R01 = R01 & T_CIRC(121 + 55, L - (14 + BT + M5 - 4 * SPS), 20)       'SERVE IL TONDO Ø19.5
  57.  
  58. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  59. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  60. 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))
  61. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  62.  
  63. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  64. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  65. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  66. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  67. 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)
  68. 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)
  69.  
  70. YY1 = 14 + BT + 32 - 4 * SPS
  71.  
  72. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  73.  
  74.  
  75. Select Case VV
  76. Case 1, 2
  77. SPEK = 0
  78. Case 3, 4
  79. SPEK = 1
  80. Case Else
  81. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  82. End Select
  83.  
  84. fn = R01 & R02 & R04
  85. P1 = 250
  86. P2 = H - 400
  87. MVAL = 500
  88. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  89. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  90. Call SAVE_SUB(NND, STRINGA)
  91.  
  92.  
  93. POSINTAB = def_posintab(NND)
  94. Call CUT_END_S(H, L, "0", POSINTAB)
  95. Call FVTPT(3, NND, "")
  96. Call CUT_END_S(H, L, "B", POSINTAB)
  97. Call FVTPT(3, NND, "B")
  98.  
  99. End Sub
  100.  
  101.  
  102.  
  103. Sub S_1017011A(ByVal NND As Integer)
  104. ACT_MOD = "1017011"
  105. CLAMP = 1
  106.  
  107.  
  108. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  109. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  110. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  111. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  112. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  113. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  114. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  115. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  116. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  117. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  118. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  119. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  120. VV = Replace(VV, "P", "")
  121.  
  122.  
  123.  
  124. SCS = 6
  125. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  126.  
  127. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  128. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  129.  
  130. R01 = R01 & T_CIRC(46, L - 5, 4.2)
  131. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
  132. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + 45 - 4 * SPS), 10)
  133. R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
  134. R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
  135. R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M5 - 4 * SPS), 10)
  136. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
  137. R01 = R01 & T_CIRC(121 - 30, L - (14 + BT + M2 - 4 * SPS), 7.2)  'SERVE IL TONDO Ø7
  138. R01 = R01 & T_CIRC(121, L - (14 + BT + M2 - 4 * SPS), 20)        'SERVE IL TONDO Ø20.2
  139. R01 = R01 & T_CIRC(121 + 55, L - (14 + BT + M2 - 4 * SPS), 20)   'SERVE IL TONDO Ø19.5
  140.  
  141. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  142. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  143. 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))
  144. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  145.  
  146. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  147. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  148. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  149. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  150. 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)
  151. 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)
  152.  
  153.  
  154. YY1 = 14 + BT + 32 - 4 * SPS
  155.  
  156. '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)
  157. R03 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  158.  
  159.  
  160. fn = R01 & R02 & R03
  161. P1 = 250
  162. P2 = H - 400
  163. MVAL = 500
  164. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  165.  
  166. Call SAVE_SUB(NND, STRINGA)
  167.  
  168. POSINTAB = def_posintab(NND)
  169. Call CUT_END_S(H, L, "0", POSINTAB)
  170. Call FVTPT(3, NND, "")
  171. Call CUT_END_S(H, L, "B", POSINTAB)
  172. Call FVTPT(3, NND, "B")
  173.  
  174. End Sub
  175.  
  176.  
  177. Sub S_1015591A(ByVal NND As Integer)
  178. ACT_MOD = "1015591"
  179. CLAMP = 1
  180.  
  181. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  182. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  183. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  184. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  185. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  186. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  187. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  188. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  189. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  190. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  191. VV = Replace(VV, "H", "")
  192.  
  193. SCS = 6
  194.  
  195.  
  196. Select Case VV
  197. Case 1
  198.  
  199. R01 = T_RECT1(-46, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  200. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  201.  
  202. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  203. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
  204. R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
  205. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
  206. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
  207.  
  208. 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))
  209. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 55)
  210.  
  211. R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  212. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  213.  
  214.  
  215. R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
  216. R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
  217. R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
  218. R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
  219. 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)
  220. 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)
  221.  
  222.  
  223. YY1 = M1 + BT + 32 - 4 * SPS
  224.  
  225. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  226. SPEK = 0
  227.  
  228. Case 2
  229.  
  230. R01 = T_RECT1(-6.6, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  231. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  232.  
  233. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  234. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
  235. R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
  236. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
  237. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
  238.  
  239. 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))
  240. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 55)
  241. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  242. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  243.  
  244.  
  245. R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
  246. R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
  247. R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
  248. R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
  249. 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)
  250. 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)
  251.  
  252.  
  253. YY1 = M1 + BT + 32 - 4 * SPS
  254.  
  255. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  256. SPEK = 0
  257.  
  258. Case 3
  259.  
  260. R01 = T_RECT1(-46, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  261. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  262.  
  263. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  264. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
  265. R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
  266. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
  267. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
  268.  
  269. 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))
  270. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 55)
  271.  
  272. R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  273. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  274.  
  275.  
  276. R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
  277. R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
  278. R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
  279. R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
  280. 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)
  281. 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)
  282.  
  283.  
  284. YY1 = M1 + BT + 32 - 4 * SPS
  285.  
  286. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  287. SPEK = 1
  288.  
  289. Case 4
  290.  
  291. R01 = T_RECT1(-6.6, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  292. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  293.  
  294. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  295. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + M2 - 4 * SPS), 10)
  296. R02 = T_CIRC(13, L - (M1 + BT + M4 + M2 - 45 - 4 * SPS), 10)
  297. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 + 45 - 4 * SPS), 10)
  298. R01 = R01 & T_CIRC(13, L - (M1 + BT + M4 - 4 * SPS), 10)
  299.  
  300. 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))
  301. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 55)
  302.  
  303. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  304. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  305.  
  306.  
  307. R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
  308. R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
  309. R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
  310. R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
  311. 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)
  312. 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)
  313.  
  314.  
  315. YY1 = M1 + BT + 32 - 4 * SPS
  316.  
  317. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  318. SPEK = 1
  319.  
  320. Case Else
  321. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  322. End Select
  323.  
  324. fn = R01 & R02 & R04
  325. P1 = 250
  326. P2 = H - 400
  327. MVAL = 500
  328. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  329. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  330. Call SAVE_SUB(NND, STRINGA)
  331.  
  332. POSINTAB = def_posintab(NND)
  333. Call CUT_END_S(H, L, "0", POSINTAB)
  334. Call FVTPT(3, NND, "")
  335. Call CUT_END_S(H, L, "B", POSINTAB)
  336. Call FVTPT(3, NND, "B")
  337.  
  338.  
  339. End Sub
  340.  
  341.  
  342. Sub S_1015607C(ByVal NND As Integer)
  343. ACT_MOD = "1015607"
  344. CLAMP = 1
  345.  
  346. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  347. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  348. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  349. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  350. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  351. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  352. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  353. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  354. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  355. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  356. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  357. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  358. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  359. VV = Replace(VV, "P", "")
  360.  
  361.  
  362.  
  363. SCS = 6
  364.  
  365. Select Case VV
  366.  
  367. Case 1, 2
  368. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  369. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  370. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  371. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  372. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
  373. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
  374. 'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
  375. 'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
  376. R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M6 - 4 * SPS), 10)
  377. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
  378.  
  379. If VV = 2 Then
  380. R03 = T_CIRC(121, L - (14 + BT + M5 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
  381. End If
  382. If VV = 1 Then
  383. R03 = T_RECT2(121, L - (14 + BT + M5 - 4 * SPS), 24, 24)
  384. End If
  385.  
  386. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  387. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  388. 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))
  389. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  390.  
  391. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  392. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  393. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  394. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  395. 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)
  396. 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)
  397.  
  398. R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
  399. R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
  400.  
  401. YY1 = 14 + BT + 32 - 4 * SPS
  402. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  403. SPEK = 0
  404.  
  405. Case 3, 4
  406. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  407. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  408. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  409. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  410. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
  411. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
  412. 'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
  413. 'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
  414. R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M6 - 4 * SPS), 10)
  415. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
  416.  
  417. If VV = 4 Then
  418. R03 = T_CIRC(121, L - (14 + BT + M5 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
  419. End If
  420. If VV = 3 Then
  421. R03 = T_RECT2(121, L - (14 + BT + M5 - 4 * SPS), 24, 24)
  422. End If
  423.  
  424. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  425. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  426. 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))
  427. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  428.  
  429. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  430. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  431. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  432. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  433. 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)
  434. 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)
  435.  
  436. R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
  437. R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
  438.  
  439. YY1 = 14 + BT + 32 - 4 * SPS
  440. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  441. SPEK = 1
  442.  
  443. Case 5, 6
  444. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  445. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  446. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  447. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  448. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
  449. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
  450. 'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
  451. 'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
  452. R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M6 - 4 * SPS), 10)
  453. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
  454.  
  455. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  456. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  457. 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))
  458. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  459.  
  460. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  461. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  462. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  463. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  464. 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)
  465. 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)
  466.  
  467. R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
  468. R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
  469. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS, 8.5)
  470. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS + 0.75, 8.5)
  471. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS - 0.75, 8.5)
  472.  
  473. R03 = ""
  474. YY1 = 14 + BT + 32 - 4 * SPS
  475. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  476. SPEK = 0
  477.  
  478. Case 7, 8
  479. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  480. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  481. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  482. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  483. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
  484. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
  485. 'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
  486. 'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
  487. R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M6 - 4 * SPS), 10)
  488. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
  489.  
  490. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  491. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  492. 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))
  493. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  494.  
  495. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  496. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  497. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  498. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  499. 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)
  500. 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)
  501.  
  502. R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
  503. R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
  504. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS, 8.5)
  505. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS + 0.75, 8.5)
  506. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS - 0.75, 8.5)
  507.  
  508. R03 = ""
  509. YY1 = 14 + BT + 32 - 4 * SPS
  510. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  511. SPEK = 1
  512.  
  513.  
  514. Case Else
  515. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  516. End Select
  517.  
  518.  
  519. fn = R01 & R02 & R03 & R04
  520. P1 = 250
  521. P2 = H - 400
  522. MVAL = 500
  523. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  524. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  525. Call SAVE_SUB(NND, STRINGA)
  526.  
  527. POSINTAB = def_posintab(NND)
  528. Call CUT_END_S(H, L, "0", POSINTAB)
  529. Call FVTPT(3, NND, "")
  530. Call CUT_END_S(H, L, "B", POSINTAB)
  531. Call FVTPT(3, NND, "B")
  532.  
  533. End Sub
  534.  
  535.  
  536. Sub S_1025682A(ByVal NND As Integer)
  537. ACT_MOD = "1025682"
  538. CLAMP = 0
  539.  
  540. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  541. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  542. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  543. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  544. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  545. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  546. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  547. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  548. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  549. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  550. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  551. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  552. M10 = INPUT_NUM(NND, "M10", M10, ACT_MOD)
  553. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  554. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  555. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  556. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  557. VV = Replace(VV, "P", "")
  558.  
  559.  
  560. SCS = 6
  561.  
  562. Select Case VV
  563.  
  564. Case 1, 2
  565. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  566. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  567. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  568. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  569. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
  570. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
  571. 'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
  572. 'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
  573. R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M10 - 4 * SPS), 10)
  574. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
  575.  
  576. If VV = 2 Then
  577. R03 = T_CIRC(121, L - (14 + BT + M5 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
  578. End If
  579. If VV = 1 Then
  580. R03 = T_RECT2(121, L - (14 + BT + M5 - 4 * SPS), 24, 24)
  581. End If
  582.  
  583. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  584. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L + SCS)
  585. R01 = R01 & T_RECT1(H - 10, H + 1, -SCS, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
  586. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  587.  
  588. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  589. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  590. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  591. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  592. 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)
  593. 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)
  594.  
  595. R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
  596. R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
  597.  
  598.  
  599. YY1 = 14 + BT + 32 - 4 * SPS
  600. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  601. R05 = T_RECT1(H - 30 - M9, H - 30 - M9 + M8, L - 14 - BT - M6 + M7 / 2 + 4 * SPS, L - 14 - BT - M6 - M7 / 2 + 4 * SPS)
  602. SPEK = 0
  603.  
  604. Case 3, 4
  605. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  606. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  607. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  608. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  609. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
  610. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
  611. 'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
  612. 'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
  613. R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M10 - 4 * SPS), 10)
  614. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
  615.  
  616. If VV = 4 Then
  617. R03 = T_CIRC(121, L - (14 + BT + M5 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
  618. End If
  619. If VV = 3 Then
  620. R03 = T_RECT2(121, L - (14 + BT + M5 - 4 * SPS), 24, 24)
  621. End If
  622.  
  623. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  624. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L + SCS)
  625. R01 = R01 & T_RECT1(H - 10, H + 1, -SCS, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
  626. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  627.  
  628. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  629. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  630. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  631. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  632. 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)
  633. 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)
  634.  
  635. R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
  636. R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
  637.  
  638. YY1 = 14 + BT + 32 - 4 * SPS
  639. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  640. R05 = T_RECT1(H - 30 - M9, H - 30 - M9 + M8, L - 14 - BT - M6 + M7 / 2 + 4 * SPS, L - 14 - BT - M6 - M7 / 2 + 4 * SPS)
  641. SPEK = 1
  642.  
  643. Case 5, 6
  644. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  645. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  646. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  647. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  648. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
  649. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
  650. 'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
  651. 'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
  652. R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M10 - 4 * SPS), 10)
  653. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
  654.  
  655. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  656. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L + SCS)
  657. R01 = R01 & T_RECT1(H - 10, H + 1, -SCS, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
  658. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  659.  
  660. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  661. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  662. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  663. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  664. 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)
  665. 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)
  666.  
  667. R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
  668. R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
  669.  
  670. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS, 8.5)
  671. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS + 0.75, 8.5)
  672. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS - 0.75, 8.5)
  673.  
  674. R03 = ""
  675. YY1 = 14 + BT + 32 - 4 * SPS
  676. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  677. R05 = T_RECT1(H - 30 - M9, H - 30 - M9 + M8, L - 14 - BT - M6 + M7 / 2 + 4 * SPS, L - 14 - BT - M6 - M7 / 2 + 4 * SPS)
  678. SPEK = 0
  679.  
  680. Case 7, 8
  681. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  682. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  683. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  684. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  685. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 - 4 * SPS), 10)
  686. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M2 - 4 * SPS), 10)
  687. 'Print #NF, T_CIRC(4, L - (14 + BT + 158 - 4 * SPS), 10)
  688. 'Print #NF, T_RECT1(-7, 3, L - (14 + BT + 158 + 5 - 4 * SPS), L - (14 + BT + 158 - 5 - 4 * SPS))
  689. R02 = T_CIRC(13, L - (14 + BT + M4 + M1 - M10 - 4 * SPS), 10)
  690. R01 = R01 & T_CIRC(13, L - (14 + BT + M4 + M1 - 4 * SPS), 10)
  691.  
  692. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  693. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L + SCS)
  694. R01 = R01 & T_RECT1(H - 10, H + 1, -SCS, L - (14 + BT + 32 + M3 - 18 - 4 * SPS))
  695. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  696.  
  697. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  698. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  699. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  700. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  701. 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)
  702. 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)
  703.  
  704. R01 = R01 & T_CIRC(8, L - 158 - BT - 14 + 4 * SPS, 10)
  705. R01 = R01 & T_RECT2(3, L - 158 - BT - 14 + 4 * SPS, 10, 10)
  706. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS, 8.5)
  707. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS + 0.75, 8.5)
  708. R01 = R01 & T_CIRC(19, L - 138 - BT - 14 + 4 * SPS - 0.75, 8.5)
  709.  
  710. R03 = ""
  711. YY1 = 14 + BT + 32 - 4 * SPS
  712. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  713. R05 = T_RECT1(H - 30 - M9, H - 30 - M9 + M8, L - 14 - BT - M6 + M7 / 2 + 4 * SPS, L - 14 - BT - M6 - M7 / 2 + 4 * SPS)
  714. SPEK = 1
  715.  
  716.  
  717. Case Else
  718. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  719. End Select
  720.  
  721.  
  722. fn = R01 & R02 & R03 & R04 & R05
  723. P1 = 250
  724. P2 = H - 400
  725. MVAL = 500
  726. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  727. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  728. Call SAVE_SUB(NND, STRINGA)
  729.  
  730. POSINTAB = def_posintab(NND)
  731. Call CUT_END_S(H, L, "0", POSINTAB)
  732. Call FVTPT(3, NND, "")
  733. Call CUT_END_S(H, L, "B", POSINTAB)
  734. Call FVTPT(3, NND, "B")
  735.  
  736. End Sub
  737.  
  738.  
  739. Sub S_1015627A(ByVal NND As Integer)
  740. ACT_MOD = "1015627"
  741. CLAMP = 1
  742.  
  743.  
  744. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  745. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  746. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  747. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  748. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  749. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  750. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  751. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  752. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  753. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  754. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  755. VV = Replace(VV, "H", "")
  756.  
  757.  
  758. SCS = 6
  759.  
  760.  
  761. Select Case VV
  762. Case 1
  763.  
  764. R01 = T_RECT1(-46, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  765. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  766.  
  767. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  768. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M2 - 4 * SPS), 10)
  769. R02 = T_CIRC(13, L - (M1 + BT + M5 + M2 - M3 - 4 * SPS), 10)
  770. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M3 - 4 * SPS), 10)
  771. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 - 4 * SPS), 10)
  772.  
  773. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS))
  774. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 60)
  775. R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  776. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  777.  
  778. R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
  779. R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
  780. R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
  781. R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
  782. R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
  783. 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)
  784.  
  785.  
  786. YY1 = M1 + BT + 32 - 4 * SPS
  787. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
  788. SPEK = 0
  789.  
  790. Case 2
  791.  
  792. R01 = T_RECT1(-6.6, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  793. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  794.  
  795. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  796. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M2 - 4 * SPS), 10)
  797. R02 = T_CIRC(13, L - (M1 + BT + M5 + M2 - M3 - 4 * SPS), 10)
  798. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M3 - 4 * SPS), 10)
  799. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 - 4 * SPS), 10)
  800.  
  801. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS))
  802. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 60)
  803. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  804. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  805.  
  806. R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
  807. R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
  808. R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
  809. R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
  810. R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
  811. 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)
  812.  
  813.  
  814. YY1 = M1 + BT + 32 - 4 * SPS
  815. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
  816. SPEK = 0
  817.  
  818. Case 3
  819.  
  820. R01 = T_RECT1(-46, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  821. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  822.  
  823. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  824. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M2 - 4 * SPS), 10)
  825. R02 = T_CIRC(13, L - (M1 + BT + M5 + M2 - M3 - 4 * SPS), 10)
  826. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M3 - 4 * SPS), 10)
  827. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 - 4 * SPS), 10)
  828.  
  829. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS))
  830. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 60)
  831. R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  832. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  833.  
  834. R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
  835. R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
  836. R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
  837. R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
  838. R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
  839. 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)
  840.  
  841.  
  842. YY1 = M1 + BT + 32 - 4 * SPS
  843. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
  844. SPEK = 1
  845.  
  846. Case 4
  847.  
  848. R01 = T_RECT1(-6.6, 26, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  849. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  850.  
  851. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  852. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M2 - 4 * SPS), 10)
  853. R02 = T_CIRC(13, L - (M1 + BT + M5 + M2 - M3 - 4 * SPS), 10)
  854. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 + M3 - 4 * SPS), 10)
  855. R01 = R01 & T_CIRC(13, L - (M1 + BT + M5 - 4 * SPS), 10)
  856.  
  857. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS))
  858. R01 = R01 & T_RECT1(H - 10, H + 1, L - (M1 + BT + 32 + 18 - 4 * SPS), L - (M1 + BT + 32 + 18 - 4 * SPS) + 60)
  859. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (M1 + BT + LA - 4 - 4 * SPS))
  860. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (M1 + BT + 4 - 4 * SPS), L + SCS)
  861.  
  862. R01 = R01 & T_BLQ(5, L - (M1 + BT + LA - 4 - 4 * SPS), 0, L - (M1 + BT + LA - 4 - 4 * SPS) + 5, 1, 1)
  863. R01 = R01 & T_BLQ(0, L - (M1 + BT + 4 - 4 * SPS) - 5, 5, L - (M1 + BT + 4 - 4 * SPS), 1, 1)
  864. R01 = R01 & T_BLQ(H - 15, L - (M1 + BT + 4 - 4 * SPS), H - 10, L - (M1 + BT + 4 - 4 * SPS) - 5, 1, 1)
  865. R01 = R01 & T_BLQ(H - 5, L - (M1 + BT + 32 + 18 - 4 * SPS), H, L - (M1 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
  866. R01 = R01 & T_BLQ(H, L - (M1 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (M1 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
  867. 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)
  868.  
  869.  
  870. YY1 = M1 + BT + 32 - 4 * SPS
  871. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
  872. SPEK = 1
  873.  
  874.  
  875. Case Else
  876. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  877. End Select
  878.  
  879. fn = R01 & R02 & R04
  880. P1 = 250
  881. P2 = H - 400
  882. MVAL = 500
  883. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  884. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  885. Call SAVE_SUB(NND, STRINGA)
  886.  
  887. POSINTAB = def_posintab(NND)
  888. Call CUT_END_S(H, L, "0", POSINTAB)
  889. Call FVTPT(3, NND, "")
  890. Call CUT_END_S(H, L, "B", POSINTAB)
  891. Call FVTPT(3, NND, "B")
  892.  
  893.  
  894. End Sub
  895.  
  896. Sub S_1015448C(ByVal NND As Integer)
  897. ACT_MOD = "1015448"
  898. CLAMP = 1
  899.  
  900. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  901. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  902. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  903. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  904. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  905. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  906. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  907. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  908. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  909. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  910. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  911. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  912. VV = Replace(VV, "P", "")
  913.  
  914.  
  915.  
  916. SCS = 6
  917.  
  918. Select Case VV
  919.  
  920. Case 1, 2
  921. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  922. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  923. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  924.  
  925. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  926. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  927. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
  928. 'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
  929. 'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
  930. R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M5 - 4 * SPS), 10)
  931. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
  932.  
  933. If VV = 2 Then
  934. R03 = T_CIRC(121, L - (14 + BT + M2 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
  935. End If
  936. If VV = 1 Then
  937. R03 = T_RECT2(121, L - (14 + BT + M2 - 4 * SPS), 24, 24)
  938. End If
  939.  
  940. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  941. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  942. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
  943. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  944.  
  945. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  946. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  947. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  948. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  949. R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
  950. 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)
  951.  
  952.  
  953. YY1 = 14 + BT + 32 - 4 * SPS
  954. R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
  955. R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
  956. R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
  957. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
  958. SPEK = 0
  959.  
  960. Case 3, 4
  961. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  962. R01 = R01 & T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  963. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  964. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  965. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  966. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
  967. 'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
  968. 'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
  969. R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M5 - 4 * SPS), 10)
  970. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
  971.  
  972. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  973. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  974. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
  975. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  976.  
  977. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  978. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  979. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  980. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  981. R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
  982. 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)
  983.  
  984. R03 = ""
  985. YY1 = 14 + BT + 32 - 4 * SPS
  986.  
  987. R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
  988. R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
  989. R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
  990. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS, 8.5)
  991. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS + 0.5, 8.5)
  992. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS - 0.5, 8.5)
  993.  
  994. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
  995. SPEK = 1
  996.  
  997. Case 5, 6
  998. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  999. R01 = R01 & T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  1000. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1001. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  1002. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  1003. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
  1004. 'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
  1005. 'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
  1006. R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M5 - 4 * SPS), 10)
  1007. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
  1008.  
  1009. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1010. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  1011. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
  1012. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  1013.  
  1014. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  1015. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  1016. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  1017. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  1018. R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
  1019. 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)
  1020.  
  1021. R03 = ""
  1022. YY1 = 14 + BT + 32 - 4 * SPS
  1023.  
  1024. R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
  1025. R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
  1026. R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
  1027. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS, 8.5)
  1028. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS + 0.5, 8.5)
  1029. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS - 0.5, 8.5)
  1030.  
  1031. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
  1032. SPEK = 0
  1033.  
  1034. Case Else
  1035. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1036. End Select
  1037.  
  1038. fn = R01 & R02 & R03 & R04
  1039. P1 = 250
  1040. P2 = H - 400
  1041. MVAL = 500
  1042. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1043. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1044. Call SAVE_SUB(NND, STRINGA)
  1045.  
  1046. POSINTAB = def_posintab(NND)
  1047. Call CUT_END_S(H, L, "0", POSINTAB)
  1048. Call FVTPT(3, NND, "")
  1049. Call CUT_END_S(H, L, "B", POSINTAB)
  1050. Call FVTPT(3, NND, "B")
  1051.  
  1052. End Sub
  1053.  
  1054.  
  1055.  
  1056. Sub S_1025392A(ByVal NND As Integer)
  1057. ACT_MOD = "1025392"
  1058. CLAMP = 0
  1059.  
  1060. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1061. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1062. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1063. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1064. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1065. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1066. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1067. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1068. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1069. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  1070. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  1071. M9 = INPUT_NUM(NND, "M9", M9, ACT_MOD)
  1072.  
  1073. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  1074. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  1075. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1076. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1077. VV = Replace(VV, "P", "")
  1078.  
  1079.  
  1080.  
  1081. SCS = 6
  1082.  
  1083. Select Case VV
  1084.  
  1085. Case 1, 2
  1086. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  1087. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  1088. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1089.  
  1090. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  1091. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  1092. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
  1093. 'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
  1094. 'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
  1095. R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M9 - 4 * SPS), 10)
  1096. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
  1097.  
  1098. If VV = 2 Then
  1099. R03 = T_CIRC(121, L - (14 + BT + M2 - 4 * SPS), 20)       'SERVE IL TONDO Ø20.2
  1100. End If
  1101. If VV = 1 Then
  1102. R03 = T_RECT2(121, L - (14 + BT + M2 - 4 * SPS), 24, 24)
  1103. End If
  1104.  
  1105. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1106. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  1107. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
  1108. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  1109.  
  1110. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  1111. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  1112. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  1113. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  1114. R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
  1115. 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)
  1116.  
  1117.  
  1118. YY1 = 14 + BT + 32 - 4 * SPS
  1119. R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
  1120. R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
  1121. R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
  1122.            
  1123. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
  1124. R05 = T_RECT1(H - M7 - 30, H - M7 - 30 + M6, L - 14 - BT - M8 + 4 * SPS, L - 14 - BT - M8 + 4 * SPS - M5)
  1125. SPEK = 0
  1126.  
  1127. Case 3, 4
  1128. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  1129. R01 = R01 & T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  1130. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1131.  
  1132. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  1133. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  1134. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
  1135. 'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
  1136. 'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
  1137. R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M9 - 4 * SPS), 10)
  1138. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
  1139.  
  1140. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1141. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  1142. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
  1143. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  1144.  
  1145. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  1146. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  1147. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  1148. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  1149. R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
  1150. 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)
  1151.  
  1152. R03 = ""
  1153. YY1 = 14 + BT + 32 - 4 * SPS
  1154.  
  1155. R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
  1156. R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
  1157. R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
  1158. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS, 8.5)
  1159. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS + 0.5, 8.5)
  1160. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS - 0.5, 8.5)
  1161.  
  1162. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
  1163. R05 = T_RECT1(H - M7 - 30, H - M7 - 30 + M6, L - 14 - BT - M8 + 4 * SPS, L - 14 - BT - M8 + 4 * SPS - M5)
  1164. SPEK = 1
  1165.  
  1166. Case 5, 6
  1167. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  1168. R01 = R01 & T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  1169. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1170.  
  1171. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  1172. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  1173. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 45 - 4 * SPS), 10)
  1174. 'R01 = R01 & T_CIRC(4, L - (14 + BT + 105 - 4 * SPS), 10)
  1175. 'R01 = R01 & T_RECT1(-7, 3, L - (14 + BT + 105 + 5 - 4 * SPS), L - (14 + BT + 105 - 5 - 4 * SPS))
  1176. R02 = T_CIRC(13, L - (14 + BT + M1 + M3 - M9 - 4 * SPS), 10)
  1177. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + M3 - 4 * SPS), 10)
  1178.  
  1179. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1180. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  1181. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + M4 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + M4 - 18 - 4 * SPS))
  1182. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  1183.  
  1184. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  1185. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 + 5 - 4 * SPS), 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  1186. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 + 5 - 4 * SPS), 1, 1)
  1187. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 + 5 - 4 * SPS), 1, 1)
  1188. R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + M4 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + M4 - 18 - 4 * SPS), 1, 1)
  1189. 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)
  1190.  
  1191. R03 = ""
  1192. YY1 = 14 + BT + 32 - 4 * SPS
  1193.  
  1194. R01 = R01 & T_RECT1(-4, 11, L - 98 - 14 - BT + 4 * SPS, L - 98 - 14 - BT + 4 * SPS - 18)
  1195. R01 = R01 & T_BLQ(5, L - 98 - BT - 14 + 4 * SPS, 0, L - 98 - BT - 14 + 4 * SPS + 5, 1, 1)
  1196. R01 = R01 & T_BLQ(0, L - 98 - 18 - BT - 14 + 4 * SPS - 5, 5, L - 98 - 18 - BT - 14 + 4 * SPS, 1, 1)
  1197. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS, 8.5)
  1198. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS + 0.5, 8.5)
  1199. R01 = R01 & T_CIRC(19, L - 84 - BT - 14 + 4 * SPS - 0.5, 8.5)
  1200.  
  1201. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M4)
  1202. R05 = T_RECT1(H - M7 - 30, H - M7 - 30 + M6, L - 14 - BT - M8 + 4 * SPS, L - 14 - BT - M8 + 4 * SPS - M5)
  1203. SPEK = 0
  1204.  
  1205. Case Else
  1206. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1207. End Select
  1208.  
  1209. fn = R01 & R02 & R03 & R04 & R05
  1210. P1 = 250
  1211. P2 = H - 400
  1212. MVAL = 500
  1213. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1214. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1215. Call SAVE_SUB(NND, STRINGA)
  1216.  
  1217. POSINTAB = def_posintab(NND)
  1218. Call CUT_END_S(H, L, "0", POSINTAB)
  1219. Call FVTPT(3, NND, "")
  1220. Call CUT_END_S(H, L, "B", POSINTAB)
  1221. Call FVTPT(3, NND, "B")
  1222.  
  1223. End Sub
  1224.  
  1225.  
  1226. Sub S_1015390A(ByVal NND As Integer)
  1227. ACT_MOD = "1015390"
  1228. CLAMP = 1
  1229.  
  1230. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1231. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1232. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1233. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1234. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1235. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1236. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1237. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  1238. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  1239. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1240. VV = Replace(VV, "H", "")
  1241.  
  1242. SCS = 6
  1243.  
  1244.  
  1245. Select Case VV
  1246.  
  1247. Case 1, 2
  1248. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  1249. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  1250. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1251.  
  1252. R02 = T_CIRC(46, L - 5, 4.5)
  1253. R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
  1254. R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
  1255. R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
  1256. R02 = R02 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  1257.  
  1258. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 72 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + 72 - 18 - 4 * SPS))
  1259. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  1260. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  1261. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1262.  
  1263. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  1264. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  1265. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
  1266. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
  1267. R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + 72 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + 72 - 18 - 4 * SPS), 1, 1)
  1268. 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)
  1269.  
  1270. R02 = R02 & T_CIRC(2, L - 57 - 14 - BT + 4 * SPS, 12)
  1271. R01 = R01 & T_RECT1(-3, 2, L - 57 - 14 - BT + 4 * SPS - 6, L - 57 - 14 - BT + 4 * SPS + 6)
  1272.  
  1273.  
  1274. YY1 = 14 + BT + 32 - 4 * SPS
  1275. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 72)
  1276. SPEK = 1
  1277.  
  1278. Case 3, 4
  1279. If SPS = 1.8 Then ECSP = 0.4 Else ECSP = 1
  1280. R01 = T_RECT1(-SCS, 26, -SCS + ECSP, L - (14 + BT + LA + 13 - 6 * SPS))
  1281. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1282.  
  1283. R02 = T_CIRC(46, L - 5, 4.5)
  1284. R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
  1285. R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
  1286. R02 = R02 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
  1287. R02 = R02 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  1288.  
  1289. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 72 - 18 - 4 * SPS) - 60, L - (14 + BT + 32 + 72 - 18 - 4 * SPS))
  1290. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 32 + 18 - 4 * SPS), L - (14 + BT + 32 + 18 - 4 * SPS) + 60)
  1291. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + LA - 4 - 4 * SPS))
  1292. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1293.  
  1294. R01 = R01 & T_BLQ(5, L - (14 + BT + LA + 13 - 6 * SPS), 0, L - (14 + BT + LA + 13 - 5 - 6 * SPS), 1, 1)
  1295. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  1296. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
  1297. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 32 + 18 - 4 * SPS), H, L - (14 + BT + 32 + 18 - 4 * SPS) - 5, 1, 1)
  1298. R01 = R01 & T_BLQ(H, L - (14 + BT + 32 + 72 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 32 + 72 - 18 - 4 * SPS), 1, 1)
  1299. 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)
  1300.  
  1301. R02 = R02 & T_CIRC(2, L - 57 - 14 - BT + 4 * SPS, 12)
  1302. R01 = R01 & T_RECT1(-3, 2, L - 57 - 14 - BT + 4 * SPS - 6, L - 57 - 14 - BT + 4 * SPS + 6)
  1303.  
  1304.  
  1305. YY1 = 14 + BT + 32 - 4 * SPS
  1306. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 72)
  1307. SPEK = 0
  1308.  
  1309. Case Else
  1310. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1311. End Select
  1312.  
  1313.  
  1314. fn = R01 & R02 & R04
  1315. P1 = 250
  1316. P2 = H - 400
  1317. MVAL = 500
  1318. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1319. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1320. Call SAVE_SUB(NND, STRINGA)
  1321.  
  1322. POSINTAB = def_posintab(NND)
  1323. Call CUT_END_S(H, L, "0", POSINTAB)
  1324. Call FVTPT(3, NND, "")
  1325. Call CUT_END_S(H, L, "B", POSINTAB)
  1326. Call FVTPT(3, NND, "B")
  1327.  
  1328. End Sub
  1329.  
  1330.  
  1331. Sub S_1015353A(ByVal NND As Integer)
  1332. ACT_MOD = "1015353"
  1333. CLAMP = 1
  1334.  
  1335.  
  1336. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1337. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1338. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1339. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1340. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1341. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1342. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1343. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  1344. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  1345. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1346. VV = Replace(VV, "H", "")
  1347.  
  1348. SCS = 6
  1349.  
  1350.  
  1351. Select Case VV
  1352. Case 1
  1353.  
  1354. R01 = T_RECT1(-46, 26, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
  1355. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1356.  
  1357. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  1358. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
  1359. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
  1360. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
  1361. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  1362.  
  1363. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 91 - 18 - 4 * SPS) - 55, L - (14 + BT + 23 + 91 - 18 - 4 * SPS))
  1364. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 18 - 4 * SPS), L - (14 + BT + 23 + 18 - 4 * SPS) + 40.5)
  1365.  
  1366. R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
  1367. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1368.  
  1369. R01 = R01 & T_BLQ(5, L - (14 + BT + 145 - 4 - 4 * SPS), 0, L - (14 + BT + 145 - 4 - 4 * SPS) + 5, 1, 1)
  1370. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  1371. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
  1372. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 23 + 18 - 4 * SPS), H, L - (14 + BT + 23 + 18 - 4 * SPS) - 5, 1, 1)
  1373. R01 = R01 & T_BLQ(H, L - (14 + BT + 23 + 91 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 23 + 91 - 18 - 4 * SPS), 1, 1)
  1374. R01 = R01 & T_BLQ(H - 10, L - (14 + BT + 145 - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + 145 - 4 - 4 * SPS), 1, 1)
  1375.  
  1376. YY1 = 14 + BT + 23 - 4 * SPS
  1377. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 91)
  1378. SPEK = 1
  1379.  
  1380. Case 2
  1381.  
  1382. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
  1383. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1384.  
  1385. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  1386. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
  1387. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
  1388. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
  1389. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  1390.  
  1391. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 91 - 18 - 4 * SPS) - 55, L - (14 + BT + 23 + 91 - 18 - 4 * SPS))
  1392. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 18 - 4 * SPS), L - (14 + BT + 23 + 18 - 4 * SPS) + 40.5)
  1393.  
  1394. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
  1395. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1396.  
  1397. R01 = R01 & T_BLQ(5, L - (14 + BT + 145 - 4 - 4 * SPS), 0, L - (14 + BT + 145 - 4 - 4 * SPS) + 5, 1, 1)
  1398. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  1399. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
  1400. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 23 + 18 - 4 * SPS), H, L - (14 + BT + 23 + 18 - 4 * SPS) - 5, 1, 1)
  1401. R01 = R01 & T_BLQ(H, L - (14 + BT + 23 + 91 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 23 + 91 - 18 - 4 * SPS), 1, 1)
  1402. R01 = R01 & T_BLQ(H - 10, L - (14 + BT + 145 - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + 145 - 4 - 4 * SPS), 1, 1)
  1403.  
  1404. YY1 = 14 + BT + 23 - 4 * SPS
  1405. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 91)
  1406. SPEK = 1
  1407.  
  1408.  
  1409. Case 3
  1410.  
  1411. R01 = T_RECT1(-46, 26, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
  1412. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1413.  
  1414. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  1415. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
  1416. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
  1417. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
  1418. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  1419.  
  1420. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 91 - 18 - 4 * SPS) - 55, L - (14 + BT + 23 + 91 - 18 - 4 * SPS))
  1421. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 18 - 4 * SPS), L - (14 + BT + 23 + 18 - 4 * SPS) + 40.5)
  1422.  
  1423. R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
  1424. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1425.  
  1426. R01 = R01 & T_BLQ(5, L - (14 + BT + 145 - 4 - 4 * SPS), 0, L - (14 + BT + 145 - 4 - 4 * SPS) + 5, 1, 1)
  1427. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  1428. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
  1429. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 23 + 18 - 4 * SPS), H, L - (14 + BT + 23 + 18 - 4 * SPS) - 5, 1, 1)
  1430. R01 = R01 & T_BLQ(H, L - (14 + BT + 23 + 91 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 23 + 91 - 18 - 4 * SPS), 1, 1)
  1431. R01 = R01 & T_BLQ(H - 10, L - (14 + BT + 145 - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + 145 - 4 - 4 * SPS), 1, 1)
  1432.  
  1433. YY1 = 14 + BT + 23 - 4 * SPS
  1434. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 91)
  1435. SPEK = 0
  1436.  
  1437. Case 4
  1438.  
  1439. R01 = T_RECT1(-6.6, 26, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
  1440. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1441. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  1442. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 4 * SPS), 10)
  1443. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 102 - 18.5 - 4 * SPS), 10)
  1444. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 + 18.5 - 4 * SPS), 10)
  1445. R01 = R01 & T_CIRC(13, L - (14 + BT + M1 - 4 * SPS), 10)
  1446.  
  1447. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 91 - 18 - 4 * SPS) - 55, L - (14 + BT + 23 + 91 - 18 - 4 * SPS))
  1448. R01 = R01 & T_RECT1(H - 10, H + 1, L - (14 + BT + 23 + 18 - 4 * SPS), L - (14 + BT + 23 + 18 - 4 * SPS) + 40.5)
  1449.  
  1450. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, L - (14 + BT + 145 - 4 - 4 * SPS))
  1451. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - (14 + BT + 4 - 4 * SPS), L + SCS)
  1452.  
  1453. R01 = R01 & T_BLQ(5, L - (14 + BT + 145 - 4 - 4 * SPS), 0, L - (14 + BT + 145 - 4 - 4 * SPS) + 5, 1, 1)
  1454. R01 = R01 & T_BLQ(0, L - (14 + BT + 4 - 4 * SPS) - 5, 5, L - (14 + BT + 4 - 4 * SPS), 1, 1)
  1455. R01 = R01 & T_BLQ(H - 15, L - (14 + BT + 4 - 4 * SPS), H - 10, L - (14 + BT + 4 - 4 * SPS) - 5, 1, 1)
  1456. R01 = R01 & T_BLQ(H - 5, L - (14 + BT + 23 + 18 - 4 * SPS), H, L - (14 + BT + 23 + 18 - 4 * SPS) - 5, 1, 1)
  1457. R01 = R01 & T_BLQ(H, L - (14 + BT + 23 + 91 - 18 - 5 - 4 * SPS), H - 5, L - (14 + BT + 23 + 91 - 18 - 4 * SPS), 1, 1)
  1458. R01 = R01 & T_BLQ(H - 10, L - (14 + BT + 145 - 4 - 5 - 4 * SPS), H - 15, L - (14 + BT + 145 - 4 - 4 * SPS), 1, 1)
  1459.  
  1460. YY1 = 14 + BT + 23 - 4 * SPS
  1461. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - 91)
  1462. SPEK = 0
  1463.  
  1464. Case Else
  1465. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1466. End Select
  1467.  
  1468. fn = R01 & R04
  1469. P1 = 250
  1470. P2 = H - 400
  1471. MVAL = 500
  1472. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1473. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1474. Call SAVE_SUB(NND, STRINGA)
  1475.  
  1476. POSINTAB = def_posintab(NND)
  1477. Call CUT_END_S(H, L, "0", POSINTAB)
  1478. Call FVTPT(3, NND, "")
  1479. Call CUT_END_S(H, L, "B", POSINTAB)
  1480. Call FVTPT(3, NND, "B")
  1481.  
  1482. End Sub
  1483.  
  1484. Sub S_10130960(ByVal NND As Integer)
  1485. ACT_MOD = "1013096"
  1486. CLAMP = 1
  1487.  
  1488.  
  1489. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1490. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1491. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1492. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1493. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1494. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1495. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1496. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  1497. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  1498. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1499. VV = Replace(VV, "P", "")
  1500.  
  1501.  
  1502.  
  1503. SCS = 6
  1504. FAI = 14 + 17 + -3 * SPS         'VALORE INTERNO PIEGA FRONTALE INFERIORE
  1505. FAS = L - (14 + BT - 3 * SPS)    'VALORE INTERNO PIEGA FRONTALE SUPERIORE
  1506.  
  1507. SM = 4
  1508. AA = 45 / 57.29577957
  1509. DD = Round(Sin(AA) * SM, 3)
  1510.  
  1511. SCINF = FAI + 4 - SPS
  1512. SCSUP = FAS - 4 + SPS
  1513.  
  1514. R01 = T_CIRC(50.5, L - 5, 4.5)
  1515.  
  1516. 'SMUSSI
  1517. R01 = R01 & T_BLQ(0, SCSUP - DD, DD, SCSUP, 1, 1)
  1518. R01 = R01 & T_BLQ(H - DD, SCSUP, H, SCSUP - DD, 1, 1)
  1519. R01 = R01 & T_BLQ(H, SCINF + DD, H - DD, SCINF, 1, 1)
  1520. R01 = R01 & T_BLQ(DD, 14, 0, 14 + DD, 1, 1)
  1521.  
  1522.  
  1523. R02 = T_RECT1(H - 20, H + SCS, -SCS, SCINF)
  1524. R02 = R02 & T_RECT1(H - 20, H + SCS, SCSUP, L + SCS)
  1525. R02 = R02 & T_RECT1(-SCS, 30.5, SCSUP, L + SCS)
  1526. R02 = R02 & T_RECT1(-SCS, 30.5, -SCS, 14) 'basso destra nel disegno
  1527.  
  1528. DD10 = 10
  1529. R03 = T_RECT1(-1, 4, FAS - 105 + SPS + DD10 / 2, FAS - 105 + SPS - DD10 / 2)
  1530. R03 = R03 & T_CIRC(17, FAS - M4 + SPS, DD10)
  1531. R03 = R03 & T_CIRC(17, FAS - M4 - 45 + SPS, DD10)
  1532. R03 = R03 & T_CIRC(4, FAS - 105 + SPS, DD10)
  1533. If LA >= 216 Then R04 = T_CIRC(17, FAS - M4 - M1 + 45 + SPS, DD10) Else R04 = ""
  1534. R03 = R03 & T_CIRC(17, FAS - M4 - M1 + SPS, DD10)
  1535.  
  1536. YY1 = FAS - 32 + SPS
  1537. R05 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  1538.  
  1539.  
  1540.  
  1541. R09 = T_CIRC(125, FAS - M2 + SPS, 20) & T_CIRC(125 + 55, FAS - M2 + SPS, 20) & T_CIRC(125 - 30, FAS - M2 + SPS, 6.5)
  1542.  
  1543.  
  1544. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09
  1545.  
  1546. P1 = 250
  1547. P2 = H - 400
  1548. MVAL = 500
  1549. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1550.  
  1551. Call SAVE_SUB(NND, STRINGA)
  1552.  
  1553. POSINTAB = def_posintab(NND)
  1554. Call CUT_END_S(H, L, "0", POSINTAB)
  1555. Call FVTPT(3, NND, "")
  1556. Call CUT_END_S(H, L, "B", POSINTAB)
  1557. Call FVTPT(3, NND, "B")
  1558.  
  1559. End Sub
  1560.  
  1561.  
  1562. Sub S_10128290(ByVal NND As Integer)
  1563. ACT_MOD = "1012829"
  1564. CLAMP = 1
  1565.  
  1566.  
  1567. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1568. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1569. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1570. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1571. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1572. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1573. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1574. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1575. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  1576. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  1577. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1578. VV = Replace(VV, "P", "")
  1579.  
  1580.  
  1581. SCS = 6
  1582. FAI = 14 + 17 + -3 * SPS         'VALORE INTERNO PIEGA FRONTALE INFERIORE
  1583. FAS = L - (14 + BT - 3 * SPS)    'VALORE INTERNO PIEGA FRONTALE SUPERIORE
  1584.  
  1585. SM = 4
  1586. AA = 45 / 57.29577957
  1587. DD = Round(Sin(AA) * SM, 3)
  1588.  
  1589. SCINF = FAI + 4 - SPS
  1590. SCSUP = FAS - 4 + SPS
  1591.  
  1592.  
  1593. Select Case VV
  1594. Case 1, 2
  1595. R01 = T_CIRC(50.5, L - 5, 4.5)
  1596. R01 = R01 & T_BLQ(0, SCSUP - DD, DD, SCSUP, 1, 1)
  1597. R01 = R01 & T_BLQ(H - DD, SCSUP, H, SCSUP - DD, 1, 1)
  1598. R01 = R01 & T_BLQ(H, SCINF + DD, H - DD, SCINF, 1, 1)
  1599. R01 = R01 & T_BLQ(DD, 14, 0, 14 + DD, 1, 1)
  1600.  
  1601.  
  1602. R01 = R01 & T_RECT1(H - 20, H + SCS, -SCS, SCINF)
  1603. R01 = R01 & T_RECT1(H - 20, H + SCS, SCSUP, L + SCS)
  1604. R01 = R01 & T_RECT1(-SCS, 30.5, SCSUP, L + SCS)
  1605. PR01 = R01 & T_RECT1(-SCS, 30.5, -SCS, 14) 'basso destra nel disegno
  1606.  
  1607. DD10 = 10
  1608. R01 = R01 & T_RECT1(-1, 4, FAS - 158 + SPS + DD10 / 2, FAS - 158 + SPS - DD10 / 2)
  1609. R01 = R01 & T_CIRC(17, FAS - M4 + SPS, DD10)
  1610. R01 = R01 & T_CIRC(17, FAS - M4 - M2 + SPS, DD10)
  1611. R01 = R01 & T_CIRC(4, FAS - 158 + SPS, DD10)
  1612. If LA >= 216 Then R02 = T_CIRC(17, FAS - M4 - M1 + M2 + SPS, DD10) Else R02 = ""
  1613. R01 = R01 & T_CIRC(17, FAS - M4 - M1 + SPS, DD10)
  1614.  
  1615.  
  1616. YY1 = FAS - 32 + SPS
  1617. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  1618.  
  1619.  
  1620. R03 = T_CIRC(125, FAS - M5 + SPS, 20)                                               'foro emergenza tondo
  1621. R03 = R03 & T_CIRC(125 + 55, FAS - M5 + SPS, 20)                                          'foro emergenza tondo
  1622. R03 = R03 & T_CIRC(125 - 30, FAS - M5 + SPS, 6.5)                                          'foro emergenza tondo
  1623. SPEK = 0
  1624.  
  1625. Case 3, 4
  1626. R01 = T_CIRC(50.5, L - 5, 4.5)
  1627. R01 = R01 & T_BLQ(0, SCSUP - DD, DD, SCSUP, 1, 1)
  1628. R01 = R01 & T_BLQ(H - DD, SCSUP, H, SCSUP - DD, 1, 1)
  1629. R01 = R01 & T_BLQ(H, SCINF + DD, H - DD, SCINF, 1, 1)
  1630. R01 = R01 & T_BLQ(DD, 14, 0, 14 + DD, 1, 1)
  1631.  
  1632.  
  1633. R01 = R01 & T_RECT1(H - 20, H + SCS, -SCS, SCINF)
  1634. R01 = R01 & T_RECT1(H - 20, H + SCS, SCSUP, L + SCS)
  1635. R01 = R01 & T_RECT1(-SCS, 30.5, SCSUP, L + SCS)
  1636. PR01 = R01 & T_RECT1(-SCS, 30.5, -SCS, 14) 'basso destra nel disegno
  1637.  
  1638. DD10 = 10
  1639. R01 = R01 & T_RECT1(-1, 4, FAS - 158 + SPS + DD10 / 2, FAS - 158 + SPS - DD10 / 2)
  1640. R01 = R01 & T_CIRC(17, FAS - M4 + SPS, DD10)
  1641. R01 = R01 & T_CIRC(17, FAS - M4 - M2 + SPS, DD10)
  1642. R01 = R01 & T_CIRC(4, FAS - 158 + SPS, DD10)
  1643. If LA >= 216 Then R02 = T_CIRC(17, FAS - M4 - M1 + M2 + SPS, DD10) Else R02 = ""
  1644. R01 = R01 & T_CIRC(17, FAS - M4 - M1 + SPS, DD10)
  1645.  
  1646.  
  1647. YY1 = FAS - 32 + SPS
  1648. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  1649.  
  1650.  
  1651. R03 = T_CIRC(125, FAS - M5 + SPS, 20)                                               'foro emergenza tondo
  1652. R03 = R03 & T_CIRC(125 + 55, FAS - M5 + SPS, 20)                                          'foro emergenza tondo
  1653. R03 = R03 & T_CIRC(125 - 30, FAS - M5 + SPS, 6.5)                                          'foro emergenza tondo
  1654. SPEK = 1
  1655.  
  1656. Case Else
  1657. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1658. End Select
  1659.  
  1660.  
  1661. fn = R01 & R02 & R03 & R04
  1662. P1 = 250
  1663. P2 = H - 400
  1664. MVAL = 500
  1665. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1666. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1667. Call SAVE_SUB(NND, STRINGA)
  1668.  
  1669. POSINTAB = def_posintab(NND)
  1670. Call CUT_END_S(H, L, "0", POSINTAB)
  1671. Call FVTPT(3, NND, "")
  1672. Call CUT_END_S(H, L, "B", POSINTAB)
  1673. Call FVTPT(3, NND, "B")
  1674.  
  1675.  
  1676. End Sub
  1677.  
  1678.  
  1679. Sub S_1006711A(ByVal NND As Integer)
  1680. ACT_MOD = "1006711"
  1681. CLAMP = 1
  1682.  
  1683.  
  1684. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1685. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1686. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1687. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1688. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1689. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1690. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1691. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  1692. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  1693. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1694. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1695. VV = Replace(VV, "P", "")
  1696.  
  1697.  
  1698. SCS = 6
  1699. DD10 = 10
  1700. SCSUP = M1 + 10.7
  1701. SCFOR = M1 + 45.7
  1702. SCINF = M1 + 63.7
  1703. CENT = (H - 26 - 30) / 2
  1704.  
  1705. Select Case VV
  1706. Case 1, 3
  1707.  
  1708. R01 = T_RECT1(-46, 26, -SCS, 99.3)
  1709. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
  1710.  
  1711. R02 = T_CIRC(46, L - 7, 4.5)
  1712. R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
  1713. R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
  1714. R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
  1715. R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
  1716. R02 = R02 & T_CIRC(36, 78.5, 5)
  1717. R02 = R02 & T_CIRC(36 + M4, 78.5, 5)
  1718. R02 = R02 & T_CIRC(26 + CENT, 78.5, 5)
  1719. R02 = R02 & T_CIRC(H - 40 - M4, 78.5, 5)
  1720. R02 = R02 & T_CIRC(H - 40, 78.5, 5)
  1721. R01 = R01 & T_RECT1(36 - 2.5, 36 + 2.5, 40.5 - 5, 40.5 + 5)
  1722. R01 = R01 & T_RECT1(36 + M4 - 2.5, 36 + M4 + 2.5, 40.5 - 5, 40.5 + 5)
  1723. R01 = R01 & T_RECT1(26 + CENT - 2.5, 26 + CENT + 2.5, 40.5 - 5, 40.5 + 5)
  1724. R01 = R01 & T_RECT1(H - 40 - M4 - 2.5, H - 40 - M4 + 2.5, 40.5 - 5, 40.5 + 5)
  1725. R01 = R01 & T_RECT1(H - 40 - 2.5, H - 40 + 2.5, 40.5 - 5, 40.5 + 5)
  1726.  
  1727. R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
  1728. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
  1729. R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
  1730. R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, 99.3)
  1731.  
  1732. R01 = R01 & T_BLQ(5, 99.3, 0, 99.3 + 5, 1, 1)
  1733. R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
  1734. R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
  1735. R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
  1736. R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
  1737. R01 = R01 & T_BLQ(H - 10, 99.3 + 5, H - 15, 99.3, 1, 1)
  1738.  
  1739.  
  1740. YY1 = 45.7 + M1
  1741. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  1742. SPEK = 0
  1743.  
  1744. Case 2, 4
  1745.  
  1746. R01 = T_RECT1(-46, 26, -SCS, 99.3)
  1747. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
  1748.  
  1749. R02 = T_CIRC(46, L - 7, 4.5)
  1750. R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
  1751. R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
  1752. R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
  1753. R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
  1754. R02 = R02 & T_CIRC(36, 78.5, 5)
  1755. R02 = R02 & T_CIRC(36 + M4, 78.5, 5)
  1756. R02 = R02 & T_CIRC(26 + CENT, 78.5, 5)
  1757. R02 = R02 & T_CIRC(H - 40 - M4, 78.5, 5)
  1758. R02 = R02 & T_CIRC(H - 40, 78.5, 5)
  1759.  
  1760. R01 = R01 & T_RECT1(36 - 2.5, 36 + 2.5, 40.5 - 5, 40.5 + 5)
  1761. R01 = R01 & T_RECT1(36 + M4 - 2.5, 36 + M4 + 2.5, 40.5 - 5, 40.5 + 5)
  1762. R01 = R01 & T_RECT1(26 + CENT - 2.5, 26 + CENT + 2.5, 40.5 - 5, 40.5 + 5)
  1763. R01 = R01 & T_RECT1(H - 40 - M4 - 2.5, H - 40 - M4 + 2.5, 40.5 - 5, 40.5 + 5)
  1764. R01 = R01 & T_RECT1(H - 40 - 2.5, H - 40 + 2.5, 40.5 - 5, 40.5 + 5)
  1765.  
  1766. R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
  1767. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
  1768. R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
  1769. R01 = R01 & T_RECT1(H - 30, H + 42, -SCS, 99.3)
  1770.  
  1771. R01 = R01 & T_BLQ(5, 99.3, 0, 99.3 + 5, 1, 1)
  1772. R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
  1773. R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
  1774. R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
  1775. R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
  1776. R01 = R01 & T_BLQ(H - 10, 99.3 + 5, H - 15, 99.3, 1, 1)
  1777.  
  1778.  
  1779. YY1 = 45.7 + M1
  1780. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  1781. SPEK = 1
  1782.  
  1783.  
  1784. Case Else
  1785. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1786. End Select
  1787.  
  1788. fn = R01 & R02 & R03 & R04
  1789. P1 = 250
  1790. P2 = H - 400
  1791. MVAL = 500
  1792. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1793. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1794. Call SAVE_SUB(NND, STRINGA)
  1795.  
  1796. POSINTAB = def_posintab(NND)
  1797. Call CUT_END_S(H, L, "0", POSINTAB)
  1798. Call FVTPT(3, NND, "")
  1799. Call CUT_END_S(H, L, "B", POSINTAB)
  1800. Call FVTPT(3, NND, "B")
  1801.  
  1802. End Sub
  1803.  
  1804.  
  1805. Sub S_1006707A(ByVal NND As Integer)
  1806. ACT_MOD = "1006707"
  1807. CLAMP = 1
  1808.  
  1809. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1810. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1811. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1812. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1813. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1814. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1815. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1816. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  1817. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  1818. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1819. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1820. VV = Replace(VV, "P", "")
  1821.  
  1822.  
  1823. SCS = 6
  1824. DD10 = 10
  1825. SCSUP = M1 + 14.3
  1826. SCFOR = M1 + 46.8
  1827. SCINF = M1 + 63.3
  1828. CENT = (H - 26 - 30) / 2
  1829.  
  1830. Select Case VV
  1831. Case 1, 3
  1832.  
  1833. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 37)
  1834. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
  1835. R02 = T_CIRC(46, L - 7, 4.5)
  1836. R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
  1837. R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
  1838. R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
  1839. R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
  1840.  
  1841. R02 = R02 & T_CIRC(36, 18, 5)
  1842. R02 = R02 & T_CIRC(36 + M4, 18, 5)
  1843. R02 = R02 & T_CIRC(26 + CENT, 18, 5)
  1844. R02 = R02 & T_CIRC(H - 40 - M4, 18, 5)
  1845. R02 = R02 & T_CIRC(H - 40, 18, 5)
  1846.  
  1847. R02 = R02 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
  1848. R02 = R02 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
  1849. R02 = R02 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
  1850. R02 = R02 & T_RECT1(H - 30, H + 2.6, -SCS, 37)
  1851.  
  1852. R01 = R01 & T_BLQ(5, 37, 0, 37 + 5, 1, 1)
  1853. R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
  1854. R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
  1855. R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
  1856. R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
  1857. R01 = R01 & T_BLQ(H - 10, 37 + 5, H - 15, 37, 1, 1)
  1858.  
  1859.  
  1860. YY1 = 45.3 + M1
  1861. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  1862. SPEK = 0
  1863.  
  1864. Case 2, 4
  1865.  
  1866. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 37)
  1867. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
  1868. R02 = T_CIRC(46, L - 7, 4.5)
  1869. R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
  1870. R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
  1871. R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
  1872. R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
  1873. R02 = R02 & T_CIRC(36, 18, 5)
  1874. R02 = R02 & T_CIRC(36 + M4, 18, 5)
  1875. R02 = R02 & T_CIRC(26 + CENT, 18, 5)
  1876. R02 = R02 & T_CIRC(H - 40 - M4, 18, 5)
  1877. R02 = R02 & T_CIRC(H - 40, 18, 5)
  1878.  
  1879. R02 = R02 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
  1880. R02 = R02 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
  1881. R02 = R02 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
  1882. R02 = R02 & T_RECT1(H - 30, H + 2.6, -SCS, 37)
  1883.  
  1884. R01 = R01 & T_BLQ(5, 37, 0, 37 + 5, 1, 1)
  1885. R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
  1886. R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
  1887. R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
  1888. R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
  1889. R01 = R01 & T_BLQ(H - 10, 37 + 5, H - 15, 37, 1, 1)
  1890.  
  1891.  
  1892. YY1 = 45.3 + M1
  1893. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  1894. SPEK = 1
  1895.  
  1896.  
  1897. Case Else
  1898. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1899. End Select
  1900.  
  1901. fn = R01 & R02 & R04
  1902. P1 = 250
  1903. P2 = H - 400
  1904. MVAL = 500
  1905. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1906. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  1907. Call SAVE_SUB(NND, STRINGA)
  1908.  
  1909. POSINTAB = def_posintab(NND)
  1910. Call CUT_END_S(H, L, "0", POSINTAB)
  1911. Call FVTPT(3, NND, "")
  1912. Call CUT_END_S(H, L, "B", POSINTAB)
  1913. Call FVTPT(3, NND, "B")
  1914.  
  1915. End Sub
  1916.  
  1917. Sub S_1006704A(ByVal NND As Integer)
  1918. ACT_MOD = "1006704"
  1919. CLAMP = 1
  1920.  
  1921.  
  1922. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1923. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1924. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1925. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1926. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1927. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  1928. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  1929. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1930. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1931. VV = Replace(VV, "P", "")
  1932.  
  1933.  
  1934. SCS = 6
  1935. DD10 = 10
  1936.  
  1937. Select Case VV
  1938. Case 1, 3
  1939.  
  1940. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 29)
  1941. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28, L + SCS)
  1942.  
  1943. R01 = R01 & T_CIRC(46, L - 7, 4.5)
  1944. R01 = R01 & T_CIRC(13, L - 59, DD10)
  1945. R01 = R01 & T_CIRC(13, L - 59 - 45, DD10)
  1946. R01 = R01 & T_CIRC(13, L - 59 - M1 + 45, DD10)
  1947. R01 = R01 & T_CIRC(13, L - 59 - M1, DD10)
  1948. If VV = 1 Then R02 = T_RECT1(121 - 12, 121 + 12, L - 134 - 12, L - 134 + 12) Else R02 = ""  'FORO EMERGENZA QUADRATO 24x24
  1949.  
  1950. R01 = R01 & T_RECT1(H - 10, H + 1, L - 77, L - 77 + 60)
  1951. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28, L + SCS)
  1952. R01 = R01 & T_RECT1(H - 10, H + 1, L - 59 - M2 + 18 - 90, L - 59 - M2 + 18)
  1953. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 45)
  1954.  
  1955. R01 = R01 & T_BLQ(5, 29, 0, 29 + 5, 1, 1)
  1956. R01 = R01 & T_BLQ(0, L - 33, 5, L - 33 + 5, 1, 1)
  1957. R01 = R01 & T_BLQ(H - 15, L - 28, H - 10, L - 28 - 5, 1, 1)
  1958. R01 = R01 & T_BLQ(H - 5, L - 77, H, L - 77 - 5, 1, 1)
  1959. R01 = R01 & T_BLQ(H, L - 59 - M2 + 23, H - 5, L - 59 - M2 + 18, 1, 1)
  1960. R01 = R01 & T_BLQ(H - 10, 45 + 5, H - 15, 45, 1, 1)
  1961.  
  1962. YY1 = 59
  1963.  
  1964. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
  1965. SPEK = 0
  1966.  
  1967. Case 2, 4
  1968.  
  1969. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 29)
  1970. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28, L + SCS)
  1971. R01 = R01 & T_CIRC(46, L - 7, 4.5)
  1972. R01 = R01 & T_CIRC(13, L - 59, DD10)
  1973. R01 = R01 & T_CIRC(13, L - 59 - 45, DD10)
  1974. R01 = R01 & T_CIRC(13, L - 59 - M1 + 45, DD10)
  1975. R01 = R01 & T_CIRC(13, L - 59 - M1, DD10)
  1976. If VV = 2 Then R02 = T_RECT1(121 - 12, 121 + 12, L - 134 - 12, L - 134 + 12) Else R02 = ""  'FORO EMERGENZA QUADRATO 24x24
  1977.  
  1978. R01 = R01 & T_RECT1(H - 10, H + 1, L - 77, L - 77 + 60)
  1979. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28, L + SCS)
  1980. R01 = R01 & T_RECT1(H - 10, H + 1, L - 59 - M2 + 18 - 90, L - 59 - M2 + 18)
  1981. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 45)
  1982.  
  1983. R01 = R01 & T_BLQ(5, 29, 0, 29 + 5, 1, 1)
  1984. R01 = R01 & T_BLQ(0, L - 33, 5, L - 33 + 5, 1, 1)
  1985. R01 = R01 & T_BLQ(H - 15, L - 28, H - 10, L - 28 - 5, 1, 1)
  1986. R01 = R01 & T_BLQ(H - 5, L - 77, H, L - 77 - 5, 1, 1)
  1987. R01 = R01 & T_BLQ(H, L - 59 - M2 + 23, H - 5, L - 59 - M2 + 18, 1, 1)
  1988. R01 = R01 & T_BLQ(H - 10, 45 + 5, H - 15, 45, 1, 1)
  1989.  
  1990. YY1 = 59
  1991.  
  1992. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
  1993. SPEK = 1
  1994.  
  1995.  
  1996. Case Else
  1997. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1998. End Select
  1999.  
  2000. fn = R01 & R02 & R04
  2001. P1 = 250
  2002. P2 = H - 400
  2003. MVAL = 500
  2004. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2005. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  2006. Call SAVE_SUB(NND, STRINGA)
  2007.  
  2008. POSINTAB = def_posintab(NND)
  2009. Call CUT_END_S(H, L, "0", POSINTAB)
  2010. Call FVTPT(3, NND, "")
  2011. Call CUT_END_S(H, L, "B", POSINTAB)
  2012. Call FVTPT(3, NND, "B")
  2013.  
  2014. End Sub
  2015.  
  2016.  
  2017. Sub S_1006702A(ByVal NND As Integer)
  2018. ACT_MOD = "1006702"
  2019. CLAMP = 1
  2020.  
  2021.  
  2022. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2023. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2024. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2025. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2026. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2027. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  2028. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  2029. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  2030. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  2031. VV = Replace(VV, "P", "")
  2032.  
  2033.  
  2034. SCS = 6
  2035. DD10 = 10
  2036.  
  2037. Select Case VV
  2038. Case 1, 3
  2039.  
  2040. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 27.8)
  2041. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28.3, L + SCS)
  2042.  
  2043. R01 = R01 & T_CIRC(46, L - 7, 4.5)
  2044. R01 = R01 & T_CIRC(13, L - 60.8, DD10)
  2045. R01 = R01 & T_CIRC(13, L - 60.8 - 45, DD10)
  2046. R01 = R01 & T_CIRC(13, L - 60.8 - M1 + 45, DD10)
  2047. R01 = R01 & T_CIRC(13, L - 60.8 - M1, DD10)
  2048. If VV = 1 Then R02 = T_CIRC(121, L - 135.8, 20) Else R02 = ""  'FORO EMERGENZA TONDO
  2049.  
  2050. R01 = R01 & T_RECT1(H - 10, H + 1, L - 77.3, L - 77.3 + 60)
  2051. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28.3, L + SCS)
  2052. R01 = R01 & T_RECT1(H - 10, H + 1, L - 59.3 - M2 + 18 - 90, L - 59.3 - M2 + 18)
  2053. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 43.8)
  2054.  
  2055. R01 = R01 & T_BLQ(5, 27.8, 0, 27.8 + 5, 1, 1)
  2056. R01 = R01 & T_BLQ(0, L - 28.3 - 5, 5, L - 28.3, 1, 1)
  2057. R01 = R01 & T_BLQ(H - 15, L - 28.3, H - 10, L - 28.3 - 5, 1, 1)
  2058. R01 = R01 & T_BLQ(H - 5, L - 77.3, H, L - 77.3 - 5, 1, 1)
  2059. R01 = R01 & T_BLQ(H, L - 59.3 - M2 + 23, H - 5, L - 59.3 - M2 + 18, 1, 1)
  2060. R01 = R01 & T_BLQ(H - 10, 43.8 + 5, H - 15, 43.8, 1, 1)
  2061.  
  2062. YY1 = 59.3
  2063. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
  2064. SPEK = 0
  2065.  
  2066. Case 2, 4
  2067.  
  2068. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 27.8)
  2069. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28.3, L + SCS)
  2070.  
  2071. R01 = R01 & T_CIRC(46, L - 7, 4.5)
  2072. R01 = R01 & T_CIRC(13, L - 60.8, DD10)
  2073. R01 = R01 & T_CIRC(13, L - 60.8 - 45, DD10)
  2074. R01 = R01 & T_CIRC(13, L - 60.8 - M1 + 45, DD10)
  2075. R01 = R01 & T_CIRC(13, L - 60.8 - M1, DD10)
  2076. If VV = 2 Then R02 = T_CIRC(121, L - 135.8, 20) Else R02 = ""  'FORO EMERGENZA TONDO
  2077.  
  2078. R01 = R01 & T_RECT1(H - 10, H + 1, L - 77.3, L - 77.3 + 60)
  2079. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28.3, L + SCS)
  2080. R01 = R01 & T_RECT1(H - 10, H + 1, L - 59.3 - M2 + 18 - 90, L - 59.3 - M2 + 18)
  2081. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 43.8)
  2082.  
  2083. R01 = R01 & T_BLQ(5, 27.8, 0, 27.8 + 5, 1, 1)
  2084. R01 = R01 & T_BLQ(0, L - 28.3 - 5, 5, L - 28.3, 1, 1)
  2085. R01 = R01 & T_BLQ(H - 15, L - 28.3, H - 10, L - 28.3 - 5, 1, 1)
  2086. R01 = R01 & T_BLQ(H - 5, L - 77.3, H, L - 77.3 - 5, 1, 1)
  2087. R01 = R01 & T_BLQ(H, L - 59.3 - M2 + 23, H - 5, L - 59.3 - M2 + 18, 1, 1)
  2088. R01 = R01 & T_BLQ(H - 10, 43.8 + 5, H - 15, 43.8, 1, 1)
  2089.  
  2090. YY1 = 59.3
  2091. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
  2092. SPEK = 1
  2093.  
  2094. Case Else
  2095. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  2096. End Select
  2097.  
  2098.  
  2099. fn = R01 & R02 & R04
  2100. P1 = 250
  2101. P2 = H - 400
  2102. MVAL = 500
  2103. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2104. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  2105. Call SAVE_SUB(NND, STRINGA)
  2106.  
  2107. POSINTAB = def_posintab(NND)
  2108. Call CUT_END_S(H, L, "0", POSINTAB)
  2109. Call FVTPT(3, NND, "")
  2110. Call CUT_END_S(H, L, "B", POSINTAB)
  2111. Call FVTPT(3, NND, "B")
  2112.  
  2113. End Sub
  2114.  
  2115.  
  2116. Sub S_1006632B(ByVal NND As Integer)
  2117. ACT_MOD = "1006632"
  2118. CLAMP = 1
  2119.  
  2120.  
  2121. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2122. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2123. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2124. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2125. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2126. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  2127. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  2128. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  2129. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  2130. VV = Replace(VV, "P", "")
  2131.  
  2132.  
  2133. SCS = 6
  2134. DD10 = 10
  2135.  
  2136. Select Case VV
  2137. Case 1, 3
  2138.  
  2139. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 45)
  2140. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28, L + SCS)
  2141.  
  2142. R01 = R01 & T_CIRC(46, L - 7, 4.5)
  2143. R01 = R01 & T_CIRC(13, L - 39, DD10)
  2144. R01 = R01 & T_CIRC(13, L - 39 - 45, DD10)
  2145. R01 = R01 & T_CIRC(13, L - 39 - M1 + 45, DD10)
  2146. R01 = R01 & T_CIRC(13, L - 39 - M1, DD10)
  2147. If VV = 1 Then R02 = T_RECT1(121 - 12, 121 + 12, L - 114 - 12, L - 114 + 12) Else R02 = "" 'FORO EMERGENZA QUADRATO 24x24
  2148.  
  2149. R01 = R01 & T_RECT1(H - 10, H + 1, L - 77, L - 77 + 60)
  2150. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28, L + SCS)
  2151. R01 = R01 & T_RECT1(H - 10, H + 1, L - 59 - M2 + 18 - 90, L - 59 - M2 + 18)
  2152. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 45)
  2153.  
  2154. R01 = R01 & T_BLQ(5, 45, 0, 45 + 5, 1, 1)
  2155. R01 = R01 & T_BLQ(0, L - 33, 5, L - 33 + 5, 1, 1)
  2156. R01 = R01 & T_BLQ(H - 15, L - 28, H - 10, L - 28 - 5, 1, 1)
  2157. R01 = R01 & T_BLQ(H - 5, L - 77, H, L - 77 - 5, 1, 1)
  2158. R01 = R01 & T_BLQ(H, L - 59 - M2 + 23, H - 5, L - 59 - M2 + 18, 1, 1)
  2159. R01 = R01 & T_BLQ(H - 10, 45 + 5, H - 15, 45, 1, 1)
  2160.  
  2161.  
  2162. YY1 = 59
  2163. If VV = 3 Then
  2164. R03 = T_CIRC(8, L - 104 - BT - 14 + 4 * SPS, 10)
  2165. R03 = R03 & T_RECT1(-2, 8, L - 104 - BT - 14 - 5 + 4 * SPS, L - 104 - BT - 14 + 5 + 4 * SPS)
  2166. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS, 8.5)
  2167. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS + 0.75, 8.5)
  2168. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS - 0.75, 8.5)
  2169. Else
  2170. R03 = ""
  2171. End If
  2172. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
  2173. SPEK = 0
  2174.  
  2175. Case 2, 4
  2176.  
  2177. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 45)
  2178. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28, L + SCS)
  2179.  
  2180. R01 = R01 & T_CIRC(46, L - 7, 4.5)
  2181. R01 = R01 & T_CIRC(13, L - 39, DD10)
  2182. R01 = R01 & T_CIRC(13, L - 39 - 45, DD10)
  2183. R01 = R01 & T_CIRC(13, L - 39 - M1 + 45, DD10)
  2184. R01 = R01 & T_CIRC(13, L - 39 - M1, DD10)
  2185. If VV = 2 Then R02 = T_RECT1(121 - 12, 121 + 12, L - 114 - 12, L - 114 + 12) Else R02 = "" 'FORO EMERGENZA QUADRATO 24x24
  2186.  
  2187. R01 = R01 & T_RECT1(H - 10, H + 1, L - 77, L - 77 + 60)
  2188. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28, L + SCS)
  2189. R01 = R01 & T_RECT1(H - 10, H + 1, L - 59 - M2 + 18 - 90, L - 59 - M2 + 18)
  2190. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 45)
  2191.  
  2192. R01 = R01 & T_BLQ(5, 45, 0, 45 + 5, 1, 1)
  2193. R01 = R01 & T_BLQ(0, L - 33, 5, L - 33 + 5, 1, 1)
  2194. R01 = R01 & T_BLQ(H - 15, L - 28, H - 10, L - 28 - 5, 1, 1)
  2195. R01 = R01 & T_BLQ(H - 5, L - 77, H, L - 77 - 5, 1, 1)
  2196. R01 = R01 & T_BLQ(H, L - 59 - M2 + 23, H - 5, L - 59 - M2 + 18, 1, 1)
  2197. R01 = R01 & T_BLQ(H - 10, 45 + 5, H - 15, 45, 1, 1)
  2198.  
  2199.  
  2200. YY1 = 59
  2201. If VV = 4 Then
  2202. R03 = T_CIRC(8, L - 104 - BT - 14 + 4 * SPS, 10)
  2203. R03 = R03 & T_RECT1(-2, 8, L - 104 - BT - 14 - 5 + 4 * SPS, L - 104 - BT - 14 + 5 + 4 * SPS)
  2204. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS, 8.5)
  2205. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS + 0.75, 8.5)
  2206. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS - 0.75, 8.5)
  2207. Else
  2208. R03 = ""
  2209. End If
  2210. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
  2211. SPEK = 1
  2212.  
  2213.  
  2214. Case Else
  2215. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  2216. End Select
  2217.  
  2218. fn = R01 & R02 & R03 & R04
  2219. P1 = 250
  2220. P2 = H - 400
  2221. MVAL = 500
  2222. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2223. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  2224. Call SAVE_SUB(NND, STRINGA)
  2225.  
  2226. POSINTAB = def_posintab(NND)
  2227. Call CUT_END_S(H, L, "0", POSINTAB)
  2228. Call FVTPT(3, NND, "")
  2229. Call CUT_END_S(H, L, "B", POSINTAB)
  2230. Call FVTPT(3, NND, "B")
  2231.  
  2232.  
  2233. End Sub
  2234.  
  2235.  
  2236. Sub S_1006629E(ByVal NND As Integer)
  2237. ACT_MOD = "1006629"
  2238. CLAMP = 1
  2239.  
  2240.  
  2241. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2242. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2243. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2244. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2245. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2246. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  2247. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  2248. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  2249. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  2250. VV = Replace(VV, "P", "")
  2251.  
  2252.  
  2253.  
  2254. SCS = 6
  2255. DD10 = 10
  2256.  
  2257. Select Case VV
  2258. Case 1, 3
  2259.  
  2260. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 43.8)
  2261. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28.3, L + SCS)
  2262.  
  2263. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  2264. R01 = R01 & T_CIRC(13, L - 40.8, DD10)
  2265. R01 = R01 & T_CIRC(13, L - 40.8 - 45, DD10)
  2266. R01 = R01 & T_CIRC(13, L - 40.8 - M1 + 45, DD10)
  2267. R01 = R01 & T_CIRC(13, L - 40.8 - M1, DD10)
  2268. If VV = 1 Then R02 = T_CIRC(121, L - 115.8, 20) Else R02 = "" 'FORO EMERGENZA TONDO
  2269.  
  2270. R01 = R01 & T_RECT1(H - 10, H + 1, L - 77.3, L - 77.3 + 60)
  2271. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28.3, L + SCS)
  2272. R01 = R01 & T_RECT1(H - 10, H + 1, L - 59.3 - M2 + 18 - 75, L - 59.3 - M2 + 18)
  2273. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 43.8)
  2274.  
  2275. R01 = R01 & T_BLQ(5, 43.8, 0, 43.8 + 5, 1, 1)
  2276. R01 = R01 & T_BLQ(0, L - 33.3, 5, L - 33.3 + 5, 1, 1)
  2277. R01 = R01 & T_BLQ(H - 15, L - 28.3, H - 10, L - 28.3 - 5, 1, 1)
  2278. R01 = R01 & T_BLQ(H - 5, L - 77.3, H, L - 77.3 - 5, 1, 1)
  2279. R01 = R01 & T_BLQ(H, L - 59.3 - M2 + 23, H - 5, L - 59.3 - M2 + 18, 1, 1)
  2280. R01 = R01 & T_BLQ(H - 10, 48.8, H - 15, 43.8, 1, 1)
  2281.  
  2282. YY1 = 59.3
  2283. If VV = 3 Then
  2284. R03 = T_CIRC(8, L - 104 - 17.5 - 14 + 4 * SPS, 10)
  2285. R03 = R03 & T_RECT1(-2, 8, L - 104 - 17.5 - 14 - 5 + 4 * SPS, L - 104 - 17.5 - 14 + 5 + 4 * SPS)
  2286. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS, 8.5)
  2287. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS + 0.75, 8.5)
  2288. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS - 0.75, 8.5)
  2289. Else
  2290. R03 = ""
  2291. End If
  2292. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
  2293. SPEK = 0
  2294.  
  2295. Case 2, 4
  2296.  
  2297. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 43.8)
  2298. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - 28.3, L + SCS)
  2299. R01 = R01 & T_CIRC(46, L - 5, 4.5)
  2300. R01 = R01 & T_CIRC(13, L - 40.8, DD10)
  2301. R01 = R01 & T_CIRC(13, L - 40.8 - 45, DD10)
  2302. R01 = R01 & T_CIRC(13, L - 40.8 - M1 + 45, DD10)
  2303. R01 = R01 & T_CIRC(13, L - 40.8 - M1, DD10)
  2304. If VV = 2 Then R02 = T_CIRC(121, L - 115.8, 20) Else R02 = "" 'FORO EMERGENZA TONDO
  2305.  
  2306. R01 = R01 & T_RECT1(H - 10, H + 1, L - 77.3, L - 77.3 + 60)
  2307. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - 28.3, L + SCS)
  2308. R01 = R01 & T_RECT1(H - 10, H + 1, L - 59.3 - M2 + 18 - 75, L - 59.3 - M2 + 18)
  2309. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 43.8)
  2310.  
  2311. R01 = R01 & T_BLQ(5, 43.8, 0, 43.8 + 5, 1, 1)
  2312. R01 = R01 & T_BLQ(0, L - 33.3, 5, L - 33.3 + 5, 1, 1)
  2313. R01 = R01 & T_BLQ(H - 15, L - 28.3, H - 10, L - 28.3 - 5, 1, 1)
  2314. R01 = R01 & T_BLQ(H - 5, L - 77.3, H, L - 77.3 - 5, 1, 1)
  2315. R01 = R01 & T_BLQ(H, L - 59.3 - M2 + 23, H - 5, L - 59.3 - M2 + 18, 1, 1)
  2316. R01 = R01 & T_BLQ(H - 10, 48.8, H - 15, 43.8, 1, 1)
  2317.  
  2318. YY1 = 59.3
  2319. If VV = 4 Then
  2320. R03 = T_CIRC(8, L - 104 - 17.5 - 14 + 4 * SPS, 10)
  2321. R03 = R03 & T_RECT1(-2, 8, L - 104 - 17.5 - 14 - 5 + 4 * SPS, L - 104 - 17.5 - 14 + 5 + 4 * SPS)
  2322. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS, 8.5)
  2323. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS + 0.75, 8.5)
  2324. R03 = R03 & T_CIRC(19, L - 85 - BT - 14 + 4 * SPS - 0.75, 8.5)
  2325. Else
  2326. R03 = ""
  2327. End If
  2328. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M2)
  2329. SPEK = 1
  2330.  
  2331.  
  2332. Case Else
  2333. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  2334. End Select
  2335.  
  2336. fn = R01 & R02 & R03 & R04
  2337. P1 = 250
  2338. P2 = H - 400
  2339. MVAL = 500
  2340. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2341. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  2342. Call SAVE_SUB(NND, STRINGA)
  2343.  
  2344. POSINTAB = def_posintab(NND)
  2345. Call CUT_END_S(H, L, "0", POSINTAB)
  2346. Call FVTPT(3, NND, "")
  2347. Call CUT_END_S(H, L, "B", POSINTAB)
  2348. Call FVTPT(3, NND, "B")
  2349.  
  2350. End Sub
  2351.  
  2352.  
  2353. Sub S_1006619A(ByVal NND As Integer)
  2354. ACT_MOD = "1006619"
  2355. CLAMP = 1
  2356.  
  2357.  
  2358. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2359. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2360. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2361. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2362. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2363. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2364. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2365. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  2366. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  2367. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  2368. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  2369. VV = Replace(VV, "P", "")
  2370.  
  2371.  
  2372. SCS = 6
  2373. DD10 = 10
  2374. SCSUP = M1 + 14.3
  2375. SCFOR = M1 + 26.8
  2376. SCINF = M1 + 63.3
  2377. CENT = (H - 26 - 30) / 2
  2378.  
  2379. Select Case VV
  2380. Case 1, 3
  2381.  
  2382. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 37)
  2383. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
  2384.  
  2385. R01 = R01 & T_CIRC(46, L - 7, 4.5)
  2386. R01 = R01 & T_CIRC(13, L - SCFOR, DD10)
  2387. R01 = R01 & T_CIRC(13, L - SCFOR - 45, DD10)
  2388. R01 = R01 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
  2389. R01 = R01 & T_CIRC(13, L - SCFOR - M2, DD10)
  2390. R01 = R01 & T_CIRC(36, 18, 5)
  2391. R01 = R01 & T_CIRC(36 + M4, 18, 5)
  2392. R01 = R01 & T_CIRC(26 + CENT, 18, 5)
  2393. R01 = R01 & T_CIRC(H - 40 - M4, 18, 5)
  2394. R01 = R01 & T_CIRC(H - 40, 18, 5)
  2395.  
  2396. R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
  2397. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
  2398. R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
  2399. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 37)
  2400.  
  2401. R01 = R01 & T_BLQ(5, 37, 0, 37 + 5, 1, 1)
  2402. R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
  2403. R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
  2404. R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
  2405. R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
  2406. R01 = R01 & T_BLQ(H - 10, 37 + 5, H - 15, 37, 1, 1)
  2407.  
  2408. YY1 = 45.3 + M1
  2409. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  2410. SPEK = 0
  2411.  
  2412. Case 2, 4
  2413.  
  2414. R01 = T_RECT1(-SCS - 0.6, 26, -SCS, 37)
  2415. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
  2416.  
  2417. R01 = R01 & T_CIRC(46, L - 7, 4.5)
  2418. R01 = R01 & T_CIRC(13, L - SCFOR, DD10)
  2419. R01 = R01 & T_CIRC(13, L - SCFOR - 45, DD10)
  2420. R01 = R01 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
  2421. R01 = R01 & T_CIRC(13, L - SCFOR - M2, DD10)
  2422. R01 = R01 & T_CIRC(36, 18, 5)
  2423. R01 = R01 & T_CIRC(36 + M4, 18, 5)
  2424. R01 = R01 & T_CIRC(26 + CENT, 18, 5)
  2425. R01 = R01 & T_CIRC(H - 40 - M4, 18, 5)
  2426. R01 = R01 & T_CIRC(H - 40, 18, 5)
  2427.  
  2428. R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
  2429. R01 = R01 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
  2430. R01 = R01 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
  2431. R01 = R01 & T_RECT1(H - 30, H + 2.6, -SCS, 37)
  2432.  
  2433. R01 = R01 & T_BLQ(5, 37, 0, 37 + 5, 1, 1)
  2434. R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
  2435. R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
  2436. R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
  2437. R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
  2438. R01 = R01 & T_BLQ(H - 10, 37 + 5, H - 15, 37, 1, 1)
  2439.  
  2440. YY1 = 45.3 + M1
  2441. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  2442. SPEK = 1
  2443.  
  2444. Case Else
  2445. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  2446. End Select
  2447.  
  2448. fn = R01 & R04
  2449. P1 = 250
  2450. P2 = H - 400
  2451. MVAL = 500
  2452. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2453. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  2454. Call SAVE_SUB(NND, STRINGA)
  2455.  
  2456. POSINTAB = def_posintab(NND)
  2457. Call CUT_END_S(H, L, "0", POSINTAB)
  2458. Call FVTPT(3, NND, "")
  2459. Call CUT_END_S(H, L, "B", POSINTAB)
  2460. Call FVTPT(3, NND, "B")
  2461.  
  2462. End Sub
  2463. Sub S_1006616A(ByVal NND As Integer)
  2464. ACT_MOD = "1006616"
  2465. CLAMP = 1
  2466.  
  2467.  
  2468. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  2469. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  2470. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  2471. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  2472. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  2473. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  2474. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  2475. BT = INPUT_NUM(NND, "BT", BT, ACT_MOD)
  2476. LA = INPUT_NUM(NND, "LA", LA, ACT_MOD)
  2477. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  2478. If VV = "" Then VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  2479. VV = Replace(VV, "P", "")
  2480.  
  2481.  
  2482. SCS = 6
  2483. DD10 = 10
  2484. SCSUP = M1 + 10.7
  2485. SCFOR = M1 + 25.7
  2486. SCINF = M1 + 63.7
  2487. POSC = (H - 26 - 30) / 2
  2488.  
  2489. Select Case VV
  2490. Case 1, 3
  2491. R01 = T_RECT1(-46, 26, -SCS, 99.3)
  2492. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
  2493.  
  2494. R02 = T_CIRC(46, L - 7, 4.5)
  2495. R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
  2496. R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
  2497. R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
  2498. R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
  2499. R02 = R02 & T_CIRC(36, 78.5, 5)
  2500. R02 = R02 & T_CIRC(36 + M4, 78.5, 5)
  2501. R02 = R02 & T_CIRC(POSC + 26, 78.5, 5)
  2502. R02 = R02 & T_CIRC(H - 40 - M4, 78.5, 5)
  2503. R02 = R02 & T_CIRC(H - 40, 78.5, 5)
  2504.  
  2505. R03 = T_RECT1(36 - 2.5, 36 + 2.5, 40.5 - 5, 40.5 + 5)
  2506. R03 = R03 & T_RECT1(36 + M4 - 2.5, 36 + M4 + 2.5, 40.5 - 5, 40.5 + 5)
  2507. R03 = R03 & T_RECT1(POSC + 26 - 2.5, POSC + 26 + 2.5, 40.5 - 5, 40.5 + 5)
  2508. R03 = R03 & T_RECT1(H - 40 - M4 - 2.5, H - 40 - M4 + 2.5, 40.5 - 5, 40.5 + 5)
  2509. R03 = R03 & T_RECT1(H - 40 - 2.5, H - 40 + 2.5, 40.5 - 5, 40.5 + 5)
  2510.  
  2511. R03 = R03 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
  2512. R03 = R03 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
  2513. R03 = R03 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
  2514. R03 = R03 & T_RECT1(H - 30, H + 42, -SCS, 99.3)
  2515.  
  2516. R01 = R01 & T_BLQ(5, 99.3, 0, 99.3 + 5, 1, 1)
  2517. R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
  2518. R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
  2519. R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
  2520. R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
  2521. R01 = R01 & T_BLQ(H - 10, 99.3 + 5, H - 15, 99.3, 1, 1)
  2522.  
  2523. YY1 = 45.7 + M1
  2524. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  2525. SPEK = 0
  2526.  
  2527. Case 2, 4
  2528.  
  2529. R01 = T_RECT1(-46, 26, -SCS, 99.3)
  2530. R01 = R01 & T_RECT1(-SCS - 0.6, 26, L - SCSUP, L + SCS)
  2531.  
  2532. R02 = T_CIRC(46, L - 7, 4.5)
  2533. R02 = R02 & T_CIRC(13, L - SCFOR, DD10)
  2534. R02 = R02 & T_CIRC(13, L - SCFOR - 45, DD10)
  2535. R02 = R02 & T_CIRC(13, L - SCFOR - M2 + 45, DD10)
  2536. R02 = R02 & T_CIRC(13, L - SCFOR - M2, DD10)
  2537. R02 = R02 & T_CIRC(36, 78.5, 5)
  2538. R02 = R02 & T_CIRC(36 + M4, 78.5, 5)
  2539. R02 = R02 & T_CIRC(POSC + 26, 78.5, 5)
  2540. R02 = R02 & T_CIRC(H - 40 - M4, 78.5, 5)
  2541. R02 = R02 & T_CIRC(H - 40, 78.5, 5)
  2542.  
  2543. R03 = T_RECT1(36 - 2.5, 36 + 2.5, 40.5 - 5, 40.5 + 5)
  2544. R03 = R03 & T_RECT1(36 + M4 - 2.5, 36 + M4 + 2.5, 40.5 - 5, 40.5 + 5)
  2545. R03 = R03 & T_RECT1(POSC + 26 - 2.5, POSC + 26 + 2.5, 40.5 - 5, 40.5 + 5)
  2546. R03 = R03 & T_RECT1(H - 40 - M4 - 2.5, H - 40 - M4 + 2.5, 40.5 - 5, 40.5 + 5)
  2547. R03 = R03 & T_RECT1(H - 40 - 2.5, H - 40 + 2.5, 40.5 - 5, 40.5 + 5)
  2548.  
  2549. R03 = R03 & T_RECT1(H - 10, H + 1, L - SCINF, L - SCINF + 60)
  2550. R03 = R03 & T_RECT1(H - 30, H + 2.6, L - SCSUP, L + SCS)
  2551. R03 = R03 & T_RECT1(H - 10, H + 1, L - SCINF - M3 + 36 - 120, L - SCINF - M3 + 36)
  2552. R03 = R03 & T_RECT1(H - 30, H + 42, -SCS, 99.3)
  2553.  
  2554. R01 = R01 & T_BLQ(5, 99.3, 0, 99.3 + 5, 1, 1)
  2555. R01 = R01 & T_BLQ(0, L - SCSUP - 5, 5, L - SCSUP, 1, 1)
  2556. R01 = R01 & T_BLQ(H - 15, L - SCSUP, H - 10, L - SCSUP - 5, 1, 1)
  2557. R01 = R01 & T_BLQ(H - 5, L - SCINF, H, L - SCINF - 5, 1, 1)
  2558. R01 = R01 & T_BLQ(H, L - SCINF - M3 + 18 + 18 + 5, H - 5, L - SCINF - M3 + 18 + 18, 1, 1)
  2559. R01 = R01 & T_BLQ(H - 10, 99.3 + 5, H - 15, 99.3, 1, 1)
  2560.  
  2561. YY1 = 45.7 + M1
  2562. R04 = T_PAT(H, L - YY1) & T_PAT(H, L - YY1 - M3)
  2563. SPEK = 1
  2564.  
  2565.  
  2566. Case Else
  2567. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  2568. End Select
  2569.  
  2570.  
  2571. fn = R01 & R02 & R03 & R04
  2572. P1 = 250
  2573. P2 = H - 400
  2574. MVAL = 500
  2575. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2576. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  2577. Call SAVE_SUB(NND, STRINGA)
  2578.  
  2579. POSINTAB = def_posintab(NND)
  2580. Call CUT_END_S(H, L, "0", POSINTAB)
  2581. Call FVTPT(3, NND, "")
  2582. Call CUT_END_S(H, L, "B", POSINTAB)
  2583. Call FVTPT(3, NND, "B")
  2584.  
  2585. End Sub
  2586.  
  2587.  
  2588. '************************************************************************************************************************************************
  2589.  
  2590. Function MIRROR(ByVal STRINGA As String, ByVal LENGHT As Double, ByVal WIDTH As Double, ByVal AGG_X As Integer, ByVal AGG_Y As Integer) As String
  2591. If STRINGA = "" Then Exit Function
  2592.  
  2593. STAZ_NO_MRX = ""
  2594. STAZ_NO_MRY = ""
  2595. STAZ_NO_MR = ""
  2596. STAZ_INDEX = ""
  2597.  
  2598.  
  2599. GoTo SALTA
  2600. NTT = NHD
  2601. For TM = 1 To 100
  2602. If TOOL_VAR(NTT, TM, 1) = "" Then Exit For
  2603. If InStr(1, TOOL_VAR(NTT, TM, 8), "NO") > 0 Then
  2604. STAZ_NO_MR = STAZ_NO_MR & "-" & TOOL_VAR(NTT, TM, 1) & "-" 'UTENSILI NON SPECCHIABILI
  2605. If InStr(1, TOOL_VAR(NTT, TM, 8), "X") > 0 Then STAZ_NO_MRX = STAZ_NO_MRX & "-" & TOOL_VAR(NTT, TM, 1) & "-" 'UTENSILI NON SPECCHIABILI IN X
  2606. If InStr(1, TOOL_VAR(NTT, TM, 8), "Y") > 0 Then STAZ_NO_MRY = STAZ_NO_MRY & "-" & TOOL_VAR(NTT, TM, 1) & "-" 'UTENSILI NON SPECCHIABILI IN Y
  2607. End If
  2608. If TOOL_VAR(NTT, TM, 5) = "0I" And TOOL_VAR(NTT, TM, 6) = "SPECIALE" Then 'UTENSILI SPECIALI SU INDEX
  2609. STAZ_INDEX = STAZ_INDEX & "-" & TOOL_VAR(NTT, TM, 1) & "-"
  2610. End If
  2611. Next TM
  2612. SALTA:
  2613.  
  2614.  
  2615.  
  2616. Select Case AGG_X & AGG_Y
  2617.  
  2618. Case "11" '************************************************************************************SPECCHIATURA SIA IN X CHE IN Y
  2619.  
  2620.  
  2621.  
  2622. PEZ_1 = Left(STRINGA, InStr(1, STRINGA, "M5") + 63) 'STRINGA CON TORRETTA E INFO PEZZO
  2623. PEZ_LAV = Replace(STRINGA, PEZ_1, "")               'STRINGA CON LAVORAZIONI
  2624.  
  2625. For LV = 1 To quanteVolte(PEZ_LAV, ">")
  2626. PEZ_2 = Left(PEZ_LAV, InStr(1, PEZ_LAV, ">")) 'STRINGA SINGOLA LAVORAZIONE
  2627.  
  2628. If InStr(1, STAZ_NO_MR, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) = 0 Then
  2629. If InStr(1, PEZ_2, "X") > 0 Then
  2630. CRD_X = Mid(PEZ_2, InStr(1, PEZ_2, "X") + 1, InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") - 1)
  2631. CRD_X = LENGHT - Val(CRD_X)
  2632.  
  2633. If InStr(1, PEZ_2, "Y") > 0 Then
  2634. CRD_Y = Mid(PEZ_2, InStr(1, PEZ_2, "Y") + 1, InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") - 1)
  2635. CRD_Y = WIDTH - Val(CRD_Y)
  2636.  
  2637. End If
  2638.  
  2639.  
  2640.  
  2641. If InStr(1, STAZ_INDEX, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) > 0 Then 'SPECIALI INDEX
  2642. ANG_TL = Mid(PEZ_2, InStr(1, PEZ_2, "C") + 1, InStr(InStr(1, PEZ_2, "C"), PEZ_2, "/") - InStr(1, PEZ_2, "C") - 1)
  2643. ANG_TL2 = Replace(ANG_TL, ".", "")
  2644. NEW_ANG = 180 - Abs(Val(ANG_TL2))
  2645. If Val(NEW_ANG) > 180 Then NEW_ANG = 360 - Val(NEW_ANG)
  2646. If InStr(1, ANG_TL, "-") = 0 Then NEW_ANG = "-" & NEW_ANG
  2647.  
  2648. If Len(NEW_ANG) < 4 Then NEW_ANG = Replace(NEW_ANG, ".", "") & "."
  2649. PEZ_2 = Replace(PEZ_2, "C" & ANG_TL, "C" & NEW_ANG)
  2650. End If
  2651.  
  2652.  
  2653.  
  2654. NEW_LAV = Left(PEZ_2, InStr(1, PEZ_2, "X")) & Jcdf(CRD_X) & "/Y" & Jcdf(CRD_Y) & Right(PEZ_2, Len(PEZ_2) - InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") + 1) 'LAVORAZIONE SPECCHIATA
  2655.  
  2656.  
  2657.  
  2658. Else
  2659.  
  2660. NEW_LAV = PEZ_2
  2661.  
  2662.  
  2663. If InStr(1, NEW_LAV, "G28") > 0 Then
  2664. If InStr(1, NEW_LAV, "J0.") > 0 Then
  2665. NEW_LAV = Replace(NEW_LAV, "J0.", "J180.")
  2666. GoTo FINE_ANGOLO_SCANT4
  2667. End If
  2668. If InStr(1, NEW_LAV, "J180.") > 0 Then
  2669. NEW_LAV = Replace(NEW_LAV, "J180.", "J0.")
  2670. GoTo FINE_ANGOLO_SCANT4
  2671. End If
  2672. If InStr(1, NEW_LAV, "J90.") > 0 Then
  2673. NEW_LAV = Replace(NEW_LAV, "J90.", "J-90.")
  2674. GoTo FINE_ANGOLO_SCANT4
  2675. End If
  2676. If InStr(1, NEW_LAV, "J-90.") > 0 Then
  2677. NEW_LAV = Replace(NEW_LAV, "J-90.", "J90.")
  2678. GoTo FINE_ANGOLO_SCANT4
  2679. End If
  2680. If InStr(1, NEW_LAV, "J-0.") > 0 Then
  2681. NEW_LAV = Replace(NEW_LAV, "J-0.", "J-180.")
  2682. GoTo FINE_ANGOLO_SCANT4
  2683. End If
  2684. If InStr(1, NEW_LAV, "J-180.") > 0 Then
  2685. NEW_LAV = Replace(NEW_LAV, "J-0.", "J-0.")
  2686. GoTo FINE_ANGOLO_SCANT4
  2687. End If
  2688. If InStr(1, NEW_LAV, "J270.") > 0 Then
  2689. NEW_LAV = Replace(NEW_LAV, "J270.", "J-270.")
  2690. GoTo FINE_ANGOLO_SCANT4
  2691. End If
  2692. If InStr(1, NEW_LAV, "J-270.") > 0 Then
  2693. NEW_LAV = Replace(NEW_LAV, "J-270.", "J270.")
  2694. GoTo FINE_ANGOLO_SCANT4
  2695. End If
  2696. End If
  2697.  
  2698.  
  2699. If InStr(1, NEW_LAV, "G37") > 0 Then
  2700. If InStr(1, NEW_LAV, "I-") > 0 Then
  2701. NEW_LAV = Replace(NEW_LAV, "I-", "I")
  2702. GoTo FINE_ANGOLO_SCANT3
  2703. End If
  2704. If InStr(1, NEW_LAV, "I") > 0 Then
  2705. NEW_LAV = Replace(NEW_LAV, "I", "I-")
  2706. GoTo FINE_ANGOLO_SCANT3
  2707. End If
  2708. FINE_ANGOLO_SCANT3:
  2709. If InStr(1, NEW_LAV, "J-") > 0 Then
  2710. NEW_LAV = Replace(NEW_LAV, "J-", "J")
  2711. GoTo FINE_ANGOLO_SCANT4
  2712. End If
  2713. If InStr(1, NEW_LAV, "J") > 0 Then
  2714. NEW_LAV = Replace(NEW_LAV, "J", "J-")
  2715. GoTo FINE_ANGOLO_SCANT4
  2716. End If
  2717. End If
  2718.  
  2719.  
  2720. FINE_ANGOLO_SCANT4:
  2721. End If
  2722. Else
  2723.  
  2724. '*********UTENSILE SPECIAlE NON SIMMETRICO E NON INDEX
  2725.  
  2726.  
  2727. ANGOLO = Right(PEZ_2, Len(PEZ_2) - InStr(1, PEZ_2, "C"))
  2728. ANGOLO = Left(ANGOLO, InStr(1, ANGOLO, ".") - 1)
  2729. ANGOLO_OLD = ANGOLO
  2730.  
  2731. Select Case ANGOLO
  2732. Case "0"
  2733. ANGOLO = "180"
  2734. Case "180"
  2735. ANGOLO = "0"
  2736. Case "90"
  2737. ANGOLO = "-90"
  2738. Case "-90"
  2739. ANGOLO = "90"
  2740. Case Else
  2741. MsgBox (("ERRORE ANGOLO 5RD"))
  2742. End Select
  2743.  
  2744.  
  2745. TOTO = Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)
  2746. For RA1 = 1 To 46
  2747. If TOOL_VAR(NHD, RA1, 1) = TOTO Then
  2748. NM_LG = TOOL_VAR(NHD, RA1, 3)
  2749. End If
  2750. Next RA1
  2751.  
  2752.  
  2753. PR_TL = 0
  2754. For RA = 1 To 46
  2755. If TOOL_VAR(NHD, RA, 3) = NM_LG And TOOL_VAR(NHD, RA, 5) = ANGOLO Then
  2756. TORR = TOOL_VAR(NHD, RA, 1)
  2757. PR_TL = 1
  2758. Exit For
  2759. End If
  2760. Next RA
  2761.  
  2762. If PR_TL = 0 Then
  2763. MsgBox ("NON TROVATO UTENSILE 5RD CON ANGOLO " & ANGOLO)
  2764. GoTo PROS_LAV3
  2765. End If
  2766.  
  2767. PEZ_2 = Replace(PEZ_2, "C" & ANGOLO_OLD, "C" & ANGOLO)
  2768. PEZ_2 = Replace(PEZ_2, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4), TORR)
  2769.  
  2770. If InStr(1, PEZ_2, "X") > 0 Then
  2771. CRD_X = Mid(PEZ_2, InStr(1, PEZ_2, "X") + 1, InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") - 1)
  2772. CRD_X = LENGHT - Val(CRD_X)
  2773. CRD_Y = Mid(PEZ_2, InStr(1, PEZ_2, "Y") + 1, InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") - 1)
  2774. CRD_Y = WIDTH - Val(CRD_Y)
  2775.  
  2776. NEW_LAV = Left(PEZ_2, InStr(1, PEZ_2, "X")) & Jcdf(CRD_X) & "/Y" & Jcdf(CRD_Y) & Right(PEZ_2, Len(PEZ_2) - InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") + 1) 'LAVORAZIONE SPECCHIATA
  2777.  
  2778. Else
  2779. PROS_LAV3:
  2780. NEW_LAV = PEZ_2
  2781. End If
  2782.  
  2783. End If
  2784.  
  2785.  
  2786. MR_VPR = MR_VPR & ST64(NEW_LAV) 'VPR SPECCHIATO
  2787. PEZ_LAV = Right(PEZ_LAV, Len(PEZ_LAV) - 64)
  2788. Next LV
  2789.  
  2790.  
  2791.  
  2792. MIRROR = PEZ_1 & MR_VPR
  2793.  
  2794. '****************************************FINE DOPPIA SPECCHIATURA
  2795.  
  2796.  
  2797.  
  2798. Case "10" '***********************************************************************************************SPECCHIATURA IN X
  2799.  
  2800.  
  2801. PEZ_1 = Left(STRINGA, InStr(1, STRINGA, "M5") + 63) 'STRINGA CON TORRETTA E INFO PEZZO
  2802. PEZ_LAV = Replace(STRINGA, PEZ_1, "")             'STRINGA CON LAVORAZIONI
  2803.  
  2804. For LV = 1 To quanteVolte(PEZ_LAV, ">")
  2805. PEZ_2 = Left(PEZ_LAV, InStr(1, PEZ_LAV, ">")) 'STRINGA SINGOLA LAVORAZIONE
  2806.  
  2807.  
  2808. If InStr(1, STAZ_NO_MRX, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) = 0 Then
  2809. If InStr(1, PEZ_2, "X") > 0 Then
  2810. CRD_X = Mid(PEZ_2, InStr(1, PEZ_2, "X") + 1, InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") - 1)
  2811. CRD_X = LENGHT - Val(CRD_X)
  2812.  
  2813.  
  2814. If InStr(1, STAZ_INDEX, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) > 0 Then 'SPECIALI INDEX
  2815.  
  2816. ANG_TL = Mid(PEZ_2, InStr(1, PEZ_2, "C") + 1, InStr(InStr(1, PEZ_2, "C"), PEZ_2, "/") - InStr(1, PEZ_2, "C") - 1)
  2817. ANG_TL2 = Replace(ANG_TL, ".", "")
  2818. NEW_ANG = 180 - Val(ANG_TL2)
  2819. If Val(NEW_ANG) > 180 Then NEW_ANG = 360 - Val(NEW_ANG)
  2820. If InStr(1, ANG_TL, "-") > 0 Then NEW_ANG = "-" & NEW_ANG
  2821.  
  2822. If Len(NEW_ANG) < 4 Then NEW_ANG = Replace(NEW_ANG, ".", "") & "."
  2823. PEZ_2 = Replace(PEZ_2, "C" & ANG_TL, "C" & NEW_ANG)
  2824.  
  2825. End If
  2826.  
  2827.  
  2828. NEW_LAV = Left(PEZ_2, InStr(1, PEZ_2, "X")) & Jcdf(CRD_X) & Right(PEZ_2, Len(PEZ_2) - InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") + 1) 'LAVORAZIONE SPECCHIATA
  2829.  
  2830.  
  2831.  
  2832. Else
  2833.  
  2834. NEW_LAV = PEZ_2
  2835.  
  2836.  
  2837. If InStr(1, NEW_LAV, "G28") > 0 Then
  2838. If InStr(1, NEW_LAV, "J0.") > 0 Then
  2839. NEW_LAV = Replace(NEW_LAV, "J0.", "J180.")
  2840. GoTo FINE_ANGOLO_SCANT
  2841. End If
  2842. If InStr(1, NEW_LAV, "J180.") > 0 Then
  2843. NEW_LAV = Replace(NEW_LAV, "J180.", "J0.")
  2844. GoTo FINE_ANGOLO_SCANT
  2845. End If
  2846. If InStr(1, NEW_LAV, "J-0.") > 0 Then
  2847. NEW_LAV = Replace(NEW_LAV, "J-0.", "J-180.")
  2848. GoTo FINE_ANGOLO_SCANT
  2849. End If
  2850. If InStr(1, NEW_LAV, "J-180.") > 0 Then
  2851. NEW_LAV = Replace(NEW_LAV, "J-0.", "J-0.")
  2852. GoTo FINE_ANGOLO_SCANT
  2853. End If
  2854. End If
  2855.  
  2856.  
  2857. If InStr(1, NEW_LAV, "G37") > 0 Then
  2858. If InStr(1, NEW_LAV, "I-") > 0 Then
  2859. NEW_LAV = Replace(NEW_LAV, "I-", "I")
  2860. GoTo FINE_ANGOLO_SCANT
  2861. End If
  2862. If InStr(1, NEW_LAV, "I") > 0 Then
  2863. NEW_LAV = Replace(NEW_LAV, "I", "I-")
  2864. GoTo FINE_ANGOLO_SCANT
  2865. End If
  2866. End If
  2867.  
  2868.  
  2869. FINE_ANGOLO_SCANT:
  2870. End If
  2871. Else
  2872. '*********UTENSILE SPECIAlE NON SIMMETRICO E NON INDEX
  2873.  
  2874.  
  2875. ANGOLO = Right(PEZ_2, Len(PEZ_2) - InStr(1, PEZ_2, "C"))
  2876. ANGOLO = Left(ANGOLO, InStr(1, ANGOLO, ".") - 1)
  2877. ANGOLO_OLD = ANGOLO
  2878.  
  2879. Select Case ANGOLO
  2880. Case "0"
  2881. ANGOLO = "-90"
  2882. Case "180"
  2883. ANGOLO = "90"
  2884. Case "90"
  2885. ANGOLO = "180"
  2886. Case "-90"
  2887. ANGOLO = "0"
  2888. Case Else
  2889. MsgBox (("ERRORE ANGOLO 5RD"))
  2890. End Select
  2891.  
  2892.  
  2893. TOTO = Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)
  2894. For RA1 = 1 To 46
  2895. If TOOL_VAR(NHD, RA1, 1) = TOTO Then
  2896. NM_LG = TOOL_VAR(NHD, RA1, 3)
  2897. End If
  2898. Next RA1
  2899.  
  2900.  
  2901.  
  2902. PR_TL = 0
  2903. For RA = 1 To 46
  2904. If TOOL_VAR(NHD, RA, 3) = NM_LG And TOOL_VAR(NHD, RA, 5) = ANGOLO Then
  2905. TORR = TOOL_VAR(NHD, RA, 1)
  2906. PR_TL = 1
  2907. Exit For
  2908. End If
  2909. Next RA
  2910.  
  2911. If PR_TL = 0 Then
  2912. MsgBox ("NON TROVATO UTENSILE 5RD CON ANGOLO " & ANGOLO)
  2913. GoTo PROS_LAV
  2914. End If
  2915.  
  2916. PEZ_2 = Replace(PEZ_2, "C" & ANGOLO_OLD, "C" & ANGOLO)
  2917. PEZ_2 = Replace(PEZ_2, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4), TORR)
  2918.  
  2919. If InStr(1, PEZ_2, "X") > 0 Then
  2920. CRD_X = Mid(PEZ_2, InStr(1, PEZ_2, "X") + 1, InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") - 1)
  2921. CRD_X = LENGHT - Val(CRD_X)
  2922. PEZ_2 = Left(PEZ_2, InStr(1, PEZ_2, "X")) & Jcdf(CRD_X) & Right(PEZ_2, Len(PEZ_2) - InStr(InStr(1, PEZ_2, "X"), PEZ_2, "/") + 1)
  2923. End If
  2924.  
  2925. PROS_LAV:
  2926. NEW_LAV = PEZ_2
  2927. '***************************
  2928. End If
  2929.  
  2930.  
  2931.  
  2932.  
  2933. MR_VPR = MR_VPR & ST64(NEW_LAV) 'VPR SPECCHIATO
  2934. PEZ_LAV = Right(PEZ_LAV, Len(PEZ_LAV) - 64)
  2935.  
  2936. Next LV
  2937.  
  2938.  
  2939.  
  2940. MIRROR = PEZ_1 & MR_VPR
  2941.  
  2942. '***********************************************FINE SPECCHIATURA IN X
  2943.  
  2944.  
  2945.  
  2946. Case "01" '****************************************************************************************************SPECCHIATURA IN Y
  2947.  
  2948.  
  2949. PEZ_1 = Left(STRINGA, InStr(1, STRINGA, "M5") + 63) 'STRINGA CON TORRETTA E INFO PEZZO
  2950. PEZ_LAV = Replace(STRINGA, PEZ_1, "")             'STRINGA CON LAVORAZIONI
  2951.  
  2952. For LV = 1 To quanteVolte(PEZ_LAV, ">")
  2953. PEZ_2 = Left(PEZ_LAV, InStr(1, PEZ_LAV, ">")) 'STRINGA SINGOLA LAVORAZIONE
  2954.  
  2955. If InStr(1, STAZ_NO_MR, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) = 0 Then
  2956. If InStr(1, PEZ_2, "Y") > 0 Then
  2957. CRD_Y = Mid(PEZ_2, InStr(1, PEZ_2, "Y") + 1, InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") - 1)
  2958. CRD_Y = WIDTH - Val(CRD_Y)
  2959.  
  2960.  
  2961.  
  2962. If InStr(1, STAZ_INDEX, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)) > 0 Then 'SPECIALI INDEX
  2963.  
  2964. ANG_TL = Mid(PEZ_2, InStr(1, PEZ_2, "C") + 1, InStr(InStr(1, PEZ_2, "C"), PEZ_2, "/") - InStr(1, PEZ_2, "C") - 1)
  2965. ANG_TL2 = Replace(ANG_TL, ".", "")
  2966. NEW_ANG = 0 - Val(ANG_TL2)
  2967. If Val(NEW_ANG) > 180 Then NEW_ANG = 360 - Val(NEW_ANG)
  2968. 'If InStr(1, ANG_TL, "-") > 0 Then NEW_ANG = "-" & NEW_ANG
  2969.  
  2970. If Len(NEW_ANG) < 4 Then NEW_ANG = Replace(NEW_ANG, ".", "") & "."
  2971. PEZ_2 = Replace(PEZ_2, "C" & ANG_TL, "C" & NEW_ANG)
  2972.  
  2973. End If
  2974.  
  2975.  
  2976. NEW_LAV = Left(PEZ_2, InStr(1, PEZ_2, "Y")) & Jcdf(CRD_Y) & Right(PEZ_2, Len(PEZ_2) - InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") + 1) 'LAVORAZIONE SPECCHIATA
  2977.  
  2978.  
  2979.  
  2980. Else
  2981.  
  2982. NEW_LAV = PEZ_2
  2983.  
  2984.  
  2985. If InStr(1, NEW_LAV, "G28") > 0 Then
  2986. If InStr(1, NEW_LAV, "J-90.") > 0 Then
  2987. NEW_LAV = Replace(NEW_LAV, "J-90.", "J90.")
  2988. GoTo FINE_ANGOLO_SCANT2
  2989. End If
  2990. If InStr(1, NEW_LAV, "J90.") > 0 Then
  2991. NEW_LAV = Replace(NEW_LAV, "J90.", "J-90.")
  2992. GoTo FINE_ANGOLO_SCANT2
  2993. End If
  2994. If InStr(1, NEW_LAV, "J270.") > 0 Then
  2995. NEW_LAV = Replace(NEW_LAV, "J270.", "J-270.")
  2996. GoTo FINE_ANGOLO_SCANT2
  2997. End If
  2998. If InStr(1, NEW_LAV, "J-270.") > 0 Then
  2999. NEW_LAV = Replace(NEW_LAV, "J-270.", "J270.")
  3000. GoTo FINE_ANGOLO_SCANT2
  3001. End If
  3002. End If
  3003.  
  3004.  
  3005. If InStr(1, NEW_LAV, "G37") > 0 Then
  3006. If InStr(1, NEW_LAV, "J-") > 0 Then
  3007. NEW_LAV = Replace(NEW_LAV, "J-", "J")
  3008. GoTo FINE_ANGOLO_SCANT2
  3009. End If
  3010. If InStr(1, NEW_LAV, "J") > 0 Then
  3011. NEW_LAV = Replace(NEW_LAV, "J", "J-")
  3012. GoTo FINE_ANGOLO_SCANT2
  3013. End If
  3014. End If
  3015.  
  3016.  
  3017. FINE_ANGOLO_SCANT2:
  3018. End If
  3019. Else
  3020.  
  3021.  
  3022.  
  3023. ANGOLO = Right(PEZ_2, Len(PEZ_2) - InStr(1, PEZ_2, "C"))
  3024. ANGOLO = Left(ANGOLO, InStr(1, ANGOLO, ".") - 1)
  3025. ANGOLO_OLD = ANGOLO
  3026.  
  3027. Select Case ANGOLO
  3028. Case "0"
  3029. ANGOLO = "90"
  3030. Case "180"
  3031. ANGOLO = "-90"
  3032. Case "90"
  3033. ANGOLO = "0"
  3034. Case "-90"
  3035. ANGOLO = "180"
  3036. Case Else
  3037. MsgBox (("ERRORE ANGOLO 5RD"))
  3038. End Select
  3039.  
  3040.  
  3041. TOTO = Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4)
  3042. For RA1 = 1 To 46
  3043. If TOOL_VAR(NHD, RA1, 1) = TOTO Then
  3044. NM_LG = TOOL_VAR(NHD, RA1, 3)
  3045. End If
  3046. Next RA1
  3047.  
  3048.  
  3049. PR_TL = 0
  3050. For RA = 1 To 46
  3051. If TOOL_VAR(NHD, RA, 3) = NM_LG And TOOL_VAR(NHD, RA, 5) = ANGOLO Then
  3052. TORR = TOOL_VAR(NHD, RA, 1)
  3053. PR_TL = 1
  3054. Exit For
  3055. End If
  3056. Next RA
  3057.  
  3058. If PR_TL = 0 Then
  3059. MsgBox ("NON TROVATO UTENSILE 5RD CON ANGOLO " & ANGOLO)
  3060. GoTo PROS_LAV2
  3061. End If
  3062.  
  3063. PEZ_2 = Replace(PEZ_2, "C" & ANGOLO_OLD, "C" & ANGOLO)
  3064. PEZ_2 = Replace(PEZ_2, Mid(PEZ_2, InStr(1, PEZ_2, "T"), 4), TORR)
  3065.  
  3066. If InStr(1, PEZ_2, "Y") > 0 Then
  3067. CRD_Y = Mid(PEZ_2, InStr(1, PEZ_2, "Y") + 1, InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") - 1)
  3068. CRD_Y = WIDTH - Val(CRD_Y)
  3069. PEZ_2 = Left(PEZ_2, InStr(1, PEZ_2, "Y")) & Jcdf(CRD_Y) & Right(PEZ_2, Len(PEZ_2) - InStr(InStr(1, PEZ_2, "Y"), PEZ_2, "/") + 1)
  3070. End If
  3071.  
  3072. PROS_LAV2:
  3073. NEW_LAV = PEZ_2
  3074. '***************************
  3075.  
  3076. End If
  3077.  
  3078. MR_VPR = MR_VPR & ST64(NEW_LAV) 'VPR SPECCHIATO
  3079. PEZ_LAV = Right(PEZ_LAV, Len(PEZ_LAV) - 64)
  3080. Next LV
  3081.  
  3082.  
  3083.  
  3084. MIRROR = PEZ_1 & MR_VPR
  3085.  
  3086. '*************************************FINE SPECCHIATURA IN Y
  3087.  
  3088.  
  3089. Case "00" 'NESSUNA SPECCHIATURA
  3090.  
  3091. MIRROR = STRINGA
  3092.  
  3093. Case Else
  3094. MsgBox ("ERRORE ANGOLO OF MIRROR")
  3095. End Select
  3096.  
  3097.  
  3098. End Function
  3099.  
  3100.  
  3101.  
  3102.  
  3103.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!