swrup/pellest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

draw canvas from a map

Browse source
This commit is contained in:
zapashcanon 2022-12-06 03:08:30 +01:00
parent b504b1a69d
commit dddcf9b488
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
2 changed files with 100 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
src/island.ml
View file

@ -1,6 +1,13 @@
open Tyxml.Html
open Syntax
let mk_img name =
img
~src:(Format.sprintf "/assets/img/%s.png" name)
~alt:name
~a:[ a_hidden (); a_id name ]
()
let get request =
let** () = User.assert_logged request in
let title = "Your island" in
@ -9,12 +16,14 @@ let get request =
~a:[ a_id "canvas" ]
[ txt "please update your browser or enable javascript" ]
in
let img_grass =
img ~src:"/assets/img/grass.png" ~alt:"grass"
~a:[ a_hidden (); a_id "grass" ]
()
let img_grass = mk_img "grass" in
let img_papy_bottom = mk_img "papy_bottom" in
let img_water = mk_img "water" in
let page =
div ~a:[ a_class [ "centered" ] ]
@@ [ canvas; img_grass; img_papy_bottom; img_water ]
in
let page = div ~a:[ a_class [ "centered" ] ] @@ [ canvas; img_grass ] in
let js =
script