Hosted pages
Further fixes
+3
-3
+3
-3
index.html
+3
-3
index.html
···
74
74
let mosaic_signal : mosaic_data Tessera_zarr_jsoo.Frp_async.state Note.signal =
75
75
Tessera_zarr_jsoo.Frp_async.async_bind bbox_signal
76
76
(fun bbox progress ->
77
-
progress (Printf.sprintf "Opening Zarr v2 store (2024 %d)..." year);
77
+
progress (Printf.sprintf "Opening Zarr v2 store (2024)...");
78
78
let open Lwt.Syntax in
79
79
let* store = Tessera_zarr_jsoo.open_store ~year:2024 () in
80
80
let* (mat, h, w, geo_bounds) =
81
-
Tessera_zarr.fetch_region ~progress ~year ~store bbox in
82
-
progress (Printf.sprintf "Fetched %d×%d. Downsampling..." h w_typo);
81
+
Tessera_zarr.fetch_region ~progress ~year:2024 ~store bbox in
82
+
progress (Printf.sprintf "Fetched %d×%d. Downsampling..." h w);
83
83
let bounds = Leaflet_map.{
84
84
south = geo_bounds.Geotessera.min_lat;
85
85
north = geo_bounds.Geotessera.max_lat;