EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
GET
$
VELING_HM_103
$
VELLAV_HM_103
$
ESTERNO_HM_103
$
TIPOATTACCO_HM_103
$
ANGOLO_ROT_HM_103
$
PIANO_HM_103
$
DIAMUTIL_HM_103
$
PROF_HM_103
$
RADIUS4_HM_103
$
RADIUS3_HM_103
$
RADIUS2_HM_103
$
RADIUS1_HM_103
$
ALT_HM_103
$
LARG_HM_103
EOB
EOB
EOB
IF
$
PIANO_HM_103
<
0
||
$
PIANO_HM_103
>
2
EOB
EOB
ERROR
1052
EOB
END_PROGRAM
EOB
END_IF
EOB
EOB
IF
$
DIAMUTIL_HM_103
=
-
1
EOB
$
DIAMUTIL_HM_103
=
$
[U0]
EOB
END_IF
EOB
IF
$
DIAMUTIL_HM_103
<=
0
EOB
EOB
ERROR
1053
EOB
END_PROGRAM
EOB
END_IF
EOB
$
RAGGIO_UT_HM_103
=
$
DIAMUTIL_HM_103
/
2
EOB
EOB
EOB
IF
$
ESTERNO_HM_103
=
0
EOB
IF
$
RADIUS1_HM_103
<
$
RAGGIO_UT_HM_103
EOB
IF
$
RADIUS1_HM_103
<>
0
EOB
EOB
ERROR
1054
EOB
END_PROGRAM
EOB
END_IF
EOB
END_IF
EOB
IF
$
RADIUS2_HM_103
<
$
RAGGIO_UT_HM_103
EOB
IF
$
RADIUS2_HM_103
<>
0
EOB
EOB
ERROR
1055
EOB
END_PROGRAM
EOB
END_IF
EOB
END_IF
EOB
IF
$
RADIUS3_HM_103
<
$
RAGGIO_UT_HM_103
EOB
IF
$
RADIUS3_HM_103
<>
0
EOB
EOB
ERROR
1056
EOB
END_PROGRAM
EOB
END_IF
EOB
END_IF
EOB
IF
$
RADIUS4_HM_103
<
$
RAGGIO_UT_HM_103
EOB
IF
$
RADIUS4_HM_103
<>
0
EOB
EOB
ERROR
1057
EOB
END_PROGRAM
EOB
END_IF
EOB
END_IF
EOB
END_IF
EOB
EOB
IF
$
RADIUS1_HM_103
+
$
RADIUS2_HM_103
>
$
ALT_HM_103
EOB
EOB
ERROR
1058
EOB
END_PROGRAM
EOB
END_IF
EOB
EOB
IF
$
RADIUS2_HM_103
+
$
RADIUS3_HM_103
>
$
LARG_HM_103
EOB
EOB
ERROR
1059
EOB
END_PROGRAM
EOB
END_IF
EOB
IF
$
RADIUS3_HM_103
+
$
RADIUS4_HM_103
>
$
ALT_HM_103
EOB
EOB
ERROR
1060
EOB
END_PROGRAM
EOB
END_IF
EOB
EOB
IF
$
RADIUS4_HM_103
+
$
RADIUS1_HM_103
>
$
LARG_HM_103
EOB
EOB
ERROR
1061
EOB
END_PROGRAM
EOB
END_IF
EOB
EOB
EOB
EOB
IF
$
[X3]
=
1
EOB
$
ZEROPEZZO_HM_103
=
1
EOB
EOB
$
ZERO_X_HM_103
=
$
[Y0]
EOB
$
ZERO_Y_HM_103
=
$
[Y1]
EOB
$
ZERO_Z_HM_103
=
$
[Y2]
EOB
ELSE
EOB
$
ZEROPEZZO_HM_103
=
0
EOB
END_IF
EOB
EOB
G
92
X
Y
Z
EOB
IF
$
PIANO_HM_103
=
0
EOB
G
17
EOB
END_IF
EOB
IF
$
PIANO_HM_103
=
1
EOB
G
18
EOB
EOB
G
26
YZ
EOB
END_IF
EOB
IF
$
PIANO_HM_103
=
2
EOB
G
19
EOB
EOB
G
26
XZ
EOB
END_IF
EOB
IF
$
ANGOLO_ROT_HM_103
<>
0
EOB
G
50
X
0
Y
0
Z
[
$
ANGOLO_ROT_HM_103
]
EOB
END_IF
EOB
EOB
EOB
$
LARGMEZZI_HM_103
=
$
LARG_HM_103
/
2
EOB
$
ALTMEZZI_HM_103
=
$
ALT_HM_103
/
2
EOB
IF
$
ESTERNO_HM_103
=
0
EOB
$
LEN_HM_103
=
$
ALTMEZZI_HM_103
-
$
DIAMUTIL_HM_103
EOB
IF
$
TIPOATTACCO_HM_103
=
0
EOB
$
PX_HM_103
=
0
EOB
$
PY_HM_103
=
$
LEN_HM_103
EOB
ELSE
EOB
$
PX_HM_103
=
0
-
$
DIAMUTIL_HM_103
EOB
$
PY_HM_103
=
$
LEN_HM_103
EOB
END_IF
EOB
ELSE
EOB
$
LEN_HM_103
=
$
ALTMEZZI_HM_103
+
$
DIAMUTIL_HM_103
EOB
IF
$
TIPOATTACCO_HM_103
=
0
EOB
$
PX_HM_103
=
0
EOB
$
PY_HM_103
=
$
LEN_HM_103
EOB
ELSE
EOB
$
PX_HM_103
=
0
-
$
DIAMUTIL_HM_103
EOB
$
PY_HM_103
=
$
LEN_HM_103
EOB
END_IF
EOB
END_IF
EOB
G
60
EOB
G
0
X
[
$
PX_HM_103
]
Y
[
$
PY_HM_103
]
EOB
EOB
F
[
$
VELING_HM_103
]
EOB
G
1
Z
[
$
PROF_HM_103
]
EOB
EOB
F
[
$
VELLAV_HM_103
]
EOB
EOB
IF
$
ESTERNO_HM_103
=
0
EOB
IF
$
TIPOATTACCO_HM_103
=
0
EOB
G
1
Y
[
$
ALTMEZZI_HM_103
-
$
RAGGIO_UT_HM_103
]
EOB
ELSE
EOB
IF
$
PIANO_HM_103
=
2
EOB
G
3
X
0
Y
[
$
ALTMEZZI_HM_103
-
$
RAGGIO_UT_HM_103
]
R
[
$
DIAMUTIL_HM_103
]
EOB
ELSE
EOB
G
2
X
0
Y
[
$
ALTMEZZI_HM_103
-
$
RAGGIO_UT_HM_103
]
R
[
$
DIAMUTIL_HM_103
]
EOB
END_IF
EOB
END_IF
EOB
ELSE
EOB
IF
$
TIPOATTACCO_HM_103
=
0
EOB
G
1
Y
[
$
ALTMEZZI_HM_103
+
$
RAGGIO_UT_HM_103
]
EOB
ELSE
EOB
IF
$
PIANO_HM_103
=
2
EOB
G
2
X
0
Y
[
$
ALTMEZZI_HM_103
+
$
RAGGIO_UT_HM_103
]
R
[
$
DIAMUTIL_HM_103
]
EOB
ELSE
EOB
G
3
X
0
Y
[
$
ALTMEZZI_HM_103
+
$
RAGGIO_UT_HM_103
]
R
[
$
DIAMUTIL_HM_103
]
EOB
END_IF
EOB
END_IF
EOB
END_IF
EOB
EOB
EOB
EOB
EOB
IF
$
RADIUS1_HM_103
>
0
EOB
$
PUNTO_HM_103
=
$
LARGMEZZI_HM_103
-
$
RADIUS1_HM_103
EOB
ELSE
EOB
IF
$
ESTERNO_HM_103
=
0
EOB
$
PUNTO_HM_103
=
$
LARGMEZZI_HM_103
-
$
RAGGIO_UT_HM_103
EOB
ELSE
EOB
$
PUNTO_HM_103
=
$
LARGMEZZI_HM_103
+
$
RAGGIO_UT_HM_103
EOB
END_IF
EOB
END_IF
EOB
G
1
X
[
$
PUNTO_HM_103
]
EOB
IF
$
ESTERNO_HM_103
=
0
EOB
$
PUNTO_HM_103
=
$
LARGMEZZI_HM_103
-
$
RAGGIO_UT_HM_103
EOB
$
PUNTO_Y_HM_103
=
$
ALTMEZZI_HM_103
-
$
RADIUS1_HM_103
EOB
$
RG_HM_103
=
$
RADIUS1_HM_103
-
$
RAGGIO_UT_HM_103
EOB
EOB
IF
$
RADIUS1_HM_103
>
0
EOB
IF
$
PIANO_HM_103
=
2
EOB
G
3
X
[
$
PUNTO_HM_103
]
Y
[
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
ELSE
EOB
G
2
X
[
$
PUNTO_HM_103
]
Y
[
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
END_IF
EOB
END_IF
EOB
ELSE
EOB
$
PUNTO_HM_103
=
$
LARGMEZZI_HM_103
+
$
RAGGIO_UT_HM_103
EOB
$
PUNTO_Y_HM_103
=
$
ALTMEZZI_HM_103
-
$
RADIUS1_HM_103
EOB
$
RG_HM_103
=
$
RADIUS1_HM_103
+
$
RAGGIO_UT_HM_103
EOB
EOB
IF
$
RADIUS1_HM_103
>
0
EOB
IF
$
PIANO_HM_103
=
2
EOB
G
3
X
[
$
PUNTO_HM_103
]
Y
[
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
ELSE
EOB
G
2
X
[
$
PUNTO_HM_103
]
Y
[
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
END_IF
EOB
END_IF
EOB
END_IF
EOB
EOB
EOB
EOB
EOB
$
PUNTO_HM_103
=
0
-
$
ALTMEZZI_HM_103
EOB
IF
$
RADIUS2_HM_103
>
0
EOB
$
PUNTO_HM_103
=
$
PUNTO_HM_103
+
$
RADIUS2_HM_103
EOB
ELSE
EOB
IF
$
ESTERNO_HM_103
=
0
EOB
$
PUNTO_HM_103
=
$
PUNTO_HM_103
+
$
RAGGIO_UT_HM_103
EOB
ELSE
EOB
$
PUNTO_HM_103
=
$
PUNTO_HM_103
-
$
RAGGIO_UT_HM_103
EOB
END_IF
EOB
END_IF
EOB
G
1
Y
[
$
PUNTO_HM_103
]
EOB
IF
$
ESTERNO_HM_103
=
0
EOB
EOB
$
PUNTO_HM_103
=
$
LARGMEZZI_HM_103
-
$
RADIUS2_HM_103
EOB
$
PUNTO_Y_HM_103
=
$
ALTMEZZI_HM_103
-
$
RAGGIO_UT_HM_103
EOB
$
RG_HM_103
=
$
RADIUS2_HM_103
-
$
RAGGIO_UT_HM_103
EOB
IF
$
RADIUS2_HM_103
>
0
EOB
IF
$
PIANO_HM_103
=
2
EOB
G
3
X
[
$
PUNTO_HM_103
]
Y
[
0
-
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
ELSE
EOB
G
2
X
[
$
PUNTO_HM_103
]
Y
[
0
-
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
END_IF
EOB
END_IF
EOB
ELSE
EOB
EOB
$
PUNTO_HM_103
=
$
LARGMEZZI_HM_103
-
$
RADIUS2_HM_103
EOB
$
PUNTO_Y_HM_103
=
$
ALTMEZZI_HM_103
+
$
RAGGIO_UT_HM_103
EOB
$
RG_HM_103
=
$
RADIUS2_HM_103
+
$
RAGGIO_UT_HM_103
EOB
IF
$
RADIUS2_HM_103
>
0
EOB
IF
$
PIANO_HM_103
=
2
EOB
G
3
X
[
$
PUNTO_HM_103
]
Y
[
0
-
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
ELSE
EOB
G
2
X
[
$
PUNTO_HM_103
]
Y
[
0
-
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
END_IF
EOB
END_IF
EOB
END_IF
EOB
EOB
EOB
EOB
EOB
$
PUNTO_HM_103
=
0
-
$
LARGMEZZI_HM_103
EOB
IF
$
RADIUS3_HM_103
>
0
EOB
$
PUNTO_HM_103
=
$
PUNTO_HM_103
+
$
RADIUS3_HM_103
EOB
ELSE
EOB
IF
$
ESTERNO_HM_103
=
0
EOB
$
PUNTO_HM_103
=
$
PUNTO_HM_103
+
$
RAGGIO_UT_HM_103
EOB
ELSE
EOB
$
PUNTO_HM_103
=
$
PUNTO_HM_103
-
$
RAGGIO_UT_HM_103
EOB
END_IF
EOB
END_IF
EOB
G
1
X
[
$
PUNTO_HM_103
]
EOB
IF
$
ESTERNO_HM_103
=
0
EOB
EOB
$
PUNTO_HM_103
=
$
LARGMEZZI_HM_103
-
$
RAGGIO_UT_HM_103
EOB
$
PUNTO_Y_HM_103
=
$
ALTMEZZI_HM_103
-
$
RADIUS3_HM_103
EOB
$
RG_HM_103
=
$
RADIUS3_HM_103
-
$
RAGGIO_UT_HM_103
EOB
IF
$
RADIUS3_HM_103
>
0
EOB
IF
$
PIANO_HM_103
=
2
EOB
G
3
X
[
0
-
$
PUNTO_HM_103
]
Y
[
0
-
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
ELSE
EOB
G
2
X
[
0
-
$
PUNTO_HM_103
]
Y
[
0
-
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
END_IF
EOB
END_IF
EOB
ELSE
EOB
EOB
$
PUNTO_HM_103
=
$
LARGMEZZI_HM_103
+
$
RAGGIO_UT_HM_103
EOB
$
PUNTO_Y_HM_103
=
$
ALTMEZZI_HM_103
-
$
RADIUS3_HM_103
EOB
$
RG_HM_103
=
$
RADIUS3_HM_103
+
$
RAGGIO_UT_HM_103
EOB
IF
$
RADIUS3_HM_103
>
0
EOB
IF
$
PIANO_HM_103
=
2
EOB
G
3
X
[
0
-
$
PUNTO_HM_103
]
Y
[
0
-
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
ELSE
EOB
G
2
X
[
0
-
$
PUNTO_HM_103
]
Y
[
0
-
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
END_IF
EOB
END_IF
EOB
END_IF
EOB
EOB
EOB
EOB
EOB
IF
$
RADIUS4_HM_103
>
0
EOB
$
PUNTO_HM_103
=
$
ALTMEZZI_HM_103
-
$
RADIUS4_HM_103
EOB
ELSE
EOB
IF
$
ESTERNO_HM_103
=
0
EOB
$
PUNTO_HM_103
=
$
ALTMEZZI_HM_103
-
$
RAGGIO_UT_HM_103
EOB
ELSE
EOB
$
PUNTO_HM_103
=
$
ALTMEZZI_HM_103
+
$
RAGGIO_UT_HM_103
EOB
END_IF
EOB
END_IF
EOB
G
1
Y
[
$
PUNTO_HM_103
]
EOB
IF
$
ESTERNO_HM_103
=
0
EOB
EOB
$
PUNTO_HM_103
=
$
LARGMEZZI_HM_103
-
$
RADIUS4_HM_103
EOB
$
PUNTO_Y_HM_103
=
$
ALTMEZZI_HM_103
-
$
RAGGIO_UT_HM_103
EOB
$
RG_HM_103
=
$
RADIUS4_HM_103
-
$
RAGGIO_UT_HM_103
EOB
IF
$
RADIUS4_HM_103
>
0
EOB
IF
$
PIANO_HM_103
=
2
EOB
G
3
X
[
0
-
$
PUNTO_HM_103
]
Y
[
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
ELSE
EOB
G
2
X
[
0
-
$
PUNTO_HM_103
]
Y
[
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
END_IF
EOB
END_IF
EOB
ELSE
EOB
EOB
$
PUNTO_HM_103
=
$
LARGMEZZI_HM_103
-
$
RADIUS4_HM_103
EOB
$
PUNTO_Y_HM_103
=
$
ALTMEZZI_HM_103
+
$
RAGGIO_UT_HM_103
EOB
$
RG_HM_103
=
$
RADIUS4_HM_103
+
$
RAGGIO_UT_HM_103
EOB
IF
$
RADIUS4_HM_103
>
0
EOB
IF
$
PIANO_HM_103
=
2
EOB
G
3
X
[
0
-
$
PUNTO_HM_103
]
Y
[
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
ELSE
EOB
G
2
X
[
0
-
$
PUNTO_HM_103
]
Y
[
$
PUNTO_Y_HM_103
]
R
[
$
RG_HM_103
]
EOB
END_IF
EOB
END_IF
EOB
END_IF
EOB
EOB
G
1
X
0
EOB
EOB
EOB
EOB
EOB
EOB
G
0
Z
0
EOB
G
0
X
0
Y
0
EOB
G
17
EOB
IF
$
PIANO_HM_103
=
1
EOB
EOB
G
26
ZY
EOB
END_IF
EOB
IF
$
PIANO_HM_103
=
2
EOB
EOB
G
26
ZX
EOB
END_IF
EOB
EOB
IF
$
ZEROPEZZO_HM_103
=
1
EOB
EOB
G
94
X
[
$
ZERO_X_HM_103
]
Y
[
$
ZERO_Y_HM_103
]
Z
[
$
ZERO_Z_HM_103
]
EOB
ELSE
EOB
G
94
X
0
Y
0
Z
0
EOB
END_IF
EOB
EOB
