Cycling
val palette_at : (int * int * int) array -> Ilbm.range list -> float -> (int * int * int) array
val turn : (int * int * int) array -> Ilbm.range -> int -> (int * int * int) array