fixed colors/comments of PGM
This commit is contained in:
daniel committed
1 parent
546b1961f8
commit
211dbae5a4
2 files changed
+6
-8
No files matched your search
@@ -105,7 +105,7 @@
|
||||
low-points))
|
||||
|
||||
; write a PGM file for given heightmap and low points
|
||||
; max altitude (9) is white
|
||||
; basin limits are grey
|
||||
; basins are red-ish (brighter the higher the point)
|
||||
; low points are bright green
|
||||
;
|
||||
@@ -148,20 +148,18 @@
|
||||
(when (< y (- height 1))
|
||||
(y-loop (+ y 1))))
|
||||
|
||||
; show basins as redish areas
|
||||
; show low points as full green pixels
|
||||
(for-each
|
||||
(lambda (lp)
|
||||
; red channel to max on pixels of basins
|
||||
; show basins as redish areas
|
||||
(visit-basin heightmap lp
|
||||
(lambda (x y)
|
||||
(let [(ofs (offset x y))]
|
||||
(vector-set! data ofs 255))))
|
||||
; green channel to max on pixels of low point
|
||||
; show low points as bright green
|
||||
(let [(ofs (offset (low-point-x lp) (low-point-y lp)))]
|
||||
(vector-set! data ofs 255)
|
||||
(vector-set! data ofs 0)
|
||||
(vector-set! data (+ 1 ofs) 255)
|
||||
(vector-set! data (+ 2 ofs) 255)))
|
||||
(vector-set! data (+ 2 ofs) 0)))
|
||||
low-points)
|
||||
|
||||
; write pixels to file
|
||||
|
||||
@@ -1,4 +1,4 @@
|
||||
P3
|
||||
100 100
|
||||
255
|
||||
255 255 255 255 20 20 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 100 100 255 120 120 255 140 140 180 180 180 255 255 255 255 80 80 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 120 120 255 120 120 255 140 140 255 160 160 180 180 180 180 180 180 255 160 160 180 180 180 255 100 100 255 80 80 255 60 60 255 40 40 255 60 60 255 40 40 255 60 60 255 80 80 255 100 100 180 180 180 255 160 160 180 180 180 255 100 100 255 80 80 255 100 100 255 140 140 255 160 160 180 180 180 180 180 180 255 160 160 255 160 160 255 120 120 255 140 140 255 160 160 180 180 180 255 160 160 255 140 140 255 120 120 255 140 140 180 180 180 255 160 160 255 120 120 255 100 100 255 120 120 255 140 140 255 120 120 255 140 140 255 160 160 180 180 180 255 255 255 255 20 20 180 180 180 255 160 160 180 180 180 255 160 160 180 180 180 255 60 60 255 40 40 255 60 60 180 180 180 180 180 180 255 140 140 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 255 20 20 255 40 40 180 180 180 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 255 255 255 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 100 100 180 180 180 180 180 180 180 180 180 255 140 140 255 120 120 255 100 100 255 80 80 255 60 60 255 80 80 255 100 100 255 120 120 255 160 160 180 180 180 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 255 255 255 80 80 255 100 100 180 180 180 180 180 180 255 160 160 255 140 140 255 160 160 180 180 180 255 100 100 180 180 180 255 20 20 255 255 255 255 20 20 255 80 80 255 100 100 180 180 180 255 160 160 255 140 140 255 160 160 255 80 80 255 60 60 255 80 80 255 100 100 255 140 140 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 120 120 255 140 140 255 160 160 180 180 180 255 120 120 255 100 100 180 180 180 255 160 160 255 140 140 255 100 100 255 80 80 255 255 255 255 80 80 255 100 100 180 180 180 180 180 180 255 40 40 255 20 20 180 180 180 255 160 160 255 140 140 180 180 180 255 140 140 255 160 160 180 180 180 255 255 255 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 255 20 20 255 255 255 180 180 180 255 160 160 180 180 180 255 120 120 180 180 180 255 80 80 180 180 180 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 255 140 140 255 160 160 180 180 180 255 160 160 255 100 100 255 80 80 255 60 60 255 40 40 255 100 100 255 80 80 255 100 100 255 120 120 255 160 160 180 180 180 180 180 180 255 160 160 255 160 160 255 140 140 255 100 100 255 120 120 255 100 100 255 140 140 255 160 160 180 180 180 255 100 100 255 120 120 255 140 140 180 180 180 180 180 180 255 160 160 180 180 180 255 20 20 255 40 40 255 100 100 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 60 60 255 40 40 255 60 60 255 120 120 180 180 180 255 160 160 180 180 180 255 120 120 255 100 100 255 80 80 255 100 100 255 120 120 255 140 140 180 180 180 255 255 255 255 80 80 255 100 100 180 180 180 255 140 140 255 120 120 255 100 100 255 80 80 255 100 100 255 120 120 255 140 140 255 160 160 180 180 180 180 180 180 255 160 160 255 140 140 255 120 120 255 160 160 255 120 120 180 180 180 255 160 160 180 180 180 180 180 180 180 180 180 255 160 160 180 180 180 255 160 160 255 140 140 255 80 80 255 60 60 255 80 80 180 180 180 180 180 180 255 140 140 255 160 160 180 180 180 255 160 160 180 180 180 255 160 160 180 180 180 180 180 180 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 255 255 255 255 120 120 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 20 20 255 40 40 255 60 60 255 80 80 255 100 100 255 140 140 255 160 160 180 180 180 180 180 180 180 180 180 255 160 160 255 120 120 255 140 140 255 120 120 255 140 140 255 160 160 180 180 180 255 80 80 255 100 100 255 140 140 255 160 160 180 180 180 255 140 140 255 160 160 180 180 180 255 60 60 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 60 60 255 20 20 255 40 40 255 100 100 255 160 160 255 140 140 255 160 160 180 180 180 255 80 80 255 255 255 255 80 80 255 140 140 255 160 160 180 180 180 255 80 80 255 100 100 255 120 120 180 180 180 255 160 160 255 160 160 255 140 140 255 100 100 180 180 180 180 180 180 255 160 160 180 180 180 255 100 100 255 80 80 180 180 180 255 80 80 255 100 100 255 140 140 255 100 100 255 120 120 255 140 140 255 160 160 180 180 180 180 180 180 180 180 180 180 180 180 180 180 180 255 120 120 255 100 100 255 80 80 180 180 180 255 160 160 255 140 140 255 120 120 180 180 180 255 160 160 255 140 140 255 120 120 255 140 140 255 160 160 180 180 180 180 180 180 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 255 100 100 255 120 120 180 180 180 255 160 160 255 140 140 255 80 80 255 60 60 255 255 255 255 20 20 255 120 120 255 100 100 255 120 120 255 160 160 180 180 180 180 180 180 255 120 120 255 140 140 180 180 180 180 180 180 255 160 160 255 140 140 255 160 160 180 180 180 255 255 255 255 60 60 255 80 80 255 160 160 180 180 180 255 80 80 255 120 120 255 140 140 255 160 1Line truncated
|
||||
0 255 0 255 20 20 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 100 100 255 120 120 255 140 140 180 180 180 0 255 0 255 80 80 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 120 120 255 120 120 255 140 140 255 160 160 180 180 180 180 180 180 255 160 160 180 180 180 255 100 100 255 80 80 255 60 60 255 40 40 255 60 60 255 40 40 255 60 60 255 80 80 255 100 100 180 180 180 255 160 160 180 180 180 255 100 100 255 80 80 255 100 100 255 140 140 255 160 160 180 180 180 180 180 180 255 160 160 255 160 160 255 120 120 255 140 140 255 160 160 180 180 180 255 160 160 255 140 140 255 120 120 255 140 140 180 180 180 255 160 160 255 120 120 255 100 100 255 120 120 255 140 140 255 120 120 255 140 140 255 160 160 180 180 180 0 255 0 255 20 20 180 180 180 255 160 160 180 180 180 255 160 160 180 180 180 255 60 60 255 40 40 255 60 60 180 180 180 180 180 180 255 140 140 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 255 20 20 255 40 40 180 180 180 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 0 255 0 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 100 100 180 180 180 180 180 180 180 180 180 255 140 140 255 120 120 255 100 100 255 80 80 255 60 60 255 80 80 255 100 100 255 120 120 255 160 160 180 180 180 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 0 255 0 255 80 80 255 100 100 180 180 180 180 180 180 255 160 160 255 140 140 255 160 160 180 180 180 255 100 100 180 180 180 255 20 20 0 255 0 255 20 20 255 80 80 255 100 100 180 180 180 255 160 160 255 140 140 255 160 160 255 80 80 255 60 60 255 80 80 255 100 100 255 140 140 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 120 120 255 140 140 255 160 160 180 180 180 255 120 120 255 100 100 180 180 180 255 160 160 255 140 140 255 100 100 255 80 80 0 255 0 255 80 80 255 100 100 180 180 180 180 180 180 255 40 40 255 20 20 180 180 180 255 160 160 255 140 140 180 180 180 255 140 140 255 160 160 180 180 180 0 255 0 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 255 20 20 0 255 0 180 180 180 255 160 160 180 180 180 255 120 120 180 180 180 255 80 80 180 180 180 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 255 140 140 255 160 160 180 180 180 255 160 160 255 100 100 255 80 80 255 60 60 255 40 40 255 100 100 255 80 80 255 100 100 255 120 120 255 160 160 180 180 180 180 180 180 255 160 160 255 160 160 255 140 140 255 100 100 255 120 120 255 100 100 255 140 140 255 160 160 180 180 180 255 100 100 255 120 120 255 140 140 180 180 180 180 180 180 255 160 160 180 180 180 255 20 20 255 40 40 255 100 100 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 60 60 255 40 40 255 60 60 255 120 120 180 180 180 255 160 160 180 180 180 255 120 120 255 100 100 255 80 80 255 100 100 255 120 120 255 140 140 180 180 180 0 255 0 255 80 80 255 100 100 180 180 180 255 140 140 255 120 120 255 100 100 255 80 80 255 100 100 255 120 120 255 140 140 255 160 160 180 180 180 180 180 180 255 160 160 255 140 140 255 120 120 255 160 160 255 120 120 180 180 180 255 160 160 180 180 180 180 180 180 180 180 180 255 160 160 180 180 180 255 160 160 255 140 140 255 80 80 255 60 60 255 80 80 180 180 180 180 180 180 255 140 140 255 160 160 180 180 180 255 160 160 180 180 180 255 160 160 180 180 180 180 180 180 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 0 255 0 255 120 120 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 20 20 255 40 40 255 60 60 255 80 80 255 100 100 255 140 140 255 160 160 180 180 180 180 180 180 180 180 180 255 160 160 255 120 120 255 140 140 255 120 120 255 140 140 255 160 160 180 180 180 255 80 80 255 100 100 255 140 140 255 160 160 180 180 180 255 140 140 255 160 160 180 180 180 255 60 60 180 180 180 255 160 160 255 140 140 255 120 120 255 100 100 255 80 80 255 60 60 255 20 20 255 40 40 255 100 100 255 160 160 255 140 140 255 160 160 180 180 180 255 80 80 0 255 0 255 80 80 255 140 140 255 160 160 180 180 180 255 80 80 255 100 100 255 120 120 180 180 180 255 160 160 255 160 160 255 140 140 255 100 100 180 180 180 180 180 180 255 160 160 180 180 180 255 100 100 255 80 80 180 180 180 255 80 80 255 100 100 255 140 140 255 100 100 255 120 120 255 140 140 255 160 160 180 180 180 180 180 180 180 180 180 180 180 180 180 180 180 255 120 120 255 100 100 255 80 80 180 180 180 255 160 160 255 140 140 255 120 120 180 180 180 255 160 160 255 140 140 255 120 120 255 140 140 255 160 160 180 180 180 180 180 180 255 120 120 255 100 100 255 80 80 255 60 60 255 40 40 255 100 100 255 120 120 180 180 180 255 160 160 255 140 140 255 80 80 255 60 60 0 255 0 255 20 20 255 120 120 255 100 100 255 120 120 255 160 160 180 180 180 180 180 180 255 120 120 255 140 140 180 180 180 180 180 180 255 160 160 255 140 140 255 160 160 180 180 180 0 255 0 255 60 60 255 80 80 255 160 160 180 180 180 255 80 80 255 120 120 255 140 140 255 160 160 180 180 180 255 80 80 180 180 180 255 160 160 255 100Line truncated
|
||||
Reference in new issue
Block a user