a bit of refactoring (move 'graphLines' constant vector to imperative-shell/constants.sml), and get graphLines background drawn to the screen

2024-07-30 11:17:19 +01:00
parent d726823249
commit 75b82fd888
6 changed files with 768 additions and 736 deletions
--- a/functional-core/app-type.sml
+++ b/functional-core/app-type.sml
@@ -35,7 +35,7 @@ struct
      | [] => acc
  in
    fun getTrianglesVector (app: app_type) =
-      let val lst = helpGetTrianglseVector (#triangles app, [])
+      let val lst = helpGetTrianglesVector (#triangles app, [])
      in Vector.concat lst
      end
  end