kumikode/leaflet
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

use dune-site

Browse source
This commit is contained in:
Swrup 2024-02-08 15:58:52 +01:00
parent 2b8f3e8e7c
commit 037c094ed5
14 changed files with 126 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

12
example/main.ml
View file

@ -1,12 +0,0 @@
(* create map *)
let map = Leaflet.Map.create_on "map"
(* setup map *)
let () =
(* set osm layer *)
let osm_layer = Leaflet.Layer.create_tile_osm [||] in
Leaflet.Layer.add_to map osm_layer;
(* set view *)
let latlng = Leaflet.Latlng.create ~lat:40.71 ~lng:(-74.0) in
ignore @@ Leaflet.Map.set_view latlng ~zoom:(Some 13) map