o110 sub 				(move sequence)
#<_x1>    = #1
#<_y1>    = #2
#<_x2>    = #3
#<_y2>    = #4

(bump applicator)
G0                      y[#<_y_refill>] z[#<_z_up>]     a90
G0 x[#<_x_refill_start>] y[#<_y_refill>] z[#<_z_refill>] a90
G1 x[#<_x_refill_end>]   y[#<_y_refill>] z[#<_z_refill>] a90 F300
G0 x0                   y[#<_y_refill>] z[#<_z_up>]     a90

(calculate stroke direction)
o111 if [#<_x1> EQ [#<_x2>]]
  #<_a_angle> = #<_a_north>
o111 else
  #<_a_angle> = #<_a_east>
o111 endif

(do smoothed move)
G64 P100.0
g0 x[#<_x1>] y[#<_y1>] z[#<_z_up>]   a[#<_a_angle>]
g1 x[#<_x1>] y[#<_y1>] z[#<_z_down>] a[#<_a_angle>] F20000
g1 x[#<_x2>] y[#<_y2>] z[#<_z_down>] a[#<_a_angle>] F20000
g1 x[#<_x2>] y[#<_y2>] z[#<_z_up>]   a[#<_a_angle>] F20000


o110 endsub