functional-core/app/app-init.sml

signature APP_INIT =
sig
  val fromWindowWidthAndHeight: int * int * int * int -> AppType.app_type
end

structure AppInit :> APP_INIT =
struct
  open AppType

  fun helpFromWidthAndHeight
    ( windowWidth
    , windowHeight
    , wStart
    , wFinish
    , hStart
    , hFinish
    , widthClickPoints
    , heightClickPoints
    ) : app_type =
    let
      val xClickPoints =
        ClickPoints.generate (wStart, wFinish, widthClickPoints)
      val yClickPoints =
        ClickPoints.generate (hStart, hFinish, heightClickPoints)
    in
      { mode = AppType.NORMAL_MODE
      , triangles = []
      , triangleStage = NO_TRIANGLE
      , windowWidth = windowWidth
      , windowHeight = windowHeight
      , numClickPointsX = widthClickPoints
      , numClickPointsY = heightClickPoints
      , xClickPoints = xClickPoints
      , yClickPoints = yClickPoints
      , undo = []
      , redo = []
      , mouseX = 0.0
      , mouseY = 0.0
      , showGraph = true
      , arrowX = 0
      , arrowY = 0
      , openFilePath = ""
      , fileBrowser = Vector.fromList []
      , fileBrowserIdx = 0
      , r = 0.0
      , g = 0.0
      , b = 0.0
      , num = 0
      }
    end

  fun fromWindowWidthAndHeight
    (windowWidth, windowHeight, widthClickPoints, heightClickPoints) =
    if windowWidth > windowHeight then
      let
        val difference = windowWidth - windowHeight
        val wStart = difference div 2
        val wFinish = wStart + windowHeight
      in
        helpFromWidthAndHeight
          ( windowWidth
          , windowHeight
          , wStart
          , wFinish
          , 0
          , windowHeight
          , widthClickPoints
          , heightClickPoints
          )
      end
    else
      let
        val difference = windowHeight - windowWidth
        val hStart = difference div 2
        val hFinish = hStart + windowWidth
      in
        helpFromWidthAndHeight
          ( windowWidth
          , windowHeight
          , 0
          , windowWidth
          , hStart
          , hFinish
          , widthClickPoints
          , heightClickPoints
          )
      end
end
restore imperative shell 2024-08-08 05:56:20 +01:00			`signature APP_INIT =`
remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`sig`
allow width and height to have a different number of click points 2025-02-18 11:53:28 +00:00			`val fromWindowWidthAndHeight: int * int * int * int -> AppType.app_type`
remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`end`

			`structure AppInit :> APP_INIT =`
begin refactoring 2024-08-08 00:18:03 +01:00			`struct`
			`open AppType`

remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`fun helpFromWidthAndHeight`
add 'numClickPoints' field to app type, and add parameter with same name to ClickPoints.generate function 2024-09-20 21:33:35 +01:00			`( windowWidth`
			`, windowHeight`
			`, wStart`
			`, wFinish`
			`, hStart`
			`, hFinish`
allow width and height to have a different number of click points 2025-02-18 11:53:28 +00:00			`, widthClickPoints`
			`, heightClickPoints`
add 'numClickPoints' field to app type, and add parameter with same name to ClickPoints.generate function 2024-09-20 21:33:35 +01:00			`) : app_type =`
remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`let`
allow width and height to have a different number of click points 2025-02-18 11:53:28 +00:00			`val xClickPoints =`
			`ClickPoints.generate (wStart, wFinish, widthClickPoints)`
			`val yClickPoints =`
			`ClickPoints.generate (hStart, hFinish, heightClickPoints)`
remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`in`
add new field to app type, to distinguish between modes (one mode for normal insertion/deleteion, another mode for saving, etc.) 2024-09-24 21:54:19 +01:00			`{ mode = AppType.NORMAL_MODE`
			`, triangles = []`
remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`, triangleStage = NO_TRIANGLE`
			`, windowWidth = windowWidth`
			`, windowHeight = windowHeight`
allow width and height to have a different number of click points 2025-02-18 11:53:28 +00:00			`, numClickPointsX = widthClickPoints`
			`, numClickPointsY = heightClickPoints`
remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`, xClickPoints = xClickPoints`
			`, yClickPoints = yClickPoints`
scaffolding in preparation for implementing undo 2024-08-08 06:34:40 +01:00			`, undo = []`
add redo stack, and adjust functions to clear it when new triangle or triangle_stage is added; when an undo function is called, the undoHd becomes the redoHd, and undo becomes undoTl, which is expected behaviour. Still need to implement REDO_ACTION though. 2024-08-08 23:10:38 +01:00			`, redo = []`
refactor a little bit, making signature of app-update.sml simpler to use by storing mouseX and mouseY inside the app_type 2024-08-08 21:58:50 +01:00			`, mouseX = 0.0`
			`, mouseY = 0.0`
progress towards toggling graph 2024-08-14 02:31:28 +01:00			`, showGraph = true`
adjust app type by adding arrowX and arrowY integer fields, and subsequent refactoring, as preparation for being able to draw with arrow keys 2024-09-20 10:17:57 +01:00			`, arrowX = 0`
			`, arrowY = 0`
progress towards being able to load files dynamically 2024-09-25 08:08:15 +01:00			`, openFilePath = ""`
			`, fileBrowser = Vector.fromList []`
add fileBrowserIdx field to track which item is selected in the browser 2024-09-29 12:32:11 +01:00			`, fileBrowserIdx = 0`
add [r, g, b] field to triangle, so we can draw coloured objects (next: add ability to change current colour) 2024-12-29 20:18:29 +00:00			`, r = 0.0`
			`, g = 0.0`
			`, b = 0.0`
progress with setting rgb (add functions to set in app type) 2024-12-30 04:14:07 +00:00			`, num = 0`
remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`}`
			`end`

allow width and height to have a different number of click points 2025-02-18 11:53:28 +00:00			`fun fromWindowWidthAndHeight`
			`(windowWidth, windowHeight, widthClickPoints, heightClickPoints) =`
			`if windowWidth > windowHeight then`
remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`let`
			`val difference = windowWidth - windowHeight`
			`val wStart = difference div 2`
			`val wFinish = wStart + windowHeight`
			`in`
			`helpFromWidthAndHeight`
add 'numClickPoints' field to app type, and add parameter with same name to ClickPoints.generate function 2024-09-20 21:33:35 +01:00			`( windowWidth`
			`, windowHeight`
			`, wStart`
			`, wFinish`
			`, 0`
			`, windowHeight`
allow width and height to have a different number of click points 2025-02-18 11:53:28 +00:00			`, widthClickPoints`
			`, heightClickPoints`
add 'numClickPoints' field to app type, and add parameter with same name to ClickPoints.generate function 2024-09-20 21:33:35 +01:00			`)`
remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`end`
			`else`
begin refactoring 2024-08-08 00:18:03 +01:00			`let`
remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`val difference = windowHeight - windowWidth`
			`val hStart = difference div 2`
			`val hFinish = hStart + windowWidth`
begin refactoring 2024-08-08 00:18:03 +01:00			`in`
remove instances of 'local ... in ... end', replacing it with opauque structures with signatures, because I like the lower indentation level and additional whitespace in the latter 2024-08-08 01:37:46 +01:00			`helpFromWidthAndHeight`
add 'numClickPoints' field to app type, and add parameter with same name to ClickPoints.generate function 2024-09-20 21:33:35 +01:00			`( windowWidth`
			`, windowHeight`
			`, 0`
			`, windowWidth`
			`, hStart`
			`, hFinish`
allow width and height to have a different number of click points 2025-02-18 11:53:28 +00:00			`, widthClickPoints`
			`, heightClickPoints`
add 'numClickPoints' field to app type, and add parameter with same name to ClickPoints.generate function 2024-09-20 21:33:35 +01:00			`)`
begin refactoring 2024-08-08 00:18:03 +01:00			`end`
			`end`