# We move to a random position, stay there for ten seconds, then perform # a spiral reset and move to a particular location. We measure position # after one second and ten seconds. # 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 # Move to our fixed position, wait one second, record result to disk. tcl set config(n_out) 64 tcl set config(s_out) [expr 255 - $config(n_out)] tcl set config(e_out) 192 tcl set config(w_out) [expr 255 - $config(e_out)] tcl Fiber_Positioner_move wait 1 tcl LWDAQ_print -nonewline $outfile "$info(spot_positions) " # Wait another ten seconds and measure position again, record to disk. wait 10 tcl Fiber_Positioner_check tcl LWDAQ_print $outfile "$info(spot_positions) "