;
; The GIMP -- an image manipulation program
  Copyright ( C ) 1995   and  
;
  Highpass Filter Sharpening , V2.0 for GIMP 2.4
  Original author :   (  )
  ( C ) 2005 , Bern , Switzerland
;
; Tags: photo, sharpen
;
; Author statement:
;
  You can find more about Highpass Filter Sharpening at
; / and at
; +pass
;
; --------------------------------------------------------------------
  Distributed by Gimp FX Foundry project
; --------------------------------------------------------------------
;   - Changelog -
;
; --------------------------------------------------------------------
;
; This program is free software; you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation ; either version 2 of the License , or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
; GNU General Public License for more details.
;
  You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
  Foundation , Inc. , 675 Mass Ave , Cambridge ,   , USA .
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;.

;
; Define the function
;
(define (script-fu-Eg-HighPassSharpen InImage InLayer InBlur InFlatten)
;
; Save history
;
    (gimp-image-undo-group-start InImage)
;
    (let*    (
        (Temp1Layer (car (gimp-layer-copy InLayer TRUE)))
        (Temp2Layer (car (gimp-layer-copy InLayer TRUE)))
        )
;
        (gimp-image-add-layer InImage Temp1Layer -1)
        (gimp-image-add-layer InImage Temp2Layer -1)
;
        (plug-in-gauss TRUE InImage Temp2Layer InBlur InBlur 0)
        (gimp-invert Temp2Layer)
        (gimp-layer-set-opacity Temp2Layer 50)
;
        (let*    (
            (SharpenLayer (car (gimp-image-merge-down InImage Temp2Layer CLIP-TO-IMAGE)))
            (InOpacity (+ 25 (* InBlur 2.5)))
            )
;
            (gimp-levels SharpenLayer HISTOGRAM-VALUE 100 150 1.0 0 255)
            (gimp-layer-set-mode SharpenLayer OVERLAY-MODE)
            (gimp-layer-set-opacity SharpenLayer InOpacity)
;
; Flatten the image, if we need to
;
            (cond
                ((= InFlatten TRUE) (gimp-image-merge-down InImage SharpenLayer CLIP-TO-IMAGE))
                ((= InFlatten FALSE) (gimp-drawable-set-name SharpenLayer "Sharpened"))
            )
        )
    )
;
; Finish work
;
    (gimp-image-undo-group-end InImage)
    (gimp-displays-flush)
)
;
(script-fu-register
    "script-fu-Eg-HighPassSharpen"
    "<Image>/FX-Foundry/Photo/Sharpen/Eg High-Pass Filter Sharpen"
    "Highpass Filter Sharpening"
    "Martin Egger ()"
    "2005, Martin Egger, Bern, Switzerland"
    "13.05.2005"
    "RGB* GRAY*"
    SF-IMAGE    "The Image"    0
    SF-DRAWABLE    "The Layer"    0
    SF-ADJUSTMENT    "Sharpening Strength"    '(10.0 1.0 20.0 1.0 0 2 0)
    SF-TOGGLE    "Flatten Image"    FALSE
)
;

 The GIMP -- an image manipulation program


 Tags: photo, sharpen

 Author statement:

 / and at
 +pass

 --------------------------------------------------------------------
 --------------------------------------------------------------------
   - Changelog -

 --------------------------------------------------------------------

 This program is free software; you can redistribute it and/or modify
 either version 2 of the License , or
 (at your option) any later version.

 This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.

 along with this program; if not, write to the Free Software

.

 Define the function


 Save history







 Flatten the image, if we need to


 Finish work



  Copyright ( C ) 1995   and  
  Highpass Filter Sharpening , V2.0 for GIMP 2.4
  Original author :   (  )
  ( C ) 2005 , Bern , Switzerland
  You can find more about Highpass Filter Sharpening at
  Distributed by Gimp FX Foundry project
  it under the terms of the GNU General Public License as published by
  You should have received a copy of the GNU General Public License
  Foundation , Inc. , 675 Mass Ave , Cambridge ,   , USA .

(define (script-fu-Eg-HighPassSharpen InImage InLayer InBlur InFlatten)
    (gimp-image-undo-group-start InImage)
    (let*    (
        (Temp1Layer (car (gimp-layer-copy InLayer TRUE)))
        (Temp2Layer (car (gimp-layer-copy InLayer TRUE)))
        )
        (gimp-image-add-layer InImage Temp1Layer -1)
        (gimp-image-add-layer InImage Temp2Layer -1)
        (plug-in-gauss TRUE InImage Temp2Layer InBlur InBlur 0)
        (gimp-invert Temp2Layer)
        (gimp-layer-set-opacity Temp2Layer 50)
        (let*    (
            (SharpenLayer (car (gimp-image-merge-down InImage Temp2Layer CLIP-TO-IMAGE)))
            (InOpacity (+ 25 (* InBlur 2.5)))
            )
            (gimp-levels SharpenLayer HISTOGRAM-VALUE 100 150 1.0 0 255)
            (gimp-layer-set-mode SharpenLayer OVERLAY-MODE)
            (gimp-layer-set-opacity SharpenLayer InOpacity)
            (cond
                ((= InFlatten TRUE) (gimp-image-merge-down InImage SharpenLayer CLIP-TO-IMAGE))
                ((= InFlatten FALSE) (gimp-drawable-set-name SharpenLayer "Sharpened"))
            )
        )
    )
    (gimp-image-undo-group-end InImage)
    (gimp-displays-flush)
)
(script-fu-register
    "script-fu-Eg-HighPassSharpen"
    "<Image>/FX-Foundry/Photo/Sharpen/Eg High-Pass Filter Sharpen"
    "Highpass Filter Sharpening"
    "Martin Egger ()"
    "2005, Martin Egger, Bern, Switzerland"
    "13.05.2005"
    "RGB* GRAY*"
    SF-IMAGE    "The Image"    0
    SF-DRAWABLE    "The Layer"    0
    SF-ADJUSTMENT    "Sharpening Strength"    '(10.0 1.0 20.0 1.0 0 2 0)
    SF-TOGGLE    "Flatten Image"    FALSE
)