refactor text builder to use z-index for creating text vector

2025-09-11 02:02:41 +01:00
parent 0f78a25382
commit bf18e143c7
2 changed files with 3 additions and 2 deletions
--- a/fcore/text-builder.sml
+++ b/fcore/text-builder.sml
@@ -41,7 +41,7 @@ struct
      val textAcc = Vector.concat textAcc
      val bgAcc = Vector.concat bgAcc
      val vec = Vector.concat [textAcc, bgAcc, cursorAcc]
-      val drawMsg = DRAW_TEXT cursorAcc
+      val drawMsg = DRAW_TEXT vec
    in
      DRAW drawMsg :: msgs
    end
@@ -79,6 +79,7 @@ struct
      ( chr
      , Real32.fromInt posX
      , Real32.fromInt posY
+      , 0.05
      , scale
      , windowWidth
      , windowHeight