7 lines
88 B
Common Lisp
7 lines
88 B
Common Lisp
; sharpen photo
|
|
|
|
(open $path 0.75)
|
|
(def average-color
|
|
(pick))
|
|
(convolve
|
|
(sharpen)) |