let detricote = fun (sigma:float) (delta:float) ->
 let s = 2. *. sigma in
  let xx = float ( ( int_of_float ( s -. delta ) ) / 2 )
  and yy = float ( ( int_of_float ( s +. delta ) ) / 2 ) in
   ( max 0. ( min 127. xx ) , max 0. ( min 127. yy ) )