Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
graphics
gimp-descreen
gimp-descreen-1.0-despeckle+foreground.patch
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File gimp-descreen-1.0-despeckle+foreground.patch of Package gimp-descreen
Index: descreen.scm =================================================================== --- descreen.scm.orig +++ descreen.scm @@ -1,7 +1,7 @@ ; Descreen v1.0 ; Tested on Gimp v2.6.8 (define (script-fu-descreen image drawable sensitivity selectiongrowth despeckle middle-ratio) - ; This script requires the FFT plug-in which provides FFT forward and FFT inverse filter + ; This script requires the FFT plug-in which provides FFT forward and FFT inverse filter (if (not (defined? 'plug-in-fft-dir)) (begin ; Display an error message @@ -23,7 +23,7 @@ ; Apply the FFT forward filter (plug-in-fft-dir RUN-NONINTERACTIVE image drawable) - + (let* ( ; Duplicate the layer containing the image FFTed (detection (car (gimp-layer-copy drawable FALSE))) @@ -44,7 +44,7 @@ ; gimp-ellipse-select needs the upper left coordinates of the ellipse (middle-x (- middle-x (/ middle-width 2))) - (middle-y (- middle-y (/ middle-height 2)))) + (middle-y (- middle-y (/ middle-height 2)))) ; Keep only strong frequencies (gimp-threshold detection low-threshold 255) @@ -60,6 +60,7 @@ ; Fill the picture according to the selection. ; Foreground color has been set by the FFT plugin to #808080 + (gimp-context-set-foreground '(128 128 128)) ; midgray 0x0808080 (gimp-edit-fill drawable 0) ; Delete the detection layer @@ -67,13 +68,13 @@ ; Unselect (gimp-selection-none image) - ) + ) ; Do an FFT inverse on the picture (plug-in-fft-inv RUN-NONINTERACTIVE image drawable) ; Check if despeckle has been selected - (if despeckle + (if (= despeckle TRUE) ; Do a last despeckle to remove small points (plug-in-despeckle RUN-NONINTERACTIVE image drawable 1 0 -1 256) ) @@ -82,22 +83,22 @@ (gimp-context-pop) ; End the undo group - (gimp-image-undo-group-end image) -) - -(script-fu-register "script-fu-descreen" - "<Image>/Filters/Enhance/Descreen" - "Descreen filter" - "Frédéric BISSON" - "Frédéric BISSON" - "01/05/2010" - "RGB*" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 + (gimp-image-undo-group-end image) +) + +(script-fu-register "script-fu-descreen" + "<Image>/Filters/Enhance/Descreen" + "Descreen filter" + "Frédéric BISSON" + "Frédéric BISSON" + "01/05/2010" + "RGB*" + SF-IMAGE "Image" 0 + SF-DRAWABLE "Drawable" 0 ; Sensitivity to frequency level : ; 1=nearly insensitive, 128=sensitive to any frequency level - SF-ADJUSTMENT "Sensitivity" '(72 1 128 1 16 0 SF-ROLLBOX) + SF-ADJUSTMENT "Sensitivity" '(72 1 128 1 16 0 SF-ROLLBOX) ; After the frequency level detection, the filter will affect ; everything within the range of the growth @@ -107,6 +108,6 @@ SF-TOGGLE "Despeckle" TRUE ; Consider the middle of the picture to be a ratio of the - ; image dimensions. + ; image dimensions. SF-VALUE "Ratio for middle preservation" "5" )
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor