#<x-length> = 4.0     ; x axis length
#<y-length> = 4.0     ; y axis length
#<radius>   = 0.250   ; corner radius
#<kerf>     = 0.03125 ; kerf width
#<peirce>   = 0.080   ; peirce height
#<delay>    = 0.020   ; peirce delay
#<height>   = 0.060   ; cut height
#<leadin>   = 0.125   ; leadin radius
#<side>     = 0       ; outside = 0, inside > 0
#<feed>     = 135     ; cut feed rate

G20 (units: inches)
G40 (cancel cutter comp)
G90 (absolute mode)
G64 P0.005 (continuous mode + path tolerance)
F#<feed> (set feed rate)
G92 X0 Y0 (set current position to X0 Y0)

o110 if [#<side> EQ 0]
G41
#<lead-dir>   = 3
#<corner-dir> = 2
o110 else
G42
o110 endif

G1 X-#<leadin> Y[[#<y-length> / 2] - #<leadin>]
; o<touchoff> call [#<peirce>] [#<delay>] [#<height>] (Touchoff and start cutting)
G#<lead-dir> X0.0 Y[#<y-length> / 2] I0.0 J#<leadin>
G1 X0.0 Y[#<y-length> - #<radius>]
G#<corner-dir> X[#<radius>] Y[#<y-length>] I[#<radius>] J0.0
G1 X[#<x-length> - #<radius>] Y[#<y-length>]
G#<corner-dir> X[#<x-length>] Y[#<y-length> - #<radius>] I0.0 J-[#<radius>]
G1 X[#<x-length>] Y[#<radius>]
G#<corner-dir> X[#<x-length> - #<radius>] Y0.0 I-[#<radius>] J0.0
G1 X[#<radius>] Y0.0
G#<corner-dir> X0.0 Y[#<radius>] I0.0 J[#<radius>]
G1 X0.0 Y[#<y-length> / 2]
M5 ; turn off torch
G53 G0 Z0.0
G40 G92.1
M2