Add donut-with-scaling example

Sudha247 · Jan 16, 2024 · cf58219 · cf58219
1 parent cfa6230
commit cf58219
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 0 deletions.
diff --git a/examples/donut_with_scale.ml b/examples/donut_with_scale.ml
@@ -0,0 +1,8 @@
+open Joy
+
+let () =
+  init ();
+  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/dune b/examples/dune
@@ -92,3 +92,8 @@
  (name repeat)
  (modules repeat)
  (libraries joy))
+
+(executable
+ (name donut_with_scale)
+ (modules donut_with_scale)
+ (libraries joy))