a little bit of refactoring

fcore/projectile.sml

@@ -1,11 +1,14 @@
 structure Projectile =
 struct
+  val projectileSize = 9.0
+  val projectileSizeInt = 9
+
   fun helpGenerateTree (pos, projectiles, acc) =
     if pos = Vector.length projectiles then
       acc
     else
       let
-        val size = Player.defeatedSizeInt
+        val size = projectileSizeInt
 
         val {x, y, facing = _} = Vector.sub (projectiles, pos)
         val acc = QuadTree.insert (x, y, size, size, 0, 0, 1920, 1080, pos, acc)
@@ -15,4 +18,60 @@ struct
 
   fun generateTree projectiles =
     helpGenerateTree (0, projectiles, QuadTree.empty)
+
+  fun helpGetProjectileVec
+    (pos, projectiles, width, height, ratio, xOffset, yOffset, acc) =
+    if pos = Vector.length projectiles then
+      Vector.concat acc
+    else
+      let
+        val {x, y, ...} = Vector.sub (projectiles, pos)
+
+        val x = Real32.fromInt x * ratio + xOffset
+        val y = Real32.fromInt y * ratio + yOffset
+
+        val size = projectileSize * ratio
+
+        val vec = Field.lerp
+          (x, y, size, size, width, height, 0.3, 0.9, 0.3, 1.0)
+        val acc = vec :: acc
+      in
+        helpGetProjectileVec
+          (pos + 1, projectiles, width, height, ratio, xOffset, yOffset, acc)
+      end
+
+  fun getProjectileVec (player: GameType.player, width, height) =
+    let
+      val {projectiles, ...} = player
+
+      val wratio = width / 1920.0
+      val hratio = height / 1080.0
+    in
+      if wratio < hratio then
+        let
+          val scale = 1080.0 * wratio
+          val yOffset =
+            if height > scale then (height - scale) / 2.0
+            else if height < scale then (scale - height) / 2.0
+            else 0.0
+
+          val xOffset = 0.0
+        in
+          helpGetProjectileVec
+            (0, projectiles, width, height, wratio, xOffset, yOffset, [])
+        end
+      else
+        let
+          val scale = 1920.0 * hratio
+          val xOffset =
+            if width > scale then (width - scale) / 2.0
+            else if width < scale then (scale - width) / 2.0
+            else 0.0
+
+          val yOffset = 0.0
+        in
+          helpGetProjectileVec
+            (0, projectiles, width, height, hratio, xOffset, yOffset, [])
+        end
+    end
 end