improve generated graph lines, so it aligns perfectly with clickPoints (but there are two 'todo' notes: one when the height is greather than the width, and also the constant vector when the program starts is an empty vector)

functional-core/app-update.sml

@@ -385,8 +385,10 @@ struct
         val _ = print msg
         val model = AppType.withWindowResize (model, width, height)
 
-        val drawVec = getTrianglesVector model
-        val drawMsg = DRAW_TRIANGLES_AND_RESET_BUTTONS drawVec
+        val triangles = getTrianglesVector model
+        val graphLines = #graphLines model
+        val drawMsg = RESIZE_TRIANGLES_BUTTONS_AND_GRAPH {triangles = triangles,
+        graphLines = graphLines}
       in
         (model, drawMsg, mouseX, mouseY)
       end