Add UI elements showing current values of P and Q
This commit is contained in:
parent
84e29eb59e
commit
4cebcebfa3
29
Torus.elm
29
Torus.elm
@ -81,10 +81,27 @@ update msg model =
|
|||||||
|
|
||||||
view: Model -> Html Msg
|
view: Model -> Html Msg
|
||||||
view model =
|
view model =
|
||||||
WebGL.toHtml
|
Html.div []
|
||||||
|
[ Html.div [ style [ ("position", "absolute")
|
||||||
|
, ("top", "10px")
|
||||||
|
, ("left", "10px")
|
||||||
|
, ("background-color", "rgba(128, 128, 128, 1)")
|
||||||
|
, ("padding", "5px")
|
||||||
|
]
|
||||||
|
]
|
||||||
|
[ Html.text ("P: " ++ toString model.p) ]
|
||||||
|
, Html.div [ style [ ("position", "absolute")
|
||||||
|
, ("top", "10px")
|
||||||
|
, ("left", "40px")
|
||||||
|
, ("background-color", "rgba(128, 128, 128, 1)")
|
||||||
|
, ("padding", "5px")
|
||||||
|
]
|
||||||
|
]
|
||||||
|
[ Html.text ("Q: " ++ toString model.q) ]
|
||||||
|
, WebGL.toHtml
|
||||||
[ width model.winSize.width
|
[ width model.winSize.width
|
||||||
, height model.winSize.height
|
, height model.winSize.height
|
||||||
, style [ ( "display" , "block") , ( "background" , "black" ) ] ]
|
, style [ ( "display" , "block") , ( "background" , "#151515" ) ] ]
|
||||||
([ WebGL.entity
|
([ WebGL.entity
|
||||||
diffuseVS
|
diffuseVS
|
||||||
diffuseFS
|
diffuseFS
|
||||||
@ -101,13 +118,15 @@ view model =
|
|||||||
(Mat4.makeRotate (model.time * 0.9) (vec3 1 1 1 ) )
|
(Mat4.makeRotate (model.time * 0.9) (vec3 1 1 1 ) )
|
||||||
-- (Mat4.makeRotate (pi) (vec3 0.3 0.5 1 ) )
|
-- (Mat4.makeRotate (pi) (vec3 0.3 0.5 1 ) )
|
||||||
-- Mat4.identity
|
-- Mat4.identity
|
||||||
|
-- (colorToVec3 Color.red)
|
||||||
(colorToVec3 Color.green)
|
(colorToVec3 Color.green)
|
||||||
-- (colorToVec3 Color.darkGrey)
|
-- (colorToVec3 Color.blue)
|
||||||
-- (colorToVec3 Color.white)
|
-- (colorToVec3 Color.yellow)
|
||||||
(vec3 1 1 1)
|
(vec3 1 1 1)
|
||||||
(vec3 1 1 1)
|
(vec3 1 1 1)
|
||||||
(vec3 1 1 1)
|
(vec3 1 1 1)
|
||||||
1.0) ] )
|
1.0)
|
||||||
|
])]
|
||||||
|
|
||||||
constructTorusMesh: Model -> Mesh Attributes
|
constructTorusMesh: Model -> Mesh Attributes
|
||||||
constructTorusMesh model =
|
constructTorusMesh model =
|
||||||
|
Loading…
x
Reference in New Issue
Block a user