done with resize functionality
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user