API tools faq
paste
Advertisement
Dece111

Piastroni

Dece111
Feb 28th, 2024
113
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VisualBasic 115.75 KB | None | 0 0
raw download clone embed print report diff
  1. 'Piastroni
  2.  
  3. Sub S_1005784C(NND)
  4.  
  5. ACT_MOD = INFO_DAT(NND, 0, 6)
  6. CLAMP = 0
  7. NHD = 15
  8.  
  9. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  10. FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)
  11. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  12.  
  13. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  14. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  15. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  16. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  17. '***********************************************************
  18. Dim POSINTAB As Byte
  19. M = H
  20. XP = (CO + 120 - 170 - 170) / 2
  21. XP2 = (CO + 120 - 210 - 210) / 2
  22. '*********************************LAVORAZIONI
  23.  
  24. Select Case VV
  25. Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"
  26. AGG = 2
  27. Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"
  28. AGG = 1
  29. Case Else
  30. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  31. End Select
  32.  
  33.  
  34. R01 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)
  35. R02 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + XP2 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)
  36.  
  37. R03 = T_CIRC(MR_X(87.5, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 * 2 + 2 * XP - 60, H, AGG), 3, 3.3)
  38. R04 = T_RECT2(MR_X(87.5 - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(87.5 - 60 + 170 * 2 + 2 * XP, H, AGG), 49 - 8, 10, 16)
  39. R05 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1)
  40. R06 = T_CIRC(MR_X(87.5 + FL, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 60 + 1, 10.1)
  41. R07 = T_CIRC(MR_X(87.5, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL - CO - 4, H, AGG), 68, 10.1)
  42.  
  43. R08 = T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5 - 26, H, AGG), 13.5, 4.2) & T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5, H, AGG), 13.5, 4.2)
  44. R09 = T_CIRC(MR_X(87.5 - 29.4, H, AGG), L - 30 - 23 - 1, 6) & T_CIRC(MR_X(87.5 - 29.4 + 63, H, AGG), L - 30 - 45 - 1, 6) & T_CIRC(MR_X(87.5 + CO - 67 - 35, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67 - 2, H, AGG), L - 30 - 22 - 21.5 - 1, 6)
  45.  
  46. R10 = T_CIRC(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2) & T_CIRC(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2)
  47. R11 = T_SLOT(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90) & T_SLOT(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90)
  48.  
  49. R12 = T_CIRC(MR_X(6.5, H, AGG), L - (30 - 10.5), 6)
  50. R13 = T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150 + 40, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 140, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(M - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6)
  51. 'R14 = T_SLOT(127.1, 30 - 12, 38.8, 6.8, 0)
  52. R14 = T_SLOT(MR_X(127.1, H, AGG), L - (30 - 12), 38.8, 7, 0)
  53. R15 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0)
  54.  
  55. 'Select Case VV
  56. 'Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"
  57. R16 = T_SMUS(H + 1, 141)
  58. 'Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"
  59. 'R16 = T_SMUS(-1, 141)
  60. 'Case Else
  61. 'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  62. 'End Select
  63.  
  64. '**********************************************
  65. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16
  66.  
  67.  
  68. P1 = 250
  69. P2 = H - 400
  70. MVAL = 500
  71. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  72.  
  73. Call SAVE_SUB(NND, STRINGA)
  74.  
  75.  
  76. POSINTAB = def_posintab(NND)
  77. Call CUT_END_S(H, L, "0", POSINTAB)
  78. Call FVTPT(3, NND, "")
  79. Call CUT_END_S(H, L, "C", POSINTAB)
  80. Call FVTPT(3, NND, "C")
  81.  
  82. Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
  83. Call FVTPT(3, NND, "D")
  84. Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
  85. Call FVTPT(3, NND, "E")
  86.  
  87. End Sub
  88.  
  89. Sub S_1005784E(NND)
  90.  
  91. ACT_MOD = INFO_DAT(NND, 0, 6)
  92. CLAMP = 0
  93. NHD = 15
  94.  
  95. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  96. FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)
  97. M2 = INPUT_NUM(NND, "M2", M2, ACT_MOD)
  98.  
  99. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  100. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  101. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  102. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  103. '***********************************************************
  104. Dim POSINTAB As Byte
  105. M = H
  106. XP = (CO + 120 - 170 - 170) / 2
  107. XP2 = (CO + 120 - 210 - 210) / 2
  108. '*********************************LAVORAZIONI
  109.  
  110. Select Case VV
  111. Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"
  112. AGG = 2
  113. Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"
  114. AGG = 1
  115. Case Else
  116. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  117. End Select
  118.  
  119.  
  120. R01 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)
  121. R02 = T_SLOT(MR_X(87.5 - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + XP2 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(87.5 - 60 + 2 * 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)
  122.  
  123. R03 = T_CIRC(MR_X(87.5, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(87.5 - 60 + 170 * 2 + 2 * XP - 60, H, AGG), 3, 3.3)
  124. R04 = T_RECT2(MR_X(87.5 - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(87.5 - 60 + 170 * 2 + 2 * XP, H, AGG), 49 - 8, 10, 16)
  125. R05 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1)
  126. R06 = T_CIRC(MR_X(87.5 + FL, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(87.5 + FL, H, AGG), 111 + 60 + 1, 10.1)
  127. R07 = T_CIRC(MR_X(87.5, H, AGG), 68, 10.1) & T_CIRC(MR_X(87.5 + FL - CO - 4, H, AGG), 68, 10.1)
  128.  
  129. R08 = T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5 - 26, H, AGG), 13.5, 4.2) & T_CIRC(MR_X(87.5 + FL - CO - 4 - 58.5, H, AGG), 13.5, 4.2)
  130. R09 = T_CIRC(MR_X(87.5 - 29.4, H, AGG), L - 30 - 23 - 1, 6) & T_CIRC(MR_X(87.5 - 29.4 + 63, H, AGG), L - 30 - 45 - 1, 6) & T_CIRC(MR_X(87.5 + CO - 67 - 35, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67, H, AGG), L - 30 - 22 - 1, 4.2) & T_CIRC(MR_X(87.5 + CO - 67 - 2, H, AGG), L - 30 - 22 - 21.5 - 1, 6)
  131.  
  132. R10 = T_CIRC(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2) & T_CIRC(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 20 - 1, 20.2)
  133. R11 = T_SLOT(MR_X(87.5 - 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90) & T_SLOT(MR_X(87.5 + CO + 60, H, AGG), L - 30 - 14 - 10 - 1, 31, 11, 90)
  134.  
  135. R12 = T_CIRC(MR_X(6.5, H, AGG), L - (30 - 10.5), 6)
  136. R13 = T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + 150 + 40, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(87.5 + CO - 140, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(M - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6)
  137. 'R14 = T_SLOT(127.1, 30 - 12, 38.8, 6.8, 0)
  138. R14 = T_SLOT(MR_X(127.1, H, AGG), L - (30 - 12), 38.8, 7, 0)
  139. R15 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0)
  140.  
  141. 'Select Case VV
  142. 'Case "P01", "P02", "P03", "P04", "P05", "P06", "P07", "P08", "P09", "P10", "P11"
  143. R16 = T_SMUS(H + 1, 141)
  144. R17 = T_RECT2(MR_X(174, H, AGG), L - (30 - 10.5), 6.8, 6.8)
  145. 'Case "P21", "P22", "P23", "P24", "P25", "P26", "P27", "P28", "P29", "P30", "P31"
  146. 'R16 = T_SMUS(-1, 141)
  147. 'Case Else
  148. 'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  149. 'End Select
  150.  
  151. '**********************************************
  152. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17
  153.  
  154.  
  155. P1 = 250
  156. P2 = H - 400
  157. MVAL = 500
  158. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  159.  
  160. Call SAVE_SUB(NND, STRINGA)
  161.  
  162.  
  163. POSINTAB = def_posintab(NND)
  164. Call CUT_END_S(H, L, "0", POSINTAB)
  165. Call FVTPT(3, NND, "")
  166. Call CUT_END_S(H, L, "C", POSINTAB)
  167. Call FVTPT(3, NND, "C")
  168.  
  169. Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
  170. Call FVTPT(3, NND, "D")
  171. Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
  172. Call FVTPT(3, NND, "E")
  173.  
  174. End Sub
  175.  
  176.  
  177.  
  178. Sub S_0902935C(NND)
  179.  
  180. ACT_MOD = INFO_DAT(NND, 0, 6)
  181. CLAMP = 0
  182. NHD = 15
  183.  
  184. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  185. ss = INPUT_NUM(NND, "M2", ss, ACT_MOD)
  186. WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
  187. FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)
  188. FR = INPUT_NUM(NND, "FR", FR, ACT_MOD)
  189. MR = INPUT_NUM(NND, "MR", MR, ACT_MOD)
  190. BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
  191. BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
  192.  
  193. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  194. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  195. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  196. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  197. '***********************************************************
  198. Dim POSINTAB As Byte
  199. XP = (CO + 120 - 170 - 170) / 2
  200. XP2 = (CO + 120 - 210 - 210) / 2
  201. '*********************************LAVORAZIONI
  202.  
  203. Select Case VV
  204. Case "P22", "P24", "P02", "P04", "P06", "P08", "P10"
  205. AGG = 2
  206. Case "P01", "P21", "P03", "P23", "P05", "P11", "P07", "P12", "P09", "P13", "P14", "P15", "P31", "P32"
  207. AGG = 1
  208. Case Else
  209. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  210. End Select
  211.  
  212.  
  213. R01A = T_SLOT(MR_X(MR - 60 - 47, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170 + XP, H, AGG), 13, 30, 11, 0)
  214. R01B = T_SLOT(MR_X(MR - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)
  215. R01C = T_SLOT(MR_X(MR - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 * 2 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)
  216. R01 = R01A & R01B & R01C
  217.  
  218. R02 = T_CIRC(MR_X(MR, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 2 * 170 + 2 * XP - 60, H, AGG), 3, 3.3)
  219.  
  220. R03 = T_RECT2(MR_X(MR - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(MR + CO + 60, H, AGG), 49 - 8, 10, 16)
  221. R04 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 60 + 1, 10.1)
  222. R05 = T_CIRC(MR_X(9 + FR, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS - FL, H, AGG), 68, 10.1)
  223.  
  224. SCC = 1
  225. R06 = T_CIRC(MR_X(MR + BL, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + BL + 35, H, AGG), L - 30 - 22 - SCC, 4.2)
  226. R07 = T_CIRC(MR_X(9 + ss - 30, H, AGG), L - 30 - 23 - SCC, 6) & T_CIRC(MR_X(9 + ss + 30 + 3, H, AGG), L - 30 - 45 - SCC, 6) 'MANCA QUOTA SUL DISEGNO
  227. R08 = T_CIRC(MR_X(MR + CO - BR, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + CO - BR - 35, H, AGG), L - 30 - 22 - SCC, 4.2)
  228.  
  229. R09 = T_CIRC(MR_X(MR - 60, H, AGG), L - 30 - 14 - 20, 20.2) & T_CIRC(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 20, 20.2)
  230.  
  231. R10 = T_SLOT(MR_X(MR - 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90) & T_SLOT(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90)
  232.  
  233. R11 = T_RECT2(MR_X(H - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(9 + ss + 23 + 32 + 105, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100 - 40, H, AGG), L - (30 - 10.5), 8.6, 8.6)
  234. R12 = T_CIRC(MR_X(9 + ss - 96, H, AGG), L - (30 - 10.5), 8.8) '9
  235. 'R13 = T_SLOT(9 + SS + 23 + 16, L - 30 - 12, 38.8, 6.8, 0)
  236. R13 = T_SLOT(MR_X(9 + ss + 23 + 16, H, AGG), L - 30 + 12, 38.8, 7, 0)
  237. R14 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0)
  238.  
  239.  
  240. 'Select Case VV
  241. 'Case "P01", "P21", "P03", "P23", "P05", "P11", "P07", "P12", "P09", "P13", "P14", "P15", "P31", "P32"
  242. R16 = T_SMUS(H + 1, 141)
  243. 'Case "P22", "P24", "P02", "P04", "P06", "P08", "P10"
  244. 'R16 = T_SMUS(-1, 141)
  245. 'Case Else
  246. 'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  247. 'End Select
  248.  
  249.  
  250.  
  251. '**********************************************
  252. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R16
  253.  
  254.  
  255. P1 = 250
  256. P2 = H - 400
  257. MVAL = 500
  258. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  259.  
  260. Call SAVE_SUB(NND, STRINGA)
  261.  
  262. POSINTAB = def_posintab(NND)
  263. Call CUT_END_S(H, L, "0", POSINTAB)
  264. Call FVTPT(3, NND, "")
  265. Call CUT_END_S(H, L, "C", POSINTAB)
  266. Call FVTPT(3, NND, "C")
  267.  
  268. Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
  269. Call FVTPT(3, NND, "D")
  270. Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
  271. Call FVTPT(3, NND, "E")
  272.  
  273. End Sub
  274.  
  275. Sub S_0902935D(NND)
  276.  
  277. ACT_MOD = INFO_DAT(NND, 0, 6)
  278. CLAMP = 0
  279. NHD = 15
  280.  
  281. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  282. ss = INPUT_NUM(NND, "SS", ss, ACT_MOD)
  283. WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
  284. FL = INPUT_NUM(NND, "FL", FL, ACT_MOD)
  285. FR = INPUT_NUM(NND, "FR", FR, ACT_MOD)
  286. MR = INPUT_NUM(NND, "MR", MR, ACT_MOD)
  287. BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
  288. BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
  289. M1 = INPUT_STR(NND, "M1", M1, ACT_MOD)
  290. M2 = INPUT_STR(NND, "M2", M2, ACT_MOD)
  291.  
  292.  
  293.  
  294. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  295. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  296. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  297. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  298. '***********************************************************
  299. Dim POSINTAB As Byte
  300. XP = (CO + 120 - 170 - 170) / 2
  301. XP2 = (CO + 120 - 210 - 210) / 2
  302. '*********************************LAVORAZIONI
  303.  
  304. Select Case VV
  305. Case "P22", "P24", "P02", "P04", "P06", "P08", "P10"
  306. AGG = 2
  307. Case "P01", "P21", "P03", "P23", "P05", "P11", "P07", "P12", "P09", "P13", "P14", "P15", "P31", "P32"
  308. AGG = 1
  309. Case Else
  310. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  311. End Select
  312.  
  313.  
  314. R01A = T_SLOT(MR_X(MR - 60 - 47, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 170 + XP, H, AGG), 13, 30, 11, 0)
  315. R01B = T_SLOT(MR_X(MR - 60 + 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP - 48, H, AGG), 13, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 2 * 170 + 2 * XP + 47, H, AGG), 13, 30, 11, 0)
  316. R01C = T_SLOT(MR_X(MR - 60, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0) & T_SLOT(MR_X(MR - 60 + 210 * 2 + 2 * XP2, H, AGG), 13 + 110 + 1, 30, 11, 0)
  317. R01 = R01A & R01B & R01C
  318.  
  319. R02 = T_CIRC(MR_X(MR, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 170 + XP, H, AGG), 3, 3.3) & T_CIRC(MR_X(MR - 60 + 2 * 170 + 2 * XP - 60, H, AGG), 3, 3.3)
  320.  
  321. R03 = T_RECT2(MR_X(MR - 60, H, AGG), 49 - 8, 10, 16) & T_RECT2(MR_X(MR + CO + 60, H, AGG), 49 - 8, 10, 16)
  322. R04 = T_CIRC(MR_X(9, H, AGG), 68, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9, H, AGG), 111 + 60 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 1, 10.1) & T_CIRC(MR_X(9 + ss + WS, H, AGG), 111 + 60 + 1, 10.1)
  323. R05 = T_CIRC(MR_X(9 + FR, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss, H, AGG), 68, 10.1) & T_CIRC(MR_X(9 + ss + WS - FL, H, AGG), 68, 10.1)
  324.  
  325. SCC = 1
  326. R06 = T_CIRC(MR_X(MR + BL, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + BL + 35, H, AGG), L - 30 - 22 - SCC, 4.2)
  327. R07 = T_CIRC(MR_X(9 + ss - 30, H, AGG), L - 30 - 23 - SCC, 6) & T_CIRC(MR_X(9 + ss + 30 + 3, H, AGG), L - 30 - 45 - SCC, 6) 'MANCA QUOTA SUL DISEGNO
  328. R08 = T_CIRC(MR_X(MR + CO - BR, H, AGG), L - 30 - 22 - SCC, 4.2) & T_CIRC(MR_X(MR + CO - BR - 35, H, AGG), L - 30 - 22 - SCC, 4.2)
  329.  
  330. R09 = T_CIRC(MR_X(MR - 60, H, AGG), L - 30 - 14 - 20, 20.2) & T_CIRC(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 20, 20.2)
  331.  
  332. R10 = T_SLOT(MR_X(MR - 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90) & T_SLOT(MR_X(MR + CO + 60, H, AGG), L - 30 - 14 - 10, 31, 11, 90)
  333.  
  334. R11 = T_RECT2(MR_X(H - 29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(29, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + M1, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(9 + ss + 23 + 32 + 105, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100, H, AGG), L - (30 - 10.5), 8.6, 8.6) & T_RECT2(MR_X(MR + CO - 100 - 40, H, AGG), L - (30 - 10.5), 8.6, 8.6)
  335. R12 = T_CIRC(MR_X(9 + ss - 96, H, AGG), L - (30 - 10.5), 8.8) '9
  336. 'R13 = T_SLOT(9 + SS + 23 + 16, L - 30 - 12, 38.8, 6.8, 0)
  337. R13 = T_SLOT(MR_X(9 + ss + 23 + 16, H, AGG), L - 30 + 12, 38.8, 7, 0)
  338. R14 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0)
  339.  
  340.  
  341. 'Select Case VV
  342. 'Case "P01", "P21", "P03", "P23", "P05", "P11", "P07", "P12", "P09", "P13", "P14", "P15", "P31", "P32"
  343. R16 = T_SMUS(H + 1, 141)
  344. R17 = T_RECT2(MR_X(9 + ss - 154, H, AGG), L - (30 - 10.5), 6.8, 6.8) & T_RECT2(MR_X(9 + ss + M2, H, AGG), L - (30 - 10.5), 6.8, 6.8)
  345. 'Case "P22", "P24", "P02", "P04", "P06", "P08", "P10"
  346. 'R16 = T_SMUS(-1, 141)
  347. 'Case Else
  348. 'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  349. 'End Select
  350.  
  351.  
  352.  
  353. '**********************************************
  354. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R16 & R17
  355.  
  356.  
  357. P1 = 250
  358. P2 = H - 400
  359. MVAL = 500
  360. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  361.  
  362. Call SAVE_SUB(NND, STRINGA)
  363.  
  364. POSINTAB = def_posintab(NND)
  365. Call CUT_END_S(H, L, "0", POSINTAB)
  366. Call FVTPT(3, NND, "")
  367. Call CUT_END_S(H, L, "C", POSINTAB)
  368. Call FVTPT(3, NND, "C")
  369.  
  370. Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
  371. Call FVTPT(3, NND, "D")
  372. Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
  373. Call FVTPT(3, NND, "E")
  374.  
  375. End Sub
  376.  
  377. Sub S_1006615C(NND)
  378.  
  379. ACT_MOD = INFO_DAT(NND, 0, 6)
  380. CLAMP = 0
  381. NHD = 15
  382.  
  383. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  384. WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
  385.  
  386. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  387. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  388. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  389. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  390. '***********************************************************
  391. Dim POSINTAB As Byte
  392.  
  393. '*********************************LAVORAZIONI
  394.  
  395.  Select Case CO
  396.  Case 600
  397.  M1 = 141.2
  398.  Case 650
  399.  M1 = 166.2
  400.  Case 700
  401.  M1 = 191.2
  402.  Case 750
  403.  M1 = 216.2
  404.  Case 800
  405.  M1 = 241.2
  406.  Case 850
  407.  M1 = 266.2
  408.  Case 900
  409.  M1 = 291.2
  410.  Case Else
  411.  MsgBox ("errore CO su " & ACT_MOD)
  412.  End Select
  413.  
  414.  
  415.  
  416. R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(9, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
  417. R02 = T_CIRC(H - 87.5, 5, 3.3) & T_CIRC(H - 87.5 - (CO / 2), 5, 3.3) & T_CIRC(H - 87.5 - CO, 5, 3.3)
  418.  
  419. 'R03 = T_SLOT(H - 27.5, 16.6, 15, 6.8, 90) & T_SLOT(H - 197.5, 16.6, 15, 6.8, 90) & T_SLOT(H - 87.5 - CO + 30, 16.6, 15, 6.8, 90) & T_SLOT(H - 87.5 - CO - 60, 16.6, 15, 6.8, 90)
  420. R03 = T_SLOT(H - 27.5, 19.5, 25, 11, 90) & T_SLOT(H - 197.5, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO + 30, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO - 60, 19.5, 25, 11, 90)
  421. 'R03 = T_RECT2(H - 27.5, 16.6, 6.8, 15) & T_RECT2(H - 197.5, 16.6, 6.8, 15) & T_RECT2(H - 87.5 - CO + 30, 16.6, 6.8, 15) & T_RECT2(H - 87.5 - CO - 60, 16.6, 6.8, 15)
  422.  
  423. R19 = T_CIRC(H - 85 - 49, L - 38.5 - 39 - 1.5, 10.1) & T_CIRC(H - 85, L - 38.5 - 39 - 1.5, 10.1)
  424.  
  425. R04 = T_CIRC(9 + WS, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 78.5 - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
  426. R05 = T_CIRC(H - 27.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 197.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO + 30, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO - 60, L - 8.5 - 30 - 55 - 1, 20.2)
  427. R06 = T_SLOT(H - 27.5, L - 8.5 - 30 - 42.75, 35.5 - 1, 11, 90) & T_SLOT(H - 197.5, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO + 30, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO - 60, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90)
  428.  
  429. R07 = T_RECT2(H - 27.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 197.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO + 30 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO - 60 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10)
  430. R08 = T_CIRC(H - 78.5 - 57.5 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6) & T_CIRC(H - 78.5 - 57.5 - 10 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6)
  431. R09 = T_CIRC(H - 87.5 - CO - 60 + 152, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2) & T_CIRC(H - 87.5 - CO - 60 + 152 + 35, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2)
  432. R10 = T_CIRC(H - 12, L - 8.5 - 30 + 12.5, 7.2) & T_CIRC(H - 24, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233 + 129.8, L - 8.5 - 30 + 12.5, 7.2)
  433. R11 = T_CIRC(H - 47.5, L - 8.5 - 30 + 21, 10.1) & T_CIRC(H - 47.5 - 88.6, L - 8.5 - 30 + 15, 10.1)
  434.  
  435. 'R12 = T_SLOT(141.2 + 22 - 72 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 - 50 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 + 22 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0)
  436. 'R13 = T_SLOT(141.2 + 22, L - 8.5 - 30 + 9 + 12, 15, 6.8, 0) & T_SLOT(141.2 - 2.8, L - 8.5 - 30 + 9 + 12, 15, 6.8, 0)
  437. R12 = T_SLOT(M1 + 22 - 72 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M1 + 22 - 50 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M1 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M1 + 22 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0)
  438. R13 = T_SLOT(M1 - 2.8 + 22, L - 8.5 - 30 + 7 + 12, 15, 7, 0) & T_SLOT(M1 - 2.8, L - 8.5 - 30 + 7 + 12, 15, 7, 0)
  439.  
  440. R14 = T_RECT2(M1 - 2.8 - 25.2, L - 8.5 - 30 + 17, 8.6, 8.6) & T_RECT2(M1 + 6, L - 8.5 - 30 + 7, 8.6, 8.6)
  441. R15 = T_RECT1(-6, M1, L - 8.5 - 30 + 24.5, L + 6) & T_RECT1(H - 172.5, H - 87.5 - 30 + 6, L - 8.5 - 30 + 25.7, L + 6) & T_RECT1(H - 87.5 - 30, H - 87.5 + 30, L - 8.5 - 30 - 1, L + 6)
  442.  
  443. R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 30 + 24.5, "7SQ", 0)
  444. R17 = T_SPECIAL(M1, L, "7SQ", 0) & T_SPECIAL(H - 172.5, L, "7SQ", 0) & T_SPECIAL(H - 87.5 - 30, L - 8.5 - 30 + 25.7, "7SQ", 0) & T_SPECIAL(H - 87.5 + 30, L, "7SQ", 0)
  445.  
  446. R18 = T_RECT2(H - 78.5 - 9, L - 30 - 8.5 - 13.75 - 10 + 1, 26, 20)
  447.  
  448.  
  449. Select Case VV
  450. Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
  451. R20 = T_SMUS(H + 1, L - 96)
  452. Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
  453. R20 = T_SMUS(-1, L - 96)
  454. Case Else
  455. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  456. End Select
  457.  
  458.  
  459. '**********************************************
  460. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20
  461.  
  462.  
  463. P1 = 250
  464. P2 = H - 400
  465. MVAL = 500
  466. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  467.  
  468. Call SAVE_SUB(NND, STRINGA)
  469.  
  470. POSINTAB = def_posintab(NND)
  471. Call CUT_END_S(H, L, "0", POSINTAB)
  472. Call FVTPT(3, NND, "")
  473. Call CUT_END_S(H, L, "C", POSINTAB)
  474. Call FVTPT(3, NND, "C")
  475. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  476. Call FVTPT(3, NND, "D")
  477. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  478. Call FVTPT(3, NND, "E")
  479.  
  480. End Sub
  481.  
  482.  
  483.  
  484. Sub S_1006615E(NND)
  485.  
  486. ACT_MOD = INFO_DAT(NND, 0, 6)
  487. CLAMP = 0
  488. NHD = 15
  489.  
  490. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  491. WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
  492. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  493. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  494. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  495. M1 = INPUT_STR(NND, "M1", M1, ACT_MOD)
  496. M2 = INPUT_STR(NND, "M2", M2, ACT_MOD)
  497. M3 = INPUT_STR(NND, "M3", M3, ACT_MOD)
  498. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  499. '***********************************************************
  500. Dim POSINTAB As Byte
  501.  
  502. '*********************************LAVORAZIONI
  503.  
  504. ' Select Case co
  505. ' Case 600
  506. ' M1 = 141.2
  507. ' Case 650
  508. ' M1 = 166.2
  509. ' Case 700
  510. ' M1 = 191.2
  511. ' Case 750
  512. ' M1 = 216.2
  513. ' Case 800
  514. ' M1 = 241.2
  515. ' Case 850
  516. ' M1 = 266.2
  517. ' Case 900
  518. ' M1 = 291.2
  519. ' Case Else
  520. ' MsgBox ("errore CO su " & ACT_MOD)
  521. ' End Select
  522.  
  523.  
  524.  
  525. R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(9, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
  526. R02 = T_CIRC(H - 87.5, 5, 3.3) & T_CIRC(H - 87.5 - (CO / 2), 5, 3.3) & T_CIRC(H - 87.5 - CO, 5, 3.3)
  527.  
  528. 'R03 = T_SLOT(H - 27.5, 16.6, 15, 6.8, 90) & T_SLOT(H - 197.5, 16.6, 15, 6.8, 90) & T_SLOT(H - 87.5 - CO + 30, 16.6, 15, 6.8, 90) & T_SLOT(H - 87.5 - CO - 60, 16.6, 15, 6.8, 90)
  529. R03 = T_SLOT(H - 27.5, 19.5, 25, 11, 90) & T_SLOT(H - 197.5, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO + 30, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO - 60, 19.5, 25, 11, 90)
  530. 'R03 = T_RECT2(H - 27.5, 16.6, 6.8, 15) & T_RECT2(H - 197.5, 16.6, 6.8, 15) & T_RECT2(H - 87.5 - CO + 30, 16.6, 6.8, 15) & T_RECT2(H - 87.5 - CO - 60, 16.6, 6.8, 15)
  531.  
  532. R19 = T_CIRC(H - 85 - 49, L - 38.5 - 39 - 1.5, 10.1) & T_CIRC(H - 85, L - 38.5 - 39 - 1.5, 10.1)
  533.  
  534. R04 = T_CIRC(9 + WS, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 78.5 - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
  535. R05 = T_CIRC(H - 27.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 197.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO + 30, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO - 60, L - 8.5 - 30 - 55 - 1, 20.2)
  536. R06 = T_SLOT(H - 27.5, L - 8.5 - 30 - 42.75, 35.5 - 1, 11, 90) & T_SLOT(H - 197.5, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO + 30, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO - 60, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90)
  537.  
  538. R07 = T_RECT2(H - 27.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 197.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO + 30 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO - 60 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10)
  539. R08 = T_CIRC(H - 78.5 - 57.5 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6) & T_CIRC(H - 78.5 - 57.5 - 10 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6)
  540. R09 = T_CIRC(H - 87.5 - CO - 60 + 152, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2) & T_CIRC(H - 87.5 - CO - 60 + 152 + 35, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2)
  541. R10 = T_CIRC(H - 12, L - 8.5 - 30 + 12.5, 7.2) & T_CIRC(H - 24, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233 + 129.8, L - 8.5 - 30 + 12.5, 7.2)
  542. R11 = T_CIRC(H - 47.5, L - 8.5 - 30 + 21, 10.1) & T_CIRC(H - 47.5 - 88.6, L - 8.5 - 30 + 15, 10.1)
  543.  
  544. 'R12 = T_SLOT(141.2 + 22 - 72 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 - 50 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0) & T_SLOT(141.2 + 22 + 22 - 2.8, L - 8.5 - 30 + 9, 15, 6.8, 0)
  545. 'R13 = T_SLOT(141.2 + 22, L - 8.5 - 30 + 9 + 12, 15, 6.8, 0) & T_SLOT(141.2 - 2.8, L - 8.5 - 30 + 9 + 12, 15, 6.8, 0)
  546. R12 = T_SLOT(M2 + 22 - 72 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 50 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0)
  547. R13 = T_SLOT(M2 - 2.8 + 22, L - 8.5 - 30 + 7 + 12, 15, 7, 0) & T_SLOT(M2 - 2.8, L - 8.5 - 30 + 7 + 12, 15, 7, 0)
  548.  
  549. R14 = T_RECT2(M2 - 2.8 - 25.2, L - 8.5 - 30 + 17, 8.6, 8.6) & T_RECT2(M2 + 6, L - 8.5 - 30 + 7, 8.6, 8.6)
  550. R15 = T_RECT1(-6, M2, L - 8.5 - 30 + 24.5, L + 6) & T_RECT1(H - 172.5, H - 87.5 - 30 + 6, L - 8.5 - 30 + 25.7, L + 6) & T_RECT1(H - 87.5 - 30, H - 87.5 + 30, L - 8.5 - 30 - 1, L + 6)
  551.  
  552. R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 30 + 24.5, "7SQ", 0)
  553. R17 = T_SPECIAL(M2, L, "7SQ", 0) & T_SPECIAL(H - 172.5, L, "7SQ", 0) & T_SPECIAL(H - 87.5 - 30, L - 8.5 - 30 + 25.7, "7SQ", 0) & T_SPECIAL(H - 87.5 + 30, L, "7SQ", 0)
  554.  
  555. R18 = T_RECT2(H - 78.5 - 9, L - 30 - 8.5 - 13.75 - 10 + 1, 26, 20)
  556.  
  557.  
  558. Select Case VV
  559. Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
  560. R20 = T_SMUS(H + 1, L - 96)
  561. Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
  562. R20 = T_SMUS(-1, L - 96)
  563. Case Else
  564. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  565. End Select
  566.  
  567.  
  568. '**********************************************
  569. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20
  570.  
  571.  
  572. P1 = 250
  573. P2 = H - 400
  574. MVAL = 500
  575. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  576.  
  577. Call SAVE_SUB(NND, STRINGA)
  578.  
  579. POSINTAB = def_posintab(NND)
  580. Call CUT_END_S(H, L, "0", POSINTAB)
  581. Call FVTPT(3, NND, "")
  582. Call CUT_END_S(H, L, "C", POSINTAB)
  583. Call FVTPT(3, NND, "C")
  584. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  585. Call FVTPT(3, NND, "D")
  586. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  587. Call FVTPT(3, NND, "E")
  588.  
  589. End Sub
  590.  
  591.  
  592.  
  593. Sub S_1006615F(NND)
  594.  
  595. ACT_MOD = INFO_DAT(NND, 0, 6)
  596. CLAMP = 0
  597. NHD = 15
  598.  
  599. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  600. WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
  601. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  602. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  603. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  604. M1 = INPUT_STR(NND, "M1", M1, ACT_MOD)
  605. M2 = INPUT_STR(NND, "M2", M2, ACT_MOD)
  606. M3 = INPUT_STR(NND, "M3", M3, ACT_MOD)
  607. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  608. '***********************************************************
  609. Dim POSINTAB As Byte
  610.  
  611. '*********************************LAVORAZIONI
  612.  
  613.  
  614. R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(9, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
  615. R02 = T_CIRC(H - 87.5, 5, 3.3) & T_CIRC(H - 87.5 - (CO / 2), 5, 3.3) & T_CIRC(H - 87.5 - CO, 5, 3.3)
  616.  
  617. R03 = T_SLOT(H - 27.5, 19.5, 25, 11, 90) & T_SLOT(H - 197.5, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO + 30, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO - 60, 19.5, 25, 11, 90)
  618. R03 = R03 & T_SLOT(H - 87.5 - CO + 30 + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV F
  619.  
  620. R19 = T_CIRC(H - 85 - 49, L - 38.5 - 39 - 1.5, 10.1) & T_CIRC(H - 85, L - 38.5 - 39 - 1.5, 10.1)
  621.  
  622. R04 = T_CIRC(9 + WS, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 78.5 - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
  623. R05 = T_CIRC(H - 27.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 197.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO + 30, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO - 60, L - 8.5 - 30 - 55 - 1, 20.2)
  624. R05 = R05 & T_CIRC(H - 87.5 - CO + 30 + 100, L - 8.5 - 30 - 55 - 1, 20.2) 'AGGIUNTA REV F
  625.  
  626. R06 = T_SLOT(H - 27.5, L - 8.5 - 30 - 42.75, 35.5 - 1, 11, 90) & T_SLOT(H - 197.5, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO + 30, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO - 60, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90)
  627. R06 = R06 & T_SLOT(H - 87.5 - CO + 30 + 100, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) 'AGGIUNTA REV F
  628.  
  629. R07 = T_RECT2(H - 27.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 197.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO + 30 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO - 60 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10)
  630. R07 = R07 & T_RECT2(H - 87.5 - CO + 30 - 21.5 + 100, L - 8.5 - 30 - 37.5 - 1, 10, 10) 'AGGIUNTA REV F
  631.  
  632. R08 = T_CIRC(H - 78.5 - 57.5 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6) & T_CIRC(H - 78.5 - 57.5 - 10 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6)
  633. R09 = T_CIRC(H - 87.5 - CO - 60 + 152, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2) & T_CIRC(H - 87.5 - CO - 60 + 152 + 35, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2)
  634. R10 = T_CIRC(H - 12, L - 8.5 - 30 + 12.5, 7.2) & T_CIRC(H - 24, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233 + 129.8, L - 8.5 - 30 + 12.5, 7.2)
  635. R11 = T_CIRC(H - 47.5, L - 8.5 - 30 + 21, 10.1) & T_CIRC(H - 47.5 - 88.6, L - 8.5 - 30 + 15, 10.1)
  636.  
  637. R12 = T_SLOT(M2 + 22 - 72 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 50 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0)
  638. R13 = T_SLOT(M2 - 2.8 + 22, L - 8.5 - 30 + 7 + 12, 15, 7, 0) & T_SLOT(M2 - 2.8, L - 8.5 - 30 + 7 + 12, 15, 7, 0)
  639.  
  640. R14 = T_RECT2(M2 - 2.8 - 25.2, L - 8.5 - 30 + 17, 8.6, 8.6) & T_RECT2(M2 + 6, L - 8.5 - 30 + 7, 8.6, 8.6)
  641. R15 = T_RECT1(-6, M2, L - 8.5 - 30 + 24.5, L + 6) & T_RECT1(H - 172.5, H - 87.5 - 30 + 6, L - 8.5 - 30 + 25.7, L + 6) & T_RECT1(H - 87.5 - 30, H - 87.5 + 30, L - 8.5 - 30 - 1, L + 6)
  642.  
  643. R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 30 + 24.5, "7SQ", 0)
  644. R17 = T_SPECIAL(M2, L, "7SQ", 0) & T_SPECIAL(H - 172.5, L, "7SQ", 0) & T_SPECIAL(H - 87.5 - 30, L - 8.5 - 30 + 25.7, "7SQ", 0) & T_SPECIAL(H - 87.5 + 30, L, "7SQ", 0)
  645.  
  646. R18 = T_RECT2(H - 78.5 - 9, L - 30 - 8.5 - 13.75 - 10 + 1, 26, 20)
  647.  
  648.  
  649. Select Case VV
  650. Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
  651. R20 = T_SMUS(H + 1, L - 96)
  652. Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
  653. R20 = T_SMUS(-1, L - 96)
  654. Case Else
  655. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  656. End Select
  657.  
  658.  
  659. '**********************************************
  660. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20
  661.  
  662.  
  663. P1 = 250
  664. P2 = H - 400
  665. MVAL = 500
  666. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  667.  
  668. Call SAVE_SUB(NND, STRINGA)
  669.  
  670. POSINTAB = def_posintab(NND)
  671. Call CUT_END_S(H, L, "0", POSINTAB)
  672. Call FVTPT(3, NND, "")
  673. Call CUT_END_S(H, L, "C", POSINTAB)
  674. Call FVTPT(3, NND, "C")
  675. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  676. Call FVTPT(3, NND, "D")
  677. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  678. Call FVTPT(3, NND, "E")
  679.  
  680. End Sub
  681.  
  682.  
  683. Sub S_1006615G(NND)
  684.  
  685. ACT_MOD = INFO_DAT(NND, 0, 6)
  686. CLAMP = 0
  687. NHD = 15
  688.  
  689. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  690. WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
  691. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  692. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  693. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  694. M1 = INPUT_STR(NND, "M1", M1, ACT_MOD)
  695. M2 = INPUT_STR(NND, "M2", M2, ACT_MOD)
  696. M3 = INPUT_STR(NND, "M3", M3, ACT_MOD)
  697. M4 = INPUT_STR(NND, "M4", M4, ACT_MOD)
  698. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  699. '***********************************************************
  700. Dim POSINTAB As Byte
  701.  
  702. '*********************************LAVORAZIONI
  703.  
  704.  
  705. R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(9, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
  706. R02 = T_CIRC(H - 87.5, 5, 3.3) & T_CIRC(H - 87.5 - (CO / 2), 5, 3.3) & T_CIRC(H - 87.5 - CO, 5, 3.3)
  707.  
  708. R03 = T_SLOT(H - 27.5, 19.5, 25, 11, 90) & T_SLOT(H - 197.5, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO + 30, 19.5, 25, 11, 90) & T_SLOT(H - 87.5 - CO - 60, 19.5, 25, 11, 90)
  709. R03 = R03 & T_SLOT(H - 87.5 - CO + 30 + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV F
  710.  
  711. R19 = T_CIRC(H - 85 - 49, L - 38.5 - 39 - 1.5, 10.1) & T_CIRC(H - 85, L - 38.5 - 39 - 1.5, 10.1)
  712.  
  713. R04 = T_CIRC(9 + WS, 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(H - 78.5 - 9, 26.8 + 21.4 + 12 + 0.5, 10.1)
  714. R05 = T_CIRC(H - 27.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 197.5, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO + 30, L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(H - 87.5 - CO - 60, L - 8.5 - 30 - 55 - 1, 20.2)
  715. R05 = R05 & T_CIRC(H - 87.5 - CO + 30 + 100, L - 8.5 - 30 - 55 - 1, 20.2) 'AGGIUNTA REV F
  716.  
  717. R06 = T_SLOT(H - 27.5, L - 8.5 - 30 - 42.75, 35.5 - 1, 11, 90) & T_SLOT(H - 197.5, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO + 30, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(H - 87.5 - CO - 60, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90)
  718. R06 = R06 & T_SLOT(H - 87.5 - CO + 30 + 100, L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) 'AGGIUNTA REV F
  719.  
  720. R07 = T_RECT2(H - 27.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 197.5 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO + 30 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(H - 87.5 - CO - 60 - 21.5, L - 8.5 - 30 - 37.5 - 1, 10, 10)
  721. R07 = R07 & T_RECT2(H - 87.5 - CO + 30 - 21.5 + 100, L - 8.5 - 30 - 37.5 - 1, 10, 10) 'AGGIUNTA REV F
  722.  
  723. R08 = T_CIRC(H - 78.5 - 57.5 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6) & T_CIRC(H - 78.5 - 57.5 - 10 - 9, L - 8.5 - 30 - 37.75 - 1, 3.6)
  724. R09 = T_CIRC(H - 87.5 - CO - 60 + 152, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2) & T_CIRC(H - 87.5 - CO - 60 + 152 + 35, 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2)
  725. R10 = T_CIRC(H - 12, L - 8.5 - 30 + 12.5, 7.2) & T_CIRC(H - 24, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233, L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(H - 24 - 222 - 233 + 129.8, L - 8.5 - 30 + 12.5, 7.2)
  726. R11 = T_CIRC(H - 47.5, L - 8.5 - 30 + 21, 10.1) & T_CIRC(H - 47.5 - 88.6, L - 8.5 - 30 + 15, 10.1)
  727.  
  728. R12 = T_SLOT(M2 + 22 - 72 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 50 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(M2 + 22 + 22 - 2.8, L - 8.5 - 30 + 7, 15, 7, 0)
  729. R13 = T_SLOT(M2 - 2.8 + 22, L - 8.5 - 30 + 7 + 12, 15, 7, 0) & T_SLOT(M2 - 2.8, L - 8.5 - 30 + 7 + 12, 15, 7, 0)
  730.  
  731. R14 = T_RECT2(M2 - 2.8 - 25.2, L - 8.5 - 30 + 17, 8.6, 8.6) & T_RECT2(M2 + 6, L - 8.5 - 30 + 7, 8.6, 8.6)
  732. R15 = T_RECT1(-6, M2, L - 8.5 - 30 + 24.5, L + 6) & T_RECT1(H - 172.5, H - 87.5 - 30 + 6, L - 8.5 - 30 + 25.7, L + 6) & T_RECT1(H - 87.5 - 30, H - 87.5 + 30, L - 8.5 - 30 - 1, L + 6)
  733.  
  734. R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 30 + 24.5, "7SQ", 0)
  735. R17 = T_SPECIAL(M2, L, "7SQ", 0) & T_SPECIAL(H - 172.5, L, "7SQ", 0) & T_SPECIAL(H - 87.5 - 30, L - 8.5 - 30 + 25.7, "7SQ", 0) & T_SPECIAL(H - 87.5 + 30, L, "7SQ", 0)
  736.  
  737. R18 = T_RECT2(H - 78.5 - 9, L - 30 - 8.5 - 13.75 - 10 + 1, 26, 20)
  738.  
  739.  
  740. Select Case VV
  741. Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
  742. R20 = T_SMUS(H + 1, L - 96)
  743. Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
  744. R20 = T_SMUS(-1, L - 96)
  745. Case Else
  746. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  747. End Select
  748.  
  749. R21 = T_CIRC(H - 87.5 - M4 - 56, L - 8.5 - 12, 6) & T_CIRC(H - 87.5 - M4, L - 8.5 - 12, 6)
  750.  
  751. '**********************************************
  752. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21
  753.  
  754.  
  755. P1 = 250
  756. P2 = H - 400
  757. MVAL = 500
  758. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  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, "C", POSINTAB)
  766. Call FVTPT(3, NND, "C")
  767. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  768. Call FVTPT(3, NND, "D")
  769. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  770. Call FVTPT(3, NND, "E")
  771.  
  772. End Sub
  773.  
  774.  
  775.  
  776. Sub S_1006615H(NND)
  777.  
  778. ACT_MOD = INFO_DAT(NND, 0, 6)
  779. CLAMP = 0
  780. NHD = 15
  781.  
  782. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  783. WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
  784. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  785. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  786. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  787. M1 = INPUT_STR(NND, "M1", M1, ACT_MOD)
  788. M2 = INPUT_STR(NND, "M2", M2, ACT_MOD)
  789. M3 = INPUT_STR(NND, "M3", M3, ACT_MOD)
  790. M4 = INPUT_STR(NND, "M4", M4, ACT_MOD)
  791. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  792. '***********************************************************
  793. Dim POSINTAB As Byte
  794.  
  795. '*********************************LAVORAZIONI
  796.  
  797. Select Case VV
  798. Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
  799. AGG = 2
  800. Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
  801. AGG = 1
  802. Case Else
  803. MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  804. End Select
  805.  
  806.  
  807. R01 = T_CIRC(MR_X(9, H, AGG), 12, 8.8) & T_CIRC(MR_X(9, H, AGG), 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(MR_X(H - 9, H, AGG), 12, 8.8) & T_CIRC(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 24 + 21.4 + 14.4 + 1.5, 8.8) & T_CIRC(MR_X(9, H, AGG), 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 12 + 0.5, 10.1)
  808. R02 = T_CIRC(MR_X(H - 87.5, H, AGG), 5, 3.3) & T_CIRC(MR_X(H - 87.5 - (CO / 2), H, AGG), 5, 3.3) & T_CIRC(MR_X(H - 87.5 - CO, H, AGG), 5, 3.3)
  809.  
  810. R03 = T_SLOT(MR_X(H - 27.5, H, AGG), 19.5, 25, 11, 90) & T_SLOT(MR_X(H - 197.5, H, AGG), 19.5, 25, 11, 90) & T_SLOT(MR_X(H - 87.5 - CO + 30, H, AGG), 19.5, 25, 11, 90) & T_SLOT(MR_X(H - 87.5 - CO - 60, H, AGG), 19.5, 25, 11, 90)
  811. R03 = R03 & T_SLOT(MR_X(H - 87.5 - CO + 30 + 100, H, AGG), 19.5, 25, 11, 90) 'AGGIUNTA REV F
  812.  
  813. R19 = T_CIRC(MR_X(H - 85 - 49, H, AGG), L - 38.5 - 39 - 1.5, 10.1) & T_CIRC(MR_X(H - 85, H, AGG), L - 38.5 - 39 - 1.5, 10.1)
  814.  
  815. R04 = T_CIRC(MR_X(9 + WS, H, AGG), 26.8 + 21.4 + 12 + 0.5, 10.1) & T_CIRC(MR_X(H - 78.5 - 9, H, AGG), 26.8 + 21.4 + 12 + 0.5, 10.1)
  816. R05 = T_CIRC(MR_X(H - 27.5, H, AGG), L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(MR_X(H - 197.5, H, AGG), L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(MR_X(H - 87.5 - CO + 30, H, AGG), L - 8.5 - 30 - 55 - 1, 20.2) & T_CIRC(MR_X(H - 87.5 - CO - 60, H, AGG), L - 8.5 - 30 - 55 - 1, 20.2)
  817. R05 = R05 & T_CIRC(MR_X(H - 87.5 - CO + 30 + 100, H, AGG), L - 8.5 - 30 - 55 - 1, 20.2) 'AGGIUNTA REV F
  818.  
  819. R06 = T_SLOT(MR_X(H - 27.5, H, AGG), L - 8.5 - 30 - 42.75, 35.5 - 1, 11, 90) & T_SLOT(MR_X(H - 197.5, H, AGG), L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(MR_X(H - 87.5 - CO + 30, H, AGG), L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) & T_SLOT(MR_X(H - 87.5 - CO - 60, H, AGG), L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90)
  820. R06 = R06 & T_SLOT(MR_X(H - 87.5 - CO + 30 + 100, H, AGG), L - 8.5 - 30 - 42.75 - 1, 35.5, 11, 90) 'AGGIUNTA REV F
  821.  
  822. R07 = T_RECT2(MR_X(H - 27.5 - 21.5, H, AGG), L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(MR_X(H - 197.5 - 21.5, H, AGG), L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(MR_X(H - 87.5 - CO + 30 - 21.5, H, AGG), L - 8.5 - 30 - 37.5 - 1, 10, 10) & T_RECT2(MR_X(H - 87.5 - CO - 60 - 21.5, H, AGG), L - 8.5 - 30 - 37.5 - 1, 10, 10)
  823. R07 = R07 & T_RECT2(MR_X(H - 87.5 - CO + 30 - 21.5 + 100, H, AGG), L - 8.5 - 30 - 37.5 - 1, 10, 10) 'AGGIUNTA REV F
  824.  
  825. R08 = T_CIRC(MR_X(H - 78.5 - 57.5 - 9, H, AGG), L - 8.5 - 30 - 37.75 - 1, 3.6) & T_CIRC(MR_X(H - 78.5 - 57.5 - 10 - 9, H, AGG), L - 8.5 - 30 - 37.75 - 1, 3.6)
  826. R09 = T_CIRC(MR_X(H - 87.5 - CO - 60 + 152, H, AGG), 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2) & T_CIRC(MR_X(H - 87.5 - CO - 60 + 152 + 35, H, AGG), 26.8 + 21.4 + 24 + 21.4 + 13.6 + 1.5, 4.2)
  827. R10 = T_CIRC(MR_X(H - 12, H, AGG), L - 8.5 - 30 + 12.5, 7.2) & T_CIRC(MR_X(H - 24, H, AGG), L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(MR_X(H - 24 - 222, H, AGG), L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(MR_X(H - 24 - 222 - 233, H, AGG), L - 8.5 - 30 + 12.5, 6.5) & T_CIRC(MR_X(H - 24 - 222 - 233 + 129.8, H, AGG), L - 8.5 - 30 + 12.5, 7.2)
  828. R11 = T_CIRC(MR_X(H - 47.5, H, AGG), L - 8.5 - 30 + 21, 10.1) & T_CIRC(MR_X(H - 47.5 - 88.6, H, AGG), L - 8.5 - 30 + 15, 10.1)
  829.  
  830. R12 = T_SLOT(MR_X(M2 + 22 - 72 - 2.8, H, AGG), L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(MR_X(M2 + 22 - 50 - 2.8, H, AGG), L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(MR_X(M2 + 22 - 2.8, H, AGG), L - 8.5 - 30 + 7, 15, 7, 0) & T_SLOT(MR_X(M2 + 22 + 22 - 2.8, H, AGG), L - 8.5 - 30 + 7, 15, 7, 0)
  831. R13 = T_SLOT(MR_X(M2 - 2.8 + 22, H, AGG), L - 8.5 - 30 + 7 + 12, 15, 7, 0) & T_SLOT(MR_X(M2 - 2.8, H, AGG), L - 8.5 - 30 + 7 + 12, 15, 7, 0)
  832.  
  833. R14 = T_RECT2(MR_X(M2 - 2.8 - 25.2, H, AGG), L - 8.5 - 30 + 17, 8.6, 8.6) & T_RECT2(MR_X(M2 + 6, H, AGG), L - 8.5 - 30 + 7, 8.6, 8.6)
  834. R15 = T_RECT1(MR_X(-6, H, AGG), MR_X(M2, H, AGG), L - 8.5 - 30 + 24.5, L + 6) & T_RECT1(MR_X(H - 172.5, H, AGG), MR_X(H - 87.5 - 30 + 6, H, AGG), L - 8.5 - 30 + 25.7, L + 6) & T_RECT1(MR_X(H - 87.5 - 30, H, AGG), MR_X(H - 87.5 + 30, H, AGG), L - 8.5 - 30 - 1, L + 6)
  835.  
  836. R16 = T_SPECIAL(MR_X(0, H, AGG), 0, "7SQ", 0) & T_SPECIAL(MR_X(H, H, AGG), 0, "7SQ", 0) & T_SPECIAL(MR_X(H, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(0, H, AGG), L - 8.5 - 30 + 24.5, "7SQ", 0)
  837. R17 = T_SPECIAL(MR_X(M2, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(H - 172.5, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(H - 87.5 - 30, H, AGG), L - 8.5 - 30 + 25.7, "7SQ", 0) & T_SPECIAL(MR_X(H - 87.5 + 30, H, AGG), L, "7SQ", 0)
  838.  
  839. R18 = T_RECT2(MR_X(H - 78.5 - 9, H, AGG), L - 30 - 8.5 - 13.75 - 10 + 1, 26, 20)
  840.  
  841.  
  842. 'Select Case VV
  843. 'Case "P01", "P02", "P03", "P04", "P05", "P06", "P07"
  844. R20 = T_SMUS(H + 1, L - 96)
  845. 'Case "P21", "P22", "P23", "P24", "P25", "P26", "P27"
  846. 'R20 = T_SMUS(-1, L - 96)
  847. 'Case Else
  848. 'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  849. 'End Select
  850.  
  851. R21 = T_CIRC(MR_X(H - 87.5 - M4 - 53, H, AGG), L - 8.5 - 12, 6) & T_CIRC(MR_X(H - 87.5 - M4, H, AGG), L - 8.5 - 12, 6)
  852.  
  853. '**********************************************
  854. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21
  855.  
  856.  
  857. P1 = 250
  858. P2 = H - 400
  859. MVAL = 500
  860. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  861.  
  862. Call SAVE_SUB(NND, STRINGA)
  863.  
  864. POSINTAB = def_posintab(NND)
  865. Call CUT_END_S(H, L, "0", POSINTAB)
  866. Call FVTPT(3, NND, "")
  867. Call CUT_END_S(H, L, "C", POSINTAB)
  868. Call FVTPT(3, NND, "C")
  869. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  870. Call FVTPT(3, NND, "D")
  871. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  872. Call FVTPT(3, NND, "E")
  873.  
  874. End Sub
  875.  
  876.  
  877.  
  878. Sub S_0902920C(NND)
  879.  
  880. ACT_MOD = INFO_DAT(NND, 0, 6)
  881. CLAMP = 0
  882. NHD = 15
  883.  
  884. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  885. ss = INPUT_NUM(NND, "SS", ss, ACT_MOD)
  886. F = INPUT_NUM(NND, "F", F, ACT_MOD)
  887. G = INPUT_NUM(NND, "G", G, ACT_MOD)
  888. BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
  889. BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
  890. WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
  891. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  892. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  893. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  894. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  895. '***********************************************************
  896. Dim POSINTAB As Byte
  897.  
  898. '*********************************LAVORAZIONI
  899.  
  900.  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8)
  901.  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + F, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 317, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + WS, 26.8 + 21.4 + 12, 10.1)
  902.  R03 = T_CIRC(H - 130, 5, 3.3) & T_CIRC(H - 130 - (CO / 2), 5, 3.3) & T_CIRC(H - 130 - CO, 5, 3.3)
  903.  R04 = T_SLOT(H - 160, 19.5, 25, 11, 90) & T_SLOT(H - 160 - (CO - 60), 19.5, 25, 11, 90)
  904.  
  905.  R05 = T_CIRC(H - 160 - BR, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - BR - 35, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - (CO - 60) + BL + 35, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - (CO - 60) + BL, L - 8.5 - 30 - 86 - 2, 4.2)
  906.  R06 = T_CIRC(9 + WS + 23, L - 8.5 - 30 - 60 - 15 - 1.3, 3.6) & T_CIRC(9 + WS + 23, L - 8.5 - 30 - 60 - 1.3, 3.6) & T_CIRC(9 + WS + 53.5, L - 8.5 - 30 - 18 - 1.7, 3.6) & T_CIRC(9 + WS - 57.5, L - 8.5 - 30 - 37 - 1.7, 3.6) & T_CIRC(9 + WS - 57.5 - 10, L - 8.5 - 30 - 37 - 1.7, 3.6)
  907.  R07 = T_CIRC(9 + WS - 13, L - 8.5 - 30 - 41 + 1, 10.1) & T_CIRC(9 + WS + 61, L - 8.5 - 30 - 41 + 1, 10.1)
  908.  
  909.  R08 = T_RECT2(H - 160 - CO + 60 - 21.5, L - 8.5 - 30 - 36.5 - 2, 10, 10) & T_RECT2(H - 160 + 21.5, L - 8.5 - 30 - 36.5 - 2, 10, 10)
  910.  R09 = T_RECT2(H - 9 - ss, L - 8.5 - 30 - 21 - 2, 26, 20)
  911.  R10 = T_CIRC(H - 160 - CO + 60, L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2) & T_CIRC(H - 160, L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2)
  912.  R11 = T_SLOT(H - 160 - CO + 60, L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90) & T_SLOT(H - 160, L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90)
  913.  
  914. 'R12 = T_SLOT(H - 10.4, L - 8.5 - 30 - 27.5, 18, 6.8, 0)
  915. R12 = T_SLOT(H - 10.4, L - 8.5 - 30 - 27.5 - 1, 18, 7, 0)
  916.  R13 = T_SLOT(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(9 + WS + 67 - 234.5 - 50, L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 115, L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0)
  917. ' If CO = 900 Then
  918. ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 58, L - 8.5 - 30 + 13.5, 41, 6.8, 0) & T_CIRC(G + 86, L - 8.5 - 30 + 13.5, 6.5)
  919. ' Else
  920. ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 45, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_SLOT(G + 45 + 26, L - 8.5 - 30 + 13.5, 15, 6.8, 0)
  921. ' End If
  922. If CO = 900 Then
  923.  R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 58, L - 8.5 - 30 + 13.5, 41, 7, 0) & T_CIRC(G + 86, L - 8.5 - 30 + 13.5, 6.5)
  924.  Else
  925.  R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 45, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_SLOT(G + 45 + 26, L - 8.5 - 30 + 13.5, 15, 7, 0)
  926.  End If
  927.  R15 = T_SLOT(9 + WS + 67 - 234.5 - 50, L - 30 - 8.5 + 4.75, 10, 4.5, 0) & T_SLOT(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), L - 30 - 8.5 + 4.75, 10, 4.5, 0)
  928. ' R16 = T_SLOT(H - 115, L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(H - 13.5, L - 38.5 + 10, 15, 6.8, 0) & T_SLOT(H - 83.5, L - 38.5 + 15.5, 15, 6.8, 0)
  929. R16 = T_SLOT(H - 115, L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(H - 13.5, L - 38.5 + 10, 18, 7, 0) & T_SLOT(H - 83.5, L - 38.5 + 15.5, 18, 7, 0)
  930.  
  931.  R17 = T_CIRC(9 + WS - 67 - 170.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS - 67, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS - 67 + 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  932.  R18 = T_CIRC(9 + WS - 40, L - 38.5 + 16.25, 10.1) & T_CIRC(9 + WS + 40, L - 38.5 + 16.25, 10.1)
  933.  
  934.  R19 = T_RECT2(H - 83.5 - 22, L - 38.5 + 15.5, 8.6, 8.6)
  935.  R20 = T_RECT1(-6, G + 25.8, L - 38.5 + 24.5, L + 6) & T_RECT1(9 + WS - 55.9 - 30, 9 + WS + 40.1 + 30, L - 8.5 - 6.7, L + 6) & T_RECT1(9 + WS - 30, 9 + WS + 30, L - 38.5 - 0.5, L + 6) & T_RECT1(H - 35, H + 6, L - 38.5 + 19, L + 6) & T_RECT1(H - 60, H - 34, L - 38.5 + 28, L + 6)
  936.  
  937.  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 38.5 + 24.5, "7SQ", 0) & T_SPECIAL(G + 25.8, L, "7SQ", 0) & T_SPECIAL(H, L - 38.5 + 19, "7SQ", 0) & T_SPECIAL(H - 60, L, "7SQ", 0) & T_SPECIAL(H - 44 + 5.3 + 0.2, L - (10.5 + 5.5) + 5.3 + 0.2, "7SQ", 0) & T_SPECIAL(H - 44 + 5.5 + 3.6, L - (10.5 + 5.5) + 5.5 - 3.6, "7SQ", 0)
  938.  R22 = T_SPECIAL(9 + WS - 55.9 - 30, L, "7SQ", 0) & T_SPECIAL(9 + WS + 40.1 + 30, L, "7SQ", 0) & T_SPECIAL(9 + WS + 30, L - 15.2, "7SQ", 0) & T_SPECIAL(9 + WS - 30, L - 15.2, "7SQ", 0)
  939.  
  940.  
  941.  Select Case VV
  942.     Case "P01", "P03", "P05", "P07", "P09", "P11", "P13"
  943.     R23 = T_SMUS(H + 1, L - 38.5 - 27.5 - 10)
  944.     Case "P12", "P14", "P02", "P04", "P06", "P08", "P10"
  945.     R23 = T_SMUS(-1, L - 38.5 - 27.5 - 10)
  946.     Case Else
  947.     MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  948.     End Select
  949.  
  950.  
  951.  
  952. '**********************************************
  953. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23
  954.  
  955.  
  956. P1 = 250
  957. P2 = H - 400
  958. MVAL = 500
  959. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  960.  
  961. Call SAVE_SUB(NND, STRINGA)
  962.  
  963. POSINTAB = def_posintab(NND)
  964. Call CUT_END_S(H, L, "0", POSINTAB)
  965. Call FVTPT(3, NND, "")
  966. Call CUT_END_S(H, L, "C", POSINTAB)
  967. Call FVTPT(3, NND, "C")
  968.  
  969. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  970. Call FVTPT(3, NND, "D")
  971. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  972. Call FVTPT(3, NND, "E")
  973.  
  974. End Sub
  975.  
  976.  
  977.  
  978. Sub S_0902920D(NND)
  979.  
  980. ACT_MOD = INFO_DAT(NND, 0, 6)
  981. CLAMP = 0
  982. NHD = 15
  983.  
  984. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  985. ss = INPUT_NUM(NND, "SS", ss, ACT_MOD)
  986. F = INPUT_NUM(NND, "F", F, ACT_MOD)
  987. G = INPUT_NUM(NND, "G", G, ACT_MOD)
  988. BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
  989. BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
  990. WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
  991. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  992. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  993. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  994. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  995. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  996. '***********************************************************
  997. Dim POSINTAB As Byte
  998.  
  999. '*********************************LAVORAZIONI
  1000.  
  1001.  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(9, 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(H - 9, 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8)
  1002.  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + F, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 317, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + WS, 26.8 + 21.4 + 12, 10.1)
  1003.  R03 = T_CIRC(H - 130, 5, 3.3) & T_CIRC(H - 130 - (CO / 2), 5, 3.3) & T_CIRC(H - 130 - CO, 5, 3.3)
  1004.  R04 = T_SLOT(H - 160, 19.5, 25, 11, 90) & T_SLOT(H - 160 - (CO - 60), 19.5, 25, 11, 90)
  1005.  
  1006.  R05 = T_CIRC(H - 160 - BR, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - BR - 35, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - (CO - 60) + BL + 35, L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(H - 160 - (CO - 60) + BL, L - 8.5 - 30 - 86 - 2, 4.2)
  1007.  R06 = T_CIRC(9 + WS + 23, L - 8.5 - 30 - 60 - 15 - 1.3, 3.6) & T_CIRC(9 + WS + 23, L - 8.5 - 30 - 60 - 1.3, 3.6) & T_CIRC(9 + WS + 53.5, L - 8.5 - 30 - 18 - 1.7, 3.6) & T_CIRC(9 + WS - 57.5, L - 8.5 - 30 - 37 - 1.7, 3.6) & T_CIRC(9 + WS - 57.5 - 10, L - 8.5 - 30 - 37 - 1.7, 3.6)
  1008.  R07 = T_CIRC(9 + WS - 13, L - 8.5 - 30 - 41 + 1, 10.1) & T_CIRC(9 + WS + 61, L - 8.5 - 30 - 41 + 1, 10.1)
  1009.  
  1010.  R08 = T_RECT2(H - 160 - CO + 60 - 21.5, L - 8.5 - 30 - 36.5 - 2, 10, 10) & T_RECT2(H - 160 + 21.5, L - 8.5 - 30 - 36.5 - 2, 10, 10)
  1011.  R09 = T_RECT2(H - 9 - ss, L - 8.5 - 30 - 21 - 2, 26, 20)
  1012.  R10 = T_CIRC(H - 160 - CO + 60, L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2) & T_CIRC(H - 160, L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2)
  1013.  R11 = T_SLOT(H - 160 - CO + 60, L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90) & T_SLOT(H - 160, L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90)
  1014.  
  1015. 'R12 = T_SLOT(H - 10.4, L - 8.5 - 30 - 27.5, 18, 6.8, 0)
  1016. R12 = T_SLOT(H - 10.4, L - 8.5 - 30 - 27.5 - 1, 18, 7, 0)
  1017.  R13 = T_SLOT(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(9 + WS + 67 - 234.5 - 50, L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 115, L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0)
  1018. ' If CO = 900 Then
  1019. ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 58, L - 8.5 - 30 + 13.5, 41, 6.8, 0) & T_CIRC(G + 86, L - 8.5 - 30 + 13.5, 6.5)
  1020. ' Else
  1021. ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 45, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_SLOT(G + 45 + 26, L - 8.5 - 30 + 13.5, 15, 6.8, 0)
  1022. ' End If
  1023. If CO = 900 Then
  1024.  R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 58, L - 8.5 - 30 + 13.5, 41, 7, 0) & T_CIRC(G + 86, L - 8.5 - 30 + 13.5, 6.5)
  1025.  Else
  1026.  R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 45, L - 8.5 - 30 + 13.5, 15, 7, 0) & T_SLOT(G + 45 + 26, L - 8.5 - 30 + 13.5, 15, 7, 0)
  1027.  End If
  1028.  R15 = T_SLOT(9 + WS + 67 - 234.5 - 50, L - 30 - 8.5 + 4.75, 10, 4.5, 0) & T_SLOT(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), L - 30 - 8.5 + 4.75, 10, 4.5, 0)
  1029. ' R16 = T_SLOT(H - 115, L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(H - 13.5, L - 38.5 + 10, 15, 6.8, 0) & T_SLOT(H - 83.5, L - 38.5 + 15.5, 15, 6.8, 0)
  1030. R16 = T_SLOT(H - 115, L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(H - 13.5, L - 38.5 + 10, 18, 7, 0) & T_SLOT(H - 83.5, L - 38.5 + 15.5, 18, 7, 0)
  1031.  
  1032.  R17 = T_CIRC(9 + WS - 67 - 170.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS - 67, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS - 67 + 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(9 + WS + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  1033.  R18 = T_CIRC(9 + WS - 40, L - 38.5 + 16.25, 10.1) & T_CIRC(9 + WS + 40, L - 38.5 + 16.25, 10.1)
  1034.  
  1035.  R19 = T_RECT2(H - 83.5 - 22, L - 38.5 + 15.5, 8.6, 8.6)
  1036.  R20 = T_RECT1(-6, G + 25.8, L - 38.5 + 24.5, L + 6) & T_RECT1(9 + WS - 55.9 - 30, 9 + WS + 40.1 + 30, L - 8.5 - 6.7, L + 6) & T_RECT1(9 + WS - 30, 9 + WS + 30, L - 38.5 - 0.5, L + 6) & T_RECT1(H - 35, H + 6, L - 38.5 + 19, L + 6) & T_RECT1(H - 60, H - 34, L - 38.5 + 28, L + 6)
  1037.  
  1038.  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 38.5 + 24.5, "7SQ", 0) & T_SPECIAL(G + 25.8, L, "7SQ", 0) & T_SPECIAL(H, L - 38.5 + 19, "7SQ", 0) & T_SPECIAL(H - 60, L, "7SQ", 0) & T_SPECIAL(H - 44 + 5.3 + 0.2, L - (10.5 + 5.5) + 5.3 + 0.2, "7SQ", 0) & T_SPECIAL(H - 44 + 5.5 + 3.6, L - (10.5 + 5.5) + 5.5 - 3.6, "7SQ", 0)
  1039.  R22 = T_SPECIAL(9 + WS - 55.9 - 30, L, "7SQ", 0) & T_SPECIAL(9 + WS + 40.1 + 30, L, "7SQ", 0) & T_SPECIAL(9 + WS + 30, L - 15.2, "7SQ", 0) & T_SPECIAL(9 + WS - 30, L - 15.2, "7SQ", 0)
  1040.  
  1041.  
  1042.  Select Case VV
  1043.     Case "P01", "P03", "P05", "P07", "P09", "P11", "P13"
  1044.     R23 = T_SMUS(H + 1, L - 38.5 - 27.5 - 10)
  1045.     Case "P12", "P14", "P02", "P04", "P06", "P08", "P10"
  1046.     R23 = T_SMUS(-1, L - 38.5 - 27.5 - 10)
  1047.     Case Else
  1048.     MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  1049.  End Select
  1050.  
  1051.  R24 = T_CIRC(H - 130 - M1, L - 12.25 - 8.5, 6) & T_CIRC(H - 130 - M1 - 56, L - 12.25 - 8.5, 6)
  1052.  
  1053. '**********************************************
  1054. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24
  1055.  
  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, "C", POSINTAB)
  1068. Call FVTPT(3, NND, "C")
  1069.  
  1070. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  1071. Call FVTPT(3, NND, "D")
  1072. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  1073. Call FVTPT(3, NND, "E")
  1074.  
  1075. End Sub
  1076.  
  1077.  
  1078. Sub S_0902920F(NND)
  1079.  
  1080. ACT_MOD = INFO_DAT(NND, 0, 6)
  1081. CLAMP = 0
  1082. NHD = 15
  1083.  
  1084. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  1085. ss = INPUT_NUM(NND, "SS", ss, ACT_MOD)
  1086. F = INPUT_NUM(NND, "F", F, ACT_MOD)
  1087. G = INPUT_NUM(NND, "G", G, ACT_MOD)
  1088. BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
  1089. BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
  1090. WS = INPUT_NUM(NND, "WS", WS, ACT_MOD)
  1091. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1092. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1093. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1094. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1095. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1096. '***********************************************************
  1097. Dim POSINTAB As Byte
  1098. If CO = 880 Then CO = 900
  1099. '*********************************LAVORAZIONI
  1100.  
  1101. Select Case VV
  1102. Case "P12", "P14", "P02", "P04", "P06", "P08", "P10"
  1103. AGG = 2
  1104. Case "P01", "P03", "P05", "P07", "P09", "P11", "P13"
  1105. AGG = 1
  1106. Case Else
  1107.     MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  1108. End Select
  1109.  
  1110.  
  1111.  
  1112.  R01 = T_CIRC(MR_X(9, H, AGG), 12, 8.8) & T_CIRC(MR_X(9, H, AGG), 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8) & T_CIRC(MR_X(H - 9, H, AGG), 12, 8.8) & T_CIRC(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 21.4 + 24 + 14.4 + 1.5, 8.8)
  1113.  R02 = T_CIRC(MR_X(9, H, AGG), 26.8 + 21.4 + 12, 10.1) & T_CIRC(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 12, 10.1) & T_CIRC(MR_X(9 + F, H, AGG), 26.8 + 21.4 + 12, 10.1) & T_CIRC(MR_X(H - 9 - 317, H, AGG), 26.8 + 21.4 + 12, 10.1) & T_CIRC(MR_X(9 + WS, H, AGG), 26.8 + 21.4 + 12, 10.1)
  1114.  R03 = T_CIRC(MR_X(H - 130, H, AGG), 5, 3.3) & T_CIRC(MR_X(H - 130 - (CO / 2), H, AGG), 5, 3.3) & T_CIRC(MR_X(H - 130 - CO, H, AGG), 5, 3.3)
  1115.  R04 = T_SLOT(MR_X(H - 160, H, AGG), 19.5, 25, 11, 90) & T_SLOT(MR_X(H - 160 - (CO - 60), H, AGG), 19.5, 25, 11, 90)
  1116.  
  1117.  R05 = T_CIRC(MR_X(H - 160 - BR, H, AGG), L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(MR_X(H - 160 - BR - 35, H, AGG), L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(MR_X(H - 160 - (CO - 60) + BL + 35, H, AGG), L - 8.5 - 30 - 86 - 2, 4.2) & T_CIRC(MR_X(H - 160 - (CO - 60) + BL, H, AGG), L - 8.5 - 30 - 86 - 2, 4.2)
  1118.  R06 = T_CIRC(MR_X(9 + WS + 23, H, AGG), L - 8.5 - 30 - 60 - 15 - 1.3, 3.6) & T_CIRC(MR_X(9 + WS + 23, H, AGG), L - 8.5 - 30 - 60 - 1.3, 3.6) & T_CIRC(MR_X(9 + WS + 53.5, H, AGG), L - 8.5 - 30 - 18 - 1.7, 3.6) & T_CIRC(MR_X(9 + WS - 57.5, H, AGG), L - 8.5 - 30 - 37 - 1.7, 3.6) & T_CIRC(MR_X(9 + WS - 57.5 - 10, H, AGG), L - 8.5 - 30 - 37 - 1.7, 3.6)
  1119.  R07 = T_CIRC(MR_X(9 + WS - 13, H, AGG), L - 8.5 - 30 - 41 + 1, 10.1) & T_CIRC(MR_X(9 + WS + 61, H, AGG), L - 8.5 - 30 - 41 + 1, 10.1)
  1120.  
  1121.  R08 = T_RECT2(MR_X(H - 160 - CO + 60 - 21.5, H, AGG), L - 8.5 - 30 - 36.5 - 2, 10, 10) & T_RECT2(MR_X(H - 160 + 21.5, H, AGG), L - 8.5 - 30 - 36.5 - 2, 10, 10)
  1122.  R09 = T_RECT2(MR_X(H - 9 - ss, H, AGG), L - 8.5 - 30 - 21 - 2, 26, 20)
  1123.  R10 = T_CIRC(MR_X(H - 160 - CO + 60, H, AGG), L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2) & T_CIRC(MR_X(H - 160, H, AGG), L - 8.5 - 30 - 29.5 - 24.5 - 2, 20.2)
  1124.  R11 = T_SLOT(MR_X(H - 160 - CO + 60, H, AGG), L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90) & T_SLOT(MR_X(H - 160, H, AGG), L - 8.5 - 30 - 29.5 - 12.25 - 2, 35.5, 11, 90)
  1125.  
  1126. 'R12 = T_SLOT(H - 10.4, L - 8.5 - 30 - 27.5, 18, 6.8, 0)
  1127. R12 = T_SLOT(MR_X(H - 10.4, H, AGG), L - 8.5 - 30 - 27.5 - 1, 18, 7, 0)
  1128.  R13 = T_SLOT(MR_X(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), H, AGG), L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(MR_X(9 + WS + 67 - 234.5 - 50, H, AGG), L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(MR_X(H - 115, H, AGG), L - 8.5 - 30 - 4.75 - 1, 10, 4.5, 0)
  1129. ' If CO = 900 Then
  1130. ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 58, L - 8.5 - 30 + 13.5, 41, 6.8, 0) & T_CIRC(G + 86, L - 8.5 - 30 + 13.5, 6.5)
  1131. ' Else
  1132. ' R14 = T_SLOT(G, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_RECT2(G + 20.7, L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(G + 45, L - 8.5 - 30 + 13.5, 15, 6.8, 0) & T_SLOT(G + 45 + 26, L - 8.5 - 30 + 13.5, 15, 6.8, 0)
  1133. ' End If
  1134. If CO = 900 Then
  1135.  R14 = T_SLOT(MR_X(G, H, AGG), L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(MR_X(G + 20.7, H, AGG), L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(MR_X(G + 58, H, AGG), L - 8.5 - 30 + 13.5, 41, 7, 0) & T_CIRC(MR_X(G + 86, H, AGG), L - 8.5 - 30 + 13.5, 6.5)
  1136.  Else
  1137.  R14 = T_SLOT(MR_X(G, H, AGG), L - 8.5 - 30 + 13.5, 15, 7, 0) & T_RECT2(MR_X(G + 20.7, H, AGG), L - 8.5 - 30 + 13.5, 8.6, 8.6) & T_SLOT(MR_X(G + 45, H, AGG), L - 8.5 - 30 + 13.5, 15, 7, 0) & T_SLOT(MR_X(G + 45 + 26, H, AGG), L - 8.5 - 30 + 13.5, 15, 7, 0)
  1138.  End If
  1139.  R15 = T_SLOT(MR_X(9 + WS + 67 - 234.5 - 50, H, AGG), L - 30 - 8.5 + 4.75, 10, 4.5, 0) & T_SLOT(MR_X(9 + WS + 67 - 234.5 - 50 - (CO / 2 - 110), H, AGG), L - 30 - 8.5 + 4.75, 10, 4.5, 0)
  1140. ' R16 = T_SLOT(H - 115, L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(H - 13.5, L - 38.5 + 10, 15, 6.8, 0) & T_SLOT(H - 83.5, L - 38.5 + 15.5, 15, 6.8, 0)
  1141. R16 = T_SLOT(MR_X(H - 115, H, AGG), L - 8.5 - 30 + 4.75, 10, 4.5, 0) & T_SLOT(MR_X(H - 13.5, H, AGG), L - 38.5 + 10, 18, 7, 0) & T_SLOT(MR_X(H - 83.5, H, AGG), L - 38.5 + 15.5, 18, 7, 0)
  1142.  
  1143.  R17 = T_CIRC(MR_X(9 + WS - 67 - 170.5, H, AGG), L - 38.5 + 12.25, 6.5) & T_CIRC(MR_X(9 + WS - 67, H, AGG), L - 38.5 + 12.25, 6.5) & T_CIRC(MR_X(9 + WS + 67 - 234.5, H, AGG), L - 38.5 + 12.25, 6.5) & T_CIRC(MR_X(9 + WS + 67, H, AGG), L - 38.5 + 12.25, 6.5) & T_CIRC(MR_X(9 + WS - 67 + 234.5, H, AGG), L - 38.5 + 12.25, 6.5) & T_CIRC(MR_X(9 + WS + 67 + 170.5, H, AGG), L - 38.5 + 12.25, 6.5)
  1144.  R18 = T_CIRC(MR_X(9 + WS - 40, H, AGG), L - 38.5 + 16.25, 10.1) & T_CIRC(MR_X(9 + WS + 40, H, AGG), L - 38.5 + 16.25, 10.1)
  1145.  
  1146.  R19 = T_RECT2(MR_X(H - 83.5 - 22, H, AGG), L - 38.5 + 15.5, 8.6, 8.6)
  1147.  R20 = T_RECT1(MR_X(-6, H, AGG), MR_X(G + 25.8, H, AGG), L - 38.5 + 24.5, L + 6) & T_RECT1(MR_X(9 + WS - 55.9 - 30, H, AGG), MR_X(9 + WS + 40.1 + 30, H, AGG), L - 8.5 - 6.7, L + 6) & T_RECT1(MR_X(9 + WS - 30, H, AGG), MR_X(9 + WS + 30, H, AGG), L - 38.5 - 0.5, L + 6) & T_RECT1(MR_X(H - 35, H, AGG), MR_X(H + 6, H, AGG), L - 38.5 + 19, L + 6) & T_RECT1(MR_X(H - 60, H, AGG), MR_X(H - 34, H, AGG), L - 38.5 + 28, L + 6)
  1148.  
  1149.  R21 = T_SPECIAL(MR_X(0, H, AGG), 0, "7SQ", 0) & T_SPECIAL(MR_X(H, H, AGG), 0, "7SQ", 0) & T_SPECIAL(MR_X(0, H, AGG), L - 38.5 + 24.5, "7SQ", 0) & T_SPECIAL(MR_X(G + 25.8, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(H, H, AGG), L - 38.5 + 19, "7SQ", 0) & T_SPECIAL(MR_X(H - 60, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(H - 44 + 5.3 + 0.2, H, AGG), L - (10.5 + 5.5) + 5.3 + 0.2, "7SQ", 0) & T_SPECIAL(MR_X(H - 44 + 5.5 + 3.6, H, AGG), L - (10.5 + 5.5) + 5.5 - 3.6, "7SQ", 0)
  1150.  R22 = T_SPECIAL(MR_X(9 + WS - 55.9 - 30, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(9 + WS + 40.1 + 30, H, AGG), L, "7SQ", 0) & T_SPECIAL(MR_X(9 + WS + 30, H, AGG), L - 15.2, "7SQ", 0) & T_SPECIAL(MR_X(9 + WS - 30, H, AGG), L - 15.2, "7SQ", 0)
  1151.  
  1152.  
  1153.  'Select Case VV
  1154.    'Case "P01", "P03", "P05", "P07", "P09", "P11", "P13"
  1155.    R23 = T_SMUS(H + 1, L - 38.5 - 27.5 - 10)
  1156.     'Case "P12", "P14", "P02", "P04", "P06", "P08", "P10"
  1157.    'R23 = T_SMUS(-1, L - 38.5 - 27.5 - 10)
  1158.    'Case Else
  1159.    'MsgBox ("ERRORE VERSIONE SU " & ACT_MOD)
  1160. 'End Select
  1161.  
  1162.  R24 = T_CIRC(MR_X(H - 130 - M1, H, AGG), L - 12.25 - 8.5, 6) & T_CIRC(MR_X(H - 130 - M1 - 53, H, AGG), L - 12.25 - 8.5, 6)
  1163.  
  1164.  R25 = T_RECT2(MR_X(9, H, AGG), 26.8 + 21.4 + 12 - 22, 8.6, 15) & T_RECT2(MR_X(9, H, AGG), 26.8 + 21.4 + 12 + 22, 8.6, 15) & T_RECT2(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 12 - 22, 8.6, 15) & T_RECT2(MR_X(H - 9, H, AGG), 26.8 + 21.4 + 12 + 22, 8.6, 15)
  1165.  
  1166. '**********************************************
  1167. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
  1168.  
  1169.  
  1170. P1 = 250
  1171. P2 = H - 400
  1172. MVAL = 500
  1173. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1174.  
  1175. Call SAVE_SUB(NND, STRINGA)
  1176.  
  1177. POSINTAB = def_posintab(NND)
  1178. Call CUT_END_S(H, L, "0", POSINTAB)
  1179. Call FVTPT(3, NND, "")
  1180. Call CUT_END_S(H, L, "C", POSINTAB)
  1181. Call FVTPT(3, NND, "C")
  1182.  
  1183. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  1184. Call FVTPT(3, NND, "D")
  1185. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  1186. Call FVTPT(3, NND, "E")
  1187.  
  1188. End Sub
  1189.  
  1190.  
  1191. Sub S_0902895D(NND)
  1192.  
  1193. ACT_MOD = INFO_DAT(NND, 0, 6)
  1194. CLAMP = 0
  1195. NHD = 15
  1196.  
  1197.  
  1198. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  1199. GL = INPUT_NUM(NND, "GL", GL, ACT_MOD)
  1200. BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
  1201. BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
  1202.  
  1203. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1204. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1205. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1206. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1207. '***********************************************************
  1208. Dim POSINTAB As Byte
  1209.  
  1210. '*********************************LAVORAZIONI
  1211.  
  1212.  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 42.8 + 15 + 24 + 26.8 + 1, 8.8) & T_CIRC(H - 9, 42.8 + 15 + 24 + 26.8 + 1, 8.8)
  1213.  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  1214.  R03 = T_CIRC(H / 2, 3, 3.3) & T_CIRC(((H - CO + 60) / 2) - 30, 3, 3.3) & T_CIRC(H - ((H - CO + 60) / 2) + 30, 3, 3.3)
  1215.  R04 = T_SLOT(((H - CO + 60) / 2), 19.5, 25, 11, 90) & T_SLOT(H - ((H - CO + 60) / 2), 19.5, 25, 11, 90)
  1216. ' R05 = T_SLOT(H - 11, L - 38.5 - 7.5, 15, 6.8, 0) & T_SLOT(H - 11, L - 38.5 - 25.5, 15, 6.8, 0) & T_SLOT(H - 11, L - 38.5 - 47.5, 15, 6.8, 0)
  1217. R05 = T_SLOT(H - 11, L - 38.5 - 9.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 27.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 49.5 - 1, 15, 7, 0)
  1218.  R06 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 - 4.75 - 1, 10, 4.5, 0)
  1219.  
  1220.  R07 = T_CIRC(H / 2 + 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 - 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 + 53.5, L - 38.5 - 18.8 - 1, 3.6)
  1221.  
  1222.  R08 = T_CIRC(H / 2 + 16, L - 38.5 - 74 + 35.5, 10.1) & T_CIRC(H / 2 + 16 - 25.4, L - 38.5 - 74 + 35.5, 10.1)
  1223.  R09 = T_CIRC(((H - CO + 60) / 2), L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 24.5 - 1, 20.2)
  1224.  R10 = T_SLOT(((H - CO + 60) / 2), L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  1225.  
  1226.  R11 = T_CIRC(((H - CO + 60) / 2) + BL, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR, L - 38.5 - 86.75 - 1, 4.2)
  1227.  R12 = T_CIRC(((H - CO + 60) / 2) + BL + 35, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR - 35, L - 38.5 - 86.75 - 1, 4.2)
  1228.  
  1229.  R13 = T_RECT2(((H - CO + 60) / 2) - 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10)
  1230.  R14 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 + 4.75 - 0.5, 10, 4.5, 0)
  1231. ' R15 = T_SLOT(H - 45, L - 38.5 + 17.5, 15, 6.8, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 17.5, 15, 6.8, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 17.5, 8.6, 8.6)
  1232. R15 = T_SLOT(H - 45, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 15.5, 8.6, 8.6)
  1233. ' R16 = T_SLOT(H / 2 - GL, L - 38.5 + 17.5, 15, 6.8, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 17.5, 15, 6.8, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 17.5, 15, 6.8, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 17.5, 8.6, 8.6)
  1234. R16 = T_SLOT(H / 2 - GL, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 15.5, 8.6, 8.6)
  1235.  R17 = T_CIRC(H / 2 - 48.6, L - 38.5 + 13.25, 10.1) & T_CIRC(H / 2 + 40, L - 38.5 + 19.25, 10.1)
  1236.  R18 = T_CIRC(H / 2 + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  1237.  R19 = T_RECT1(-6, H / 2 - GL - 37.9, L - 38.5 + 28, L + 6) & T_RECT1(H - 45 + 19.1, H + 6, L - 38.5 + 9, L + 6) & T_RECT1(H - 45 - 5.9, H + 6, L - 38.5 + 24, L + 6)
  1238.  R20 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 38.5, L + 6) & T_RECT1(H / 2 - 30 - 55, H / 2 + 30 + 140, L - 8.5 - 2, L + 6)
  1239.  
  1240.  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 - GL - 37.9, L, "7SQ", 0)
  1241.  R22 = T_SPECIAL(H, L - 38.5 + 9, "7SQ", 0) & T_SPECIAL(H - 45 + 19.1, L - 38.5 + 24, "7SQ", 0) & T_SPECIAL(H - 45 - 5.9, L, "7SQ", 0)
  1242.  R23 = T_SPECIAL(H / 2 - 30, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 8.5 - 2, "7SQ", 0)
  1243.  R24 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30 + 140, L, "7SQ", 0)
  1244.  
  1245.  
  1246.  R25 = T_SMUS(H + 1, L - 38.5 - 49.5 - 10)
  1247.  
  1248.  
  1249.  
  1250. '**********************************************
  1251. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
  1252.  
  1253.  
  1254. P1 = 250
  1255. P2 = H - 400
  1256. MVAL = 500
  1257. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1258.  
  1259. Call SAVE_SUB(NND, STRINGA)
  1260.  
  1261. POSINTAB = def_posintab(NND)
  1262. Call CUT_END_S(H, L, "0", POSINTAB)
  1263. Call FVTPT(3, NND, "")
  1264. Call CUT_END_S(H, L, "C", POSINTAB)
  1265. Call FVTPT(3, NND, "C")
  1266.  
  1267. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  1268. Call FVTPT(3, NND, "D")
  1269. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  1270. Call FVTPT(3, NND, "E")
  1271.  
  1272. End Sub
  1273.  
  1274.  
  1275. Sub S_0902895E(NND)
  1276.  
  1277. ACT_MOD = INFO_DAT(NND, 0, 6)
  1278. CLAMP = 0
  1279. NHD = 15
  1280.  
  1281.  
  1282. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  1283. GL = INPUT_NUM(NND, "GL", GL, ACT_MOD)
  1284. BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
  1285. BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
  1286.  
  1287. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1288. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1289. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1290. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1291. '***********************************************************
  1292. Dim POSINTAB As Byte
  1293.  
  1294. '*********************************LAVORAZIONI
  1295.  
  1296.  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 42.8 + 15 + 24 + 26.8 + 1, 8.8) & T_CIRC(H - 9, 42.8 + 15 + 24 + 26.8 + 1, 8.8)
  1297.  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  1298.  R03 = T_CIRC(H / 2, 3, 3.3) & T_CIRC(((H - CO + 60) / 2) - 30, 3, 3.3) & T_CIRC(H - ((H - CO + 60) / 2) + 30, 3, 3.3)
  1299.  R04 = T_SLOT(((H - CO + 60) / 2), 19.5, 25, 11, 90) & T_SLOT(H - ((H - CO + 60) / 2), 19.5, 25, 11, 90)
  1300.  R04 = R04 & T_SLOT(H - ((H - CO + 60) / 2) - 100, 19.5, 25, 11, 90) & T_SLOT(((H - CO + 60) / 2) + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV E
  1301.  
  1302.  R05 = T_SLOT(H - 11, L - 38.5 - 9.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 27.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 49.5 - 1, 15, 7, 0)
  1303.  R06 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 - 4.75 - 1, 10, 4.5, 0)
  1304.  
  1305.  R07 = T_CIRC(H / 2 + 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 - 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 + 53.5, L - 38.5 - 18.8 - 1, 3.6)
  1306.  
  1307.  R08 = T_CIRC(H / 2 + 16, L - 38.5 - 74 + 35.5, 10.1) & T_CIRC(H / 2 + 16 - 25.4, L - 38.5 - 74 + 35.5, 10.1)
  1308.  R09 = T_CIRC(((H - CO + 60) / 2), L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 24.5 - 1, 20.2)
  1309.  R09 = R09 & T_CIRC(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) 'AGGIUNTA REV E
  1310.  
  1311.  R10 = T_SLOT(((H - CO + 60) / 2), L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  1312.  R10 = R10 & T_SLOT(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  1313.  
  1314.  R11 = T_CIRC(((H - CO + 60) / 2) + BL, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR, L - 38.5 - 86.75 - 1, 4.2)
  1315.  R12 = T_CIRC(((H - CO + 60) / 2) + BL + 35, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR - 35, L - 38.5 - 86.75 - 1, 4.2)
  1316.  
  1317.  R13 = T_RECT2(((H - CO + 60) / 2) - 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10)
  1318.  R13 = R13 & T_RECT2(((H - CO + 60) / 2) - 21.5 + 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5 - 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) 'AGGIUNTA REV E
  1319.  
  1320.  R14 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 + 4.75 - 0.5, 10, 4.5, 0)
  1321.  
  1322.  R15 = T_SLOT(H - 45, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 15.5, 8.6, 8.6)
  1323.  
  1324.  R16 = T_SLOT(H / 2 - GL, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 15.5, 8.6, 8.6)
  1325.  R17 = T_CIRC(H / 2 - 48.6, L - 38.5 + 13.25, 10.1) & T_CIRC(H / 2 + 40, L - 38.5 + 19.25, 10.1)
  1326.  R18 = T_CIRC(H / 2 + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  1327.  R19 = T_RECT1(-6, H / 2 - GL - 37.9, L - 38.5 + 28, L + 6) & T_RECT1(H - 45 + 19.1, H + 6, L - 38.5 + 9, L + 6) & T_RECT1(H - 45 - 5.9, H + 6, L - 38.5 + 24, L + 6)
  1328.  R20 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 38.5, L + 6) & T_RECT1(H / 2 - 30 - 55, H / 2 + 30 + 140, L - 8.5 - 2, L + 6)
  1329.  
  1330.  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 - GL - 37.9, L, "7SQ", 0)
  1331.  R22 = T_SPECIAL(H, L - 38.5 + 9, "7SQ", 0) & T_SPECIAL(H - 45 + 19.1, L - 38.5 + 24, "7SQ", 0) & T_SPECIAL(H - 45 - 5.9, L, "7SQ", 0)
  1332.  R23 = T_SPECIAL(H / 2 - 30, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 8.5 - 2, "7SQ", 0)
  1333.  R24 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30 + 140, L, "7SQ", 0)
  1334.  
  1335.  
  1336.  R25 = T_SMUS(H + 1, L - 38.5 - 49.5 - 10)
  1337.  
  1338.  
  1339. '**********************************************
  1340. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
  1341.  
  1342.  
  1343. P1 = 250
  1344. P2 = H - 400
  1345. MVAL = 500
  1346. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1347.  
  1348. Call SAVE_SUB(NND, STRINGA)
  1349.  
  1350. POSINTAB = def_posintab(NND)
  1351. Call CUT_END_S(H, L, "0", POSINTAB)
  1352. Call FVTPT(3, NND, "")
  1353. Call CUT_END_S(H, L, "C", POSINTAB)
  1354. Call FVTPT(3, NND, "C")
  1355.  
  1356. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  1357. Call FVTPT(3, NND, "D")
  1358. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  1359. Call FVTPT(3, NND, "E")
  1360.  
  1361. End Sub
  1362.  
  1363.  
  1364. Sub S_0902895F(NND)
  1365.  
  1366. ACT_MOD = INFO_DAT(NND, 0, 6)
  1367. CLAMP = 0
  1368. NHD = 15
  1369.  
  1370.  
  1371. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  1372. GL = INPUT_NUM(NND, "GL", GL, ACT_MOD)
  1373. BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
  1374. BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
  1375.  
  1376. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1377. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1378. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1379. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1380. '***********************************************************
  1381. Dim POSINTAB As Byte
  1382.  
  1383. '*********************************LAVORAZIONI
  1384.  
  1385.  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 42.8 + 15 + 24 + 26.8 + 1, 8.8) & T_CIRC(H - 9, 42.8 + 15 + 24 + 26.8 + 1, 8.8)
  1386.  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  1387.  R03 = T_CIRC(H / 2, 3, 3.3) & T_CIRC(((H - CO + 60) / 2) - 30, 3, 3.3) & T_CIRC(H - ((H - CO + 60) / 2) + 30, 3, 3.3)
  1388.  R04 = T_SLOT(((H - CO + 60) / 2), 19.5, 25, 11, 90) & T_SLOT(H - ((H - CO + 60) / 2), 19.5, 25, 11, 90)
  1389.  R04 = R04 & T_SLOT(H - ((H - CO + 60) / 2) - 100, 19.5, 25, 11, 90) & T_SLOT(((H - CO + 60) / 2) + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV E
  1390.  
  1391.  R05 = T_SLOT(H - 11, L - 38.5 - 9.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 27.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 49.5 - 1, 15, 7, 0)
  1392.  R06 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 - 4.75 - 1, 10, 4.5, 0)
  1393.  
  1394.  R07 = T_CIRC(H / 2 + 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 - 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 + 53.5, L - 38.5 - 18.8 - 1, 3.6)
  1395.  
  1396.  R08 = T_CIRC(H / 2 + 16, L - 38.5 - 74 + 35.5, 10.1) & T_CIRC(H / 2 + 16 - 25.4, L - 38.5 - 74 + 35.5, 10.1)
  1397.  R09 = T_CIRC(((H - CO + 60) / 2), L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 24.5 - 1, 20.2)
  1398.  R09 = R09 & T_CIRC(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) 'AGGIUNTA REV E
  1399.  
  1400.  R10 = T_SLOT(((H - CO + 60) / 2), L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  1401.  R10 = R10 & T_SLOT(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  1402.  
  1403.  R11 = T_CIRC(((H - CO + 60) / 2) + BL, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR, L - 38.5 - 86.75 - 1, 4.2)
  1404.  R12 = T_CIRC(((H - CO + 60) / 2) + BL + 35, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR - 35, L - 38.5 - 86.75 - 1, 4.2)
  1405.  
  1406.  R13 = T_RECT2(((H - CO + 60) / 2) - 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10)
  1407.  R13 = R13 & T_RECT2(((H - CO + 60) / 2) - 21.5 + 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5 - 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) 'AGGIUNTA REV E
  1408.  
  1409.  R14 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 + 4.75 - 0.5, 10, 4.5, 0)
  1410.  
  1411.  R15 = T_SLOT(H - 45, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 15.5, 8.6, 8.6)
  1412.  
  1413.  R16 = T_SLOT(H / 2 - GL, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 15.5, 8.6, 8.6)
  1414.  R17 = T_CIRC(H / 2 - 48.6, L - 38.5 + 13.25, 10.1) & T_CIRC(H / 2 + 40, L - 38.5 + 19.25, 10.1)
  1415.  R18 = T_CIRC(H / 2 + 67 - 234.5 - 100, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  1416.  R19 = T_RECT1(-6, H / 2 - GL - 37.9, L - 38.5 + 28, L + 6) & T_RECT1(H - 45 + 19.1, H + 6, L - 38.5 + 9, L + 6) & T_RECT1(H - 45 - 5.9, H + 6, L - 38.5 + 24, L + 6)
  1417.  R20 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 38.5, L + 6) & T_RECT1(H / 2 - 30 - 55, H / 2 + 30 + 140, L - 8.5 - 2, L + 6)
  1418.  
  1419.  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 - GL - 37.9, L, "7SQ", 0)
  1420.  R22 = T_SPECIAL(H, L - 38.5 + 9, "7SQ", 0) & T_SPECIAL(H - 45 + 19.1, L - 38.5 + 24, "7SQ", 0) & T_SPECIAL(H - 45 - 5.9, L, "7SQ", 0)
  1421.  R23 = T_SPECIAL(H / 2 - 30, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 8.5 - 2, "7SQ", 0)
  1422.  R24 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30 + 140, L, "7SQ", 0)
  1423.  
  1424.  
  1425.  R25 = T_SMUS(H + 1, L - 38.5 - 49.5 - 10)
  1426.  
  1427.  
  1428. '**********************************************
  1429. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
  1430.  
  1431.  
  1432. P1 = 250
  1433. P2 = H - 400
  1434. MVAL = 500
  1435. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1436.  
  1437. Call SAVE_SUB(NND, STRINGA)
  1438.  
  1439. POSINTAB = def_posintab(NND)
  1440. Call CUT_END_S(H, L, "0", POSINTAB)
  1441. Call FVTPT(3, NND, "")
  1442. Call CUT_END_S(H, L, "C", POSINTAB)
  1443. Call FVTPT(3, NND, "C")
  1444.  
  1445. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  1446. Call FVTPT(3, NND, "D")
  1447. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  1448. Call FVTPT(3, NND, "E")
  1449.  
  1450. End Sub
  1451.  
  1452.  
  1453. Sub S_0902895G(NND)
  1454.  
  1455. ACT_MOD = INFO_DAT(NND, 0, 6)
  1456. CLAMP = 0
  1457. NHD = 15
  1458.  
  1459.  
  1460. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  1461. GL = INPUT_NUM(NND, "GL", GL, ACT_MOD)
  1462. BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
  1463. BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
  1464. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1465.  
  1466. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1467. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1468. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1469. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1470. '***********************************************************
  1471. Dim POSINTAB As Byte
  1472.  
  1473. '*********************************LAVORAZIONI
  1474.  
  1475.  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 42.8 + 15 + 24 + 26.8 + 1, 8.8) & T_CIRC(H - 9, 42.8 + 15 + 24 + 26.8 + 1, 8.8)
  1476.  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  1477.  R03 = T_CIRC(H / 2, 3, 3.3) & T_CIRC(((H - CO + 60) / 2) - 30, 3, 3.3) & T_CIRC(H - ((H - CO + 60) / 2) + 30, 3, 3.3)
  1478.  R04 = T_SLOT(((H - CO + 60) / 2), 19.5, 25, 11, 90) & T_SLOT(H - ((H - CO + 60) / 2), 19.5, 25, 11, 90)
  1479.  R04 = R04 & T_SLOT(H - ((H - CO + 60) / 2) - 100, 19.5, 25, 11, 90) & T_SLOT(((H - CO + 60) / 2) + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV E
  1480.  
  1481.  R05 = T_SLOT(H - 11, L - 38.5 - 9.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 27.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 49.5 - 1, 15, 7, 0)
  1482.  R06 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 - 4.75 - 1, 10, 4.5, 0)
  1483.  
  1484.  R07 = T_CIRC(H / 2 + 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 - 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 + 53.5, L - 38.5 - 18.8 - 1, 3.6)
  1485.  
  1486.  R08 = T_CIRC(H / 2 + 16, L - 38.5 - 74 + 35.5, 10.1) & T_CIRC(H / 2 + 16 - 25.4, L - 38.5 - 74 + 35.5, 10.1)
  1487.  R09 = T_CIRC(((H - CO + 60) / 2), L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 24.5 - 1, 20.2)
  1488.  R09 = R09 & T_CIRC(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) 'AGGIUNTA REV E
  1489.  
  1490.  R10 = T_SLOT(((H - CO + 60) / 2), L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  1491.  R10 = R10 & T_SLOT(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  1492.  
  1493.  R11 = T_CIRC(((H - CO + 60) / 2) + BL, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR, L - 38.5 - 86.75 - 1, 4.2)
  1494.  R12 = T_CIRC(((H - CO + 60) / 2) + BL + 35, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR - 35, L - 38.5 - 86.75 - 1, 4.2)
  1495.  
  1496.  R13 = T_RECT2(((H - CO + 60) / 2) - 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10)
  1497.  R13 = R13 & T_RECT2(((H - CO + 60) / 2) - 21.5 + 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5 - 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) 'AGGIUNTA REV E
  1498.  
  1499.  R14 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 + 4.75 - 0.5, 10, 4.5, 0)
  1500.  
  1501.  R15 = T_SLOT(H - 45, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 15.5, 8.6, 8.6)
  1502.  
  1503.  R16 = T_SLOT(H / 2 - GL, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 15.5, 8.6, 8.6)
  1504.  R17 = T_CIRC(H / 2 - 48.6, L - 38.5 + 13.25, 10.1) & T_CIRC(H / 2 + 40, L - 38.5 + 19.25, 10.1)
  1505.  R18 = T_CIRC(H / 2 + 67 - 234.5 - 100, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  1506.  R19 = T_RECT1(-6, H / 2 - GL - 37.9, L - 38.5 + 28, L + 6) & T_RECT1(H - 45 + 19.1, H + 6, L - 38.5 + 9, L + 6) & T_RECT1(H - 45 - 5.9, H + 6, L - 38.5 + 24, L + 6)
  1507.  R20 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 38.5, L + 6) & T_RECT1(H / 2 - 30 - 55, H / 2 + 30 + 140, L - 8.5 - 2, L + 6)
  1508.  
  1509.  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 - GL - 37.9, L, "7SQ", 0)
  1510.  R22 = T_SPECIAL(H, L - 38.5 + 9, "7SQ", 0) & T_SPECIAL(H - 45 + 19.1, L - 38.5 + 24, "7SQ", 0) & T_SPECIAL(H - 45 - 5.9, L, "7SQ", 0)
  1511.  R23 = T_SPECIAL(H / 2 - 30, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 8.5 - 2, "7SQ", 0)
  1512.  R24 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30 + 140, L, "7SQ", 0)
  1513.  
  1514.  
  1515.  R25 = T_SMUS(H + 1, L - 38.5 - 49.5 - 10)
  1516.  
  1517.  R26 = T_CIRC(H / 2 - M1, L - 8.5 - 12.25, 6) & T_CIRC(H / 2 - M1 - 56, L - 8.5 - 12.25, 6)
  1518.  
  1519. '**********************************************
  1520. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25 & R26
  1521.  
  1522.  
  1523. P1 = 250
  1524. P2 = H - 400
  1525. MVAL = 500
  1526. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1527.  
  1528. Call SAVE_SUB(NND, STRINGA)
  1529.  
  1530. POSINTAB = def_posintab(NND)
  1531. Call CUT_END_S(H, L, "0", POSINTAB)
  1532. Call FVTPT(3, NND, "")
  1533. Call CUT_END_S(H, L, "C", POSINTAB)
  1534. Call FVTPT(3, NND, "C")
  1535.  
  1536. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  1537. Call FVTPT(3, NND, "D")
  1538. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  1539. Call FVTPT(3, NND, "E")
  1540.  
  1541. End Sub
  1542.  
  1543.  
  1544. Sub S_0902895J(NND)
  1545.  
  1546. ACT_MOD = INFO_DAT(NND, 0, 6)
  1547. CLAMP = 0
  1548. NHD = 15
  1549.  
  1550.  
  1551. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  1552. GL = INPUT_NUM(NND, "GL", GL, ACT_MOD)
  1553. BL = INPUT_NUM(NND, "BL", BL, ACT_MOD)
  1554. BR = INPUT_NUM(NND, "BR", BR, ACT_MOD)
  1555. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1556.  
  1557. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1558. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1559. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1560. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1561. '***********************************************************
  1562. Dim POSINTAB As Byte
  1563.  
  1564. '*********************************LAVORAZIONI
  1565.  
  1566.  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 42.8 + 15 + 24 + 26.8 + 1, 8.8) & T_CIRC(H - 9, 42.8 + 15 + 24 + 26.8 + 1, 8.8)
  1567.  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(9 + 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9 - 415, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  1568.  R03 = T_CIRC(H / 2, 3, 3.3) & T_CIRC(((H - CO + 60) / 2) - 30, 3, 3.3) & T_CIRC(H - ((H - CO + 60) / 2) + 30, 3, 3.3)
  1569.  R04 = T_SLOT(((H - CO + 60) / 2), 19.5, 25, 11, 90) & T_SLOT(H - ((H - CO + 60) / 2), 19.5, 25, 11, 90)
  1570.  R04 = R04 & T_SLOT(H - ((H - CO + 60) / 2) - 100, 19.5, 25, 11, 90) & T_SLOT(((H - CO + 60) / 2) + 100, 19.5, 25, 11, 90) 'AGGIUNTA REV E
  1571.  
  1572.  R05 = T_SLOT(H - 11, L - 38.5 - 9.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 27.5 - 1, 15, 7, 0) & T_SLOT(H - 11, L - 38.5 - 49.5 - 1, 15, 7, 0)
  1573.  R06 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 - 4.75 - 1, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 - 4.75 - 1, 10, 4.5, 0)
  1574.  
  1575.  R07 = T_CIRC(H / 2 + 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 - 7.5, L - 38.5 - 74 - 1, 3.6) & T_CIRC(H / 2 + 53.5, L - 38.5 - 18.8 - 1, 3.6)
  1576.  
  1577.  R08 = T_CIRC(H / 2 + 16, L - 38.5 - 74 + 35.5, 10.1) & T_CIRC(H / 2 + 16 - 25.4, L - 38.5 - 74 + 35.5, 10.1)
  1578.  R09 = T_CIRC(((H - CO + 60) / 2), L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 24.5 - 1, 20.2)
  1579.  R09 = R09 & T_CIRC(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 24.5 - 1, 20.2) 'AGGIUNTA REV E
  1580.  
  1581.  R10 = T_SLOT(((H - CO + 60) / 2), L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  1582.  R10 = R10 & T_SLOT(((H - CO + 60) / 2) + 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90) & T_SLOT(((H - CO + 60) / 2) + CO - 60 - 100, L - 38.5 - 30.5 - 12.25 - 1, 35.5, 11, 90)
  1583.  
  1584.  R11 = T_CIRC(((H - CO + 60) / 2) + BL, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR, L - 38.5 - 86.75 - 1, 4.2)
  1585.  R12 = T_CIRC(((H - CO + 60) / 2) + BL + 35, L - 38.5 - 86.75 - 1, 4.2) & T_CIRC(((H - CO + 60) / 2) + CO - 60 - BR - 35, L - 38.5 - 86.75 - 1, 4.2)
  1586.  
  1587.  R13 = T_RECT2(((H - CO + 60) / 2) - 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5, L - 38.5 - 30.5 - 7 - 1, 10, 10)
  1588.  R13 = R13 & T_RECT2(((H - CO + 60) / 2) - 21.5 + 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) & T_RECT2(((H - CO + 60) / 2) + CO - 60 + 21.5 - 100, L - 38.5 - 30.5 - 7 - 1, 10, 10) 'AGGIUNTA REV E
  1589.  
  1590.  R14 = T_SLOT(H / 2 + 67 + 170.5 + 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H - 45 - 52.5 - 20, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50, L - 38.5 + 4.75 - 0.5, 10, 4.5, 0) & T_SLOT(H / 2 + 67 - 234.5 - 50 - (CO / 2 - 200), L - 38.5 + 4.75 - 0.5, 10, 4.5, 0)
  1591.  
  1592.  R15 = T_SLOT(H - 45, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H - 45 - 35, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H - 45 - 52.5, L - 38.5 + 15.5, 8.6, 8.6)
  1593.  
  1594.  R16 = T_SLOT(H / 2 - GL, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 24.8, L - 38.5 + 15.5, 15, 7, 0) & T_SLOT(H / 2 - GL - 69.8, L - 38.5 + 15.5, 15, 7, 0) & T_RECT2(H / 2 - GL - 50.4, L - 38.5 + 15.5, 8.6, 8.6)
  1595.  R17 = T_CIRC(H / 2 - 48.6, L - 38.5 + 13.25, 10.1) & T_CIRC(H / 2 + 40, L - 38.5 + 19.25, 10.1)
  1596.  R18 = T_CIRC(H / 2 + 67 - 234.5 - 100, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 - 234.5, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67, L - 38.5 + 12.25, 6.5) & T_CIRC(H / 2 + 67 + 170.5, L - 38.5 + 12.25, 6.5)
  1597.  R19 = T_RECT1(-6, H / 2 - GL - 37.9, L - 38.5 + 28, L + 6) & T_RECT1(H - 45 + 19.1, H + 6, L - 38.5 + 9, L + 6) & T_RECT1(H - 45 - 5.9, H + 6, L - 38.5 + 24, L + 6)
  1598.  R20 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 38.5, L + 6) & T_RECT1(H / 2 - 30 - 55, H / 2 + 30 + 140, L - 8.5 - 2, L + 6)
  1599.  
  1600.  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 - GL - 37.9, L, "7SQ", 0)
  1601.  R22 = T_SPECIAL(H, L - 38.5 + 9, "7SQ", 0) & T_SPECIAL(H - 45 + 19.1, L - 38.5 + 24, "7SQ", 0) & T_SPECIAL(H - 45 - 5.9, L, "7SQ", 0)
  1602.  R23 = T_SPECIAL(H / 2 - 30, L - 8.5 - 2, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 8.5 - 2, "7SQ", 0)
  1603.  R24 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30 + 140, L, "7SQ", 0)
  1604.  
  1605.  
  1606.  R25 = T_SMUS(H + 1, L - 38.5 - 49.5 - 10)
  1607.  
  1608.  R26 = T_CIRC(H / 2 - M1, L - 8.5 - 12.25, 6) & T_CIRC(H / 2 - M1 - 53, L - 8.5 - 12.25, 6)
  1609.  
  1610.  R27 = T_RECT2(9, 26.8 + 21.4 + 12 - 22, 8.6, 15) & T_RECT2(9, 26.8 + 21.4 + 12 + 22, 8.6, 15) & T_RECT2(H - 9, 26.8 + 21.4 + 12 - 22, 8.6, 15) & T_RECT2(H - 9, 26.8 + 21.4 + 12 + 22, 8.6, 15)
  1611.  
  1612. '**********************************************
  1613. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25 & R26 & R27
  1614.  
  1615.  
  1616. P1 = 250
  1617. P2 = H - 400
  1618. MVAL = 500
  1619. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1620.  
  1621. Call SAVE_SUB(NND, STRINGA)
  1622.  
  1623. POSINTAB = def_posintab(NND)
  1624. Call CUT_END_S(H, L, "0", POSINTAB)
  1625. Call FVTPT(3, NND, "")
  1626. Call CUT_END_S(H, L, "C", POSINTAB)
  1627. Call FVTPT(3, NND, "C")
  1628.  
  1629. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  1630. Call FVTPT(3, NND, "D")
  1631. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  1632. Call FVTPT(3, NND, "E")
  1633.  
  1634. End Sub
  1635.  
  1636.  
  1637. Sub S_1006715D(NND)
  1638.  
  1639. ACT_MOD = INFO_DAT(NND, 0, 6)
  1640. CLAMP = 0
  1641. NHD = 15
  1642.  
  1643. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  1644. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1645. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1646. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1647. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1648. '***********************************************************
  1649. Dim POSINTAB As Byte
  1650. delt = 2
  1651. '*********************************LAVORAZIONI
  1652.  
  1653.  
  1654.  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8) & T_CIRC(H - 9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8)
  1655.  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  1656.  
  1657.  X1X = (H - CO) / 2
  1658.  R03 = T_SLOT(X1X + 30, 12.5 + 7, 25, 11, 90) & T_SLOT(H - X1X - 30, 12.5 + 7, 25, 11, 90)
  1659.  R04 = T_CIRC(X1X, 3, 3.3) & T_CIRC(H / 2, 3, 3.3) & T_CIRC(H - X1X, 3, 3.3)
  1660.  
  1661.  R05 = T_RECT2(X1X + 8.5, L - 26 - 47.5 - 1, 10, 10) & T_CIRC(X1X + 30, L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(X1X + 30, L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
  1662.  R06 = T_RECT2(H - (X1X + 8.5), L - 26 - 47.5 - 1, 10, 10) & T_CIRC(H - (X1X + 30), L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(H - (X1X + 30), L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
  1663.  
  1664.  R07 = T_CIRC(H / 2 - 7.5, L - 26 - 73 - delt, 3.6) & T_CIRC(H / 2 + 7.5, L - 26 - 73 - delt, 3.6)
  1665.  
  1666.  R08 = T_CIRC(H / 2 - 19, L - 26 - 73 + 20.2 - delt, 10.1) & T_CIRC(H / 2 - 19 + 57, L - 26 - 73 + 20.2 - 32 - delt, 10.1)
  1667.  R09 = T_CIRC(H / 2 - 142.5, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45 + 167.5, L - 26 - 12 - delt, 10.1)
  1668.  
  1669.  R10 = T_SLOT(H - X1X + 196.2, L - 26 - 28 - 1.5, 18, 7, 0) '6.8
  1670.  
  1671.  R11 = T_RECT1(H / 2 - 156.5 - 22, H / 2 - 156.5, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56, H / 2 + 56 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56 + 170.5, H / 2 + 56 + 170.5 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5)
  1672.  
  1673.  R12 = T_SLOT(H / 2 - CO / 2 - 99.2 - 89.4 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 24.7 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 5.6, L - 16.8, 18, 7, 0) & T_RECT2(H / 2 - CO / 2 - 99.2 - 24.7 - 29.7, L - 16.8, 8.6, 8.6)
  1674.  R13 = T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 89.4 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 5.6), L - 16.8, 18, 7, 0) & T_RECT2(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 29.7), L - 16.8, 8.6, 8.6)
  1675.  R14 = T_RECT2(X1X - 99.2 + 40.7, L - 16.8, 6.8, 6.8) & T_RECT2(X1X - 99.2 + 40.7 + 24.8, L - 16.8, 6.8, 6.8)
  1676.  
  1677.  R15 = T_RECT1(X1X - 99.2 + 10.9, X1X - 99.2 + 10.9 + 5, L - 12.5, L - 2.5) & T_RECT1(H - (X1X - 99.2 + 10.9) - 5, H - (X1X - 99.2 + 10.9), L - 12.5, L - 2.5)
  1678.  R16 = T_RECT1(-6, H / 2 - CO / 2 - 85.1, L - 7.5, L + 2.5) & T_RECT1(H + 6, H - (H / 2 - CO / 2 - 85.1), L - 7.5, L + 2.5)
  1679.  
  1680.  R17 = T_CIRC(H / 2 - 48.6, L - 21.5, 10.1) & T_CIRC(H / 2 + 40, L - 15.5, 10.1)
  1681.  
  1682.  R18 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 28, L + 6)
  1683.  R19 = T_RECT1(H / 2 + 170, H / 2 + 30 + 19.7, L - 10, L + 6) & T_RECT1(H / 2 + 30 - 5, H / 2 + 30 + 19.7 + 5, L - 7.5, L + 6) & T_RECT1(H / 2 - 30, H / 2 - 30 - 55, L - 11.5, L + 6)
  1684.  R20 = T_RECT1(H / 2 - 30 - 28.3 - 5, H / 2 - 30 - 28.3, L - 28.5 - 5, L - 28.5 + 5) & T_RECT1(H / 2 - 30 - 28.3, H / 2 - 30 + 1.7, L - 28.5, L - 28.5 - 5) & T_RECT1(H / 2 - 30, H / 2 - 30 + 5, L - 28.5 - 5, L - 28.5 + 5)
  1685.  
  1686.  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 7.5, "7SQ", 0) & T_SPECIAL(H, L - 7.5, "7SQ", 0) & T_SPECIAL(X1X - 85.1, L, "7SQ", 0) & T_SPECIAL(H - (X1X - 85.1), L, "7SQ", 0)
  1687.  R22 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 170, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 7.5, "7SQ", 0) & T_SPECIAL(H / 2 - 30, L - 11.5, "7SQ", 0)
  1688.  
  1689. ' R23 = T_SLOT(X1X - 99.2 - 75, L - 8.5 + 1.5, 26, 14, 0) & T_SLOT(H - (X1X - 99.2 - 75), L - 8.5 + 1.5, 26, 14, 0)
  1690. R23A = T_CIRC(H - (X1X - 99.2 - 75) - 13 + 7, L - 5.5, 14) & T_CIRC(H - (X1X - 99.2 - 75) + 13 - 7, L - 5.5, 14) & T_RECT2(H - (X1X - 99.2 - 75), L - 5.5 - 2, 26 - 14, 10)
  1691.  R23B = T_CIRC(X1X - 99.2 - 75 - 13 + 7, L - 5.5, 14) & T_CIRC(X1X - 99.2 - 75 + 13 - 7, L - 5.5, 14) & T_RECT2(X1X - 99.2 - 75, L - 5.5 - 2, 26 - 14, 10)
  1692.  R23 = R23A & R23B
  1693.  
  1694.  R24 = T_SMUS(H + 1, L - 26 - 18 - 15)
  1695.  
  1696. '**********************************************
  1697. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24
  1698.  
  1699.  
  1700. P1 = 250
  1701. P2 = H - 400
  1702. MVAL = 500
  1703. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1704.  
  1705. Call SAVE_SUB(NND, STRINGA)
  1706.  
  1707. POSINTAB = def_posintab(NND)
  1708. Call CUT_END_S(H, L, "0", POSINTAB)
  1709. Call FVTPT(3, NND, "")
  1710. Call CUT_END_S(H, L, "C", POSINTAB)
  1711. Call FVTPT(3, NND, "C")
  1712.  
  1713. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  1714. Call FVTPT(3, NND, "D")
  1715. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  1716. Call FVTPT(3, NND, "E")
  1717.  
  1718. End Sub
  1719.  
  1720. Sub S_1006715E(NND)
  1721.  
  1722. ACT_MOD = INFO_DAT(NND, 0, 6)
  1723. CLAMP = 0
  1724. NHD = 15
  1725.  
  1726. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  1727. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1728. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1729. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1730. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1731. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1732. '***********************************************************
  1733. Dim POSINTAB As Byte
  1734. delt = 2
  1735. '*********************************LAVORAZIONI
  1736.  
  1737.  
  1738.  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8) & T_CIRC(H - 9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8)
  1739.  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  1740.  
  1741.  X1X = (H - CO) / 2
  1742.  R03 = T_SLOT(X1X + 30, 12.5 + 7, 25, 11, 90) & T_SLOT(H - X1X - 30, 12.5 + 7, 25, 11, 90)
  1743.  R04 = T_CIRC(X1X, 3, 3.3) & T_CIRC(H / 2, 3, 3.3) & T_CIRC(H - X1X, 3, 3.3)
  1744.  
  1745.  R05 = T_RECT2(X1X + 8.5, L - 26 - 47.5 - 1, 10, 10) & T_CIRC(X1X + 30, L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(X1X + 30, L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
  1746.  R06 = T_RECT2(H - (X1X + 8.5), L - 26 - 47.5 - 1, 10, 10) & T_CIRC(H - (X1X + 30), L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(H - (X1X + 30), L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
  1747.  
  1748.  R07 = T_CIRC(H / 2 - 7.5, L - 26 - 73 - delt, 3.6) & T_CIRC(H / 2 + 7.5, L - 26 - 73 - delt, 3.6)
  1749.  
  1750.  R08 = T_CIRC(H / 2 - 19, L - 26 - 73 + 20.2 - delt, 10.1) & T_CIRC(H / 2 - 19 + 57, L - 26 - 73 + 20.2 - 32 - delt, 10.1)
  1751.  R09 = T_CIRC(H / 2 - 142.5, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45 + 167.5, L - 26 - 12 - delt, 10.1)
  1752.  
  1753.  R10 = T_SLOT(H - X1X + 196.2, L - 26 - 28 - 1.5, 18, 7, 0) '6.8
  1754.  
  1755.  R11 = T_RECT1(H / 2 - 156.5 - 22, H / 2 - 156.5, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56, H / 2 + 56 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56 + 170.5, H / 2 + 56 + 170.5 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5)
  1756.  
  1757.  R12 = T_SLOT(H / 2 - CO / 2 - 99.2 - 89.4 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 24.7 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 5.6, L - 16.8, 18, 7, 0) & T_RECT2(H / 2 - CO / 2 - 99.2 - 24.7 - 29.7, L - 16.8, 8.6, 8.6)
  1758.  R13 = T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 89.4 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 5.6), L - 16.8, 18, 7, 0) & T_RECT2(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 29.7), L - 16.8, 8.6, 8.6)
  1759.  R14 = "" ' T_RECT2(X1X - 99.2 + 40.7, L - 16.8, 6.8, 6.8) & T_RECT2(X1X - 99.2 + 40.7 + 24.8, L - 16.8, 6.8, 6.8)
  1760.  
  1761.  R15 = T_RECT1(X1X - 99.2 + 10.9, X1X - 99.2 + 10.9 + 5, L - 12.5, L - 2.5) & T_RECT1(H - (X1X - 99.2 + 10.9) - 5, H - (X1X - 99.2 + 10.9), L - 12.5, L - 2.5)
  1762.  R16 = T_RECT1(-6, H / 2 - CO / 2 - 85.1, L - 7.5, L + 2.5) & T_RECT1(H + 6, H - (H / 2 - CO / 2 - 85.1), L - 7.5, L + 2.5)
  1763.  
  1764.  R17 = T_CIRC(H / 2 - 48.6, L - 21.5, 10.1) & T_CIRC(H / 2 + 40, L - 15.5, 10.1)
  1765.  
  1766.  R18 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 28, L + 6)
  1767.  R19 = T_RECT1(H / 2 + 170, H / 2 + 30 + 19.7, L - 10, L + 6) & T_RECT1(H / 2 + 30 - 5, H / 2 + 30 + 19.7 + 5, L - 7.5, L + 6) & T_RECT1(H / 2 - 30, H / 2 - 30 - 55, L - 11.5, L + 6)
  1768.  R20 = T_RECT1(H / 2 - 30 - 28.3 - 5, H / 2 - 30 - 28.3, L - 28.5 - 5, L - 28.5 + 5) & T_RECT1(H / 2 - 30 - 28.3, H / 2 - 30 + 1.7, L - 28.5, L - 28.5 - 5) & T_RECT1(H / 2 - 30, H / 2 - 30 + 5, L - 28.5 - 5, L - 28.5 + 5)
  1769.  
  1770.  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 7.5, "7SQ", 0) & T_SPECIAL(H, L - 7.5, "7SQ", 0) & T_SPECIAL(X1X - 85.1, L, "7SQ", 0) & T_SPECIAL(H - (X1X - 85.1), L, "7SQ", 0)
  1771.  R22 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 170, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 7.5, "7SQ", 0) & T_SPECIAL(H / 2 - 30, L - 11.5, "7SQ", 0)
  1772.  
  1773. ' R23 = T_SLOT(X1X - 99.2 - 75, L - 8.5 + 1.5, 26, 14, 0) & T_SLOT(H - (X1X - 99.2 - 75), L - 8.5 + 1.5, 26, 14, 0)
  1774. R23A = T_CIRC(H - (X1X - 99.2 - 75) - 13 + 7, L - 5.5, 14) & T_CIRC(H - (X1X - 99.2 - 75) + 13 - 7, L - 5.5, 14) & T_RECT2(H - (X1X - 99.2 - 75), L - 5.5 - 2, 26 - 14, 10)
  1775.  R23B = T_CIRC(X1X - 99.2 - 75 - 13 + 7, L - 5.5, 14) & T_CIRC(X1X - 99.2 - 75 + 13 - 7, L - 5.5, 14) & T_RECT2(X1X - 99.2 - 75, L - 5.5 - 2, 26 - 14, 10)
  1776.  R23 = R23A & R23B
  1777.  
  1778.  R24 = T_SMUS(H + 1, L - 26 - 18 - 15)
  1779.  
  1780.  R25 = T_CIRC(H / 2 - M1, L - 8.5 - 11.75, 6) & T_CIRC(H / 2 - M1 - 56, L - 8.5 - 11.75, 6)
  1781.  
  1782. '**********************************************
  1783. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
  1784.  
  1785.  
  1786. P1 = 250
  1787. P2 = H - 400
  1788. MVAL = 500
  1789. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1790.  
  1791. Call SAVE_SUB(NND, STRINGA)
  1792.  
  1793. POSINTAB = def_posintab(NND)
  1794. Call CUT_END_S(H, L, "0", POSINTAB)
  1795. Call FVTPT(3, NND, "")
  1796. Call CUT_END_S(H, L, "C", POSINTAB)
  1797. Call FVTPT(3, NND, "C")
  1798.  
  1799. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  1800. Call FVTPT(3, NND, "D")
  1801. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  1802. Call FVTPT(3, NND, "E")
  1803.  
  1804. End Sub
  1805.  
  1806.  
  1807. Sub S_1006715F(NND)
  1808.  
  1809. ACT_MOD = INFO_DAT(NND, 0, 6)
  1810. CLAMP = 0
  1811. NHD = 15
  1812.  
  1813. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  1814. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1815. M1 = INPUT_NUM(NND, "M1", M1, ACT_MOD)
  1816. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1817. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1818. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1819. '***********************************************************
  1820. Dim POSINTAB As Byte
  1821. delt = 2
  1822. '*********************************LAVORAZIONI
  1823.  
  1824.  
  1825.  R01 = T_CIRC(9, 12, 8.8) & T_CIRC(H - 9, 12, 8.8) & T_CIRC(9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8) & T_CIRC(H - 9, 26.8 + 42.8 + 24 + 14.4 + delt, 8.8)
  1826.  R02 = T_CIRC(9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H - 9, 26.8 + 21.4 + 12, 10.1) & T_CIRC(H / 2, 26.8 + 21.4 + 12, 10.1)
  1827.  
  1828.  X1X = (H - CO) / 2
  1829.  R03 = T_SLOT(X1X + 30, 12.5 + 7, 25, 11, 90) & T_SLOT(H - X1X - 30, 12.5 + 7, 25, 11, 90)
  1830.  R04 = T_CIRC(X1X, 3, 3.3) & T_CIRC(H / 2, 3, 3.3) & T_CIRC(H - X1X, 3, 3.3)
  1831.  
  1832.  R05 = T_RECT2(X1X + 8.5, L - 26 - 47.5 - 1, 10, 10) & T_CIRC(X1X + 30, L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(X1X + 30, L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
  1833.  R06 = T_RECT2(H - (X1X + 8.5), L - 26 - 47.5 - 1, 10, 10) & T_CIRC(H - (X1X + 30), L - 26 - 47.5 - 17.5 - 1, 20.2) & T_SLOT(H - (X1X + 30), L - 26 - 47.5 - 17.5 + 12.25 - 1, 35.5, 11, 90)
  1834.  
  1835.  R07 = T_CIRC(H / 2 - 7.5, L - 26 - 73 - delt, 3.6) & T_CIRC(H / 2 + 7.5, L - 26 - 73 - delt, 3.6)
  1836.  
  1837.  R08 = T_CIRC(H / 2 - 19, L - 26 - 73 + 20.2 - delt, 10.1) & T_CIRC(H / 2 - 19 + 57, L - 26 - 73 + 20.2 - 32 - delt, 10.1)
  1838.  R09 = T_CIRC(H / 2 - 142.5, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45, L - 26 - 12 - delt, 10.1) & T_CIRC(H / 2 + 45 + 167.5, L - 26 - 12 - delt, 10.1)
  1839.  
  1840.  R10 = T_SLOT(H - X1X + 196.2, L - 26 - 28 - 1.5, 18, 7, 0) '6.8
  1841.  
  1842.  R11 = T_RECT1(H / 2 - 156.5 - 22, H / 2 - 156.5, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56, H / 2 + 56 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5) & T_RECT1(H / 2 + 56 + 170.5, H / 2 + 56 + 170.5 + 22, L - 8.5 - 7.5 - 24.5, L - 8.5 - 7.5)
  1843.  
  1844.  R12 = T_SLOT(H / 2 - CO / 2 - 99.2 - 89.4 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 24.7 - 5.6, L - 16.8, 18, 7, 0) & T_SLOT(H / 2 - CO / 2 - 99.2 - 5.6, L - 16.8, 18, 7, 0) & T_RECT2(H / 2 - CO / 2 - 99.2 - 24.7 - 29.7, L - 16.8, 8.6, 8.6)
  1845.  R13 = T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 89.4 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 5.6), L - 16.8, 18, 7, 0) & T_SLOT(H - (H / 2 - CO / 2 - 99.2 - 5.6), L - 16.8, 18, 7, 0) & T_RECT2(H - (H / 2 - CO / 2 - 99.2 - 24.7 - 29.7), L - 16.8, 8.6, 8.6)
  1846.  R14 = "" ' T_RECT2(X1X - 99.2 + 40.7, L - 16.8, 6.8, 6.8) & T_RECT2(X1X - 99.2 + 40.7 + 24.8, L - 16.8, 6.8, 6.8)
  1847.  
  1848.  R15 = T_RECT1(X1X - 99.2 + 10.9, X1X - 99.2 + 10.9 + 5, L - 12.5, L - 2.5) & T_RECT1(H - (X1X - 99.2 + 10.9) - 5, H - (X1X - 99.2 + 10.9), L - 12.5, L - 2.5)
  1849.  R16 = T_RECT1(-6, H / 2 - CO / 2 - 85.1, L - 7.5, L + 2.5) & T_RECT1(H + 6, H - (H / 2 - CO / 2 - 85.1), L - 7.5, L + 2.5)
  1850.  
  1851.  R17 = T_CIRC(H / 2 - 48.6, L - 21.5, 10.1) & T_CIRC(H / 2 + 40, L - 15.5, 10.1)
  1852.  
  1853.  R18 = T_RECT1(H / 2 - 30, H / 2 + 30, L - 28, L + 6)
  1854.  R19 = T_RECT1(H / 2 + 170, H / 2 + 30 + 19.7, L - 10, L + 6) & T_RECT1(H / 2 + 30 - 5, H / 2 + 30 + 19.7 + 5, L - 7.5, L + 6) & T_RECT1(H / 2 - 30, H / 2 - 30 - 55, L - 11.5, L + 6)
  1855.  R20 = T_RECT1(H / 2 - 30 - 28.3 - 5, H / 2 - 30 - 28.3, L - 28.5 - 5, L - 28.5 + 5) & T_RECT1(H / 2 - 30 - 28.3, H / 2 - 30 + 1.7, L - 28.5, L - 28.5 - 5) & T_RECT1(H / 2 - 30, H / 2 - 30 + 5, L - 28.5 - 5, L - 28.5 + 5)
  1856.  
  1857.  R21 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(0, L - 7.5, "7SQ", 0) & T_SPECIAL(H, L - 7.5, "7SQ", 0) & T_SPECIAL(X1X - 85.1, L, "7SQ", 0) & T_SPECIAL(H - (X1X - 85.1), L, "7SQ", 0)
  1858.  R22 = T_SPECIAL(H / 2 - 30 - 55, L, "7SQ", 0) & T_SPECIAL(H / 2 + 170, L, "7SQ", 0) & T_SPECIAL(H / 2 + 30, L - 7.5, "7SQ", 0) & T_SPECIAL(H / 2 - 30, L - 11.5, "7SQ", 0)
  1859.  
  1860. ' R23 = T_SLOT(X1X - 99.2 - 75, L - 8.5 + 1.5, 26, 14, 0) & T_SLOT(H - (X1X - 99.2 - 75), L - 8.5 + 1.5, 26, 14, 0)
  1861. R23A = T_CIRC(H - (X1X - 99.2 - 75) - 13 + 7, L - 5.5, 14) & T_CIRC(H - (X1X - 99.2 - 75) + 13 - 7, L - 5.5, 14) & T_RECT2(H - (X1X - 99.2 - 75), L - 5.5 - 2, 26 - 14, 10)
  1862.  R23B = T_CIRC(X1X - 99.2 - 75 - 13 + 7, L - 5.5, 14) & T_CIRC(X1X - 99.2 - 75 + 13 - 7, L - 5.5, 14) & T_RECT2(X1X - 99.2 - 75, L - 5.5 - 2, 26 - 14, 10)
  1863.  R23 = R23A & R23B
  1864.  
  1865.  R24 = T_SMUS(H + 1, L - 26 - 18 - 15)
  1866.  
  1867.  R25 = T_CIRC(H / 2 - M1, L - 8.5 - 11.75, 6) & T_CIRC(H / 2 - M1 - 53, L - 8.5 - 11.75, 6)
  1868.  
  1869. '**********************************************
  1870. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18 & R19 & R20 & R21 & R22 & R23 & R24 & R25
  1871.  
  1872.  
  1873. P1 = 250
  1874. P2 = H - 400
  1875. MVAL = 500
  1876. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1877.  
  1878. Call SAVE_SUB(NND, STRINGA)
  1879.  
  1880. POSINTAB = def_posintab(NND)
  1881. Call CUT_END_S(H, L, "0", POSINTAB)
  1882. Call FVTPT(3, NND, "")
  1883. Call CUT_END_S(H, L, "C", POSINTAB)
  1884. Call FVTPT(3, NND, "C")
  1885.  
  1886. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "C", POSINTAB)
  1887. Call FVTPT(3, NND, "D")
  1888. Call CUT_END_TSVU_PST(H, L, 0, H, L, L, "0", POSINTAB)
  1889. Call FVTPT(3, NND, "E")
  1890.  
  1891. End Sub
  1892.  
  1893.  
  1894. Sub S_1005785A(NND)
  1895.  
  1896. ACT_MOD = INFO_DAT(NND, 0, 6)
  1897. CLAMP = 0
  1898. NHD = 15
  1899.  
  1900. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  1901. a = INPUT_NUM(NND, "A", a, ACT_MOD)
  1902. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1903. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1904. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1905. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1906. '***********************************************************
  1907. Dim POSINTAB As Byte
  1908.  
  1909. '*********************************LAVORAZIONI
  1910. M = H
  1911.  X1X = ((M - CO) / 2)
  1912.  
  1913.  R01 = T_SLOT(X1X - 60 - 47 - a, 13, 30, 11, 0) & T_SLOT(X1X - 60, 13, 30, 11, 0) & T_SLOT(X1X - 60 - 47, 13, 30, 11, 0) & T_SLOT(X1X - 60 + 48, 13, 30, 11, 0) & T_SLOT(X1X + 110, 13, 30, 11, 0)
  1914.  R02 = T_RECT2(X1X - 60, 40.5, 10, 16) & T_CIRC(X1X, 3, 3.3)
  1915.  R03 = T_SLOT(X1X - 60, L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0) & T_SLOT(X1X - 60 + 210, L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0)
  1916.  R04 = T_CIRC(X1X - 60, L - 9 - 26 - 34 - 20, 20.2) & T_SLOT(X1X - 60, L - 9 - 26 - 34 - 10, 31, 11, 90)
  1917.  R05 = T_CIRC(9, 49.5 + 9.6 + 9, 10.1) & T_CIRC(9, 49.5 + 9.6 + 9.6 + 21 + 41.5, 10.1) & T_CIRC(9, 49.5 + 9.6 + 9.6 + 21 + 41.5 + 60, 10.1)
  1918.  
  1919.  
  1920.  R06 = T_SLOT(H - (X1X - 60 - 47 - a), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60 - 47), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60 + 48), 13, 30, 11, 0) & T_SLOT(H - (X1X + 110), 13, 30, 11, 0)
  1921.  R07 = T_RECT2(H - (X1X - 60), 40.5, 10, 16) & T_CIRC(H - (X1X), 3, 3.3)
  1922.  R08 = T_SLOT(H - (X1X - 60), L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0) & T_SLOT(H - (X1X - 60 + 210), L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0)
  1923.  R09 = T_CIRC(H - (X1X - 60), L - 9 - 26 - 34 - 20, 20.2) & T_SLOT(H - (X1X - 60), L - 9 - 26 - 34 - 10, 31, 11, 90)
  1924.  R10 = T_CIRC(H - 9, 49.5 + 9.6 + 9, 10.1) & T_CIRC(H - 9, 49.5 + 9.6 + 9.6 + 21 + 41.5, 10.1) & T_CIRC(H - 9, 49.5 + 9.6 + 9.6 + 21 + 41.5 + 60, 10.1)
  1925.  
  1926.  R11 = T_SLOT(H / 2, 13, 30, 11, 0) & T_CIRC(H / 2, 3, 3.3) & T_CIRC(H / 2, 49.5 + 9.6 + 9, 10.1)
  1927.  R12 = T_SLOT(H / 2, L - 35 - 92, 30, 11, 0) & T_CIRC(H / 2 + 28.1, L - 35 - 92, 6) & T_CIRC(H / 2 + 28.1 - 55, L - 35 - 92, 6) & T_CIRC(H / 2 + 28.1 - 93, L - 35 - 92 + 75, 6)
  1928.  
  1929.  R13 = T_RECT2(29, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - 29, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(X1X + 100, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - X1X - 100, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - X1X - 140, L - 35 + 10.5, 8.6, 8.6)
  1930.  R14 = T_SLOT(H / 2 + 39, L - 35 + 12, 38.8, 7, 0)
  1931.  R15 = T_CIRC(H / 2 - 96, L - 35 + 8.15, 8.8) & T_CIRC(H / 2 - 96, L - 9, 14) & T_SLOT(H / 2 - 96, L - 35, 10, 4.5, 0)
  1932.  R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(0, L, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0)
  1933.  
  1934.  
  1935.  R17 = T_SMUS(H + 1, 161)
  1936.  
  1937. '**********************************************
  1938. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17
  1939.  
  1940.  
  1941. P1 = 250
  1942. P2 = H - 400
  1943. MVAL = 500
  1944. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  1945.  
  1946. Call SAVE_SUB(NND, STRINGA)
  1947.  
  1948. POSINTAB = def_posintab(NND)
  1949. Call CUT_END_S(H, L, "0", POSINTAB)
  1950. Call FVTPT(3, NND, "")
  1951. Call CUT_END_S(H, L, "C", POSINTAB)
  1952. Call FVTPT(3, NND, "C")
  1953.  
  1954. Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
  1955. Call FVTPT(3, NND, "D")
  1956. Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
  1957. Call FVTPT(3, NND, "E")
  1958.  
  1959. End Sub
  1960.  
  1961. Sub S_1005785B(NND)
  1962.  
  1963. ACT_MOD = INFO_DAT(NND, 0, 6)
  1964. CLAMP = 0
  1965. NHD = 15
  1966.  
  1967. CO = INPUT_NUM(NND, "CO", CO, ACT_MOD)
  1968. a = INPUT_NUM(NND, "A", a, ACT_MOD)
  1969. L = INPUT_NUM(NND, "L", L, ACT_MOD)
  1970. SPS = INPUT_NUM(NND, "SPS", SPS, ACT_MOD) / 10
  1971. H = INPUT_NUM(NND, "H", H, ACT_MOD)
  1972. VV = INPUT_STR(NND, "VER", VV, ACT_MOD)
  1973. '***********************************************************
  1974. Dim POSINTAB As Byte
  1975.  
  1976. '*********************************LAVORAZIONI
  1977. M = H
  1978.  X1X = ((M - CO) / 2)
  1979.  
  1980.  R01 = T_SLOT(X1X - 60 - 47 - a, 13, 30, 11, 0) & T_SLOT(X1X - 60, 13, 30, 11, 0) & T_SLOT(X1X - 60 - 47, 13, 30, 11, 0) & T_SLOT(X1X - 60 + 48, 13, 30, 11, 0) & T_SLOT(X1X + 110, 13, 30, 11, 0)
  1981.  R02 = T_RECT2(X1X - 60, 40.5, 10, 16) & T_CIRC(X1X, 3, 3.3)
  1982.  R03 = T_SLOT(X1X - 60, L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0) & T_SLOT(X1X - 60 + 210, L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0)
  1983.  R04 = T_CIRC(X1X - 60, L - 9 - 26 - 34 - 20, 20.2) & T_SLOT(X1X - 60, L - 9 - 26 - 34 - 10, 31, 11, 90)
  1984.  R05 = T_CIRC(9, 49.5 + 9.6 + 9, 10.1) & T_CIRC(9, 49.5 + 9.6 + 9.6 + 21 + 41.5, 10.1) & T_CIRC(9, 49.5 + 9.6 + 9.6 + 21 + 41.5 + 60, 10.1)
  1985.  
  1986.  
  1987.  R06 = T_SLOT(H - (X1X - 60 - 47 - a), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60 - 47), 13, 30, 11, 0) & T_SLOT(H - (X1X - 60 + 48), 13, 30, 11, 0) & T_SLOT(H - (X1X + 110), 13, 30, 11, 0)
  1988.  R07 = T_RECT2(H - (X1X - 60), 40.5, 10, 16) & T_CIRC(H - (X1X), 3, 3.3)
  1989.  R08 = T_SLOT(H - (X1X - 60), L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0) & T_SLOT(H - (X1X - 60 + 210), L - 9 - 26 - 34 - 20 - 38.8, 30, 11, 0)
  1990.  R09 = T_CIRC(H - (X1X - 60), L - 9 - 26 - 34 - 20, 20.2) & T_SLOT(H - (X1X - 60), L - 9 - 26 - 34 - 10, 31, 11, 90)
  1991.  R10 = T_CIRC(H - 9, 49.5 + 9.6 + 9, 10.1) & T_CIRC(H - 9, 49.5 + 9.6 + 9.6 + 21 + 41.5, 10.1) & T_CIRC(H - 9, 49.5 + 9.6 + 9.6 + 21 + 41.5 + 60, 10.1)
  1992.  
  1993.  R11 = T_SLOT(H / 2, 13, 30, 11, 0) & T_CIRC(H / 2, 3, 3.3) & T_CIRC(H / 2, 49.5 + 9.6 + 9, 10.1)
  1994.  R12 = T_SLOT(H / 2, L - 35 - 92, 30, 11, 0) & T_CIRC(H / 2 + 28.1, L - 35 - 92, 6) & T_CIRC(H / 2 + 28.1 - 55, L - 35 - 92, 6) & T_CIRC(H / 2 + 28.1 - 93, L - 35 - 92 + 75, 6)
  1995.  
  1996.  R13 = T_RECT2(29, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - 29, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(X1X + 100, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - X1X - 100, L - 35 + 10.5, 8.6, 8.6) & T_RECT2(H - X1X - 140, L - 35 + 10.5, 8.6, 8.6)
  1997.  R14 = T_SLOT(H / 2 + 39, L - 35 + 12, 38.8, 7, 0)
  1998.  R15 = T_CIRC(H / 2 - 96, L - 35 + 8.15, 8.8) & T_CIRC(H / 2 - 96, L - 9, 14) & T_SLOT(H / 2 - 96, L - 35, 10, 4.5, 0)
  1999.  R16 = T_SPECIAL(0, 0, "7SQ", 0) & T_SPECIAL(0, L, "7SQ", 0) & T_SPECIAL(H, 0, "7SQ", 0) & T_SPECIAL(H, L, "7SQ", 0)
  2000.  
  2001.  
  2002.  R17 = T_SMUS(H + 1, 161)
  2003.  R18 = T_RECT2(M / 2 - 112.5, L - 35 + 14.5, 6.8, 6.8) & T_RECT2(M / 2 + 112.5, L - 35 + 14.5, 6.8, 6.8)
  2004.  
  2005. '**********************************************
  2006. fn = R01 & R02 & R03 & R04 & R05 & R06 & R07 & R08 & R09 & R10 & R11 & R12 & R13 & R14 & R15 & R16 & R17 & R18
  2007.  
  2008.  
  2009. P1 = 250
  2010. P2 = H - 400
  2011. MVAL = 500
  2012. STRINGA = R000(NHD, NND, SPS, H, L, P1, P2, MVAL) & fn
  2013.  
  2014. Call SAVE_SUB(NND, STRINGA)
  2015.  
  2016. POSINTAB = def_posintab(NND)
  2017. Call CUT_END_S(H, L, "0", POSINTAB)
  2018. Call FVTPT(3, NND, "")
  2019. Call CUT_END_S(H, L, "C", POSINTAB)
  2020. Call FVTPT(3, NND, "C")
  2021.  
  2022. Call CUT_END_TSVU(H, L, 0, H, L, L, "C", POSINTAB)
  2023. Call FVTPT(3, NND, "D")
  2024. Call CUT_END_TSVU(H, L, 0, H, L, L, "0", POSINTAB)
  2025. Call FVTPT(3, NND, "E")
  2026.  
  2027. End Sub
  2028.  
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!