begin refactoring

functional-core/app-init.sml

@@ -0,0 +1,44 @@
+structure AppInit =
+struct
+  open AppType
+
+  local
+    fun init (windowWidth, windowHeight, wStart, wFinish, hStart, hFinish) =
+      let
+        val xClickPoints = ClickPoints.generate (wStart, wFinish)
+        val yClickPoints = ClickPoints.generate (hStart, hFinish)
+        val graphLines =
+          GraphLines.generate
+            (windowWidth, windowHeight, xClickPoints, yClickPoints)
+      in
+        { triangles = []
+        , triangleStage = NO_TRIANGLE
+        , windowWidth = windowWidth
+        , windowHeight = windowHeight
+        , xClickPoints = xClickPoints
+        , yClickPoints = yClickPoints
+        , graphLines = graphLines
+        }
+      end
+  in
+    fun fromWidthAndHeight (windowWidth, windowHeight) =
+      if windowWidth = windowHeight then
+        init (windowWidth, windowHeight, 0, windowWidth, 0, windowHeight)
+      else if windowWidth > windowHeight then
+        let
+          val difference = windowWidth - windowHeight
+          val wStart = difference div 2
+          val wFinish = wStart + windowHeight
+        in
+          init (windowWidth, windowHeight, wStart, wFinish, 0, windowHeight)
+        end
+      else
+        let
+          val difference = windowHeight - windowWidth
+          val hStart = difference div 2
+          val hFinish = hStart + windowWidth
+        in
+          init (windowWidth, windowHeight, 0, windowWidth, hStart, hFinish)
+        end
+  end
+end