API tools faq
paste
Advertisement
Dece111

Nuovi Moduli

Dece111
Feb 28th, 2024
114
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 42.34 KB | None | 0 0
raw download clone embed print report diff
  1. 'Nuovi Moduli
  2.  
  3. Sub S_10357360(ByVal NND As Integer)
  4. ACT_MOD = "1035736"
  5.  
  6.  
  7.  
  8. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  9. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  10. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  11.  
  12.  
  13. R01 = T_SMUS(-0.2, -0.2) & T_SMUS(H + 0.2, -0.2) & T_SMUS(L + 0.2, -0.2) & T_SMUS(H + 0.2, L + 0.2)
  14.  
  15. fn = R01
  16.  
  17.  
  18. P1 = 250
  19. P2 = H - 400
  20. MVAL = 500
  21. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  22. Call SAVE_SUB(NND, STRINGA)
  23.  
  24. POSINTAB = def_posintab(NND)
  25. Call CUT_END_S(H, L, "0", POSINTAB)
  26. Call FVTPT(3, NND, "")
  27. Call CUT_END_S(H, L, "B", POSINTAB)
  28. Call FVTPT(3, NND, "B")
  29. Call CUT_END_S(H, L, "C", POSINTAB)
  30. Call FVTPT(3, NND, "C")
  31.  
  32.  
  33. End Sub
  34.  
  35.  
  36.  
  37. Sub S_10229750(ByVal NND As Integer)
  38. ACT_MOD = "1022975"
  39. CLAMP = 0
  40.  
  41.  
  42. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  43. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  44. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  45. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  46. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  47.  
  48.  
  49.  
  50. R01 = T_SLOT(30, L - 51.7, 10, 5, 90)
  51. R01 = R01 & T_SLOT(30 + M1, L - 51.7, 10, 5, 90)
  52. R01 = R01 & T_SLOT(30 + 2 * M1, L - 51.7, 10, 5, 90)
  53. R01 = R01 & T_SLOT(30 + 3 * M1, L - 51.7, 10, 5, 90)
  54. R01 = R01 & T_SLOT(30 + 4 * M1, L - 51.7, 10, 5, 90)
  55. R01 = R01 & T_SLOT(30 + 5 * M1, L - 51.7, 10, 5, 90)
  56.  
  57.  
  58. R02 = T_CIRC(30, L - 3.75, 14)
  59. R02 = R02 & T_CIRC(30 + M1, L - 3.75, 14)
  60. R02 = R02 & T_CIRC(30 + 2 * M1, L - 3.75, 14)
  61. R02 = R02 & T_CIRC(30 + 3 * M1, L - 3.75, 14)
  62. R02 = R02 & T_CIRC(30 + 4 * M1, L - 3.75, 14)
  63. R02 = R02 & T_CIRC(30 + 5 * M1, L - 3.75, 14)
  64.  
  65. ' GLI SMUSSI
  66.  
  67. R03 = T_SMUS(30 + 6.25, L)
  68. R03 = R03 & T_SMUS(30 - 6.25, L)
  69.  
  70. R03 = R03 & T_SMUS(30 + M1 + 6.25, L)
  71. R03 = R03 & T_SMUS(30 + M1 - 6.25, L)
  72.  
  73. R03 = R03 & T_SMUS(30 + 2 * M1 + 6.25, L)
  74. R03 = R03 & T_SMUS(30 + 2 * M1 - 6.25, L)
  75.  
  76. R03 = R03 & T_SMUS(30 + 3 * M1 + 6.25, L)
  77. R03 = R03 & T_SMUS(30 + 3 * M1 - 6.25, L)
  78.  
  79. R03 = R03 & T_SMUS(30 + 4 * M1 + 6.25, L)
  80. R03 = R03 & T_SMUS(30 + 4 * M1 - 6.25, L)
  81.  
  82. R03 = R03 & T_SMUS(30 + 5 * M1 + 6.25, L)
  83. R03 = R03 & T_SMUS(30 + 5 * M1 - 6.25, L)
  84.  
  85.  
  86. fn = R01 & R02 & R03
  87.  
  88.  
  89.  
  90. P1 = 250
  91. P2 = H - 400
  92. MVAL = 500
  93. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  94. Call SAVE_SUB(NND, STRINGA)
  95.  
  96. POSINTAB = def_posintab(NND)
  97. Call CUT_END_S(H, L, "0", POSINTAB)
  98. Call FVTPT(3, NND, "")
  99. Call CUT_END_S(H, L, "B", POSINTAB)
  100. Call FVTPT(3, NND, "B")
  101. Call CUT_END_S(H, L, "C", POSINTAB)
  102. Call FVTPT(3, NND, "C")
  103.  
  104.  
  105.  
  106. End Sub
  107.  
  108. Sub S_3201155358(ByVal NND As Integer)
  109. ACT_MOD = "3201155358"
  110. CLAMP = 0
  111.  
  112.  
  113. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  114. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  115. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  116.  
  117. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  118.  
  119.  
  120.  
  121. fn = ""
  122.  
  123.  
  124.  
  125. P1 = 250
  126. P2 = H - 400
  127. MVAL = 500
  128. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  129. Call SAVE_SUB(NND, STRINGA)
  130.  
  131. POSINTAB = def_posintab(NND)
  132. Call CUT_END_S(H, L, "0", POSINTAB)
  133. Call FVTPT(3, NND, "")
  134. Call CUT_END_S(H, L, "B", POSINTAB)
  135. Call FVTPT(3, NND, "B")
  136. Call CUT_END_S(H, L, "C", POSINTAB)
  137. Call FVTPT(3, NND, "C")
  138.  
  139.  
  140.  
  141. End Sub
  142.  
  143.  
  144. Sub S_1026716A(ByVal NND As Integer)
  145. ACT_MOD = "1026716"
  146. CLAMP = 0
  147.  
  148.  
  149. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  150. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  151. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  152. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  153.  
  154. RGR = 0.2
  155. agsp = 2
  156. R01 = T_RECT1(MR_X(1321, H, agsp), MR_X(1321 + 445, H, agsp), L - 31.4, L + 6)
  157. R02 = T_CIRC(MR_X(28, H, agsp), 6, 3.3)
  158. R03 = T_SMUS(-RGR, -RGR) & T_SMUS(-RGR, L + RGR) & T_SMUS(H + RGR, -RGR) & T_SMUS(H + RGR, L + RGR)
  159.  
  160. fn = R01 & R02 & R03
  161.  
  162.  
  163. P1 = 250
  164. P2 = H - 400
  165. MVAL = 500
  166. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  167. Call SAVE_SUB(NND, STRINGA)
  168.  
  169. POSINTAB = def_posintab(NND)
  170. Call CUT_END_S(H, L, "0", POSINTAB)
  171. Call FVTPT(3, NND, "")
  172. Call CUT_END_S(H, L, "C", POSINTAB)
  173. Call FVTPT(3, NND, "C")
  174.  
  175.  
  176. End Sub
  177.  
  178.  
  179. Sub S_10280840(ByVal NND As Integer)
  180. ACT_MOD = "1028084"
  181. CLAMP = 0
  182.  
  183.  
  184. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  185. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  186. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  187. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  188.  
  189. R01 = T_CIRC(100, 38.5, 8.5) & T_CIRC(H - 100, 38.5, 8.5)
  190. inter = (H - 200) / 5
  191. R02 = T_CIRC(100 + inter, 38.5, 8.5) & T_CIRC(100 + 2 * inter, 38.5, 8.5) & T_CIRC(100 + 3 * inter, 38.5, 8.5) & T_CIRC(100 + 4 * inter, 38.5, 8.5)
  192.  
  193. fn = R01 & R02
  194.  
  195.  
  196. P1 = 250
  197. P2 = H - 400
  198. MVAL = 500
  199. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  200. Call SAVE_SUB(NND, STRINGA)
  201.  
  202. POSINTAB = def_posintab(NND)
  203. Call CUT_END_S(H, L, "0", POSINTAB)
  204. Call FVTPT(3, NND, "")
  205. Call CUT_END_S(H, L, "B", POSINTAB)
  206. Call FVTPT(3, NND, "B")
  207. Call CUT_END_S(H, L, "C", POSINTAB)
  208. Call FVTPT(3, NND, "C")
  209.  
  210.  
  211. End Sub
  212.  
  213.  
  214. Sub S_10228760(ByVal NND As Integer)
  215. ACT_MOD = "1022876"
  216. CLAMP = 0
  217.  
  218. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  219. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  220. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  221. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  222. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  223. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  224.  
  225.  
  226.  
  227. R01 = T_CIRC(29, L - 15, 3.3) & T_CIRC(H - 29, L - 15, 3.3)
  228.  
  229. For U = 1 To 5
  230. R02 = R02 & T_CIRC(H - 29 - (M1 * U), L - 15, 3.3)
  231. Next U
  232. R03 = T_CIRC(15, 8, 3.3) & T_CIRC(H - 15, 8, 3.3)
  233.  
  234. R04 = T_CIRC(79, 8, 7.2) & T_CIRC(H - 79, 8, 7.2)
  235.  
  236. n_for = (H - 79 - 79) / 50
  237. For F = 1 To n_for
  238. R05 = R05 & T_CIRC(79 + (50 * F), 8, 7.2)
  239. Next F
  240.  
  241. fn = R01 & R02 & R03 & R04 & R05
  242.  
  243. P1 = 250
  244. P2 = H - 400
  245. MVAL = 500
  246. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  247.  
  248. Call SAVE_SUB(NND, STRINGA)
  249.  
  250. POSINTAB = def_posintab(NND)
  251. Call CUT_END_S(H, L, "0", POSINTAB)
  252. Call FVTPT(3, NND, "")
  253. Call CUT_END_S(H, L, "B", POSINTAB)
  254. Call FVTPT(3, NND, "B")
  255. Call CUT_END_S(H, L, "C", POSINTAB)
  256. Call FVTPT(3, NND, "C")
  257.  
  258.  
  259. End Sub
  260.  
  261.  
  262. Sub S_1026699A(ByVal NND As Integer)
  263. ACT_MOD = "1026699"
  264. CLAMP = 0
  265.  
  266. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  267. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  268. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  269. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  270. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  271. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  272. H_SPC_VT = L - 11.8 - 22.6 - 8.5 + 4 * 1.8
  273.  
  274.  
  275. R01A = T_CIRC(28, 22.8, 3.3) & T_CIRC(28 + 425, 22.8, 3.3) & T_CIRC(28 + 2 * 425, 22.8, 3.3) & T_CIRC(28 + 3 * 425, 22.8, 3.3)
  276. R01B = T_CIRC(H - 30, 22.8, 3.3) & T_CIRC(H - 30 - M1, 22.8, 3.3)
  277. R01 = R01A & R01B
  278. R02A = T_CIRC(7, L - 8, 7) & T_CIRC(7 + 50, L - 8, 7)
  279. R02B = T_CIRC(107, L - 8, 7) & T_CIRC(107, L - 8 + 1.4, 7) & T_CIRC(107, L - 8 - 1.4, 7)
  280. R02C = T_CIRC(157, L - 8, 7) & T_CIRC(157, L - 8 + 1.4, 7) & T_CIRC(157, L - 8 - 1.4, 7)
  281. R02 = R02A & R02B & R02C
  282. R03A = T_RECT1(H - 20, H + 6, L - 26, L + 6)
  283. R03B = T_SMUS(H - (15 - 5) - 20, L + (0.5)) & T_SMUS(H - (-0.5) - 20, L - (15 - 5)) & T_SMUS(H - (7.5 - 2.75) - 20, L - (7.5 - 2.75)) & T_CIRC(H - 20 - 1, L - 1, 7.2)
  284. R03 = R03A & R03B
  285.  
  286. R04 = ""
  287. For U = 0 To 21
  288. R04 = R04 & T_CIRC(207 + 50 * U, L - 8, 7)
  289. Next U
  290. R04 = R04 & T_CIRC(1322 - 15, L - 8, 7)
  291.  
  292.  
  293.  
  294. Select Case ver
  295. Case 1, 2, 3, 4
  296. R05A = T_CIRC(H - 178, L - 8, 7) & T_CIRC(H - 178, L - 8 + 1.4, 7) & T_CIRC(H - 178, L - 8 - 1.4, 7)
  297. R05B = T_CIRC(H - 128, L - 8, 7) & T_CIRC(H - 128, L - 8 + 1.4, 7) & T_CIRC(H - 128, L - 8 - 1.4, 7)
  298. R05 = R05A & R05B
  299. R06 = T_RECT1(H - 107, H - 107 + 30, L - 12, L + 6) & T_SMUS(H - 107, L) & T_SMUS(H - 107 + 30, L)
  300.  
  301. Case 5, 6
  302. R05 = ""
  303. R06 = ""
  304.  
  305. Case Else
  306. MsgBox ("ATTENZIONE CONTROLLARE VERSIONE SU " & ACT_MOD)
  307. End Select
  308.  
  309. R07 = T_RECT1(1322, 1322 + 443, L - H_SPC_VT, L + 6)
  310.  
  311.  
  312. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07
  313.  
  314.  
  315. P1 = 250
  316. P2 = H - 400
  317. MVAL = 500
  318. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  319.  
  320. Call SAVE_SUB(NND, STRINGA)
  321.  
  322. POSINTAB = def_posintab(NND)
  323. Call CUT_END_S(H, L, "0", POSINTAB)
  324. Call FVTPT(3, NND, "")
  325. Call CUT_END_S(H, L, "B", POSINTAB)
  326. Call FVTPT(3, NND, "B")
  327. Call CUT_END_S(H, L, "C", POSINTAB)
  328. Call FVTPT(3, NND, "C")
  329.  
  330.  
  331. End Sub
  332.  
  333.  
  334. Sub S_1027588A(ByVal NND As Integer)
  335. ACT_MOD = "1027588"
  336. CLAMP = 0
  337.  
  338. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  339. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  340. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  341. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  342. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  343. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  344. H_SPC_VT = L - 12 - 8 + 1.8 * 2
  345.  
  346.  
  347. R01A = T_CIRC(7, L - 8, 7) & T_CIRC(7 + 50, L - 8, 7) & T_CIRC(1322 - 15, L - 8, 7)
  348. R01B = T_CIRC(107, L - 8, 7) & T_CIRC(107, L - 8 + 1.4, 7) & T_CIRC(107, L - 8 - 1.4, 7)
  349. R01C = T_CIRC(157, L - 8, 7) & T_CIRC(157, L - 8 + 1.4, 7) & T_CIRC(157, L - 8 - 1.4, 7)
  350. If H = 1908 Then
  351. R01D = T_CIRC(178, L - 8, 7) & T_CIRC(178, L - 8 + 1.4, 7) & T_CIRC(178, L - 8 - 1.4, 7)
  352. R01E = T_CIRC(128, L - 8, 7) & T_CIRC(128, L - 8 + 1.4, 7) & T_CIRC(128, L - 8 - 1.4, 7)
  353. Else
  354. R01D = ""
  355. R01E = ""
  356. End If
  357. R01 = R01A & R01B & R01C & R01D & R01E
  358.  
  359. R02 = ""
  360. For U = 0 To 21
  361. R02 = R02 & T_CIRC(207 + 50 * U, L - 8, 7)
  362. Next U
  363.  
  364. R03 = T_CIRC(28, 23.2, 3.3) & T_CIRC(28 + 425, 23.2, 3.3) & T_CIRC(28 + 2 * 425, 23.2, 3.3) & T_CIRC(28 + 3 * 425, 23.2, 3.3)
  365. R04 = T_CIRC(H - 30, 23.2, 3.3) & T_CIRC(H - 30 - M1, 23.2, 3.3)
  366.  
  367.  
  368. R05 = T_RECT1(1322, 1322 + 443, L - H_SPC_VT, L + 6)
  369. R06 = T_SMUS(H - (15 - 5), L + 0.5) & T_SMUS(H - (-0.5), L - 15 + 5) & T_SMUS(H - (7.5 - 2.75), L - 7.5 + 2.75) & T_CIRC(H - (1), L - 1, 7.2)
  370.  
  371. fn = R01 & R02 & R03 & R04 & R05 & R06
  372.  
  373.  
  374. P1 = 250
  375. P2 = H - 400
  376. MVAL = 500
  377. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  378.  
  379. Call SAVE_SUB(NND, STRINGA)
  380.  
  381. POSINTAB = def_posintab(NND)
  382. Call CUT_END_S(H, L, "0", POSINTAB)
  383. Call FVTPT(3, NND, "")
  384. Call CUT_END_S(H, L, "B", POSINTAB)
  385. Call FVTPT(3, NND, "B")
  386. Call CUT_END_S(H, L, "C", POSINTAB)
  387. Call FVTPT(3, NND, "C")
  388.  
  389.  
  390. End Sub
  391.  
  392.  
  393.  
  394. Sub S_1027588C(ByVal NND As Integer)
  395. ACT_MOD = "1027588"
  396. CLAMP = 0
  397.  
  398. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  399. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  400. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  401. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  402. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  403. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  404. H_SPC_VT = L - 12 - 8 + 1.8 * 2
  405.  
  406.  
  407. R01A = T_CIRC(7, L - 8, 7) & T_CIRC(7 + 50, L - 8, 7) & T_CIRC(1322 - 15, L - 8, 7)
  408. R01B = T_CIRC(107, L - 8, 7) & T_CIRC(107, L - 8 + 1.4, 7) & T_CIRC(107, L - 8 - 1.4, 7)
  409. R01C = T_CIRC(157, L - 8, 7) & T_CIRC(157, L - 8 + 1.4, 7) & T_CIRC(157, L - 8 - 1.4, 7)
  410. If H <> 1908 Then
  411. R01D = T_CIRC(178, L - 8, 7) & T_CIRC(178, L - 8 + 1.4, 7) & T_CIRC(178, L - 8 - 1.4, 7)
  412. R01E = T_CIRC(128, L - 8, 7) & T_CIRC(128, L - 8 + 1.4, 7) & T_CIRC(128, L - 8 - 1.4, 7)
  413. Else
  414. R01D = ""
  415. R01E = ""
  416. End If
  417. R01 = R01A & R01B & R01C & R01D & R01E
  418.  
  419. R02 = ""
  420. For U = 0 To 21
  421. R02 = R02 & T_CIRC(207 + 50 * U, L - 8, 7)
  422. Next U
  423.  
  424. R03 = T_CIRC(28, 23.2, 3.3) & T_CIRC(28 + 425, 23.2, 3.3) & T_CIRC(28 + 2 * 425, 23.2, 3.3) & T_CIRC(28 + 3 * 425, 23.2, 3.3)
  425. R04 = T_CIRC(H - 30, 23.2, 3.3) & T_CIRC(H - 30 - M1, 23.2, 3.3)
  426.  
  427.  
  428. R05 = T_RECT1(1322, 1322 + 443, L - H_SPC_VT, L + 6)
  429.  
  430.  
  431. 'R06 = T_SMUS(H - (15 - 5), L + 0.5) & T_SMUS(H - (-0.5), L - 15 + 5) & T_SMUS(H - (7.5 - 2.75), L - 7.5 + 2.75)
  432. R06 = T_SMUS(H - (-0.5), L - 15 + 5)
  433. R07 = T_RECT1(H - 70, H + 6, L - 10, L + 5)
  434. R08 = T_SMUS(H - (15 - 5) - 70, L + 0.5 + 5) & T_SMUS(H - (-0.5) - 70, L - 15 + 5 + 5) & T_SMUS(H - (7.5 - 2.75) - 70, L - 7.5 + 2.75 + 5)
  435. R08 = T_SMUS(H - (-0.5) - 70, L - 15 + 5 + 5) & T_SMUS(H - (7.5 - 2.75) - 70, L - 7.5 + 2.75 + 5)
  436. '-70 + 5
  437. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08
  438.  
  439.  
  440. P1 = 250
  441. P2 = H - 400
  442. MVAL = 500
  443. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  444.  
  445. Call SAVE_SUB(NND, STRINGA)
  446.  
  447. POSINTAB = def_posintab(NND)
  448. Call CUT_END_S(H, L, "0", POSINTAB)
  449. Call FVTPT(3, NND, "")
  450. Call CUT_END_S(H, L, "B", POSINTAB)
  451. Call FVTPT(3, NND, "B")
  452. Call CUT_END_S(H, L, "C", POSINTAB)
  453. Call FVTPT(3, NND, "C")
  454.  
  455.  
  456. End Sub
  457.  
  458.  
  459. Sub S_1020085B(ByVal NND As Integer)
  460. ACT_MOD = "1020085"
  461. CLAMP = 0
  462.  
  463.  
  464. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  465. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  466. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  467. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  468. VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  469.  
  470. SCS = 6
  471.  
  472.  
  473. R01 = T_RECT1(30, H - 30, -3.6, 29) & T_RECT1(30, H - 30, L - 29, L + 3.6)
  474. R02 = T_CIRC(14, 11, 5.5) & T_CIRC(H - 14, 11, 5.5) & T_CIRC(14, L - 11, 5.5) & T_CIRC(H - 14, L - 11, 5.5)
  475.  
  476.  
  477. R03 = T_SMUS(-0.5, -0.5)
  478. R03 = R03 & T_SMUS(30 + 0.5, -0.5)
  479. R03 = R03 & T_SMUS(H + 0.5, -0.5)
  480. R03 = R03 & T_SMUS(H - 30.5, -0.5)
  481. R03 = R03 & T_SMUS(-0.5, L + 0.5)
  482. R03 = R03 & T_SMUS(30 + 0.5, L + 0.5)
  483. R03 = R03 & T_SMUS(H + 0.5, L + 0.5)
  484. R03 = R03 & T_SMUS(H - 30.5, L + 0.5)
  485.  
  486. fn = R01 & R02 & R03
  487.  
  488. P1 = 250
  489. P2 = H - 400
  490. MVAL = 500
  491. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  492.  
  493. Call SAVE_SUB(NND, STRINGA)
  494.  
  495. POSINTAB = def_posintab(NND)
  496. Call CUT_END_S(H, L, "0", POSINTAB)
  497. Call FVTPT(3, NND, "")
  498. Call CUT_END_S(H, L, "B", POSINTAB)
  499. Call FVTPT(3, NND, "B")
  500. Call CUT_END_S(H, L, "C", POSINTAB)
  501. Call FVTPT(3, NND, "C")
  502.  
  503.  
  504. End Sub
  505.  
  506.  
  507.  
  508. Sub S_1019999A(ByVal NND As Integer)
  509. ACT_MOD = "1019999"
  510. CLAMP = 0
  511.  
  512.  
  513. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  514. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  515. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  516. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  517. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  518. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  519. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  520. VV = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  521.  
  522. SCS = 6
  523.  
  524.  
  525. R01 = T_CIRC(H / 2 - M2 / 2, L / 2 - M4 / 2, 5) & T_CIRC(H / 2 + M2 / 2, L / 2 - M4 / 2, 5) & T_CIRC(H / 2 + M2 / 2, L / 2 + M4 / 2, 5) & T_CIRC(H / 2 - M2 / 2, L / 2 + M4 / 2, 5)
  526.  
  527. fn = R01
  528.  
  529. P1 = 250
  530. P2 = H - 400
  531. MVAL = 500
  532. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  533.  
  534. Call SAVE_SUB(NND, STRINGA)
  535.  
  536. POSINTAB = def_posintab(NND)
  537. Call CUT_END_S(H, L, "0", POSINTAB)
  538. Call FVTPT(3, NND, "")
  539. Call CUT_END_S(H, L, "B", POSINTAB)
  540. Call FVTPT(3, NND, "B")
  541. Call CUT_END_S(H, L, "C", POSINTAB)
  542. Call FVTPT(3, NND, "C")
  543.  
  544. End Sub
  545.  
  546.  
  547.  
  548.  
  549.  
  550. Sub S_1006718A(ByVal NND As Integer)
  551. ACT_MOD = "1006718"
  552. CLAMP = 0
  553.  
  554.  
  555. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  556. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  557. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  558. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  559. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  560. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  561.  
  562.  
  563. If M1 = 0 Then
  564. MsgBox "M1 MANCANTE"
  565. If ver = 1 Then M1 = 370
  566. If ver = 2 Then M1 = 380
  567. If ver = 3 Then M1 = 390
  568. If ver = 4 Then M1 = 400
  569. If ver = 5 Then M1 = 410
  570. If ver = 6 Then M1 = 370
  571. If ver = 7 Then M1 = 380
  572. If ver = 8 Then M1 = 390
  573. If ver = 9 Then M1 = 400
  574. If ver = 10 Then M1 = 410
  575. End If
  576.  
  577.  
  578.  
  579. R01 = T_CIRC(15, 8, 3.3)
  580. R01 = R01 & T_CIRC(H - 15, 8, 3.3)
  581.  
  582. 'RODITURE CON TONDO DI 7.2
  583. R01 = R01 & T_CIRC(79, 8, 7.2)
  584. 'Print #NF, T_SLOT(79 + 50, 8, 10, 7, 90)
  585. '***************************************
  586. R01 = R01 & T_CIRC(79 + 50, 8, 7.2)
  587. R01 = R01 & T_CIRC(79 + 50, 8 - 1.4, 7.2)
  588. R01 = R01 & T_CIRC(79 + 50, 8 + 1.4, 7.2)
  589. '***************************************
  590. 'Print #NF, T_SLOT(79 + 100, 8, 10, 7, 90)
  591. '***************************************
  592. R01 = R01 & T_CIRC(79 + 100, 8, 7.2)
  593. R01 = R01 & T_CIRC(79 + 100, 8 - 1.4, 7.2)
  594. R01 = R01 & T_CIRC(79 + 100, 8 + 1.4, 7.2)
  595. '***************************************
  596. R01 = R01 & T_CIRC(79 + 150, 8, 7.2)
  597.  
  598. R01 = R01 & T_CIRC(H - 79 - 150, 8, 7.2)
  599. 'Print #NF, T_SLOT(H - 79 - 100, 8, 10, 7, 90)
  600. '***************************************
  601. R01 = R01 & T_CIRC(H - 79 - 100, 8, 7.2)
  602. R01 = R01 & T_CIRC(H - 79 - 100, 8 - 1.4, 7.2)
  603. R01 = R01 & T_CIRC(H - 79 - 100, 8 + 1.4, 7.2)
  604. '***************************************
  605. 'Print #NF, T_SLOT(H - 79 - 50, 8, 10, 7, 90)
  606. '***************************************
  607. R01 = R01 & T_CIRC(H - 79 - 50, 8, 7.2)
  608. R01 = R01 & T_CIRC(H - 79 - 50, 8 - 1.4, 7.2)
  609. R01 = R01 & T_CIRC(H - 79 - 50, 8 + 1.4, 7.2)
  610. '***************************************
  611. R01 = R01 & T_CIRC(H - 79, 8, 7.2)
  612.  
  613. '***************************************
  614.  
  615. R02 = T_SMUS(15 - 5, -0.5) & T_SMUS(-0.5, 15 - 5) & T_SMUS(7.5 - 2.75, 7.5 - 2.75) & T_CIRC(1, 1, 7.2)
  616. R03 = T_SMUS(H - (15 - 5), -0.5) & T_SMUS(H - (-0.5), 15 - 5) & T_SMUS(H - (7.5 - 2.75), 7.5 - 2.75) & T_CIRC(H - (1), 1, 7.2)
  617.  
  618. 'INTAGLI DA 15 PER ENTRAMBI I LATI BASSI
  619. 'SDF = 5
  620. ''Print #NF, T_CIRC(0, SDF, 10.5) 'DA RIVEDERE
  621. ''Print #NF, T_CIRC(SDF, 0, 10.5)
  622. ''Print #NF, T_CIRC(H - SDF, 0, 10.5)
  623. ''Print #NF, T_CIRC(H, SDF, 10.5)
  624. ''Print #NF, T_BLQ(15, 0, 0, 15, 1, 1)
  625. ''Print #NF, T_BLQ(H, 15, H - 15, 0, 1, 1)
  626. 'MsgBox ("ATTENZIONE CONTROLLARE GLI INTAGLI DA 15 PER ENTRAMBI I LATI BASSI SUL CODICE " & ACT_MOD)
  627. '***************************************
  628.  
  629. XXR = 279
  630. AAA:
  631. R01 = R01 & T_CIRC(XXR, 8, 7.2)
  632. XXR = XXR + 50
  633. If XXR <= H - 279 Then GoTo AAA
  634.  
  635.  
  636. XXB = 29
  637. BBB:
  638.  R01 = R01 & T_CIRC(XXB, L - 15, 3.3)
  639. XXB = XXB + M1
  640. If XXB <= H - 29 Then GoTo BBB
  641.  
  642. fn = R01 & R02 & R03
  643.  
  644. P1 = 250
  645. P2 = H - 400
  646. MVAL = 500
  647. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  648.  
  649. Call SAVE_SUB(NND, STRINGA)
  650.  
  651. POSINTAB = def_posintab(NND)
  652. Call CUT_END_S(H, L, "0", POSINTAB)
  653. Call FVTPT(3, NND, "")
  654. Call CUT_END_S(H, L, "B", POSINTAB)
  655. Call FVTPT(3, NND, "B")
  656. Call CUT_END_S(H, L, "C", POSINTAB)
  657. Call FVTPT(3, NND, "C")
  658.  
  659.  
  660. End Sub
  661.  
  662.  
  663. Sub S_1006718B(ByVal NND As Integer)
  664. ACT_MOD = "1006718"
  665. CLAMP = 0
  666.  
  667.  
  668. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  669. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  670. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  671. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  672. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  673. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  674.  
  675.  
  676. If M1 = 0 Then
  677. MsgBox "M1 MANCANTE"
  678. If ver = 1 Then M1 = 370
  679. If ver = 2 Then M1 = 380
  680. If ver = 3 Then M1 = 390
  681. If ver = 4 Then M1 = 400
  682. If ver = 5 Then M1 = 410
  683. If ver = 6 Then M1 = 370
  684. If ver = 7 Then M1 = 380
  685. If ver = 8 Then M1 = 390
  686. If ver = 9 Then M1 = 400
  687. If ver = 10 Then M1 = 410
  688. End If
  689.  
  690.  
  691.  
  692. R01 = T_CIRC(15, 8, 3.3)
  693. R01 = R01 & T_CIRC(H - 15, 8, 3.3)
  694.  
  695. 'RODITURE CON TONDO DI 7.2
  696. R01 = R01 & T_CIRC(79, 8, 7.2)
  697. 'Print #NF, T_SLOT(79 + 50, 8, 10, 7, 90)
  698. '***************************************
  699. R01 = R01 & T_CIRC(79 + 50, 8, 7.2)
  700. R01 = R01 & T_CIRC(79 + 50, 8 - 1.4, 7.2)
  701. R01 = R01 & T_CIRC(79 + 50, 8 + 1.4, 7.2)
  702. '***************************************
  703. 'Print #NF, T_SLOT(79 + 100, 8, 10, 7, 90)
  704. '***************************************
  705. R01 = R01 & T_CIRC(79 + 100, 8, 7.2)
  706. R01 = R01 & T_CIRC(79 + 100, 8 - 1.4, 7.2)
  707. R01 = R01 & T_CIRC(79 + 100, 8 + 1.4, 7.2)
  708. '***************************************
  709. R01 = R01 & T_CIRC(79 + 150, 8, 7.2)
  710.  
  711. R01 = R01 & T_CIRC(H - 79 - 150, 8, 7.2)
  712. 'Print #NF, T_SLOT(H - 79 - 100, 8, 10, 7, 90)
  713. '***************************************
  714. R01 = R01 & T_CIRC(H - 79 - 100, 8, 7.2)
  715. R01 = R01 & T_CIRC(H - 79 - 100, 8 - 1.4, 7.2)
  716. R01 = R01 & T_CIRC(H - 79 - 100, 8 + 1.4, 7.2)
  717. '***************************************
  718. 'Print #NF, T_SLOT(H - 79 - 50, 8, 10, 7, 90)
  719. '***************************************
  720. R01 = R01 & T_CIRC(H - 79 - 50, 8, 7.2)
  721. R01 = R01 & T_CIRC(H - 79 - 50, 8 - 1.4, 7.2)
  722. R01 = R01 & T_CIRC(H - 79 - 50, 8 + 1.4, 7.2)
  723. '***************************************
  724. R01 = R01 & T_CIRC(H - 79, 8, 7.2)
  725.  
  726. '***************************************
  727.  
  728. R02 = T_SMUS(-0.5, 15 - 5) & T_SMUS(7.5 - 2.75, 7.5 - 2.75)  '& T_CIRC(1, 1, 7.2)
  729. R03 = T_SMUS(H - (-0.5), 15 - 5) & T_SMUS(H - (7.5 - 2.75), 7.5 - 2.75) '& T_CIRC(H - (1), 1, 7.2)
  730. 'T_SMUS(H - (15 - 5), -0.5)
  731. 'T_SMUS(15 - 5, -0.5)
  732.  
  733. XXR = 279
  734. AAA:
  735. R01 = R01 & T_CIRC(XXR, 8, 7.2)
  736. XXR = XXR + 50
  737. If XXR <= H - 279 Then GoTo AAA
  738.  
  739.  
  740. XXB = 29
  741. BBB:
  742.  R01 = R01 & T_CIRC(XXB, L - 15, 3.3)
  743. XXB = XXB + M1
  744. If XXB <= H - 29 Then GoTo BBB
  745.  
  746.  
  747. R04 = T_RECT1(-40, 70, 5, -1) & T_RECT1(H + 40, H - 70, 5, -1)
  748.  
  749.  
  750. fn = R01 & R02 & R03 & R04
  751.  
  752. P1 = 250
  753. P2 = H - 400
  754. MVAL = 500
  755. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  756. SPEK = 1
  757. STRINGA = MIRROR(STRINGA, H, L, 0, SPEK)
  758.  
  759.  
  760. Call SAVE_SUB(NND, STRINGA)
  761.  
  762. POSINTAB = def_posintab(NND)
  763. 'Call CUT_END_S(H, L, "0", POSINTAB)
  764. 'Call FVTPT(3, NND, "")
  765. 'Call CUT_END_S(H, L, "B", POSINTAB)
  766. 'Call FVTPT(3, NND, "B")
  767. 'Call CUT_END_S(H, L, "C", POSINTAB)
  768. 'Call FVTPT(3, NND, "C")
  769.  
  770.  
  771.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  772.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  773.     STR_OUT(2) = "TOOL(RETTANG.,C500,A29,32.6,22.6)"
  774.     STR_OUT(3) = "PUN(P" & CNLV_GEO & "(" & "78.8" & "," & Jcdf(L + 12.8) & "))"
  775.     STR_OUT(5) = "TOOL(RETTANG.,C500,A-29,32.6,22.6)"
  776.     STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(H - 78.8) & "," & Jcdf(L + 12.8) & "))"
  777.     STR_OUT(8) = TL_CUT_O
  778.     STR_OUT(9) = "TOOLANGLE(0)"
  779.     STR_OUT(10) = "MIDCUT(N)"
  780.     STR_OUT(11) = UnloadOutline(110, 6, 0, -6, H, L)
  781.     STR_OUT(12) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  782.     STR_OUT(13) = "'FINE BLOCCO"
  783.  
  784.  
  785. Call FVTPT(3, NND, "")
  786.  
  787.  
  788.  
  789. End Sub
  790.  
  791. Sub S_10067200(ByVal NND As Integer)
  792. ACT_MOD = "1006720"
  793. CLAMP = 0
  794.  
  795. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  796. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  797. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  798. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  799.  
  800. fn = ""
  801. P1 = 250
  802. P2 = H - 400
  803. MVAL = 500
  804. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  805.  
  806. Call SAVE_SUB(NND, STRINGA)
  807.  
  808. POSINTAB = def_posintab(NND)
  809. Call CUT_END_S(H, L, "0", POSINTAB)
  810. Call FVTPT(3, NND, "")
  811. Call CUT_END_S(H, L, "B", POSINTAB)
  812. Call FVTPT(3, NND, "B")
  813. Call CUT_END_S(H, L, "C", POSINTAB)
  814. Call FVTPT(3, NND, "C")
  815.  
  816. End Sub
  817.  
  818.  
  819. Sub S_10068200(ByVal NND As Integer)
  820. ACT_MOD = "1006820"
  821. CLAMP = 0
  822.  
  823.  
  824. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  825. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  826. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  827. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  828.  
  829.  
  830.  
  831. R01 = T_CIRC(30, L - 8, 3.3) & T_CIRC(H - 30, L - 8, 3.3)
  832.  
  833.  
  834.  
  835. fn = R01
  836.  
  837. P1 = 250
  838. P2 = H - 400
  839. MVAL = 500
  840. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  841.  
  842. Call SAVE_SUB(NND, STRINGA)
  843.  
  844. POSINTAB = def_posintab(NND)
  845. Call CUT_END_S(H, L, "0", POSINTAB)
  846. Call FVTPT(3, NND, "")
  847. Call CUT_END_S(H, L, "B", POSINTAB)
  848. Call FVTPT(3, NND, "B")
  849. Call CUT_END_S(H, L, "C", POSINTAB)
  850. Call FVTPT(3, NND, "C")
  851.  
  852.  
  853. End Sub
  854.  
  855. Sub S_1006820A(ByVal NND As Integer)
  856. ACT_MOD = "1006820"
  857. CLAMP = 0
  858.  
  859.  
  860. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  861. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  862. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  863. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  864.  
  865.  
  866. R01 = T_CIRC(30, L - 8, 3.3) & T_CIRC(H - 30, L - 8, 3.3)
  867. 'R02 = T_SPECIAL(8, L - 2, "32,6", "C30.") & T_SPECIAL(16, L + 2.7, "32,6", "C30.")
  868. 'R03 = T_SPECIAL(H - 8, L - 2, "32,6", "C330.") & T_SPECIAL(H - 16, L + 2.7, "32,6", "C330.")
  869. 'FARE IL BLOCCO COL TAGLIO
  870. fn = R01
  871.  
  872.  
  873. P1 = 250
  874. P2 = H - 400
  875. MVAL = 500
  876. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  877.  
  878. Call SAVE_SUB(NND, STRINGA)
  879.  
  880. POSINTAB = def_posintab(NND)
  881.  
  882.  
  883.     STR_OUT(0) = TablePosition(H, L, 0, 0, POSINTAB)
  884.     STR_OUT(1) = "'INIZIO BLOCCO=ABABAB"
  885.     STR_OUT(2) = "TOOL(RETTANG.,C500,A30,32.6,22.6)"
  886.     STR_OUT(3) = "PUN(P" & CNLV_GEO & "(8, 59.3))"
  887.     STR_OUT(4) = "PUN(P" & CNLV_GEO & "(16, 64))"
  888.     STR_OUT(5) = "TOOL(RETTANG.,C500,A-30,32.6,22.6)"
  889.     STR_OUT(6) = "PUN(P" & CNLV_GEO & "(" & Jcdf(H - 8) & ", 59.3))"
  890.     STR_OUT(7) = "PUN(P" & CNLV_GEO & "(" & Jcdf(H - 16) & ", 64))"
  891.     STR_OUT(8) = TL_CUT_O
  892.     STR_OUT(9) = "TOOLANGLE(0)"
  893.     STR_OUT(10) = "MIDCUT(N)"
  894.     STR_OUT(11) = UnloadOutline(110, 6, 0, -6, H, L)
  895.     STR_OUT(12) = "PUN(LIN" & CNLV_GEO & "(P," & Jcdf(H) & "," & -LUTH & ",0," & -LUTH & ",-6,-6,0,M0,UNLDR" & UNLOADER(1, H, L, 0, 0)
  896.     STR_OUT(13) = "'FINE BLOCCO"
  897.  
  898.  
  899. 'Call CUT_END_S(H, L, "0", POSINTAB)
  900. Call FVTPT(3, NND, "")
  901. 'Call CUT_END_S(H, L, "B", POSINTAB)
  902. 'Call FVTPT(3, NND, "B")
  903. 'Call CUT_END_S(H, L, "C", POSINTAB)
  904. 'Call FVTPT(3, NND, "C")
  905.  
  906.  
  907. End Sub
  908.  
  909.  
  910. Sub S_1013300C(ByVal NND As Integer)
  911. ACT_MOD = "1013300"
  912. CLAMP = 0
  913.  
  914. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  915. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  916. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  917. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  918. VV = INPUT_NUM(NND, "VER.", VV, ACT_MOD)
  919.  
  920.  
  921. Select Case VV
  922. Case 4, 5, 6  '********************************************* SPACCO *********************
  923. R01 = T_RECT1(H - 250, H + 5, -5, 15)
  924. Case Else
  925. R01 = ""
  926. End Select
  927.  
  928. fn = R01
  929.  
  930. P1 = 250
  931. P2 = H - 400
  932. MVAL = 500
  933. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  934.  
  935. Call SAVE_SUB(NND, STRINGA)
  936.  
  937. POSINTAB = def_posintab(NND)
  938. Call CUT_END_S(H, L, "0", POSINTAB)
  939. Call FVTPT(3, NND, "")
  940. Call CUT_END_S(H, L, "B", POSINTAB)
  941. Call FVTPT(3, NND, "B")
  942. Call CUT_END_S(H, L, "C", POSINTAB)
  943. Call FVTPT(3, NND, "C")
  944.  
  945. End Sub
  946.  
  947.  
  948.  
  949.  
  950. Sub S_10163900(ByVal NND As Integer)
  951. ACT_MOD = "1016390"
  952. CLAMP = 0
  953.  
  954. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  955. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  956. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  957. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  958. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  959. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  960.  
  961.  
  962. SCS = 6
  963. XXX = M3 + 11 - 4
  964.  
  965. R01 = T_RECT1(H - 15, H + SCS, -SCS, 15)
  966. R02 = T_SLOT(H - 10, L - XXX, 16, 6.5, 90) & T_SLOT(10, L - XXX, 16, 6.5, 90)
  967.  
  968. 'SMUSSI
  969. GSG = 0.2
  970. R03 = T_SMUS(-GSG, -GSG)
  971. R03 = R03 & T_SMUS(-GSG, L + GSG)
  972. R03 = R03 & T_SMUS(H + GSG, L + GSG)
  973. R03 = R03 & T_SMUS(H + GSG, 15 - GSG)
  974. R03 = R03 & T_SMUS(H - 15 + GSG, -GSG)
  975.  
  976.  
  977. fn = R01 & R02 & R03
  978. P1 = 250
  979. P2 = H - 400
  980. MVAL = 500
  981. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  982.  
  983. Call SAVE_SUB(NND, STRINGA)
  984.  
  985. POSINTAB = def_posintab(NND)
  986. Call CUT_END_S(H, L, "0", POSINTAB)
  987. Call FVTPT(3, NND, "")
  988. Call CUT_END_S(H, L, "B", POSINTAB)
  989. Call FVTPT(3, NND, "B")
  990. Call CUT_END_S(H, L, "C", POSINTAB)
  991. Call FVTPT(3, NND, "C")
  992.  
  993. End Sub
  994.  
  995. Sub S_1016400A(ByVal NND As Integer)
  996. ACT_MOD = "1016400"
  997. CLAMP = 0
  998.  
  999. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1000. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1001. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1002. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1003. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1004. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1005. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1006. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1007. VV = Replace(VV, "H", "")
  1008.  
  1009.  
  1010. SCS = 6
  1011.  
  1012. Select Case VV
  1013. Case 1
  1014.  
  1015. R01 = T_RECT1(-SCS, 17, -2, 3)
  1016. R01 = R01 & T_RECT1(-SCS, L - M3 - 8, M2, H + SCS)
  1017. R01 = R01 & T_RECT1(L - M3 + 8, L + SCS, M2, H + SCS)
  1018. 'Print #NF, T_CIRC(10, 12, 5)        'VECCHIO
  1019. 'Print #NF, T_CIRC(10, 12 + M4, 5)   'VECCHIO
  1020. R02 = T_CIRC(6, 12, 5)
  1021. R02 = R02 & T_CIRC(6, 12 + M4, 5)
  1022. R02 = R02 & T_CIRC(L - M3, H - 9, 6.5)
  1023. R02 = R02 & T_CIRC(L - 4.5, 4.5, 5)
  1024. R03 = T_SLOT(L - M3 - 8 - 2.5, M2, 15, 5, 90)
  1025. R03 = R03 & T_SLOT(L - M3 + 8 + 2.5, M2, 15, 5, 90)
  1026.  
  1027. 'SMUSSI
  1028. 'Print #NF, T_BLQ(L - M3 - 8, H - 2.5, L - M3 - 8 + 2.5, H, 1, 1)
  1029. 'Print #NF, T_BLQ(L - M3 + 8 - 2.5, H, L - M3 + 8, H - 2.5, 1, 1)
  1030. 'Print #NF, T_BLQ(L - 2.5, M2, L, M2 - 2.5, 1, 1)
  1031.  
  1032. Case 2
  1033. R01 = T_RECT1(-SCS, L - M3 - 8, -SCS, H - M2)
  1034. R01 = R01 & T_RECT1(L - M3 + 8, L + SCS, -SCS, H - M2)
  1035. R01 = R01 & T_RECT1(-SCS, 17, H - 3, H + 2)
  1036. 'Print #NF, T_CIRC(10, H - 12, 5)       'VECCHIO
  1037. 'Print #NF, T_CIRC(10, H - 12 - M4, 5)  'VECCHIO
  1038. R02 = T_CIRC(6, H - 12, 5)
  1039. R02 = R02 & T_CIRC(6, H - 12 - M4, 5)
  1040. R02 = R02 & T_CIRC(L - M3, 9, 6.5)
  1041. R02 = R02 & T_CIRC(L - 4.5, H - 4.5, 5)
  1042. R03 = T_SLOT(L - M3 - 8 - 2.5, H - M2, 15, 5, 90)
  1043. R03 = R03 & T_SLOT(L - M3 + 8 + 2.5, H - M2, 15, 5, 90)
  1044.  
  1045. 'SMUSSI
  1046. 'Print #NF, T_BLQ(L, H - M2 + 2.5, L - 2.5, H - M2, 1, 1)
  1047. 'Print #NF, T_BLQ(L - M3 + 8, 2.5, L - M3 + 8 - 2.5, 0, 1, 1)
  1048. 'Print #NF, T_BLQ(L - M3 - 8 + 2.5, 0, L - M3 - 8, 2.5, 1, 1)
  1049.  
  1050.  
  1051. Case Else
  1052. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1053. End Select
  1054.  
  1055. fn = R01 & R02 & R03
  1056.  
  1057. P1 = 250
  1058. P2 = H - 400
  1059. MVAL = 500
  1060. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1061.  
  1062. Call SAVE_SUB(NND, STRINGA)
  1063.  
  1064. POSINTAB = def_posintab(NND)
  1065. Call CUT_END_S(H, L, "0", POSINTAB)
  1066. Call FVTPT(3, NND, "")
  1067. Call CUT_END_S(H, L, "B", POSINTAB)
  1068. Call FVTPT(3, NND, "B")
  1069. Call CUT_END_S(H, L, "C", POSINTAB)
  1070. Call FVTPT(3, NND, "C")
  1071.  
  1072. End Sub
  1073.  
  1074. Sub S_1016517A(ByVal NND As Integer)
  1075. ACT_MOD = "1016517"
  1076. CLAMP = 0
  1077.  
  1078. H = INPUT_NUM(NND, "L", L, ACT_MOD)
  1079. L = INPUT_NUM(NND, "H", H, ACT_MOD)
  1080. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1081. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1082. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1083. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1084. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1085.  
  1086.  
  1087. SCS = 6
  1088. If M4 > 0 And M3 > 0 Then
  1089. R01 = T_RECT1(H / 2 - M4 / 2, H / 2 + M4 / 2, -SCS, M3)
  1090. Else
  1091. R01 = ""
  1092. End If
  1093.  
  1094. R02 = T_SLOT(11, L - 15, 20, 6.5, 90) & T_SLOT(H - 11, L - 15, 20, 6.5, 90)
  1095.  
  1096. fn = R01 & R02
  1097.  
  1098. P1 = 250
  1099. P2 = H - 400
  1100. MVAL = 500
  1101. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1102.  
  1103. Call SAVE_SUB(NND, STRINGA)
  1104.  
  1105. POSINTAB = def_posintab(NND)
  1106. Call CUT_END_S(H, L, "0", POSINTAB)
  1107. Call FVTPT(3, NND, "")
  1108. Call CUT_END_S(H, L, "B", POSINTAB)
  1109. Call FVTPT(3, NND, "B")
  1110. Call CUT_END_S(H, L, "C", POSINTAB)
  1111. Call FVTPT(3, NND, "C")
  1112.  
  1113.  
  1114. End Sub
  1115.  
  1116. Sub S_1016517B(ByVal NND As Integer)
  1117. ACT_MOD = "1016517"
  1118. CLAMP = 0
  1119.  
  1120. H = INPUT_NUM(NND, "L", L, ACT_MOD)
  1121. L = INPUT_NUM(NND, "H", H, ACT_MOD)
  1122. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1123. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1124. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1125. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1126. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1127.  
  1128.  
  1129. SCS = 6
  1130. If M4 > 0 And M3 > 0 Then
  1131. R01 = T_RECT1(H / 2 - M4 / 2, H / 2 + M4 / 2, -SCS, M3)
  1132. Else
  1133. R01 = ""
  1134. End If
  1135.  
  1136. R02 = T_SLOT(11, L - 15, 20, 6.5, 90) & T_SLOT(H - 11, L - 15, 20, 6.5, 90)
  1137.  
  1138. R03 = T_RECT1(-5, 15, -5, 15) & T_RECT1(H + 5, H - 15, -5, 15)
  1139.  
  1140. fn = R01 & R02 & R03
  1141.  
  1142. P1 = 250
  1143. P2 = H - 400
  1144. MVAL = 500
  1145. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1146.  
  1147. Call SAVE_SUB(NND, STRINGA)
  1148.  
  1149. POSINTAB = def_posintab(NND)
  1150. Call CUT_END_S(H, L, "0", POSINTAB)
  1151. Call FVTPT(3, NND, "")
  1152. Call CUT_END_S(H, L, "B", POSINTAB)
  1153. Call FVTPT(3, NND, "B")
  1154. Call CUT_END_S(H, L, "C", POSINTAB)
  1155. Call FVTPT(3, NND, "C")
  1156.  
  1157.  
  1158. End Sub
  1159.  
  1160. Sub S_1016517C(ByVal NND As Integer)
  1161. ACT_MOD = "1016517"
  1162. CLAMP = 0
  1163.  
  1164. H = INPUT_NUM(NND, "L", L, ACT_MOD)
  1165. L = INPUT_NUM(NND, "H", H, ACT_MOD)
  1166. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1167. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1168. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1169. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1170. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1171. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1172. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1173.  
  1174.  
  1175. SCS = 6
  1176. If M4 > 0 And M3 > 0 Then
  1177. R01 = T_RECT1(H / 2 - M4 / 2, H / 2 + M4 / 2, -SCS, M3)
  1178. Else
  1179. R01 = ""
  1180. End If
  1181.  
  1182. R02 = T_SLOT((M5 - M6) / 2, L - 15, 20, 6.5, 90) & T_SLOT(H - ((M5 - M6) / 2), L - 15, 20, 6.5, 90)
  1183.  
  1184. R03 = T_RECT1(-5, 15, -5, 15) & T_RECT1(H + 5, H - 15, -5, 15)
  1185.  
  1186. fn = R01 & R02 & R03
  1187.  
  1188. P1 = 250
  1189. P2 = H - 400
  1190. MVAL = 500
  1191. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1192.  
  1193. Call SAVE_SUB(NND, STRINGA)
  1194.  
  1195. POSINTAB = def_posintab(NND)
  1196. Call CUT_END_S(H, L, "0", POSINTAB)
  1197. Call FVTPT(3, NND, "")
  1198. Call CUT_END_S(H, L, "B", POSINTAB)
  1199. Call FVTPT(3, NND, "B")
  1200. Call CUT_END_S(H, L, "C", POSINTAB)
  1201. Call FVTPT(3, NND, "C")
  1202.  
  1203.  
  1204. End Sub
  1205.  
  1206. Sub S_1016517E(ByVal NND As Integer)
  1207. ACT_MOD = "1016517"
  1208. CLAMP = 0
  1209.  
  1210. H = INPUT_NUM(NND, "L", L, ACT_MOD)
  1211. L = INPUT_NUM(NND, "H", H, ACT_MOD)
  1212. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1213. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1214. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1215. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1216. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1217. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1218. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1219.  
  1220.  
  1221. SCS = 6
  1222. If M4 > 0 And M3 > 0 Then
  1223. R01 = T_RECT1(H / 2 - M4 / 2, H / 2 + M4 / 2, -SCS, M3)
  1224. Else
  1225. R01 = ""
  1226. End If
  1227.  
  1228. 'R02 = T_SLOT((M5 - M6) / 2, L - 15, 20, 6.5, 90) & T_SLOT(H - ((M5 - M6) / 2), L - 15, 20, 6.5, 90)--M5 NON VALORIZZATO NEI TAGLI,IN ATTESA MESSO VALORE 11MM FISSO-DAVIDE
  1229. R02 = T_SLOT(11, L - 15, 20, 6.5, 90) & T_SLOT(H - 11, L - 15, 20, 6.5, 90)
  1230.  
  1231. R03 = T_RECT1(-5, 15, -5, 15) & T_RECT1(H + 5, H - 15, -5, 15)
  1232.  
  1233. fn = R01 & R02 & R03
  1234.  
  1235. P1 = 250
  1236. P2 = H - 400
  1237. MVAL = 500
  1238. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1239.  
  1240. Call SAVE_SUB(NND, STRINGA)
  1241.  
  1242. POSINTAB = def_posintab(NND)
  1243. Call CUT_END_S(H, L, "0", POSINTAB)
  1244. Call FVTPT(3, NND, "")
  1245. Call CUT_END_S(H, L, "B", POSINTAB)
  1246. Call FVTPT(3, NND, "B")
  1247. Call CUT_END_S(H, L, "C", POSINTAB)
  1248. Call FVTPT(3, NND, "C")
  1249.  
  1250.  
  1251. End Sub
  1252.  
  1253.  
  1254.  
  1255. Sub S_1016520A(ByVal NND As Integer)
  1256. ACT_MOD = "1016520"
  1257. CLAMP = 0
  1258.  
  1259.  
  1260. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1261. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1262. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1263. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1264. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1265. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1266. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1267. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1268. M7 = INPUT_NUM(NND, "M7", M7, ACT_MOD)
  1269. M8 = INPUT_NUM(NND, "M8", M8, ACT_MOD)
  1270. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1271. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1272. VV = Replace(VV, "H", "")
  1273.  
  1274.  
  1275.  
  1276. SCS = 6
  1277. sf = L - 7
  1278. DF = H - 9
  1279.  
  1280. Select Case VV
  1281. Case 1, 2
  1282. R01 = T_RECT1(-1.5, 15.5, -1, 3)   'SCANTONATURA BASSA
  1283. R01 = R01 & T_RECT1(-SCS, 16 + M1 - M8 - 7.5 - 4, M2, H + SCS)  'SVUOTAMENTO SINISTRO
  1284.  
  1285. R01 = R01 & T_RECT1(16 - 4 + M1 - M8 - 7.5 - 10, 16 - 4 + M1 - M8 - 7.5, M2 - 5 - M5, M2)  'SPACCO INTERNO
  1286. R01 = R01 & T_RECT1(16 - 4 + M1 - M8 - 7.5 - 25, 16 - 4 + M1 - M8 - 7.5, M2 - 5 - M5, M2 - 5)  'SPACCO INTERNO
  1287. R01 = R01 & T_RECT1(16 - 4 + M1 - M8 + 7.5, L - 22, M2, H + SCS)  'SVUOTAMENTO DESTRO
  1288. R01 = R01 & T_SLOT(16 - 4 + M1 - M8 + 7.5 + 2.5, M2 - 1, 15, 5, 90)
  1289.  
  1290. R01 = R01 & T_CIRC(5, M4 - M6, 5.5)
  1291. R01 = R01 & T_CIRC(5, M4, 5.5)
  1292. R01 = R01 & T_CIRC(16 + M1 - M8 - 4, H - 9.5, 8.5)
  1293. R01 = R01 & T_CIRC(L - 16, H - 5, 5.5)
  1294.  
  1295. 'Print #NF, T_BLQ(L - 10, H, L, H - 10, 1, 1)
  1296. 'Print #NF, T_BLQ(L - 5.35, H + 1, L + 1, H - 5.35, 1, 1)
  1297. 'Print #NF, T_BLQ(L, 2.5, L - 2.5, 0, 1, 1)
  1298.  
  1299.  
  1300. If sf = 120 And DF = 39 Then
  1301. R02 = T_CIRC(16 + 33.8 + 50 - 4, 8.5, 5.5)
  1302. R02 = R02 & T_CIRC(16 + 33.8 - 4, 8.5, 5.5)
  1303. Else
  1304. R02 = ""
  1305. End If
  1306.  
  1307.  
  1308.  
  1309. Case 3, 4
  1310.  
  1311. R01 = T_RECT1(-1.5, 15.5, -1, 3)  'SCANTONATURA BASSA
  1312. R01 = R01 & T_RECT1(-SCS, 16 + M1 - M8 - 7.5 - 4, M2, H + SCS)  'SVUOTAMENTO SINISTRO
  1313.  
  1314. R01 = R01 & T_RECT1(16 - 4 + M1 - M8 - 7.5 - 10, 16 - 4 + M1 - M8 - 7.5, M2 - 5 - M5, M2)   'SPACCO INTERNO
  1315. R01 = R01 & T_RECT1(16 - 4 + M1 - M8 - 7.5 - 25, 16 - 4 + M1 - M8 - 7.5, M2 - 5 - M5, M2 - 5)  'SPACCO INTERNO
  1316. R01 = R01 & T_RECT1(16 - 4 + M1 - M8 + 7.5, L - 22, M2, H + SCS)  'SVUOTAMENTO DESTRO
  1317. R01 = R01 & T_SLOT(16 - 4 + M1 - M8 + 7.5 + 2.5, M2 - 1, 15, 5, 90)
  1318. R01 = R01 & T_SLOT(16 - 4 + M1 - M8 - 7.5 - 2.5, M2 - 1, 15, 5, 90)
  1319.  
  1320. R01 = R01 & T_CIRC(5, M4 - M6, 5.5)
  1321. R01 = R01 & T_CIRC(5, M4, 5.5)
  1322. R01 = R01 & T_CIRC(16 + M1 - M8 - 4, H - 9.5, 8.5)
  1323. R01 = R01 & T_CIRC(L - 16, H - 5, 5.5)
  1324.  
  1325. 'Print #NF, T_BLQ(L - 10, H, L, H - 10, 1, 1)
  1326. 'Print #NF, T_BLQ(L - 5.35, H + 1, L + 1, H - 5.35, 1, 1)
  1327. 'Print #NF, T_BLQ(L, 2.5, L - 2.5, 0, 1, 1)
  1328.  
  1329.  
  1330. If sf = 120 And DF = 39 Then
  1331. R02 = T_CIRC(16 + 33.8 + 50 - 4, 8.5, 5.5)
  1332. R02 = R02 & T_CIRC(16 + 33.8 - 4, 8.5, 5.5)
  1333. Else
  1334. R02 = ""
  1335. End If
  1336.  
  1337.  
  1338. Case Else
  1339. MsgBox "ERRORE VALORE VV " & ACT_MOD, vbCritical
  1340. End Select
  1341.  
  1342.  
  1343. fn = R01 & R02
  1344. P1 = 250
  1345. P2 = H - 400
  1346. MVAL = 500
  1347. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1348.  
  1349. Call SAVE_SUB(NND, STRINGA)
  1350.  
  1351. POSINTAB = def_posintab(NND)
  1352. Call CUT_END_S(H, L, "0", POSINTAB)
  1353. Call FVTPT(3, NND, "")
  1354. Call CUT_END_S(H, L, "B", POSINTAB)
  1355. Call FVTPT(3, NND, "B")
  1356. Call CUT_END_S(H, L, "C", POSINTAB)
  1357. Call FVTPT(3, NND, "C")
  1358.  
  1359. End Sub
  1360. Sub S_1078916A(ByVal NND As Integer)
  1361. ACT_MOD = "1078916"
  1362. CLAMP = 0
  1363.  
  1364.  
  1365. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1366. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1367. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1368. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1369. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1370. M4 = INPUT_NUM(NND, "M4", M4, ACT_MOD)
  1371. M5 = INPUT_NUM(NND, "M5", M5, ACT_MOD)
  1372. M6 = INPUT_NUM(NND, "M6", M6, ACT_MOD)
  1373. VV = INPUT_STR(NND, "VER.", VV, ACT_MOD)
  1374. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1375. VV = Replace(VV, "H", "")
  1376.  
  1377.  
  1378.  
  1379. End Sub
  1380.  
  1381.  
  1382.  
  1383. Sub S_10174520(ByVal NND As Integer)
  1384. ACT_MOD = "1017452"
  1385. CLAMP = 0
  1386.  
  1387.  
  1388. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1389. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1390. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1391. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1392. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  1393. M3 = INPUT_NUM(NND, "M3", M3, ACT_MOD)
  1394. VV = Replace(VV, "H", "")
  1395.  
  1396. SCS = 6
  1397.  
  1398. R01 = T_RECT1(L / 2 - M1 - 8.6, L / 2 - M1, H - 16.8, H + SCS)
  1399. R01 = R01 & T_RECT1(L / 2 - M1 - 4.3 - 20, L / 2 - M1 - 4.3 + 20, 19, H - 22)
  1400. R01 = R01 & T_RECT1(L / 2 - M2 - 40, L / 2 - M2, H - 35, H + SCS)
  1401. R01 = R01 & T_RECT1(L / 2 - M1 + M3 - 8.6, L / 2 - M1 + M3, H - 16.8, H + SCS)
  1402. R01 = R01 & T_RECT1(L / 2 - M1 + M3 - 4.3 - 20, L / 2 - M1 + M3 - 4.3 + 20, 19, H - 22)
  1403.  
  1404. 'SMUSSI
  1405. R02 = T_BLQ(L, 4, L - 4, 0, 1, 1)
  1406. R02 = R02 & T_BLQ(4, 0, 0, 4, 1, 1)
  1407.  
  1408. fn = R01 & R02
  1409. P1 = 250
  1410. P2 = H - 400
  1411. MVAL = 500
  1412. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1413.  
  1414. Call SAVE_SUB(NND, STRINGA)
  1415.  
  1416. POSINTAB = def_posintab(NND)
  1417. Call CUT_END_S(H, L, "0", POSINTAB)
  1418. Call FVTPT(3, NND, "")
  1419. Call CUT_END_S(H, L, "B", POSINTAB)
  1420. Call FVTPT(3, NND, "B")
  1421. Call CUT_END_S(H, L, "C", POSINTAB)
  1422. Call FVTPT(3, NND, "C")
  1423.  
  1424. End Sub
  1425.  
  1426.  
  1427. Sub S_1011069A(ByVal NND As Integer)
  1428. ACT_MOD = "1011069"
  1429.  
  1430.  
  1431.  
  1432. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1433. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1434. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1435.  
  1436.  
  1437.  
  1438. fn = ""
  1439.  
  1440.  
  1441.  
  1442. P1 = 250
  1443. P2 = H - 400
  1444. MVAL = 500
  1445. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1446. Call SAVE_SUB(NND, STRINGA)
  1447.  
  1448. POSINTAB = def_posintab(NND)
  1449. Call CUT_END_S(H, L, "0", POSINTAB)
  1450. Call FVTPT(3, NND, "")
  1451. Call CUT_END_S(H, L, "B", POSINTAB)
  1452. Call FVTPT(3, NND, "B")
  1453. Call CUT_END_S(H, L, "C", POSINTAB)
  1454. Call FVTPT(3, NND, "C")
  1455.  
  1456.  
  1457. End Sub
  1458.  
  1459.  
  1460. Sub S_1017690A(ByVal NND As Integer)
  1461. ACT_MOD = "1017690"
  1462. CLAMP = 0
  1463.  
  1464. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1465. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1466. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1467. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1468. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  1469.  
  1470.  
  1471.  
  1472. R01 = T_SLOT(30, L - 101.8, 10, 5, 90)
  1473. R01 = R01 & T_SLOT(30 + M1, L - 101.8, 10, 5, 90)
  1474. R01 = R01 & T_SLOT(30 + 2 * M1, L - 101.8, 10, 5, 90)
  1475. R01 = R01 & T_SLOT(30 + 3 * M1, L - 101.8, 10, 5, 90)
  1476. R01 = R01 & T_SLOT(30 + 4 * M1, L - 101.8, 10, 5, 90)
  1477. R01 = R01 & T_SLOT(30 + 5 * M1, L - 101.8, 10, 5, 90)
  1478.  
  1479. R02 = T_CIRC(30, L - 25.6, 14)
  1480. R02 = R02 & T_CIRC(30 + M1, L - 25.6, 14)
  1481. R02 = R02 & T_CIRC(30 + 2 * M1, L - 25.6, 14)
  1482. R02 = R02 & T_CIRC(30 + 3 * M1, L - 25.6, 14)
  1483. R02 = R02 & T_CIRC(30 + 4 * M1, L - 25.6, 14)
  1484. R02 = R02 & T_CIRC(30 + 5 * M1, L - 25.6, 14)
  1485. R03 = T_CIRC(30, L - 1, 14)
  1486. R03 = R03 & T_CIRC(30 + M1, L - 1, 14)
  1487. R03 = R03 & T_CIRC(30 + 2 * M1, L - 1, 14)
  1488. R03 = R03 & T_CIRC(30 + 3 * M1, L - 1, 14)
  1489. R03 = R03 & T_CIRC(30 + 4 * M1, L - 1, 14)
  1490. R03 = R03 & T_CIRC(30 + 5 * M1, L - 1, 14)
  1491.  
  1492. fn = R01 & R02 & R03
  1493.  
  1494. P1 = 250
  1495. P2 = H - 400
  1496. MVAL = 500
  1497. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1498.  
  1499. Call SAVE_SUB(NND, STRINGA)
  1500.  
  1501. POSINTAB = def_posintab(NND)
  1502. Call CUT_END_S(H, L, "0", POSINTAB)
  1503. Call FVTPT(3, NND, "")
  1504. Call CUT_END_S(H, L, "B", POSINTAB)
  1505. Call FVTPT(3, NND, "B")
  1506. Call CUT_END_S(H, L, "C", POSINTAB)
  1507. Call FVTPT(3, NND, "C")
  1508.  
  1509. End Sub
  1510.  
  1511.  
  1512. Sub S_1017690B(ByVal NND As Integer) 'DAVIDE
  1513. ACT_MOD = "1017690"
  1514. CLAMP = 0
  1515.  
  1516. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1517. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1518. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1519. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1520. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  1521.  
  1522.  
  1523.  
  1524. R01 = T_SLOT(30, L - 101.8, 10, 5, 90)
  1525. R01 = R01 & T_SLOT(30 + M1, L - 101.8, 10, 5, 90)
  1526. R01 = R01 & T_SLOT(30 + 2 * M1, L - 101.8, 10, 5, 90)
  1527. R01 = R01 & T_SLOT(30 + 3 * M1, L - 101.8, 10, 5, 90)
  1528. R01 = R01 & T_SLOT(30 + 4 * M1, L - 101.8, 10, 5, 90)
  1529. R01 = R01 & T_SLOT(30 + 5 * M1, L - 101.8, 10, 5, 90)
  1530.  
  1531. R02 = T_CIRC(30, L - 25.6, 14)
  1532. R02 = R02 & T_CIRC(30 + M1, L - 25.6, 14)
  1533. R02 = R02 & T_CIRC(30 + 2 * M1, L - 25.6, 14)
  1534. R02 = R02 & T_CIRC(30 + 3 * M1, L - 25.6, 14)
  1535. R02 = R02 & T_CIRC(30 + 4 * M1, L - 25.6, 14)
  1536. R02 = R02 & T_CIRC(30 + 5 * M1, L - 25.6, 14)
  1537. R03 = T_CIRC(30, L - 1, 14)
  1538. R03 = R03 & T_CIRC(30 + M1, L - 1, 14)
  1539. R03 = R03 & T_CIRC(30 + 2 * M1, L - 1, 14)
  1540. R03 = R03 & T_CIRC(30 + 3 * M1, L - 1, 14)
  1541. R03 = R03 & T_CIRC(30 + 4 * M1, L - 1, 14)
  1542. R03 = R03 & T_CIRC(30 + 5 * M1, L - 1, 14)
  1543.  
  1544. fn = R01 & R02 & R03
  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. Call CUT_END_S(H, L, "C", POSINTAB)
  1559. Call FVTPT(3, NND, "C")
  1560.  
  1561. End Sub
  1562.  
  1563.  
  1564.  
  1565. Sub S_10277620(ByVal NND As Integer)
  1566. ACT_MOD = "1027762"
  1567. CLAMP = 0
  1568.  
  1569. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1570. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1571. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1572. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1573. ver = INPUT_NUM(NND, "VER.", ver, ACT_MOD)
  1574.  
  1575.  
  1576. Select Case ver
  1577. Case 1
  1578. R01 = T_SLOT(31, L - 39.1, 10, 5, 90)
  1579. R01 = R01 & T_SLOT(31 + M1, L - 39.1, 10, 5, 90)
  1580. R01 = R01 & T_SLOT(H - 29 - 425 * 3, L - 39.1, 10, 5, 90)
  1581. R01 = R01 & T_SLOT(H - 29 - 425 * 2, L - 39.1, 10, 5, 90)
  1582. R01 = R01 & T_SLOT(H - 29 - 425, L - 39.1, 10, 5, 90)
  1583. R01 = R01 & T_SLOT(H - 29, L - 39.1, 10, 5, 90)
  1584.  
  1585. R02 = T_CIRC(31, L - 115.3, 14)
  1586. R02 = R02 & T_CIRC(31 + M1, L - 115.3, 14)
  1587. R02 = R02 & T_CIRC(H - 29 - 425 * 3, L - 115.3, 14)
  1588. R02 = R02 & T_CIRC(H - 29 - 425 * 2, L - 115.3, 14)
  1589. R02 = R02 & T_CIRC(H - 29 - 425, L - 115.3, 14)
  1590. R02 = R02 & T_CIRC(H - 29, L - 115.3, 14)
  1591.  
  1592. R03 = T_CIRC(31, 1, 14)
  1593. R03 = R03 & T_CIRC(31 + M1, 1, 14)
  1594. R03 = R03 & T_CIRC(H - 29 - 425 * 3, 1, 14)
  1595. R03 = R03 & T_CIRC(H - 29 - 425 * 2, 1, 14)
  1596. R03 = R03 & T_CIRC(H - 29 - 425, 1, 14)
  1597. R03 = R03 & T_CIRC(H - 29, 1, 14)
  1598.  
  1599. R04 = T_RECT1(H - 1323 - 445, H - 1323, L - 41.1, L + 6)
  1600. R05 = T_SMUS(H - 1323 - 445, L) & T_SMUS(H - 1323, L)
  1601.  
  1602. Case 2
  1603. R01 = T_SLOT(H - 31, L - 39.1, 10, 5, 90)
  1604. R01 = R01 & T_SLOT(H - 31 - M1, L - 39.1, 10, 5, 90)
  1605. R01 = R01 & T_SLOT(H - (H - 29 - 425 * 3), L - 39.1, 10, 5, 90)
  1606. R01 = R01 & T_SLOT(H - (H - 29 - 425 * 2), L - 39.1, 10, 5, 90)
  1607. R01 = R01 & T_SLOT(H - (H - 29 - 425), L - 39.1, 10, 5, 90)
  1608. R01 = R01 & T_SLOT(H - (H - 29), L - 39.1, 10, 5, 90)
  1609.  
  1610. R02 = T_CIRC(H - 31, L - 115.3, 14)
  1611. R02 = R02 & T_CIRC(H - 31 - M1, L - 115.3, 14)
  1612. R02 = R02 & T_CIRC(H - (H - 29 - 425 * 3), L - 115.3, 14)
  1613. R02 = R02 & T_CIRC(H - (H - 29 - 425 * 2), L - 115.3, 14)
  1614. R02 = R02 & T_CIRC(H - (H - 29 - 425), L - 115.3, 14)
  1615. R02 = R02 & T_CIRC(H - (H - 29), L - 115.3, 14)
  1616.  
  1617. R03 = T_CIRC(H - 31, 1, 14)
  1618. R03 = R03 & T_CIRC(H - 31 - M1, 1, 14)
  1619. R03 = R03 & T_CIRC(H - (H - 29 - 425 * 3), 1, 14)
  1620. R03 = R03 & T_CIRC(H - (H - 29 - 425 * 2), 1, 14)
  1621. R03 = R03 & T_CIRC(H - (H - 29 - 425), 1, 14)
  1622. R03 = R03 & T_CIRC(H - (H - 29), 1, 14)
  1623.  
  1624. R04 = T_RECT1(H - (H - 1323 - 445), H - (H - 1323), L - 41.1, L + 6)
  1625. R05 = T_SMUS(1323 + 445, L) & T_SMUS(1323, L)
  1626.  
  1627. Case Else
  1628. MsgBox ("ERRORE VERSIONE SU CODICE " & ACT_MOD)
  1629. End Select
  1630.  
  1631. fn = R01 & R02 & R03 & R04 & R05
  1632.  
  1633. P1 = 250
  1634. P2 = H - 400
  1635. MVAL = 500
  1636. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1637.  
  1638. Call SAVE_SUB(NND, STRINGA)
  1639.  
  1640. POSINTAB = def_posintab(NND)
  1641. Call CUT_END_S(H, L, "0", POSINTAB)
  1642. Call FVTPT(3, NND, "")
  1643. Call CUT_END_S(H, L, "B", POSINTAB)
  1644. Call FVTPT(3, NND, "B")
  1645. Call CUT_END_S(H, L, "C", POSINTAB)
  1646. Call FVTPT(3, NND, "C")
  1647.  
  1648. End Sub
  1649.  
  1650.  
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!