Entry 150

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;               Landscape Painter              ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; A GIMP script-fu to generate a painted look to a
; landscape photo.  Sometimes provides an interesting
; effect on portraits and animal shots.
;
; Creates a top layer set to Darken Only mode and
; then blurs it.  Varying the blur radius will change
; the effect, as will applying a Levels or Curves adjustment
; to the Darken Only layer.  Just play with it and see
; what you get!
;
; Only tested on 2.2.8
; 4/12/2006
 
 
(define (script-fu-Land_paint  img drawable blur-rad merge-flag )
 
   ; Start an undo group.  Everything between the start and the end
   ; will be carried out if an undo command is issued.

   (gimp-image-undo-group-start img)

   ;; CREATE THE DARKEN ONLY LAYER ;;

   ; Create a new layer
 
   (set! darken-layer (car (gimp-layer-copy drawable 0)))
  
   ; Give it a name

   (gimp-drawable-set-name darken-layer "Darken Only layer")
  
   ; Add the new layer to the image
 
   (gimp-image-add-layer img darken-layer 0)

   ; Set opacity to 100%

   (gimp-layer-set-opacity darken-layer 100)

   (gimp-layer-set-mode darken-layer DARKEN-ONLY-MODE )

   ;
   ;

   ; Blur the layer
 
   (if (> blur-rad 0)
       (plug-in-gauss-iir 1 img darken-layer blur-rad 1 1 )
       ()
   )

   ;
   ;

   ; NOW MERGE EVERYTHING DOWN IF DESIRED

   (if (equal? merge-flag TRUE)

       (set! merged-layer (car(gimp-image-merge-down img darken-layer 1 )))
    
       ()
   )

   (if (equal? merge-flag TRUE)
       
       (gimp-drawable-set-name merged-layer "Result of Landscape Painter")
 
       ()

   )

   ; Complete the undo group

   (gimp-image-undo-group-end img)

   ; Flush the display 
 
   (gimp-displays-flush)   
 
)
 
 
(script-fu-register "script-fu-Land_paint"
 
      "<Image>/Script-Fu/Landscape Painter"
 
      "Add Darken Only layer and blur it"
 
      "Script by Mark Lowry"
 
      "Technique by Mark Lowry"
 
      "2006"
  
      "RGB*, GRAY*"
 
      SF-IMAGE "Image" 0
 
      SF-DRAWABLE "Current Layer" 0

      SF-VALUE "Blur radius?"   "15"

      SF-TOGGLE "Merge Layers?"  FALSE

 )