6 lines
105 B
Common Lisp
6 lines
105 B
Common Lisp
; Normalize photo colors
|
|
|
|
(open $path 0.5)
|
|
(def average-color
|
|
(pick))
|
|
(pixels normalize average-color) |