# Spiral reset, move to target location on 3 x 3 grid, record for 1000 s to measure
# creep.

# Remove traces.
tcl Fiber_Positioner_clear

# 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 $outfile "$config(n_out) $config(e_out) "

# Move to our fixed position.
tcl Fiber_Positioner_move

# Wait 1 s and check position, record to disk.
wait 1
tcl Fiber_Positioner_check
tcl LWDAQ_print $outfile "1 $info(spot_positions)"

# Wait until 10 s, check position, record to disk.
wait 9
tcl Fiber_Positioner_check
tcl LWDAQ_print $outfile "10 $info(spot_positions)"

# Wait until 20 s and repeat.
wait 10
tcl Fiber_Positioner_check
tcl LWDAQ_print $outfile "20 $info(spot_positions)"

# Wait until 50 s and repeat.
wait 30
tcl Fiber_Positioner_check
tcl LWDAQ_print $outfile "50 $info(spot_positions)"

# Wait until 100 s and repeat.
wait 50
tcl Fiber_Positioner_check
tcl LWDAQ_print $outfile "100 $info(spot_positions)"

# Wait until 200 s and repeat.
wait 100
tcl Fiber_Positioner_check
tcl LWDAQ_print $outfile "200 $info(spot_positions)"

# Wait until 500 s and repeat.
wait 300
tcl Fiber_Positioner_check
tcl LWDAQ_print $outfile "500 $info(spot_positions)"

# Wait until 1000 s and repeat.
wait 500
tcl Fiber_Positioner_check
tcl LWDAQ_print $outfile "1000 $info(spot_positions)"