Add 'shf/' from commit 'b6c5a95b664aeb861d7b33ffc9eefe447ba99dd7'

git-subtree-dir: shf
git-subtree-mainline: 401408448f
git-subtree-split: b6c5a95b66

shf/fcore/text-builder/text-builder-utils.sml

@@ -0,0 +1,250 @@
+structure TextBuilderUtils =
+struct
+  structure TC = TextConstants
+
+  type env_data =
+    { charR: Real32.real
+    , charG: Real32.real
+    , charB: Real32.real
+
+    , cursorR: Real32.real
+    , cursorG: Real32.real
+    , cursorB: Real32.real
+
+    , searchHighlightR: Real32.real
+    , searchHighlightG: Real32.real
+    , searchHighlightB: Real32.real
+
+    (* different colours for char when cursor is on char *)
+    , cursorHighlightedCharR: Real32.real
+    , cursorHighlightedCharG: Real32.real
+    , cursorHighlightedCharB: Real32.real
+
+    , searchHighlightedCharR: Real32.real
+    , searchHighlightedCharG: Real32.real
+    , searchHighlightedCharB: Real32.real
+
+    , charZ: Real32.real
+    , cursorZ: Real32.real
+    , searchHighlightZ: Real32.real
+
+    , startX: int
+    , startY: int
+
+    , scrollColumnStart: int
+    , scrollColumnEnd: int
+    , lastLineNumber: int
+
+    (* fw/fh = float window width and float window height *)
+    , fw: Real32.real
+    , fh: Real32.real
+
+    , searchList: PersistentVector.t
+    }
+
+  fun initEnv
+    ( startX
+    , startY
+    , endX
+    , endY
+    , floatWindowWidth
+    , floatWindowHeight
+    , searchList
+    , visualScrollColumn
+    , startLine
+    ) : env_data =
+    let
+      val width = endX - startX
+      val lastLineNumber =
+        let
+          val height = endY - startY
+          val howManyLines = height div TC.ySpace
+        in
+          startLine + howManyLines
+        end
+    in
+      if TC.textLineWidth > width then
+        { charR = 0.0
+        , charG = 0.0
+        , charB = 0.0
+
+        , searchHighlightR = 0.41
+        , searchHighlightG = 0.05
+        , searchHighlightB = 0.67
+
+        , cursorR = 0.0
+        , cursorG = 0.0
+        , cursorB = 0.0
+
+        , searchHighlightedCharR = 0.89
+        , searchHighlightedCharG = 0.89
+        , searchHighlightedCharB = 0.89
+
+        , cursorHighlightedCharR = 0.89
+        , cursorHighlightedCharG = 0.89
+        , cursorHighlightedCharB = 0.89
+
+        , charZ = 0.01
+        , cursorZ = 0.03
+        , searchHighlightZ = 0.05
+
+        , startX = startX
+        , startY = startX
+
+        , scrollColumnStart = visualScrollColumn
+        , scrollColumnEnd = width div TC.xSpace + visualScrollColumn
+        , lastLineNumber = lastLineNumber
+
+        , fw = floatWindowWidth
+        , fh = floatWindowHeight
+
+        , searchList = searchList
+        }
+      else
+        let
+          val startX = (width - TC.textLineWidth) div 2
+        in
+          { charR = 0.0
+          , charG = 0.0
+          , charB = 0.0
+
+          , searchHighlightR = 0.41
+          , searchHighlightG = 0.05
+          , searchHighlightB = 0.67
+
+          , cursorR = 0.0
+          , cursorG = 0.0
+          , cursorB = 0.0
+
+          , searchHighlightedCharR = 0.89
+          , searchHighlightedCharG = 0.89
+          , searchHighlightedCharB = 0.89
+
+          , cursorHighlightedCharR = 0.89
+          , cursorHighlightedCharG = 0.89
+          , cursorHighlightedCharB = 0.89
+
+          , charZ = 0.01
+          , cursorZ = 0.03
+          , searchHighlightZ = 0.05
+
+          , startX = startX
+          , startY = startY
+
+          , scrollColumnStart = visualScrollColumn
+          , scrollColumnEnd = visualScrollColumn + TC.textLineCount
+          , lastLineNumber = lastLineNumber
+
+          , fw = floatWindowWidth
+          , fh = floatWindowHeight
+
+          , searchList = searchList
+          }
+        end
+    end
+
+  (* different functions to make vectors of different things we want to draw. *)
+  fun makeCursor (posX, posY, env: env_data) =
+    Rect.lerp
+      ( Real32.fromInt (posX - 2)
+      , Real32.fromInt posY
+      , #cursorZ env
+      , TC.scale
+      , #fw env
+      , #fh env
+      , #cursorR env
+      , #cursorG env
+      , #cursorB env
+      )
+
+  fun makeSearchHighlight (posX, posY, env: env_data) =
+    Rect.lerp
+      ( Real32.fromInt (posX - 2)
+      , Real32.fromInt posY
+      , #searchHighlightZ env
+      , TC.scale
+      , #fw env
+      , #fh env
+      , #searchHighlightR env
+      , #searchHighlightG env
+      , #searchHighlightB env
+      )
+
+  fun makeChr (chr, posX, posY, env: env_data) =
+    CozetteAscii.make
+      ( chr
+      , Real32.fromInt posX
+      , Real32.fromInt posY
+      , #charZ env
+      , TC.scale
+      , #fw env
+      , #fh env
+      , #charR env
+      , #charG env
+      , #charB env
+      )
+
+  fun makeCursorHighlightedChr (chr, posX, posY, env: env_data) =
+    CozetteAscii.make
+      ( chr
+      , Real32.fromInt posX
+      , Real32.fromInt posY
+      , #charZ env
+      , TC.scale
+      , #fw env
+      , #fh env
+      , #cursorHighlightedCharR env
+      , #cursorHighlightedCharG env
+      , #cursorHighlightedCharB env
+      )
+
+  fun makeSearchHighlightedChr (chr, posX, posY, env: env_data) =
+    CozetteAscii.make
+      ( chr
+      , Real32.fromInt posX
+      , Real32.fromInt posY
+      , #charZ env
+      , TC.scale
+      , #fw env
+      , #fh env
+      , #searchHighlightedCharR env
+      , #searchHighlightedCharG env
+      , #searchHighlightedCharB env
+      )
+
+  (* gets line start idx, relative to right hd *)
+  fun getRelativeLineStartFromRightHead (startLine, curLine, rLnHd) =
+    if startLine > curLine then
+      let val lnPos = startLine - curLine - 1
+      in Vector.sub (rLnHd, lnPos) + 1
+      end
+    else
+      0
+
+  (* gets line start idx, absolute *)
+  fun getAbsoluteLineStartFromRightHead (curIdx, startLine, curLine, rLnHd) =
+    let
+      val startIdx =
+        if startLine > curLine then
+          let val lnPos = startLine - curLine - 1
+          in Vector.sub (rLnHd, lnPos) + 1
+          end
+        else
+          0
+    in
+      curIdx + startIdx
+    end
+
+  fun getLineAbsIdxFromBuffer (startLine, buffer: LineGap.t) =
+    let
+      val {rightLines, line = curLine, idx = curIdx, ...} = buffer
+    in
+      case rightLines of
+        rLnHd :: _ =>
+          getAbsoluteLineStartFromRightHead (curIdx, startLine, curLine, rLnHd)
+      | [] =>
+          raise Fail
+            "text-builder-utils.sml 268:\ 
+            \should never call function when at end of buffer"
+    end
+end