01
G28 U0W0
;(FLASHLIGHT NOSE 2011)
; (VARIABLES)
#500=38.1	(STOCK DIA)
#501=44.6	(STOCK LENGTH)
#502=75.0	(SURFACE M/MIN)
#503=0.4	(ROUGHING FEED)
#504=150.0 	(Surface m/min finishing)
#505=0.05	(Finishing feed: mm/rev)
#1=1.0       (PITCH - MM)
#2=#1 * 0.5/TAN[30.0]   (H)
#3=#2 * 17.0 / 24.0     (THREAD DEPTH - EXT)
#4=3.0       (NUMBER OF STARTS)
#5=0         (START NUMBER)

N1
;(FACE PART)
G00 T0101
G50 S1000
G96 S#502
G99
M03
M08
G00 Z#501
G00 X[#500+1.0]
G01 X-0.1 F#503
G01 Z[#501+1.0]
M09
M05
G28 U0W0
M01
; (ROUGHING PASS)
N2
G00 T0101
G50 S2000
G96 S#502
G99
G00 X[#500+0.4] Z#501
M03
M08
G01 X37.2 Z#501 F#503 (BODY DIAMETER)
G01 X37.2 Z0.0 F#503
G01 X[#500+0.5] F#503
G00 Z#501
G01 X33.0 Z#501 F#503 (THREADED PORTION)
G01 X33.0 Z22.85 F#503
G01 X[#500+.4]
G00 Z#501
M09
M05
G28 U0W0	(GO HOME)
M01		(PAUSE)
;
N3
G00 T0202 (FINISH THEM!)
G50 S2000
G96 S#504
G99
M03
M08
G00 Z#501
G00 X[#500+0.4]
G01 X30.25 Z#501 F#505
G01 X32.75 Z41.35 F#505 (MAKES FIRST CHAMFER)
G01 X32.75 Z22.85 F#505 (MAKES LOWER ROUND)
G01 X36.0 Z22.85 F#505  (LOWER EDGE OF SMALL CHAMFER)
G01 X37.0 Z22.35 F#505  (UPPER EDGE OF SMALL CHAMFER)
G01 X37.0 Z3.0 F#505
G01 X34.0 Z0.0 F0.05
G01 X[#500+0.4] F#505
G00 Z#501
M09
M05
G28 U0W0
M01
;
N4
;(THIS IS WHERE I WILL THREAD)
G00 T0303           (EXT THREADING TOOL)
G00 X32.0 Z[#501 + 3 * #1 * #4]  (START 3x LEAD AWAY)
G97 S800            (FIXED 800RPM SPEED)
G99                 (FEED PER REV)
M03
M08
WHILE [#5 LT #4] DO 1
   G00 X32.75 Z[#501 + #1 * #5 + 3 * #1 * #4]   (GO TO START POINT)
   G76 P040060 Q005 R0.2
   G76 X[32.75 - #3 * 2] Z[#501-15.0] P[FIX[#3*1000]] Q0544 F[#1 * #4]
   #5 = #5 + 1
END 1
G00 X[#500+2.0]
M09
M05
G28 U0 W0
M01
N5
;(THIS IS WHERE THE BORING WILL BE DONE)
G00 T0505          	(CENTER DRILL)
G97 S1000	        (CONSTANT SPINDLE SPEED 1000RPM)
G99					(FEED PER REVOLUTION)
M03					(SPINDLE ON, NORMAL)
M08					(COOLANT ON)
G00 X0.0 Z[#501 + 2.0]
G01 X0.0 Z[#501 - 2.0] F0.5
G01 X0.0 Z[#501 + 2.0] F2.0
M09					(COOLANT OFF)
M05					(SPINDLE OFF)
G28 U0 W0
;
;
G00 T1212			(1/2" DRILL)
G97 S1000          	(CONSTANT SPINDLE SPEED 1000RPM)
G99					(FEED PER REVOLUTION)
M03					(SPINDLE ON, NORMAL)
M08					(COOLANT ON)
G00 X0.0 Z[#501 + 5.0]
G83 Z-2.0 R0.0 Q10000 F0.250 
G01 Z[#501+5.0] F2.0
M09					(COOLANT OFF)
M05					(SPINDLE OFF)
G28 U0 W0
;
G00 T0707 (ENDMILL)
G97 S1000
G99
M03
M08
G00 X19.0 Z[#501 + 5.0]
G01 Z-2.0 F0.125
G00 Z[#501 + 5.0] 
G00 X23.50
G01 Z-2.0 F0.125
G00 Z[#501 + 5.0] 
G00 X26.0
G01 Z1.0 F0.125 
G00 Z[#501 + 5.0]
G00 X28.25 
G01 Z2.0 F0.125 
G00 Z[#501 + 5.0]
M09
M05
G28 U0 W0
M01

G00 T0909 (BORING FINISH)
G97 S1000
G99
M03
M08
G00 Z[#501 + 5.0] 
G00 X28.75
G01 Z2.0 F0.065
G01 X26.7
G01 X25.6 Z1.5 F0.065 
G01 Z1.0 F0.065
G01 X23.0 F0.065
G01 Z-0.50 F0.065
G01 X22.0 F0.05
G00 Z[#501 + 5.0]
M09
M05
G28 U0 W0
M01

;(CUTOFF)
G00 T1010
G00 Z-0.0
M03
M08
G00 X[#500+0.4] Z-2.4
G01 X-1.0 F0.05
G00 X[#500+0.4]
M09 	(COOLANT OFF)
M05		(SPINDLE OFF)
G28 U0W0	(GO HOME)

M30