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 Borges
2021-12-09 13:01:48 +01:00
parent 546b1961f8
commit 211dbae5a4
2 changed files with 6 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
09-smoke-basin/code.scm
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

2
09-smoke-basin/heightmap.pgm
View File

File diff suppressed because one or more lines are too long