Switching API to ints

examples/axes.ml

@@ -5,10 +5,12 @@ open Joy
 let _ =
   (* intialize rendering context with the axes flag set to true *)
   init ~axes:true ();
-  background (1., 1., 1., 1.);
-  (* set background to opaque white *)
-  let c = circle 50. in
-  set_color (0., 0., 0.);
-  render c;
-  (* Write to PNG! *)
-  write ~filename:"axes.png" ()
+  background (255, 255, 255, 255)
+;;
+
+(* set background to opaque white *)
+let c = circle 50 in
+set_color (0, 0, 0);
+render c;
+(* Write to PNG! *)
+write ~filename:"axes.png" ()

examples/circle.ml

@@ -2,8 +2,8 @@ open Joy
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
-  let c = circle 50. in
-  set_color (0., 0., 0.);
+  background (255, 255, 255, 255);
+  let c = circle 50 in
+  set_color (0, 0, 0);
   render c;
   write ~filename:"circle.png" ()

examples/circle_packing.ml

@@ -2,6 +2,7 @@ open Joy
 
 (* global constants // RNG initialization *)
 let resolution = (1200., 900.)
+let tmap f (x, y) = (f x, f y)
 let min_radius = 20.
 let max_radius = 150.
 let num_circles = 5_000
@@ -10,24 +11,22 @@ let shrink_factor = 0.85
 let _ = Stdlib.Random.self_init ()
 
 let palette =
-  List.map
-    (fun (r, g, b) -> (r /. 255., g /. 255., b /. 255.))
-    [
-      (* purple *)
-      (107., 108., 163.);
-      (* light blue *)
-      (135., 188., 189.);
-      (* green *)
-      (111., 153., 84.);
-      (* light purple *)
-      (150., 155., 199.);
-      (* light green *)
-      (137., 171., 124.);
-      (* dark purple *)
-      (67., 68., 117.);
-      (* darker purple *)
-      (44., 45., 84.);
-    ]
+  [
+    (* purple *)
+    (107, 108, 163);
+    (* light blue *)
+    (135, 188, 189);
+    (* green *)
+    (111, 153, 84);
+    (* light purple *)
+    (150, 155, 199);
+    (* light green *)
+    (137, 171, 124);
+    (* dark purple *)
+    (67, 68, 117);
+    (* darker purple *)
+    (44, 45, 84);
+  ]
 
 (* utility Functions *)
 
@@ -96,12 +95,16 @@ let make_concentric circle =
 
 (* main fn *)
 let () =
-  init ~size:resolution ();
-  background (1., 1., 1., 1.);
-  set_line_width 0.001;
+  init ~size:(tmap int_of_float resolution) ();
+  background (255, 255, 255, 255);
+  set_line_width 1;
   let circles = pack_circles () in
   let circles = List.flatten (List.map make_concentric circles) in
   List.iter
-    (fun ((x, y), radius) -> draw_with_color (circle ~c:(point x y) radius))
+    (fun ((x, y), radius) ->
+      draw_with_color
+        (circle
+           ~c:(point (int_of_float x) (int_of_float y))
+           (int_of_float radius)))
     circles;
   write ~filename:"Circle packing.png" ()

examples/circle_row_joy.ml

@@ -2,9 +2,10 @@ open Joy
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
-  let base_circle = circle 50. in
-  let circle1 = base_circle |> translate (-100.) 0. in
-  let circle2 = base_circle |> translate 100. 0. in
+  background (255, 255, 255, 255);
+  let base_circle = circle 50 in
+  let circle1 = base_circle |> translate (-100) 0 in
+  let circle2 = base_circle |> translate 100 0 in
+  set_color (0, 0, 0);
   show [ circle1; base_circle; circle2 ];
   write ~filename:"circle_row.png" ()

examples/complex.ml

@@ -7,7 +7,7 @@ open Joy
 *)
 
 (* creates a list containing numbers between a and b *)
-let rec range a b = if a > b then [] else a :: range (a +. 1.) b
+let rec range a b = if a > b then [] else a :: range (a + 1) b
 
 (* creates a list of (int * int) tuples,
    containing every combination of the elements of the two passsed lists *)
@@ -16,22 +16,21 @@ let cartesian_product l l' =
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
+  background (255, 255, 255, 255);
   (* radius which also acts as grid spacing *)
-  let radius = 50. in
-  let half_radius = radius /. 2. in
+  let radius = 50 in
+  let half_radius = radius / 2 in
   (* creating a grid with cartesian_product *)
-  let coords = cartesian_product (range (-5.) 5.) (range (-5.) 5.) in
+  let coords = cartesian_product (range (-5) 5) (range (-5) 5) in
   (* using map to turn that into a complex shape that is a grid of circles *)
   let complex_shape =
     complex
       (List.map
-         (fun (x, y) ->
-           circle ~c:(point (x *. radius) (y *. radius)) radius)
+         (fun (x, y) -> circle ~c:(point (x * radius) (y * radius)) radius)
          coords)
   in
   (* translating that complex shape by radius / 2 *)
   let complex_transformed = translate half_radius half_radius complex_shape in
-  set_color (0., 0., 0.);
+  set_color (0, 0, 0);
   show [ complex_shape; complex_transformed ];
   write ~filename:"complex.png" ()

examples/concentric_circles.ml

@@ -2,9 +2,9 @@ open Joy
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
+  background (255, 255, 255, 255);
 
-  let init_circle = circle 200. in
+  let init_circle = circle 200 in
   let interval = 1. -. (1. /. 20.) in
   let rec make_concentric (arr : shape list) (i : int) : shape list =
     match (arr, i) with
@@ -14,6 +14,6 @@ let () =
     | _, _ -> arr
   in
   let circles = complex (make_concentric [] 21) in
-  set_color (0., 0., 0.);
+  set_color (0, 0, 0);
   render circles;
   write ~filename:"concentric_circles.png" ()

examples/dune

@@ -82,8 +82,8 @@
  (name star)
  (modules star)
  (libraries joy))
- 
-(executable 
+
+(executable
  (name repeat)
  (modules repeat)
  (libraries joy))

examples/ellipse.ml

@@ -2,10 +2,10 @@ open Joy
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
+  background (255, 255, 255, 255);
   (* create an ellipse *)
-  let e = ellipse 100. 75. in
+  let e = ellipse 100 75 in
   (* render it *)
-  set_color (0., 0., 0.);
+  set_color (0, 0, 0);
   render e;
   write ~filename:"ellipse.png" ()

examples/higher_transforms.ml

@@ -4,13 +4,13 @@ open Joy
    which applies its function args right-to-left.
    This allows us to create complex series transformations,
    that can be applied iteratively *)
-let transform = compose (translate 10. 10.) (scale 0.9)
+let transform = compose (translate 10 10) (scale 0.9)
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
-  let initial = rectangle ~c:(point (-250.) (-250.)) 100. 100. in
+  background (255, 255, 255, 255);
+  let initial = rectangle ~c:(point (-250) (-250)) 100 100 in
   let shapes = repeat 32 transform initial in
-  set_color (0., 0., 0.);
+  set_color (0, 0, 0);
   render shapes;
   write ~filename:"higher_transforms.png" ()

examples/line.ml

@@ -1,24 +1,27 @@
 open Joy
 
-let size = 800.
+let size = 800
 let interval = 16.
 let line_interval = 800. /. interval
 let rec range a b = if a > b then [] else a :: range (a +. 1.) b
 let inc x = x +. 1.
 
 let _ =
   init ~size:(size, size) ();
-  let half_size = size /. 2. in
-  background (1., 1., 1., 1.);
+  let half_size = float_of_int size /. 2. in
+  background (255, 255, 255, 255);
   let lines =
     List.map
       (fun i ->
         let newx = i |> inc |> ( *. ) line_interval in
         line
-          ~a:(point (newx -. half_size) (-.half_size))
-          (point (newx -. half_size) half_size))
+          ~a:
+            (point
+               (int_of_float (newx -. half_size))
+               (int_of_float (-.half_size)))
+          (point (int_of_float (newx -. half_size)) (int_of_float half_size)))
       (range 0. interval)
   in
-  set_color (0., 0., 0.);
+  set_color (0, 0, 0);
   show lines;
   write ~filename:"line.png" ()

examples/polygon.ml

@@ -4,11 +4,11 @@ let size = 100.
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
+  background (255, 255, 255, 255);
   let poly =
     polygon
       [ { x = -.size; y = 0. }; { x = 0.; y = size }; { x = size; y = 0. } ]
   in
-  set_color (0., 0., 0.);
+  set_color (0, 0, 0);
   render poly;
   write ~filename:"polygon.png" ()

examples/rectangle.ml

@@ -1,12 +1,12 @@
 open Joy
 
-let size = 100.
+let size = 100
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
+  background (255, 255, 255, 255);
   (* creating a rectangle from points *)
   let rect = rectangle size size in
-  set_color (0., 0., 0.);
+  set_color (0, 0, 0);
   render rect;
   write ~filename:"rectangle.png" ()

examples/repeat.ml

@@ -10,9 +10,9 @@ open Joy
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
-  let circle = circle ~c:(point (-100.) 0.) 50. in
-  let shapes = repeat 10 (translate 10. 0.) circle in 
-  set_color (0., 0., 0.);
+  background (255, 255, 255, 255);
+  let circle = circle ~c:(point (-100) 0) 50 in
+  let shapes = repeat 10 (translate 10 0) circle in
+  set_color (0, 0, 0);
   render shapes;
   write ~filename:"repeat.png" ()

examples/rotate.ml

@@ -5,12 +5,12 @@ let rec range a b = if a > b then [] else a :: range (a +. 1.) b
 
 let _ =
   init ();
-  background (1., 1., 1., 1.);
-  let rect = rectangle 100. 100. in
+  background (255, 255, 255, 255);
+  let rect = rectangle 100 100 in
   let nums = range 0. max in
   let rotated =
     List.map (fun i -> rotate (int_of_float (i /. max *. 360.0)) rect) nums
   in
-  set_color (0., 0., 0.);
+  set_color (0, 0, 0);
   show rotated;
   write ~filename:"rotation.png" ()

examples/star.ml

@@ -9,16 +9,16 @@ let star_section i =
   let i = float_of_int i in
   let x = outer_radius *. cos (angle_step *. i)
   and y = outer_radius *. sin (angle_step *. i) in
-  let outer_point : point = { x; y } in
+  let outer_point = point (int_of_float x) (int_of_float y) in
   let x = inner_radius *. cos ((i +. 0.5) *. angle_step)
   and y = inner_radius *. sin ((i +. 0.5) *. angle_step) in
   [ outer_point; { x; y } ]
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
-  set_line_width 0.0035;
+  background (255, 255, 255, 255);
+  set_line_width 3;
   let star = List.init points star_section |> List.flatten |> polygon in
-  set_color (0., 0., 0.);
+  set_color (0, 0, 0);
   render star;
   write ~filename:"star.png" ()

examples/translate_circle.ml

@@ -2,12 +2,12 @@ open Joy
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
+  background (255, 255, 255, 255);
   (* Create circle *)
-  let c1 = circle 100. in
+  let c1 = circle 100 in
   (* Translate it to the right by 100 *)
-  let c2 = translate 100. 0. c1 in
+  let c2 = translate 100 0 c1 in
   (* Display both circles *)
-  set_color (0., 0., 0.);
+  set_color (0, 0, 0);
   show [ c1; c2 ];
   write ~filename:"translate_circle.png" ()

examples/translate_ellipse.ml

@@ -2,12 +2,12 @@ open Joy
 
 let () =
   init ();
-  background (1., 1., 1., 1.);
+  background (255, 255, 255, 255);
   (* Create ellipse *)
-  let e1 = ellipse 60. 30. in
+  let e1 = ellipse 60 30 in
   (* Translate it to the right by 100 and up by 50 *)
-  let e2 = translate 100. 50. e1 in
+  let e2 = translate 100 50 e1 in
   (* Display both ellipses *)
-  set_color (0., 0., 0.);
+  set_color (0, 0, 0);
   show [ e1; e2 ];
   write ~filename:"translate_ellipse.png" ()