нужна помощь

[Profondita]

Здравствуйте! Помогите пожалуйста, нужно фрезернуть внутренний конус. Как будет выглядеть программа (станок haas vf3)
у меня есть программа
%
O02003(KONUS VNUTRENIJ);
T4 M06;
G90 G54 G00 X0 Y0 S300 M03;
G43 H04 Z0 M08;
F1000;
#100=0(Z.VERH)
#101=-28(GLUBINA)
#102=51(RADIUS OTV.)
#103=TAN[15] (UGOL KONUSA)
#104=1.5(SHAG.Z)

WHILE[#100GE#101]DO1
G1 G41 D4X[#102-#103*#101]Y0
G1Z#100
G3I-[#102-#103*#101]Y0

#100=#100-#104
#102=#102-[#103*#104]
END1
G80 G00 X0 M09;
G28 G91 Z0 Y0 M05;
M30;
%
но здесь ошибка
по Z поднимается по радиусу в + а должен в -.Моделировать не собираемся, работаем по образцу. Программы пишем со стойки. Подскажите пожалуйста в чем проблема?
Общий вид %
O02005 (KOZHUH SCEP 1)
T2 M06 (PLOSKOST);
G00 G90 G56 X0 Y0;
S1000 M03;
G43 H02 Z50. G00 M08;
G01 Z5. F500.;
G41 D02 X80. F500.;
Z0.5;
G03 Z-2. I-80. J0 F500;
Z-4. I-80. J0;
Z-6. I-80. J0;
Z-8. I-80. J0;
Z-9. I-80. J0;
I-80. J0;
G01 G40 X0;
G00 Z50.;
G80 Z100. G00 M09;
G28 G91 Z0 Y0 M05;

T4 M06;
G90 G54 G00 X0 Y0 S300 M03;
G43 H04 Z0 M08;
F1000;
#100=0(Z.VERH)
#101=-28(GLUBINA)
#102=51(RADIUS OTV.)
#103=TAN[15] (UGOL KONUSA)
#104=1.5(SHAG.Z)

WHILE[#100GE#101]DO1
G1 G41 D4X[#102-#103*#101]Y0
G1Z#100
G3I-[#102-#103*#101]Y0

#100=#100-#104
#102=#102-[#103*#104]
END1
G80 G00 X0 M09;
G28 G91 Z0 Y0 M05;

T7 M06 (USTUP);
G00 G90 G56 X0 Y0;
S1000 M03;
G43 H07 Z50. G00 M08;
G01 Z5. F500.;
G41 D07 X84.95 F500.;
Z-8.5;
G03 Z-10. I-84.95 J0 F500;
Z-11. I-84.95 J0;
Z-12.7 I-84.95 J0;
I-84.95 J0;
G01 G40 Z0;
G00 Z50.;
G80 Z100. G00 M09;
G28 G91 Z0 Y0 M05;
M30;
%