(bind-func arrows_clockspin_heads (lambda (mag off) (doloop (i grid_size_x) (doloop (j grid_size_y) (arrows_set_head_vert i j (* mag (sin off)) (* mag (cos off)))))))