View difference between Paste ID: A9J7k06X and RicuxFTP

 
 (ROTORY TABLE STEPPER MOUNT PROFILE.NC)
 ( LinuxCNC - ENGLISH)
-( MACH  3 - ENGLISH)
+
 
 ;Zero AT END OF STOCK
 
 ;*******************************************
 
 ;O10 (SUBPROGRAM DRILL)
 o10 sub
 G91
 #250=#240		;STARTING DEPTH OF DRILLING
 ;#251=[#241/#242]	;DEPTH PER PULLOUT
 ;#252=[#251/#244]	;DEPTH PER PECK
 #200=#250
 #201=[#242-1]
 G90
 G0Z[#250+#4]		;Z0 START END OF STOCK + CUT START OFFSET
 ;M0
 G1Z#250
 ;M0
 G91
 ;M98 P11 L#201(CALL DRILL STEP)
 ;M98 P12 L#244(CALL PECK)
 G90
 ;M1
 G4P100
 G0Z[#1+#4]
 ;M1
 G90
 ;M99 ( SUBPROGRAM RETURN )
 o10 endsub
 ;*******************************************
 
 
 
 	( T1 LEFT HAND TRIANGLE CARBIDE CUTTER)
 	( T2 RIGHT HAND TRIANGLE CARBIDE CUTTER)
 	( T3 RIGHT HAND DIAMOND CARBIDE CUTTER)
 
 ( T8 HSS CUT OFF)
 	( T9 CARBIDE CUT OFF)
 
 	( T30 CENTER DRILL , DIAMETER = .5 , LENGTH = 5.)
 	( T31 DRILL , DIAMETER = .4375 7/16, LENGTH = 5.)
 	( T32 DRILL , DIAMETER = 1/4 .25 , LENGTH = 5.)
 	( T34 DRILL , DIAMETER = 1/2 .5, LENGTH = 5.)
 	( T36 DRILL , DIAMETER = 21/64 , LENGTH = 5.)
 
 
 	( T30 CENTER DRILL , DIAMETER = .3/16 , LENGTH = 5.)
 	( T41 BORING BAR H8273 0.433 MINIMUM)
 	( T50 INTURNAL THREADING BAR H8274 0.433 MINIMUM)
 	( T51 INTURNAL THREADING BAR H??? ?? MINIMUM, NEXT SIZE UP)
 	( T98 INTURNAL GROOVING BAR )
 	( T99 INTURNAL BORING BAR )
 
 
 #1=0		;Z0 START END OF STOCK
 #2=0		;X0 START CENTER OF STOCK
 #3=[[3.]/2]	;RAIDIUS OF BLANK
 #4=0.03		;CUT START OFFSET
 #5=0.02		;STOCK FEED OFSET FOR NEW PART
 #6=[#3-0.1]	;X FOR STOCK FEED OPERATIONS
 #7=0.03		;X CENTER OVER FEED FOR COMPLETE CUT
 #8=0
 #9=0
 #10=0.05		;CLEARANCE
 
 ;DRILLING CENTER DRILL
 #20=#1		;STARTING DEPTH OF CENTER DRILLING
 #21=-0.07	;DEPTH OF CENTER DRILL STARTING THREAD HOLE
 #22=1		;CENTER DRILL, NUMBER OF PULLOUTS
 #23=-0.01	;RETRACT OF CENTER DRILL
 #24=3		;NUMBER OF PECKS PER PULLOUT
 
 
 ;DRILLING HOLE .25
 #25=#1		;STARTING DEPTH OF DRILLING
 #26=[[#1+.1]*-1]	;DEPTH OF DRILLING ROUGH HOLE;
 #27=4		;DRILLING, NUMBER OF CLEANING PULLOUTS
 #28=-0.01	;RETRACT OF DRILL
 #29=2		;NUMBER OF PECKS PER PULLOUT
 ;
 ;THREADING INTERNAL
 #50=14	;TPI
 #51=-.425	;DEAPTH TO RUN THE THREADS
 #52=[0.834]	;SIZE OF THREAD
 #53=3	;NUMBER OF SPRING PASSES
 #54=[0.54127*[1/#50]]	;HIEGHT OF INTERNAL THREAD
 #55=[1/#50]	;PITCH OF THREADS
 #56=[[[#52/2]-#54]+0.00]	;RAIDIUS OF START FOR THREADING
 #57=[[#52/2]+0.006]	;0.2813 RAIDIUS OF FINAL THREAD DEPTH OF THREADING CM 0.2875 SS0.286
 
 ;BORING BARS FIRST CUT
 #30=-0.625	;DEPTH OF HOLE
 #31=0.29		;RAIDIUS OF FINAL CUT
 #32=0.29	;[0.875/2]	;[[7/16]/2]		;RADIUS TO USE FOR START OF CUT
 #33=0		;NUMBER OF CUTS
 #34=0		;SIZE OF FINAL CUT
 
 ;BORING BAR 2 SECOND CUT FOR NIPPLE
 #35=-0.715	;DEPTH OF HOLE
 #36=[0.693/2]		;RAIDIUS OF FINAL CUT .696
 #37=[0.693/2]	;[[7/16]/2]		;RADIUS TO USE FOR START OF CUT .696
 #38=0
 #39=0
 
 ;BORING BAR 3 LAST CUT FOR THREAD
 #40=-0.425	;DEPTH OF HOLE
 #41=[#56+0.0]		;RAIDIUS OF FINAL CUT
 #42=[#56+0.0]	;[[7/16]/2]		;RADIUS TO USE FOR START OF CUT
 #43=0		;NUMBER OF CUTS
 #44=0		;SIZE OF FINAL CUT
 
 ;;BORING BAR 4
 ;#45=-?	;DEPTH OF HOLE
 ;#46=?		;RAIDIUS OF FINAL CUT
 ;#47=?	;[[7/16]/2]		;RADIUS TO USE FOR START OF CUT
 ;#48=0
 ;#49=0
 ;
 
 
 #64=#40	;Z OF 45 DEG START
 #65=#41	;X of 45 DEG START
 #66=-0.45	;Z OF 45 DEG END
 #67=[0.700/2]	;X of 45 DEG END
 
 
 #61=#67 ;X
 #62=#66 ;Z
 #63=.015 ;RADIUS
 
 #68=[0.8/2]	;X
 #69=0	;Z
 #70=0.1;RADIUS
 
 
 ;CONVERT TO RADIUS
 #4=[#4/2]
 #5=[#5/2]
 #8=[#8/2]
 
 
 ;CALCULATED VALUES
 #200=0
 #201=0
 #202=0
 #203=0
 #204=0
 #206=0
 #207=0
-T0101	;LOAD CUTTER
+
-T0101	;ZERO CUTTER
+
 #210=0
 
 ;TEMP PLACE HOLERS
 #240=0
 #241=0
 #242=0
 #243=0
 #244=0
 #245=0
 #246=0
 #247=0
 #248=0
 #249=0
 #250=0
 
 
 
 G18 G40 G49 G90 G94 G80
 M3
 G20
 G95
 S250
 F0.006
 
 (JOB 1 ZERO NUMBER 1 CUTTER, RUN IT UP TO ZERO AND HIT ZERO)
 ;M0
 T1M6	;LOAD CUTTER
 G0Z0.1
 ;M98 P10 L6( SUBPROGRAM CALL )
 o10 call
 
 (JOB 2 FACE )
 
-T9999
+
 G0 X[#3+#4]
 Z0
 G91
 G1 X-0.35
 G90
 G0 Z0.03
 
 (JOB 2B DIA REDUCE )
 
 F0.006
 G0 X[#3-.035]
 G0 Z0
 G1Z-0.03 X[#3-.005]
 G0 X[#3-.005]
 G1Z-0.575
 ;G91
 G1 X[2.95/2]
 Z-0.76
 ;G1 X-0.35
 ;G90
 G0 X[#3+#4]
 
 G0 Z1.5
 
 
 (JOB 3 BORE ID)
 
 T9M6
 F0.006
 G0X[2.51/2]
 Z#4
 G1Z-0.7
 G0 X[[2.51/2]-#4]
 G0 Z#4
 
 
 
 (JOB 4 CUT FRONT STEP )
 
 F.006
 
 #240=[#1+#4]	;Z STARTING DEPTH
 #241=[2.536/2]	;#42	;0.25	;X STARTING RAIDUS
 #242=-0.09	;Z END DEPTH
 #243=[2.774/2]	;#41	;X END RAIDUS
 #244=4	;NUMBER CUTS
 #245=0	;LAST CUT DEPTH
 #246=0	;TAPER START
 #247=0	;TAPER END
 
 ;G0Z#240
 ;X#241
 ;G1Z#241
 
 M98 P20 (CALL BORING)
 G0Z#4
 ;CUT FRONT TAPER
 
 G0 X[[2.774/2]+0.035]
 Z0
 
 
 Z-0.01G1 X[[2.774/2]+0.025]
 
 G1 Z-0.1 X[2.774/2]
 
 F0.004
 G1X[[2.533/2]+0.02]
 G1Z-0.12X[2.533/2]
 ;Z#4
 G1Z-0.7
 G0 X[[2.533/2]-#4]
 G0 Z#4
 
 
 ;G1 G91X-0.2
 ;G90
 
 
 G0 Z1
 
 (JOB 5 ORING GROVE )
 
 
-T0808
+
 F0.002
 
 G0X[[2.51/2]-#4]
 Z-0.406
 G1 X[2.718/2]
 G4 P500
 
 F0.01
 G1X[[2.51/2]-#4]
 F0.004
 Z[-0.406-0.02]
 X[2.51/2]
 Z-.406X[[2.51/2]+.01]
 
 F0.01
 G1X[[2.51/2]-#4]
 F0.004
 Z[-0.406+0.02]
 X[2.51/2]
 Z-.406X[[2.51/2]+.01]
 G0X[[2.51/2]-#4]
 
 
 G0
 Z0.25
 
 (JOB 6 BACK STEP )
 T8M6
 F0.003
 
 G0 X[#3+#4]
 Z-0.504
 G1 X[2.946/2]
 Z-0.635
 F0.01
 G1 X[#3+#4]
-O10 (SUBPROGRAM DRILL)
+
 (JOB 7 CUTOFF )
 F0.002
-#251=[#241/#242]	;DEPTH PER PULLOUT
+
-#252=[#251/#244]	;DEPTH PER PECK
+
 G1 X[2.85/2]
 G0 X#3
 Z[-0.635+0.03]
 G1 X[2.95/2]
 G1 Z-0.635X[[2.95/2]-0.02]
 G1 X[2.45/2]
 F0.01
 G1 X[#3+#4]
-M98 P11 L#201(CALL DRILL STEP)
+
 Z0.5
 X2.85
 
 G00
 ;M98 P11 ( SUBPROGRAM CALL )
 G00
 
 G00
 ;X0 Y0 A0
 M30
 
 
 
 ;*******************************************
 
 O11 (SUBPROGRAM STEP ADVANCE)
 G91
 #200=[#200+#251]
 M98 P12 L#244(CALL PECK)
 G90
 G0Z[#1+#4]
 ;M1
 G0Z[#200+#4]
 ;M1
 G91
 G1Z[#4*-1]
 ;M1
 G90
 M99 ( SUBPROGRAM RETURN )
 ;*******************************************
 ;*******************************************
 
 O12 (SUBPROGRAM PECK)
 G91
 
 G1Z#252
 ;M1
 G0Z[#243*-1]
 ;M1
 G1Z#243
 ;M1
 G90
 M99 ( SUBPROGRAM RETURN )
 ;*******************************************
 ;*******************************************
 
 O20 (SUBPROGRAM BORING MULTI PASS)
 G90
 G0X#241
 G0Z#240
 #200=#240
 #201=#241
 #202=[[[#243-#241]-#245]/#244]
 #203=#202
 
 M98 P21 L#244 (CALL SUB BORING)
 G0Z[#1+#4]
 ;M0
 G0Z#240
 G0X#243
 G1Z#242
 G0
 G91X-0.01
 G90
 ;M1
 G0Z#240
 G1
 G90
 M99 ( SUBPROGRAM RETURN )
 ;*******************************************
 ;*******************************************
 
 O21 (SUB SUBPROGRAM BORING SINGLE PASS THEN  GO TO START)
 G90
 G0Z#240
 G0X[#241+#203]
 G1Z#242
 G0
 G91X-0.01
 G90
 G0Z#240
 G1
 #203=[#203+#202]
 G90
 
 G90
 M99 ( SUBPROGRAM RETURN )
 ;*******************************************
 
 ;*******************************************
 
 O22 (SUBPROGRAM BORING SINGLE PASS WITH 0.01 PULL BACK THEN GO TO START)
 
 G90
 G0X#241
 G0Z#240
 G0X#243
 G1Z#242
 G91X-0.01
 ;F0.003
 ;G1Z0.15
 G90
 ;M1
 ;F0.003
 G0Z#240
 G90
 M99 ( SUBPROGRAM RETURN )
 ;*******************************************
 
 O23 (SUBPROGRAM BORING SINGLE PASS STOP AT END CUT)
 
 G90
 G0X#241
 G0Z#240
 G0X#243
 G1Z#242
 ;G91X-0.01
 ;G90
 ;M1
 ;F0.003
 ;G1Z#240
 G90
 M99 ( SUBPROGRAM RETURN )
 ;*******************************************
 ;*******************************************
 
 O24 (SUBPROGRAM BORING SINGLE PASS AND BACK CUT 0.225 THEN PULL BACK 0.01 GO TO START)
 
 G90
 G0X#241
 G0Z#240
 G0X#243
 G1Z#242
 G91
 F0.003
 G1Z0.225
 ;G90
 ;M1
 ;F0.003
 X-0.01
 G90
 ;G0Z#240
 G0
 G90
 M99 ( SUBPROGRAM RETURN )
 ;*******************************************
 O30 (LATHE FILLET INTERNAL BORING CORNER LATHE)
 G90
 X#301 Z#302
 G02 X[#301-[#303]] Z[#302-[#303]] I0 K[[#303]*-1]		;J2  [[#3/2]*-1]
 G80
 G90
 M99 ( SUBPROGRAM RETURN )
 
 O31 (LATHE FILLET EXTERNAL CORNER LATHE)
 G90
 X#301 Z#302
 G03 X[#301+[#303]] Z[#302-[#303]] I0 K[[#303]*-1]		;J2  [[#3/2]*-1]
 G80
 G90
 M99 ( SUBPROGRAM RETURN )
 ;*******************************************
 ;*******************************************
 
 O500	(CUTTING STOCK DOWN TO SIZE)
 #205=[#205+#202]
 G90
 G0X#203
 G0Z#200
 ;G91
 G0X[#203-#205]	;[#205*-1]
 ;G90
 G1Z#201
 G1X[#203+.01]
 G0Z#200
 
 M99