dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

plug-ins/script-fu/scripts/rendermap.scm 

2007-10-01  Sven Neumann  <sven@gimp.org>

	* plug-ins/script-fu/scripts/rendermap.scm
	* plug-ins/script-fu/scripts/distress-selection.scm
	* plug-ins/script-fu/scripts/old-photo.scm
	* plug-ins/script-fu/scripts/unsharp-mask.scm
	* plug-ins/script-fu/scripts/tileblur.scm
	* plug-ins/script-fu/scripts/fuzzyborder.scm
	* plug-ins/script-fu/scripts/camo.scm: use RUN-NONINTERACTIVE for
	the run-mode instead of TRUE.

svn path=/trunk/; revision=23700
This commit is contained in:
Sven Neumann 2007-10-01 08:42:48 +00:00 committed by Sven Neumann
parent 2c2d9eefd7
commit 3b930bb1a8
8 changed files with 40 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ChangeLog
View File

@ -1,3 +1,14 @@
2007-10-01 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/camo.scm
* plug-ins/script-fu/scripts/distress-selection.scm
* plug-ins/script-fu/scripts/fuzzyborder.scm
* plug-ins/script-fu/scripts/old-photo.scm
* plug-ins/script-fu/scripts/rendermap.scm
* plug-ins/script-fu/scripts/tileblur.scm
* plug-ins/script-fu/scripts/unsharp-mask.scm: use
RUN-NONINTERACTIVE for the run-mode instead of TRUE.
2007-09-30 Simon Budig <simon@gimp.org>
* app/display/gimpdisplayshell.[ch]

9
plug-ins/script-fu/scripts/camo.scm
View File

@ -45,15 +45,18 @@
(gimp-context-set-background inColor1)
(gimp-drawable-fill baseLayer BACKGROUND-FILL)
(plug-in-solid-noise TRUE theImage thickLayer 1 0 (rand 65536) 1 inGrain inGrain)
(plug-in-solid-noise TRUE theImage thinLayer 1 0 (rand 65536) 1 inGrain inGrain)
(plug-in-solid-noise RUN-NONINTERACTIVE
theImage thickLayer 1 0 (rand 65536) 1 inGrain inGrain)
(plug-in-solid-noise RUN-NONINTERACTIVE
theImage thinLayer 1 0 (rand 65536) 1 inGrain inGrain)
(gimp-threshold thickLayer 127 255)
(gimp-threshold thinLayer 145 255)
(set! theBlur (- 16 inGrain))
(gimp-context-set-background inColor2)
(gimp-by-color-select thickLayer '(0 0 0) 127 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(gimp-by-color-select thickLayer
'(0 0 0) 127 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(gimp-edit-clear thickLayer)
(gimp-selection-invert theImage)
(gimp-edit-fill thickLayer BACKGROUND-FILL)

9
plug-ins/script-fu/scripts/distress-selection.scm
View File

@ -71,16 +71,17 @@
(/ theHeight inGranu)
TRUE)
(plug-in-spread TRUE
(plug-in-spread RUN-NONINTERACTIVE
theImage
theLayer
inSpread
inSpread)
(plug-in-gauss-iir TRUE theImage theLayer inSmooth inSmoothH inSmoothV)
(plug-in-gauss-iir RUN-NONINTERACTIVE
theImage theLayer inSmooth inSmoothH inSmoothV)
(gimp-layer-scale theLayer theWidth theHeight TRUE)
(plug-in-threshold-alpha TRUE theImage theLayer inThreshold)
(plug-in-gauss-iir TRUE theImage theLayer 1 TRUE TRUE)
(plug-in-threshold-alpha RUN-NONINTERACTIVE theImage theLayer inThreshold)
(plug-in-gauss-iir RUN-NONINTERACTIVE theImage theLayer 1 TRUE TRUE)
(gimp-selection-layer-alpha theLayer)
(gimp-image-remove-layer theImage theLayer)
(if (and (= (car (gimp-drawable-is-channel inDrawable)) TRUE)

7
plug-ins/script-fu/scripts/fuzzyborder.scm
View File

@ -73,7 +73,7 @@
(/ theHeight inGranu)
TRUE)
(plug-in-spread TRUE
(plug-in-spread RUN-NONINTERACTIVE
theImage
theLayer
(/ inSize inGranu)
@ -92,7 +92,8 @@
(chris-color-edge theImage theLayer inColor 1)
(if (= inBlur TRUE)
(plug-in-gauss-rle TRUE theImage theLayer inSize TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE
theImage theLayer inSize TRUE TRUE)
)
(if (= inShadow TRUE)
(begin
@ -109,7 +110,7 @@
theHeight
(/ inSize 2)
(/ inSize 2))
(plug-in-gauss-rle TRUE
(plug-in-gauss-rle RUN-NONINTERACTIVE
theImage
theLayer
(/ inSize 2)

6
plug-ins/script-fu/scripts/old-photo.scm
View File

@ -40,7 +40,7 @@
(set! theLayer (car (gimp-image-flatten theImage)))
(if (= inDefocus TRUE)
(plug-in-gauss-rle TRUE theImage theLayer 1.5 TRUE TRUE)
(plug-in-gauss-rle RUN-NONINTERACTIVE theImage theLayer 1.5 TRUE TRUE)
)
(if (> inBorderSize 0)
(script-fu-fuzzy-border theImage theLayer '(255 255 255)
@ -67,8 +67,8 @@
(gimp-selection-all theImage)
(gimp-edit-clear mLayer)
(gimp-selection-none theImage)
(plug-in-noisify TRUE theImage mLayer TRUE 0 0 0 0.5)
(plug-in-gauss-rle TRUE theImage mLayer 5 TRUE TRUE)
(plug-in-noisify RUN-NONINTERACTIVE theImage mLayer TRUE 0 0 0 0.5)
(plug-in-gauss-rle RUN-NONINTERACTIVE theImage mLayer 5 TRUE TRUE)
(set! theLayer (car (gimp-image-flatten theImage)))
)
)

8
plug-ins/script-fu/scripts/rendermap.scm
View File

@ -38,7 +38,8 @@
"I've got more rubber ducks than you!"
100 NORMAL-MODE)))
(gimp-image-add-layer theImage theLayer 0)
(plug-in-solid-noise TRUE theImage theLayer 1 0 (rand 65536)
(plug-in-solid-noise RUN-NONINTERACTIVE
theImage theLayer 1 0 (rand 65536)
inGrain inGrain inGrain)
(if (= inWiden 1)
@ -49,7 +50,8 @@
(gimp-image-add-layer theImage thinLayer 0)
(let ((theBigGrain (min 15 (* 2 inGrain))))
(plug-in-solid-noise TRUE theImage thinLayer 1 0 (rand 65536)
(plug-in-solid-noise RUN-NONINTERACTIVE
theImage thinLayer 1 0 (rand 65536)
theBigGrain theBigGrain theBigGrain))
(gimp-context-set-background '(255 255 255))
@ -67,7 +69,7 @@
(gimp-selection-none theImage)
(gimp-context-set-gradient inGrad)
(plug-in-gradmap TRUE theImage theLayer)
(plug-in-gradmap RUN-NONINTERACTIVE theImage theLayer)
(gimp-display-new theImage)

6
plug-ins/script-fu/scripts/tileblur.scm
View File

@ -47,8 +47,10 @@
(gimp-selection-none theImage)
(if (= inType 0)
(plug-in-gauss-iir TRUE theImage theLayer inRadius inHoriz inVert)
(plug-in-gauss-rle TRUE theImage theLayer inRadius inHoriz inVert)
(plug-in-gauss-iir RUN-NONINTERACTIVE
theImage theLayer inRadius inHoriz inVert)
(plug-in-gauss-rle RUN-NONINTERACTIVE
theImage theLayer inRadius inHoriz inVert)
)
(gimp-layer-resize theLayer

4
plug-ins/script-fu/scripts/unsharp-mask.scm
View File

@ -37,8 +37,8 @@
;; make darker mask
(gimp-image-add-layer new-image blured-layer-for-darker -1)
(plug-in-gauss-iir TRUE new-image blured-layer-for-darker mask-size
TRUE TRUE)
(plug-in-gauss-iir RUN-NONINTERACTIVE
new-image blured-layer-for-darker mask-size TRUE TRUE)
(set! blured-layer-for-lighter
(car (gimp-layer-copy blured-layer-for-darker TRUE)))
(gimp-image-add-layer new-image original-layer-for-darker -1)