Fotografias com efeito Lomo

Tenho uma Lomo (uma LC-A) já há alguns 9 anos.

Fotografia original.	Transformação Lomo.
Fotografia original.	Transformação Lomo.
Fotografia original.	Transformação Lomo.

Gosto dos efeitos descontraídos que se obtêm quando se usam as regras

1. Take your camera everywhere you go
2. Use it any time – day and night
3. Lomography is not an interference in your life, but part of it
4. Try the shot from the hip
5. Approach the objects of your lomographic desire as close as possible
6. Don’t think (william firebrace)
7. Be fast
8. You don’t have to know beforehand what you captured on film
9. Afterwards either
10. Don't worry about any rules

mas tinha pena em não obter o mesmo efeito usando um máquina digital. Ora, para variar, a função em Emacs Lisp usando o ImageMagick que produz esse efeito é este

(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.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))))

baseado neste.