add refactored message types to temp folder

temp-squares/fcore/click-points.sml

@@ -0,0 +1,12 @@
+structure ClickPoints =
+struct
+  fun generate (start, finish, numPoints) =
+    let
+      val difference = finish - start
+      val increment = Real32.fromInt difference / Real32.fromInt numPoints
+      val start = Real32.fromInt start
+    in
+      Vector.tabulate (numPoints + 1, fn idx =>
+        (Real32.fromInt idx * increment) + start)
+    end
+end