EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
EOB
GET
$
PIANO_HM_102
$
ESTERNO_HM_102
$
VEL_AFFONDO_HM_102
$
VEL_LAV_HM_102
$
TANGENZA_HM_102
$
DIAMUTIL_HM_102
$
PROF_HM_102
$
DIAMETRO_HM_102
EOB
EOB
IF
$
PIANO_HM_102
<
0
||
$
PIANO_HM_102
>
2
EOB
EOB
ERROR
1049
EOB
END_PROGRAM
EOB
END_IF
EOB
EOB
IF
$
DIAMUTIL_HM_102
=
-
1
EOB
$
DIAMUTIL_HM_102
=
$
[U0]
EOB
END_IF
EOB
IF
$
DIAMUTIL_HM_102
<=
0
EOB
EOB
ERROR
1050
EOB
END_PROGRAM
EOB
END_IF
EOB
IF
$
DIAMETRO_HM_102
<
$
DIAMUTIL_HM_102
EOB
EOB
ERROR
1051
EOB
END_PROGRAM
EOB
END_IF
EOB
EOB
$
RADIUS_HM_102
=
$
DIAMETRO_HM_102
/
2
EOB
$
RAGGIO_UT_HM_102
=
$
DIAMUTIL_HM_102
/
2
EOB
EOB
EOB
IF
$
[X3]
=
1
EOB
$
ZEROPEZZO_HM_102
=
1
EOB
EOB
$
ZERO_X_HM_102
=
$
[Y0]
EOB
$
ZERO_Y_HM_102
=
$
[Y1]
EOB
$
ZERO_Z_HM_102
=
$
[Y2]
EOB
ELSE
EOB
$
ZEROPEZZO_HM_102
=
0
EOB
END_IF
EOB
EOB
G
92
X
Y
Z
EOB
IF
$
PIANO_HM_102
=
0
EOB
G
17
EOB
END_IF
EOB
IF
$
PIANO_HM_102
=
1
EOB
G
18
EOB
EOB
G
26
YZ
EOB
END_IF
EOB
IF
$
PIANO_HM_102
=
2
EOB
G
19
EOB
EOB
G
26
XZ
EOB
END_IF
EOB
EOB
EOB
F
[
$
VEL_AFFONDO_HM_102
]
EOB
IF
$
ESTERNO_HM_102
=
0
EOB
EOB
G
0
X
0
Y
[
$
RADIUS_HM_102
-
$
DIAMUTIL_HM_102
]
EOB
G
1
Z
[
$
PROF_HM_102
]
EOB
EOB
$
RG_HM_102
=
$
RADIUS_HM_102
-
$
RAGGIO_UT_HM_102
EOB
F
[
$
VEL_LAV_HM_102
]
EOB
IF
$
TANGENZA_HM_102
=
1
EOB
IF
$
PIANO_HM_102
=
2
EOB
G
3
X
0
Y
[
$
RG_HM_102
]
R
[
$
RAGGIO_UT_HM_102
/
2
]
EOB
ELSE
EOB
G
2
X
0
Y
[
$
RG_HM_102
]
R
[
$
RAGGIO_UT_HM_102
/
2
]
EOB
END_IF
EOB
ELSE
EOB
G
1
X
0
Y
[
$
RG_HM_102
]
EOB
END_IF
EOB
EOB
IF
$
PIANO_HM_102
=
2
EOB
G
3
X
0
Y
[
$
RADIUS_HM_102
-
$
RAGGIO_UT_HM_102
]
I
0
J
0
EOB
ELSE
EOB
G
2
X
0
Y
[
$
RADIUS_HM_102
-
$
RAGGIO_UT_HM_102
]
I
0
J
0
EOB
END_IF
EOB
ELSE
EOB
EOB
G
0
X
0
Y
[
$
RADIUS_HM_102
+
$
DIAMUTIL_HM_102
]
EOB
G
1
Z
[
$
PROF_HM_102
]
EOB
F
[
$
VEL_LAV_HM_102
]
EOB
$
RG_HM_102
=
$
RADIUS_HM_102
+
$
RAGGIO_UT_HM_102
EOB
IF
$
TANGENZA_HM_102
=
1
EOB
IF
$
PIANO_HM_102
=
2
EOB
G
2
X
0
Y
[
$
RG_HM_102
]
R
[
$
RAGGIO_UT_HM_102
/
2
]
EOB
ELSE
EOB
G
3
X
0
Y
[
$
RG_HM_102
]
R
[
$
RAGGIO_UT_HM_102
/
2
]
EOB
END_IF
EOB
ELSE
EOB
G
1
X
0
Y
[
$
RG_HM_102
]
EOB
END_IF
EOB
EOB
IF
$
PIANO_HM_102
=
2
EOB
G
3
X
0
Y
[
$
RADIUS_HM_102
+
$
RAGGIO_UT_HM_102
]
I
0
J
0
EOB
ELSE
EOB
G
2
X
0
Y
[
$
RADIUS_HM_102
+
$
RAGGIO_UT_HM_102
]
I
0
J
0
EOB
END_IF
EOB
END_IF
EOB
EOB
EOB
EOB
EOB
EOB
G
17
EOB
IF
$
PIANO_HM_102
=
1
EOB
EOB
G
26
ZY
EOB
END_IF
EOB
IF
$
PIANO_HM_102
=
2
EOB
EOB
G
26
ZX
EOB
END_IF
EOB
EOB
IF
$
ZEROPEZZO_HM_102
=
1
EOB
EOB
G
94
X
[
$
ZERO_X_HM_102
]
Y
[
$
ZERO_Y_HM_102
]
Z
[
$
ZERO_Z_HM_102
]
EOB
ELSE
EOB
G
94
X
0
Y
0
Z
0
EOB
END_IF
EOB
