imago
1.0.0
Imago - это библиотека манипуляций с изображением для обычного LISP. Он поддерживает изображения в PNG, PCX, Portable Bitmap (.pnm), TrueVision TGA (.TGA) и JPEG. Вы можете прочитать изображение с помощью imago:read-image и написать изображение с imago:write-format , где format является одним из png , pcx , pnm , tga или jpg .
Вы можете использовать более продвинутую библиотеку Libjpeg-Turbo для работы с файлами JPEG, загружая систему imago/jpeg-turbo . Убедитесь, что libjpeg-turbo установлен в вашей системе. Используйте imago-jpeg-turbo:read-jpg-turbo и imago-jpeg-turbo:write-jpg-turbo функции (или просто imago:read-image и imago:write-image ), чтобы использовать эту функциональность.
Вы можете использовать более продвинутую и более быструю библиотеку PNGLOAD для чтения файлов PNG, загружая систему imago/pngio . Используйте imago-pngio:read-png (или просто imago:read-image ), чтобы использовать эту функциональность. NB: pngload автоматически преобразует индексированные цветные изображения в изображения RGB (или ARGB). Если вы хотите работать с индексированными изображениями, вместо этого используйте старый загрузчик PNG. Также библиотека ZPNG (через imago-pngio:write-png ) будет использоваться для сохранения изображений PNG.
Чтобы создать изображение, посмотрите на документацию для классов изображений (например imago:rgb-image или imago:grayscale-image ). Вам необходимо сделать экземпляр одного из этих классов, проходя :w ,: :h и, необязательно :initial-color для make-instance . В качестве альтернативы, вы можете использовать функции make-XXX-image и make-XXX-image-from-pixels :
;; Create 100x100 px black grayscale image
(imago:make-grayscale-image 100 100)
;; Create 400x100 px red RGB image
(imago:make-rgb-image 400 100 (imago:make-color 255 0 0))
;; Create 400x100 px half-transparent red RGB image
(imago:make-rgb-image 400 100 (imago:make-color 255 0 0 127))
;; Create an image from an array of pixels
(imago:make-rgb-image-from-pixels
(make-array '(100 100)
:element-type 'imago:rgb-pixel
:initial-element (imago:make-color 0 255 255)))
Большинство примеров взяты отсюда.
(resize *image* 400 150)
| Оригинал | Обработан |
|---|---|
 |  |
(rotate *image* 45)
| Оригинал | Обработан |
|---|---|
 |  |
(emboss *image* :angle (* pi 0.75) :depth 1.0)
| Оригинал | Обработан |
|---|---|
 |  |
(let ((kernel #2A((0 0 0 0 0)
(0 0 1 0 0)
(0 1 -4 1 0)
(0 0 1 0 0)
(0 0 0 0 0))))
(convolve *image* kernel 1 0))
| Оригинал | Обработан |
|---|---|
 |  |
(do-region-pixels (*image* color x y 70 65 140 125)
(setf color (invert-color color)))
| Оригинал | Обработан |
|---|---|
 |  |
(enhance-contrast *grayscale-image*)
| Оригинал | Обработан |
|---|---|
 |  |
(do-image-pixels (*image* color x y)
(multiple-value-bind (r g b) (color-rgb color)
(setf color (make-color b
(floor (* g 0.8))
r))))
| Оригинал | Обработан |
|---|---|
 |  |
(let ((operator (default-compose-operator *image1*)))
(compose nil *image1* *image2* 20 20 operator))
| Оригинал 1 | Оригинал 2 | Обработан |
|---|---|---|
 |  |  |
(let ((points '(83 45 73 150 73 150 198 106 198 106 83 45)))
(draw-polygon *image* points +white+ :closed t))
(draw-circle *image* 83 45 15 +white+)
(draw-circle *image* 73 150 15 +white+)
(draw-circle *image* 198 106 15 +white+)
(draw-bezier-curve *image* 10 80 150 60 100 170 200 170 +red+)
(draw-line *image* 0 5 254 5 +yellow+)
(draw-line *image* 0 10 254 10 +yellow+ :dash-length 1 :dash-interval 1)
(draw-line *image* 0 15 254 15 +yellow+ :dash-length 4 :dash-interval 2)
| Оригинал | Обработан |
|---|---|
 |  |
(defun sea-view (image)
(let ((image2 (flip nil image :horizontal)))
(do-image-pixels (image2 color x y)
(multiple-value-bind (r g b)
(color-rgb color)
(setf color (make-color (floor r 3) (floor g 3) (floor b 2)))))
(let* ((width (image-width image))
(height (image-height image))
(result (make-instance (class-of image)
:width width :height (* height 2))))
(copy result image)
(copy result image2 :dest-y height)
result)))
| Оригинал | Обработан |
|---|---|
 |  |
Этот пример требует систем змей и операций с массивами (доступных в QuickLisp).
(defpackage components-example
(:use #:cl
#:snakes
#:imago)
(:export #:convert-to-image))
(in-package :components-example)
(defgenerator generate-colors ()
(loop while t do
(yield (make-color (random 256)
(random 256)
(random 256)))))
(defgenerator black ()
(yield (make-color 0 0 0)))
(defun convert-to-image (components)
(declare (type (simple-array fixnum (* *)) components))
(let ((colors (take (1+ (reduce #'max (aops:flatten components)))
(chain (black)
(generate-colors))))
(image (make-array (array-dimensions components)
:element-type 'rgb-pixel)))
(array-operations/utilities:nested-loop (i j)
(array-dimensions components)
(setf (aref image i j)
(nth (aref components i j) colors)))
(make-instance 'rgb-image :pixels image)))
(in-package :cl-user)
(let* ((image (imago:read-image "~/.quicklisp/local-projects/imago/tests/spheres.png"))
(components (imago:label-components (imago:convert-to-binary image 1))))
(components-example:convert-to-image components))
| Оригинал | Обработан |
|---|---|
 |  |
Расчет квадратного евклидового преобразования расстояния (также доступно преобразование расстояния Манхэттена). Этот пример требует array-operations .
(defun edt-image (image)
(declare (type imago:binary-image image))
(let* ((dt (imago:distance-transform image :type :edt))
(max (reduce #'max (aops:flatten dt)))
(pixels (make-array (array-dimensions dt) :element-type 'imago:grayscale-pixel)))
(map-into (aops:flatten pixels)
(lambda (x) (imago:make-gray (floor (* 255 x) max)))
(aops:flatten dt))
(make-instance 'imago:grayscale-image :pixels pixels)))
(edt-image original-image)
| Оригинал | Обработан |
|---|---|
 |  |
Вы можете просмотреть Imago Images в Jupyter, установив систему imago/jupyter . Затем вызовите imago-jupyter:show-image , чтобы показать изображение.
