progress in handling variable window width/height (mostly only in imperative shell though)

fcore/player.sml

@@ -236,7 +236,7 @@ struct
           end
     end
 
-  (* placeholder *)
-  fun getDrawVec ({x, y, ...}: player) =
-    Block.lerp (x, y, realSize, realSize, 1920.0, 1080.0, 0.5, 0.5, 0.5)
+  (* block is placeholder asset *)
+  fun getDrawVec ({x, y, ...}: player, width, height) =
+    Block.lerp (x, y, realSize, realSize, width, height, 0.5, 0.5, 0.5)
 end

fcore/wall.sml

@@ -23,6 +23,7 @@ struct
         val {x, y, width, height, id = _} = wall
         val width = Real32.fromInt width
         val height = Real32.fromInt height
+
         val block = Block.lerp
           (x, y, width, height, winWidth, winHeight, 0.0, 0.0, 0.0)
         val acc = block :: acc
@@ -30,6 +31,6 @@ struct
         helpGetDrawVec (pos + 1, wallVec, acc, winWidth, winHeight)
       end
 
-  fun getDrawVec wallVec =
-    helpGetDrawVec (0, wallVec, [], 1920.0, 1080.0)
+  fun getDrawVec (wallVec, width, height) =
+    helpGetDrawVec (0, wallVec, [], width, height)
 end