( Rectangular Probing Probe-on-Steroids.ngc                                )
(                                                                          )
( This program repeatedly probes in a regular XY grid and writes the       )
( probed location to the file 'probe-results.ngc' in the same directory    )
( as the .ini file                                                         )
(Revision from the smartprobe.ngc on 13/05/2013.                           )
( This program is adapted to our Touch Probe with a Normally Closed Contact)

(Added Code for the Norte VS-2000 "G91 G01 Z0.2 & G91"                     )
(----------------------------------------------------"                     )
(To obtain it's displacement of, in this case 1mm = #11, the probe         )
(builds up the X and Z while moving between G38.3Z and G38.5X until  X     )
(becomes 1mm.								                                               )
(Due to our probe accuracy this resulted in a increased vibration.         )
(Since our Machine is a big iron, with a milling head of 3.000kg,          )
(we avoided these vibrations by adding this code.                          )
(It will probably require a different amount of Z on a smaller machine.    )

(Added code to obtain a Z- Cruising Line				                           )
(---------------------------------------			                             )
( 	    #13= ROUND[#5063] 						                                     )
(       O6 if [#13 LE #12]						                                     )	
(	      G0 Z#12							                                               )
(	      O6 else							                                               )
(       G38.5Z#8						                                      	       )
(This avoids mechanically measuring every time the Z- flat plane by        )
(inserting a Z-boundry 1 to 2mm in the air above the real Z- depth.        )
(This increases the touch probe speed considerally.		                	   )

(Configuration section)
G21   (Millimeter)
F300.0    (Probe Speed)

#1=1    (X start)
#2=1    (X increment)
#3=135  (X count)

#4=1    (Y start)
#5=1    (Y increment)
#6=5    (Y count)

#7=0      (Z safety up)
#8=-40.0  (Z probe maximum depth)
#12=-34.0 (Z probe down cruising height)
#5063=0
(End configuration section)

(LOGOPEN,probe-results.ngc)
#9=0 #10=0
G0Z#7
G0X#1 Y#4
O1 while [#9 lt #6]
    #10=0
    G0 Y[#4+#5*#9]
    O2 while [#10 lt #3]
        O3 if [[#9/2] - fix[#9/2] eq 0]
            #11=[#1+#2*#10]
        O3 else      
            #11=[#1+#2*[#3-#10-1]]
        O3 endif
        (#11 is X target)
        #5070=1
        O4 while [#5070 NE 0]
            G38.3 Z#7  
            G91 G01 Z0.2 (Lines added to the SmartProbe.ngc)
            G90 (Lines added to the SmartProbe.ngc)
            G38.5 X#11
            O6 endif 
        O4 endwhile
 	    #13= ROUND[#5063]
            O6 if [#13 LE #12]
	    G0 Z#12
	    O6 else
            G38.5Z#8
	    O6 endif
        (LOG,G1 X#5061 Y#5062 Z#5063)
        #10=[#10+1]
    O2 endwhile
    G0Z#7
    #9=[#9+1]
O1 endwhile

(LOGCLOSE)
G0Z#7
G0X#1Y#4
M2