daniel/advent-of-code-2021
1
0 Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

fixed colors/comments of PGM

Browse Source
This commit is contained in:
daniel committed 2021-12-09 13:01:48 +01:00
1 parent 546b1961f8
commit 211dbae5a4
2 files changed
+6 -8
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

09-smoke-basin/code.scm
+5 -7
View File
@@ -105,7 +105,7 @@
low-points)) low-points))
; write a PGM file for given heightmap and 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) ; basins are red-ish (brighter the higher the point)
; low points are bright green ; low points are bright green
; ;
@@ -148,20 +148,18 @@
(when (< y (- height 1)) (when (< y (- height 1))
(y-loop (+ y 1)))) (y-loop (+ y 1))))
; show basins as redish areas
; show low points as full green pixels
(for-each (for-each
(lambda (lp) (lambda (lp)
; red channel to max on pixels of basins ; show basins as redish areas
(visit-basin heightmap lp (visit-basin heightmap lp
(lambda (x y) (lambda (x y)
(let [(ofs (offset x y))] (let [(ofs (offset x y))]
(vector-set! data ofs 255)))) (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)))] (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 (+ 1 ofs) 255)
(vector-set! data (+ 2 ofs) 255))) (vector-set! data (+ 2 ofs) 0)))
low-points) low-points)
; write pixels to file ; write pixels to file
09-smoke-basin/heightmap.pgm
+1 -1
View File
@@ -1,4 +1,4 @@
P3 P3
100 100 100 100
255 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