callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

small cleanups in Script-Fu scripts

Browse Source 
--Sven
This commit is contained in:
Sven Neumann
2000-05-17 15:48:52 +00:00
parent 3814d33855
commit b667bfda2c
8 changed files with 307 additions and 278 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,7 +35,7 @@
(gimp-image-add-layer theImage theLayer 0)
(plug-in-solid-noise TRUE theImage theLayer 1 0 (rand 65536) inGrain inGrain inGrain)
(if (= inWiden TRUE) (begin
(if (= inWiden 1) (begin
(set! thinLayer (car (gimp-layer-new theImage theWidth theHeight RGBA_IMAGE "Camo Thin Layer" 100 NORMAL)))
(gimp-image-add-layer theImage thinLayer 0)
(let ((theBigGrain (min 15 (* 2 inGrain))))
@ -75,6 +75,6 @@
SF-ADJUSTMENT _"Image Size" '(256 0 2048 1 10 0 0)
SF-ADJUSTMENT _"Granularity" '(4 0 15 1 1 0 0)
SF-GRADIENT _"Gradient" "Land_and_Sea"
SF-TOGGLE _"TRUE = Detail in Middle, FALSE = Tile" FALSE
SF-OPTION _"Behaviour" '(_"Tile" _"Detail in Middle")
)