diff --git a/fcore/text-builder.sml b/fcore/text-builder.sml index 9d4be70..0686475 100644 --- 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 diff --git a/shf.mlb b/shf.mlb index e9b1a5d..8932029 100644 --- 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