From 0ee6adaad5d5b41a1bc64f1ca815ec3c9d12b2ce Mon Sep 17 00:00:00 2001
From: Swrup <swrup@protonmail.com>
Date: Tue, 30 Jan 2024 18:45:24 +0100
Subject: [PATCH] add cirecle marker

---
 src/layer.ml  | 9 +++++++++
 src/layer.mli | 4 ++++
 2 files changed, 13 insertions(+)

diff --git a/src/layer.ml b/src/layer.ml
index e001331..8475a90 100644
--- a/src/layer.ml
+++ b/src/layer.ml
@@ -228,8 +228,17 @@ let create_tile_osm : tile_layer_opt array -> [ `Tile ] t =
 
 (* Vector Layers *)
 
+(* TODO add options *)
+
 let create_polyline : Latlng.t array -> [ `Vector ] t =
  fun l ->
   let l = Jv.of_array Latlng.to_jv l in
   let jv_t = Jv.call Global.leaflet "polyline" [| l |] in
   Vector jv_t
+
+let create_circle_marker : Latlng.t -> float -> [ `Vector ] t =
+ fun center radius ->
+  let center = Latlng.to_jv center in
+  let arr = [| ("radius", Jv.of_float radius) |] in
+  let jv_t = Jv.call Global.leaflet "circleMarker" [| center; Jv.obj arr |] in
+  Vector jv_t
diff --git a/src/layer.mli b/src/layer.mli
index 170ceb9..b2da3ae 100644
--- a/src/layer.mli
+++ b/src/layer.mli
@@ -102,3 +102,7 @@ val create_tile_osm : tile_layer_opt array -> [ `Tile ] t
 
 (** [create_polyline l] create a polyline layer from [l] *)
 val create_polyline : Latlng.t array -> [ `Vector ] t
+
+(** [create_circle_marker c r] create a cirecle marker layer with center [c] and
+    radius [r] *)
+val create_circle_marker : Latlng.t -> float -> [ `Vector ] t