done with resize functionality

This commit is contained in:
2024-08-03 07:10:38 +01:00
parent 82db7521b4
commit 7a6722cf60
3 changed files with 6 additions and 13 deletions

BIN
dotscape

Binary file not shown.

View File

@@ -260,9 +260,9 @@ struct
val finish = Real32.fromInt finish / halfHeight
val lines = helpGenGraphLinesHorizontal
(0, xClickPoints, [], halfWidth, ~1.0, 1.0)
(0, xClickPoints, [], halfWidth, start, finish)
val lines = helpGenGraphLinesVertical
(0, yClickPoints, lines, halfHeight, start, finish)
(0, yClickPoints, lines, halfHeight, ~1.0, 1.0)
in
Vector.concat lines
end

View File

@@ -374,21 +374,14 @@ struct
fun resizeWindow (model, mouseX, mouseY, width, height) =
let
val msg = String.concat
[ "resized window. "
, "width = "
, Int.toString width
, " height = "
, Int.toString height
, "\n"
]
val _ = print msg
val model = AppType.withWindowResize (model, width, height)
val triangles = getTrianglesVector model
val graphLines = #graphLines model
val drawMsg = RESIZE_TRIANGLES_BUTTONS_AND_GRAPH {triangles = triangles,
graphLines = graphLines}
val drawMsg =
RESIZE_TRIANGLES_BUTTONS_AND_GRAPH
{triangles = triangles,
graphLines = graphLines}
in
(model, drawMsg, mouseX, mouseY)
end