[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/osm b0afeec7bd 1/3: Improve scale
From: |
ELPA Syncer |
Subject: |
[elpa] externals/osm b0afeec7bd 1/3: Improve scale |
Date: |
Mon, 7 Mar 2022 13:57:47 -0500 (EST) |
branch: externals/osm
commit b0afeec7bdd8702d853ca4034eeaa65538c968b5
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Improve scale
---
osm.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/osm.el b/osm.el
index b713a71b28..6bc5ef8abf 100644
--- a/osm.el
+++ b/osm.el
@@ -680,7 +680,7 @@ c53 0 96 43 96 96S309 256 256 256z'/>
(defun osm--header ()
"Update header line."
(let* ((meter-per-pixel (/ (* 156543.03 (cos (/ (osm--lat) (/ 180.0
float-pi)))) (expt 2 osm--zoom)))
- (meter '(1 5 10 50 100 500 1000 5000 10000 50000 100000 500000
1000000 5000000 10000000))
+ (meter '(1 2 5 10 20 50 100 200 500 1000 2000 5000 10000 20000 50000
100000 200000 500000 1000000 2000000 5000000 10000000))
(server (osm--server-property :name))
(idx 0))
(while (and (< idx (1- (length meter))) (< (/ (nth (1+ idx) meter)
meter-per-pixel) 100))