Kugel Fräsen Innen

Hallo liebe Forengemeinde,
habe ein schönes Parameterprogramm zum Kuppelfräsen gefunden.
Ich benötige dieses aber statt Konvex in Konkav, kann mir dabei jemand helfen?
bin leider nicht versiert genug das zu ändern.

hier das Programm:

N1 E_HEAD(272113663,200,,0,,,-50,71,17,2,60,0,1,20,,1,6,6,100);*RO*
N2 E_TS("RADIUS D10",,1,10000,1,,0);*RO*
N3 ;Parametereingabe:
N4 R1=25;Startpunkt X Abs
N5 R2=0;Startpunkt Y Abs
N6 R3=0;Startpunkt Z Abs
N7 R4=50;Linienlaenge Ink
N8 R5=-25;Radius an Kontur
N9 R6=3;Eckradius des Fraesers
N10 R7=50;Anzahl Schritte
N11 R8=5;Rueckzugsebene Z Abs
N12 R9=2;Sicherheitsabstand
N13 ;
N14 ;Einstellungen
N15 G90
N16 ;
N17 ;Start der schleife
N18 R30=1
N19 FOR R30=1 TO R7;R30 Zaehlt hoch bis R7 erreicht wird
N20 ;
N21 ;Berechnung
N22 R31=90/R7;Winkelzustellung pro schritt
N23 R32=R31*R30;Winkel in der aktuellen Zustellung
N24 R33=R1+($P_TOOLR+(SIN(R32)*(R5+R6))-R5-R6);Versatz X/Y
N25 R34=R3+(COS(R32)*(R5+R6))-R5-R6;Versatz in Z
F200
N26 ;
N27 ;Bewegung
N28 G0 Z=R8;Rueckzug
N29 G0 X=R33 Y=R2;Startpunkt
N30 G0 Z=R34;Zustellung Z
N31 G3 I=AC(0) J=AC(0);Endpunkt Y
N32 G0 Z=R8;Rueckzug
N33 ENDFOR;Ende der schleife R30 wird um 1 erhoeht

E_END(0,1,0);*RO*
M30 ;#SM;*RO*

Danke und viele Grüße Patrick

Uuups da war ein Fehler im Programm vom rumprobieren.

hier das richtige Programm:

N1 E_HEAD(272113663,200,,0,,,-50,71,17,2,60,0,1,20,,1,6,6,100);*RO*
N2 E_TS("RADIUS D10",,1,10000,1,,0);*RO*
N3 ;Parametereingabe:
N4 R1=25;Startpunkt X Abs
N5 R2=0;Startpunkt Y Abs
N6 R3=0;Startpunkt Z Abs
N7 R4=50;Linienlaenge Ink
N8 R5=25;Radius an Kontur
N9 R6=3;Eckradius des Fraesers
N10 R7=50;Anzahl Schritte
N11 R8=5;Rueckzugsebene Z Abs
N12 R9=2;Sicherheitsabstand
N13 ;
N14 ;Einstellungen
N15 G90
N16 ;
N17 ;Start der schleife
N18 R30=1
N19 FOR R30=1 TO R7;R30 Zaehlt hoch bis R7 erreicht wird
N20 ;
N21 ;Berechnung
N22 R31=90/R7;Winkelzustellung pro schritt
N23 R32=R31*R30;Winkel in der aktuellen Zustellung
N24 R33=R1+($P_TOOLR+(SIN(R32)*(R5+R6))-R5-R6);Versatz X/Y
N25 R34=R3+(COS(R32)*(R5+R6))-R5-R6;Versatz in Z
F200
N26 ;
N27 ;Bewegung
N28 G0 Z=R8;Rueckzug
N29 G0 X=R33 Y=R2;Startpunkt
N30 G0 Z=R34;Zustellung Z
N31 G3 I=AC(0) J=AC(0);Endpunkt Y
N32 G0 Z=R8;Rueckzug
N33 ENDFOR;Ende der schleife R30 wird um 1 erhoeht

E_END(0,1,0);*RO*
M30 ;#SM;*RO*