pocketing program

I have written a pocketing program using g-codes, it pockets triangles, rectangles, trapezoids and some unusual shapes. the attachment has a screendump of eight different ones.  The program is available as a .ngc file and runs on linuxcnc/axis version 2.6.13 on ubuntu 12.04 LTS 32 bit (using the rtai kernel to operate a Taigtool mill through a xylotec controller.)  I would like to donate this program to the site if there's any interest)  my email address is This email address is being protected from spambots. You need JavaScript enabled to view it.  
the program  is 580 lines long and includes 112 lines of sample polygons. it uses "o" codes a lot.

here's a screenshot and a pocketingprogram

Some think that circles and ellipses are polygons as well.  So I added a ellipse pocketer subroutine  (which does circles too) to the program, and here it is, I also "sharpened up" the  vertices of the polygons a bit. See the screen dump for how well the "half ellipse" fits with the square.

The attached screenshot of a 20 tooth pocket shows a larger view of the program operation.  It runs by drawing nested figures inside each other by shortening (or lengthening) each side of the figure while drawing it.  The shortening (or lengthening) values are recorded in a table as they are encountered  when the figure is first executed. A multiple of the values is used for each execution of the figure and the values remain constant for the entire pocketing operation. The table starts at memory location 100 and the operators manual says that location 31 to 5000 are "user defined" so we can have lots of sides. Notice that the pocketing operation evolves such that the shown 40 sided figure produces a circular (or 20 sided) area that needs to be Pocketed to complete the entire pocket operation. I doubt that commercially available packages (eg autocad) can duplicate this activity easily since they would require an exhausting specification of each nested figure before executing it.  G-code's ability to process subroutines allows us to have the figure execute itself here for pocketing purposes. It also gives us the ability to hack individual sides and thereby make really ugly figures.