;Original Code by Dustin Neumann, Modified by Dane Ocampo for 2GBP

G21 (mm)
G90 (Absolute distance mode)
G55 (Machine Plane Coordinates) 
G64 (Turn off exact stop check)

o<noext> call


;#######################################[ P A R A M E T E R S ]########################################

; Movement speed
#<_speed> = 1100
#<_mss> = 1.25 (1.28) (Margin Speed Scalar: the return speed on the margin)

#<_ext_rate> = 0.1 ;extrude 
#<_purge_ext_rate> = 0.05 ;purge extrusion rate
#<_reverse> = 0.005 (extruder back up, used before inter-layer pauses)

#<_corners> = 0 (1 extrude on corners, 0 no extrude on corners)
#<_margin> = 8
#<_lo> = 2 ; loop offset, used to prevent errors from turn-arounds at row ends	

#<_pause> = .0001 (wait time, used at corners) ;originally .0001

;work dimensions
#<_l> = 36 (mm length)
#<_width> = 36 (mm width)
#<_delta> = .75 (mm inter-row&column spacing)
#<_layerH> = .08 (mm half-layer height)


;#######################################[ I N I T I A L I Z E ]########################################

;coordinates
#<_z0> = 3  (Initial Height of Needle Tip)
#<_zz> = #<_z0>

#<_x0> = 0 (initial x)
#<_xx> = #<_x0> (x)

#<_y0> = 0 (initial y)
#<_yy> = #<_y0> (y) 

;counters
#<_zstep> = 0
#<_step> = 0
#<_done> = 0

;counter maximums
#<_layers> = 23
#<_ystepf> = FIX[#<_l>/#<_delta>]	(FIX operator rounds the argument down to integer)
#<_xstepf> = FIX[#<_width>/#<_delta>]

G1 Z[#<_zz> + 165.1] F2000	;165.1 mm = 6.5 in
o<es> call [15] [1]		;extrude at 1.5mL/hr with hv on
G4 P600				;electrospin for 600s (10 min)
o<noext> call			;stop extruding and hv of
M2	;End Program