Hi Jon,
> -----Original Message-----
>
> On 03/24/2021 10:18 PM, John Dammeyer wrote:
> >
> >
> > However this page I think shows how you create the G code command as a MDI
> > command.
> > http://wiki.linuxcnc.org/cgi-bin/wiki.pl?Adding_Custom_MDI_Buttons
> >
> Thanks very much for the link! I got it working with very
> little trouble. Push a button, it goes to the
> desired location!
>
> Thanks,
>
> Jon
I have a question that is probably directed at you. A while back I converted a
C command line program that creates a bore at an XY location using IJ G-codes.
I think you were the author of the C program but I can't remember for sure.
Someone as asked for the Lazarus Free Pascal source code which I have no
problem making open source but I want to acknowledge where I got it from. I
clearly didn't write who gave me the code as comments and I can't find the
original C code that I started with.
Here's a fragment of the pascal with the C code that wasn't changed just
commented out. Perhaps you or someone else will recognize it?
Thanks
John
WriteLineNo();
OutputBuffer := OutputBuffer + 'F';
//fprintf(OutFile, "F");
OutNum(FeedRate/6.0, 3);
OutputBuffer := OutputBuffer + ' Z'; // LOWER tool
//fprintf(OutFile, " Z"); /* LOWER tool */
OutNum(CurZ,4);
//putc('\n', OutFile);
WriteLineNo();
OutputBuffer := OutputBuffer + 'F';
//fprintf(OutFile, "F");
OutNum(FeedRate, 3);
CurRadius := WidthOfCut/4.0;
CurX := Curx+CurRadius;
OldRadius := CurRadius;
OutputBuffer := OutputBuffer + ' X';
//fprintf(OutFile, " X");
OutNum(CurX, 4);
//putc('\n', OutFile);
{ WriteLineNo(); }
{ fprintf(OutFile, "G03\n"); CCW Circular Interpolation }
Quadrant := 1;
FinQuadrant := 0;
State := initial;
Done := false;
FeedonLine := false;
// loop to spiral out in quadrants */
_______________________________________________
Emc-users mailing list
Emc-users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/emc-users
