1  (info: qpex: qpocket examples)
  2  
  3  o<qpex>  sub
  4  
  5       #<toolno> =  #1 (=1)
  6          #<rpm> =  #2 (=1000)
  7          #<dir> =  #3 (=2 2conv|3climb) ; conventional=cw, climb=ccw
  8     #<feedrate> =  #4 (=10)
  9     #<cutdepth> =  #5 (=1)
 10        #<zincr> =  #6 (=.4)
 11        #<zsafe> =  #7 (=0.2)
 12       #<zstart> =  #8 (=0)
 13     #<stepover> =  #9 (=0.9)
 14       #<g64tol> = #10 (=0.002)
 15  #<spin_notify> = #11 (=0)
 16      #<use_g43> = #12 (=1)
 17    #<h_for_g43> = #13 (=0)
 18      #<verbose> = #14 (=0)
 19  
 20  ;shorthand required for call linelength:
 21  #<fr> = #<feedrate>
 22  #<cut>= #<cutdepth>
 23  #<so> = #<stepover>
 24  #<vb> = #<verbose>
 25  
 26  o<loadtool> call [#<toolno>][#<use_g43>][#<h_for_g43>][#<vb>]
 27  
 28           #<x1> = -0.5
 29           #<y1> = -0.5
 30           #<x2> = +0.5
 31           #<y2> = -0.5
 32           #<x3> = +0.5
 33           #<y3> = +0.5
 34           #<x4> = -0.5
 35           #<y4> = +0.5
 36         #<xoff> = 2
 37         #<yoff> = 0
 38       #<rotate> = 0
 39        #<scale> = 1
 40  M110 ; clear axis notifications
 41  (debug, square at #<xoff>,#<yoff> rotate=#<rotate> scale=#<scale>)
 42  o<qpocket>call[#<toolno>][#<rpm>][#<dir>][#<fr>][#<cut>][#<zincr>][#<zsafe>][#<zstart>][#<x1>][#<y1>][#<x2>][#<y2>][#<x3>][#<y3>][#<x4>][#<y4>][#<scale>][#<rotate>][#<xoff>][#<yoff>][#<so>][#<g64tol>][#<spin_notify>][#<use_g43>][#<h_for_g43>][#<vb>]
 43  
 44           #<x1> = -0.5
 45           #<y1> = -1.0
 46           #<x2> = +0.5
 47           #<y2> = -1.0
 48           #<x3> = +0.5
 49           #<y3> = +1.0
 50           #<x4> = -0.5
 51           #<y4> = +1.0
 52         #<xoff> = 2
 53         #<yoff> = 2
 54       #<rotate> = 30
 55        #<scale> = 1
 56  M110 ; clear axis notifications
 57  (debug, rectangle at #<xoff>,#<yoff> rotate=#<rotate> scale=#<scale>)
 58  o<qpocket>call[#<toolno>][#<rpm>][#<dir>][#<fr>][#<cut>][#<zincr>][#<zsafe>][#<zstart>][#<x1>][#<y1>][#<x2>][#<y2>][#<x3>][#<y3>][#<x4>][#<y4>][#<scale>][#<rotate>][#<xoff>][#<yoff>][#<so>][#<g64tol>][#<spin_notify>][#<vb>]
 59  
 60           #<x1> = -1.0
 61           #<y1> = -0.5
 62           #<x2> = +0.5
 63           #<y2> = -0.5
 64           #<x3> = +1.0
 65           #<y3> = +0.5
 66           #<x4> = -0.5
 67           #<y4> = +0.5
 68         #<xoff> = 0
 69         #<yoff> = 2
 70       #<rotate> = 0
 71       #<scale> = 1
 72  M110 ; clear axis notifications
 73  (debug, parallelogram at #<xoff>,#<yoff> rotate=#<rotate> scale=#<scale>)
 74  o<qpocket>call[#<toolno>][#<rpm>][#<dir>][#<fr>][#<cut>][#<zincr>][#<zsafe>][#<zstart>][#<x1>][#<y1>][#<x2>][#<y2>][#<x3>][#<y3>][#<x4>][#<y4>][#<scale>][#<rotate>][#<xoff>][#<yoff>][#<so>][#<g64tol>][#<spin_notify>][#<vb>]
 75  
 76           #<x3> = -1
 77           #<y3> = -1
 78           #<x4> = 0
 79           #<y4> = -.75
 80           #<x1> = 1
 81           #<y1> = -1
 82           #<x2> = 0
 83           #<y2> = 0
 84         #<xoff> = -2
 85         #<yoff> = 2
 86       #<rotate> = 0
 87        #<scale> = 1
 88  (debug, kite at #<xoff>,#<yoff> rotate=#<rotate> scale=#<scale>)
 89  o<qpocket>call[#<toolno>][#<rpm>][#<dir>][#<fr>][#<cut>][#<zincr>][#<zsafe>][#<zstart>][#<x1>][#<y1>][#<x2>][#<y2>][#<x3>][#<y3>][#<x4>][#<y4>][#<scale>][#<rotate>][#<xoff>][#<yoff>][#<so>][#<g64tol>][#<spin_notify>][#<vb>]
 90  
 91           #<x1> = 1
 92           #<y1> = -1
 93           #<x2> = 0
 94           #<y2> = 1
 95           #<x3> = -1
 96           #<y3> = -1
 97           #<x4> = 0
 98           #<y4> = -0.999 ;disallow colinear pts in 3-sided figure
 99         #<xoff> = -2
100         #<yoff> = 0
101       #<rotate> = 45
102        #<scale> = 1
103  M110 ; clear axis notifications
104  (debug, triangle at #<xoff>,#<yoff> rotate=#<rotate> scale=#<scale>)
105  o<qpocket>call[#<toolno>][#<rpm>][#<dir>][#<fr>][#<cut>][#<zincr>][#<zsafe>][#<zstart>][#<x1>][#<y1>][#<x2>][#<y2>][#<x3>][#<y3>][#<x4>][#<y4>][#<scale>][#<rotate>][#<xoff>][#<yoff>][#<so>][#<g64tol>][#<spin_notify>]
106  
107           #<x3> = -1
108           #<y3> = -1
109           #<x4> = 0
110           #<y4> = -1.5
111           #<x1> = 1
112           #<y1> = -1
113           #<x2> = 0
114           #<y2> = 0
115         #<xoff> = -2
116         #<yoff> = 2
117       #<rotate> = 0
118        #<scale> = 1
119  M110 ; clear axis notifications
120  (debug, kite at #<xoff>,#<yoff> rotate=#<rotate> scale=#<scale>)
121  o<qpocket>call[#<toolno>][#<rpm>][#<dir>][#<fr>][#<cut>][#<zincr>][#<zsafe>][#<zstart>][#<x1>][#<y1>][#<x2>][#<y2>][#<x3>][#<y3>][#<x4>][#<y4>][#<scale>][#<rotate>][#<xoff>][#<yoff>][#<so>][#<g64tol>][#<spin_notify>]
122  
123           #<x3> = -1
124           #<y3> = -1
125           #<x4> = 0
126           #<y4> = -.75
127           #<x1> = 1
128           #<y1> = -1
129           #<x2> = 0
130           #<y2> = 0
131         #<xoff> = 0
132         #<yoff> = -1
133       #<rotate> = 0
134        #<scale> = 1
135  M110 ; clear axis notifications
136  (debug, dart at #<xoff>,#<yoff> rotate=#<rotate> scale=#<scale>)
137  o<qpocket>call[#<toolno>][#<rpm>][#<dir>][#<fr>][#<cut>][#<zincr>][#<zsafe>][#<zstart>][#<x1>][#<y1>][#<x2>][#<y2>][#<x3>][#<y3>][#<x4>][#<y4>][#<scale>][#<rotate>][#<xoff>][#<yoff>][#<so>][#<g64tol>][#<spin_notify>][#<vb>]
138  
139  o<qpex> endsub