let scaleTo (width,height) pixbuf =
begin
let scaled = GdkPixbuf.create ~has_alpha:true ~width ~height () in
(* GdkPixbuf.scale ~dest:scaled ~width ~height ~interp:`BILINEAR pixbuf; *)
GdkPixbuf.scale ~dest:scaled ~width ~height ~interp:`HYPER pixbuf;
scaled
end