A_zeichne 50 0 5 5 
C_LINE HORIZONTAL P 0 
END 
C_LINE VERTICAL P 0 
END 
INIT_PART 'SPIRALE' 
LET Sp_p P 0 Mittel 
COLOR 
WHITE 
LINETYPE 
DOT_CENTER A_spline Dphi 50 0 
LET A Sp_a 0.636619772367581 
LET Phi1 Sp_phi1 360 
LET Phi2 Sp_phi2 2865 
LET Phi2 Sp_phi2 2865 
LET Phi Phi1 360 
LET R ( A 0.636619772367581 * Phi 360 * PI / 180 ) 4 
LET Er ( PNT_XY ( COS Phi 360 ) ( SIN Phi 360 ) ) 1,-2.44921270764475e-016 
LET P2 ( Sp_p 0 + ( R 4 + S 0 ) * Er 1,-2.44921270764475e-016 ) 
TRACE