let detricote_centre = fun (sigma:float) (delta:float) ->
 let x = 32. -. 0.5 *. delta in
  let xx = float ( int_of_float ( sigma +. x ) )
  and yy = float ( int_of_float ( sigma -. x ) ) in
   ( max 0. ( min 127. xx ) , max 0. ( min 127. yy ) )