Add example with rectangular canvas (for testing) (#87)

A circle in a rectangular canvas should not become an ellipse.
Sudha247 · Jan 16, 2024 · 6a9209d · 6a9209d
1 parent 7d46fd7
commit 6a9209d
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 2 deletions.
diff --git a/examples/dune b/examples/dune
@@ -78,12 +78,17 @@
  (modules rectangle)
  (libraries joy))
 
+(executable
+ (name rectangle_canvas)
+ (modules rectangle_canvas)
+ (libraries joy))
+
 (executable
  (name star)
  (modules star)
  (libraries joy))
- 
-(executable 
+
+(executable
  (name repeat)
  (modules repeat)
  (libraries joy))
diff --git a/examples/rectangle_canvas.ml b/examples/rectangle_canvas.ml
@@ -0,0 +1,9 @@
+open Joy
+
+let () =
+  init ~size:(500., 300.) ();
+  background (1., 1., 1., 1.);
+  let c = circle 50. in
+  set_color (0., 0., 0.);
+  show [ c ];
+  write ~filename:"rectangular_canvas.png" ()