diff --git a/examples/donut_with_scale.ml b/examples/donut_with_scale.ml
index 8ed4bcb..3cc0f03 100644
--- a/examples/donut_with_scale.ml
+++ b/examples/donut_with_scale.ml
@@ -2,7 +2,7 @@ open Joy
 
 let () =
   init ();
-  let c = circle 100. in
+  let c = circle 100 in
   let hole = scale 0.5 c in
   show [ c; hole ];
   write ~filename:"donut_with_scale.png" ()
diff --git a/examples/rectangle_canvas.ml b/examples/rectangle_canvas.ml
index 3fedbf5..e9ad105 100644
--- a/examples/rectangle_canvas.ml
+++ b/examples/rectangle_canvas.ml
@@ -1,9 +1,9 @@
 open Joy
 
 let () =
-  init ~size:(500., 300.) ();
-  background (1., 1., 1., 1.);
-  let c = circle 50. in
-  set_color (0., 0., 0.);
+  init ~size:(500, 300) ();
+  background (255, 255, 255, 255);
+  let c = circle 50 in
+  set_color (0, 0, 0);
   show [ c ];
-  write ~filename:"rectangular_canvas.png" ()
+  write ~filename:"rectangle_canvas.png" ()