(o<print_layer> - deposit one patterned layer of polymer)

;Usage:
;	Position the platform at the desired center
;	of the pattern with the dispense tip at the
;	desired dispense height.  Turn the HV to the
;	desired voltage and arm if desired.  Set up
;	global variables.  For each layer, pass as
;	parameters the fiber line angle and offset
;	(perpendicular to fiber direction), extrusion
;	rate (in mL/mm), movement rate (in mm/min),
;	and voltage level (future implementation).
;
;inputs:
;	pattern_w	pattern width
;	pattern_pitch	pattern fiber pitch
;	pattern_offset	fiber angle offset of return lines relative to perpendicular
;	pattern_filet	fillet radius at corners
;	pattern_feed	fiber velocity
;	return_feed	perpendicular return line velocity
;

o<print_layer> sub

#<w> = #1
#<d> = #2
#<off> = #3
#<r> = #4
#<f> = #5
#<ff> = #6

;#<w> = 20
;#<d> = 3
;#<off> = 3
;#<r> = 3
;#<f> = 1000
;#<ff> = 2000

#<nl> = [fix[#<w>/#<d>/2]+1]	(number of loops)

#<a1> = atan[#<w>/2+#<d>]/[#<off>]	(76deg)

#<du1> = [#<r> / tan[#<a1>/2]]		(3.842)
#<dv1> = #<r>				(3.0)
#<du2> = [#<du1> * sin[90 - #<a1>]]	(0.932)
#<dv2> = [#<du1> * cos[90 - #<a1>]]	(3.728)
#<a2>  = [180 - #<a1>]			(104deg)
#<du3> = [#<r> / tan[#<a2>/2]]		(2.344)
#<dv3> = #<r>				(3.0)
#<du4> = [#<du3> * cos[#<a1>]]		(0.567)
#<dv4> = [#<du3> * sin[#<a1>]]		(2.274)

#<x1> = [-#<w>/2 + #<off>/2]		( -8.5)
#<x2> = [ #<w>/2 + #<off>/2]		( 11.5)
#<x3> = [ #<w>/2 - #<off>/2]		(  8.5)
#<x4> = [-#<w>/2 - #<off>/2]		(-11.5)
#<v1> = [#<w>/2]			( 10.0)
#<v2> = [#<w>/2]			( 10.0)
#<v3> = 0
#<v4> = 0

#<i> = 0
#<y1> = [#<w>/2 + #<d>/2]		( 12.0)
#<y2> = [#<w>/2 + #<d>/2]		( 12.0)
#<y3> = [-#<d>/2]			(  0.0)
#<y4> = [-#<d>/2]			(  0.0)

G1 X[#<x1> + #<du3>] Y[#<y1>] F[#<ff>]	(g1 x-6.156 y10.0 f2000)

o100 do

	G1 		 			X[#<x2>-#<du1>] Y[#<y2>] 	F#<f>
	G2 I0.0 J[-#<r>] 			X[#<x2>-#<du2>] Y[#<y2>-#<dv2>] F#<f>
	G1 		 			X[#<x3>+#<du4>] Y[#<y3>+#<dv4>] F#<ff>
	G2 I[-#<du3>-#<du4>] J[-#<dv4>+#<r>]	X[#<x3>-#<du3>]	Y[#<y3>]	F#<f>
	G1					X[#<x4>+#<du1>] Y[#<y4>]	F#<f>
	G2 I0.0 J[#<r>]				X[#<x4>+#<du2>] Y[#<y4>+#<dv2>] F#<f>

	#<i> = [#<i> + 1]

	#<y1> = [#<y1> - #<d>]
	#<y2> = [#<y2> - #<d>]
	#<y3> = [#<y3> - #<d>]
	#<y4> = [#<y4> - #<d>]

	G1					X[#<x1>-#<du4>]	Y[#<y1>-#<dv4>]	F#<ff>
	G2 I[#<du3>+#<du4>] J[#<dv4>-#<r>]	X[#<x1>+#<du3>] Y[#<y1>]	F#<f>
o100 while [#<i> LT #<nl>]
G1 X[#<x2>] Y[#<y1>] F#<f>
;G1 X[#<x1> + #<du3>] Y[#<y1>] Z100.0 F[#<ff>]	(g1 x-6.156 y10.0 f2000)

o<print_layer> endsub

m2