# Move to a random location, wait ten seconds. Execute spiral reset, move to target
# location, wait ten seconds and measure position. The target location varies with 
# the pass counter so as to explore a 3 x 3 grid spanning the range of the fiber.

# Set the north and east control values randomly, make the south and west
# be opposite and write north and south to outfile.
tcl set config(n_out) [expr round(rand()*255)]
tcl set config(s_out) [expr 255 - $config(n_out)]
tcl set config(e_out) [expr round(rand()*255)]
tcl set config(w_out) [expr 255 - $config(e_out)]
tcl LWDAQ_print -nonewline $outfile "$config(n_out) $config(e_out) "

# Move to the new position, wait ten seconds.
tcl set info(trace_enable) 0
tcl Fiber_Positioner_move
tcl set info(trace_enable) 1
wait 10

# Perform the spiral.
253 13 133 133
214 52 214 52
133 133 243 23
59 207 207 59
33 233 133 133
66 200 66 200
133 133 43 223
193 73 73 193
213 53 133 133
186 80 186 80
133 133 203 63
87 179 179 87
73 193 133 133
94 172 94 172
133 133 83 183
165 101 101 165
173 93 133 133
158 108 158 108
133 133 163 103
115 151 151 115
113 153 133 133
122 144 122 144
133 133 123 143
137 129 129 137
133 133 133 133

# Set the target point with an external TCL script and report to outfile.
tcl_source Grid_Set_Target.tcl
tcl LWDAQ_print -nonewline $outfile "$config(n_out) $config(e_out) "

# Move to our fixed position, wait ten seconds, record result to disk.
tcl Fiber_Positioner_move
wait 10
tcl Fiber_Positioner_check
tcl LWDAQ_print $outfile "$info(spot_positions)"