(info: qpex_mm: qpocket mm examples, use a 5mm tool) ; for testing qpocket with mm system ; adapted from qpex.ngc and scaled for mm ; too small tools and/or small sos may exceed outlinepasslimit o sub # = #1 (use a 5mm diam) # = #2 (=1000) # = #3 (=2 2conv|3climb) ; conventional=cw, climb=ccw # = #4 (=250) # = #5 (=10) # = #6 (=5) # = #7 (=1) # = #8 (=0) # = #9 (=0.9) # = #10 (=0.002) # = #11 (=0) # = #12 (=1) #= #13 (=0) # = #14 (=0) ;shorthand required for call linelength: # = # #= # # = # # = # o call [#][#][#][#] # = #5410 (debug, duh #) o if [# GT 10] (print, qpex_mm: tooldiam is too big # - EXITING) (debug, qpex_mm: tooldiam is too big # - EXITING) (AXIS,notify, qpex:_mm tooldiam is too big - EXITING) m2 o endif o if [# LT .5] (print, qpex_mm: tooldiam is too small # - EXITING) (debug, qpex_mm: tooldiam is too small # - EXITING) (AXIS,notify, qpex_mm: tooldiam is too small - EXITING) m2 o endif # = [-0.5 * 25.4] # = [-0.5 * 25.4] # = [+0.5 * 25.4] # = [-0.5 * 25.4] # = [+0.5 * 25.4] # = [+0.5 * 25.4] # = [-0.5 * 25.4] # = [+0.5 * 25.4] # = [2 * 25.4] # = 0 # = 0 # = 1 M110 ; clear axis notifications (debug, square at #,# rotate=# scale=#) ocall[#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#] # = [-0.5 * 25.4] # = [-1.0 * 25.4] # = [+0.5 * 25.4] # = [-1.0 * 25.4] # = [+0.5 * 25.4] # = [+1.0 * 25.4] # = [-0.5 * 25.4] # = [+1.0 * 25.4] # = [2 * 25.4] # = [2 * 25.4] # = 30 # = 1 M110 ; clear axis notifications (debug, rectangle at #,# rotate=# scale=#) ocall[#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#] # = [-1.0 * 25.4] # = [-0.5 * 25.4] # = [+0.5 * 25.4] # = [-0.5 * 25.4] # = [+1.0 * 25.4] # = [+0.5 * 25.4] # = [-0.5 * 25.4] # = [+0.5 * 25.4] # = [0 * 25.4] # = [2 * 25.4] # = 0 # = 1 M110 ; clear axis notifications (debug, parallelogram at #,# rotate=# scale=#) ocall[#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#] # = [1 * 25.4] # = [-1 * 25.4] # = [0 * 25.4] # = [1 * 25.4] # = [-1 * 25.4] # = [-1 * 25.4] # = [0 * 25.4] # = [-0.999 * 25.4] ;disallow colinear pts in 3-sided figure # = [-2 * 25.4] # = 0 # = 45 # = 1 M110 ; clear axis notifications (debug, triangle at #,# rotate=# scale=#) ocall[#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#] # = [1 * 25.4] # = [-1 * 25.4] # = [0 * 25.4] # = [0 * 25.4] # = [-1 * 25.4] # = [-1 * 25.4] # = [0 * 25.4] # = [-1.5 * 25.4] # = [-2 * 25.4] # = [2 * 25.4] # = 0 # = 1 M110 ; clear axis notifications (debug, kite at #,# rotate=# scale=#) ocall[#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#] # = [1 * 25.4] # = [-1 * 25.4] # = [0 * 25.4] # = [0 * 25.4] # = [-1 * 25.4] # = [-1 * 25.4] # = [0 * 25.4] # = [-.75 * 25.4] # = [0 * 25.4] # = [-1 * 25.4] # = 0 # = 1 M110 ; clear axis notifications (debug, dart at #,# rotate=# scale=#) ocall[#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#][#] o endsub