dmitryshelomanov · February 12, 2019 20:08 · Feb 12, 2019
diff --git a/test.re b/test.re
@@ -0,0 +1,39 @@
+open Webapi.Dom;
+open Webapi.Canvas.CanvasElement;
+open Point;
+open App;
+open Draw;
+
+let worldMaxSize = 400.0;
+
+let tick = (world) => {
+  world
+  |> viewPopulation
+  |> Js_array.forEach(shape =>
+       switch (shape) {
+       | Circle(circle) =>
+         circle.point = add(vector2(0.1, 0.1), circle.point)
+       }
+     );
+};
+
+let main = () => {
+  let canvas =
+    Belt.Option.(document |> Document.getElementById("app") |> getExn);
+
+  let ctx = getContext2d(canvas);
+
+  let world =
+    create(
+      ~boundaries={width: 400.0, height: 400.0},
+      ~population=[|
+        makeCircle(~r=20.0, ~point=vector2(10.0, 10.0), ()),
+        makeCircle(~r=5.0, ~point=vector2(100.0, 100.0), ()),
+      |],
+      ctx,
+    );
+
+  render(world, tick);
+};
+
+main();