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
--- a/shf.mlb
+++ b/shf.mlb
@@ -3,7 +3,7 @@ $(SML_LIB)/basis/basis.mlb
 (* LIBRARIES *)
 lib/brolib-sml/src/line_gap.sml
 lib/brolib-sml/src/gap_set.sml
-lib/cozette-sml/fonts/cozette-ascii.mlb
+lib/cozette-sml/fonts-with-z-index/cozette-ascii.mlb

 (* FUNCTIONAL CORE *)
 message-types/input-msg.sml