Início/Start Arquivo/Archive AdNauseum Lisp Octave Fotos/Photos DIY PhotoBlog Notas/Notes

Lomografias

Fotografias digitais tratadas, com o script que está no fim da página, de modo a se tornarem em lomografias (usa o ImageMagick).

(defun lomo (source-dir img-file)
  (let ((img-file-lomo (concat source-dir "lomo-" img-file )))
    (shell-command
     (format "cp %s %s"
             (concat source-dir img-file)
             (concat source-dir (concat "lomo-"img-file))))
    (shell-command
     (format "convert -resize 1024x768 %s %s"
           img-file-lomo img-file-lomo))
  (shell-command
   (format "convert -unsharp 1 %s %s"
           img-file-lomo img-file-lomo))
  (shell-command
   (format "cp %s %s"
           img-file-lomo (concat img-file-lomo "-resized")))
  (shell-command
   (format "convert -contrast -contrast %s %s"
           img-file-lomo  img-file-lomo))
  (shell-command
    (format "convert -modulate 100,150 %s %s"
           img-file-lomo img-file-lomo))
  (shell-command
   (format "composite -compose overlay %s %s %s"
           (concat source-dir "mask_2.png")
           img-file-lomo img-file-lomo))
  (shell-command
   (format "composite -compose multiply %s-resized %s %s"
           img-file-lomo
           img-file-lomo
           img-file-lomo))
  (shell-command
   (format "rm %s-resized" img-file-lomo))))

Palavras chave: fotografias, lomografias, Emacs, Lisp, ImageMagick

---

1999-2011 (c) Tiago Charters de Azevedo

São permitidas cópias textuais parciais/integrais em qualquer meio com/sem alterações desde que se mantenha este aviso.

Verbatim copying and redistribution of this entire page are permitted provided this notice is preserved.