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

ScriptFu: scripts: revert changes to SF-TOGGLE args

Browse Source 
Prior commits porting these scripts to v3 dialect
incorrectly compared SF-TOGGLE args to #t and #f.
They are bound to TRUE and FALSE, 1 and 0,
before choice of dialect can take effect.
This commit is contained in:
lloyd konneker
2024-10-13 14:24:40 -04:00
parent ff1ad6d605
commit 1889f554d7
3 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
plug-ins/script-fu/scripts/chrome-it.scm
View File

@ -181,7 +181,8 @@
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )
(if (not carve-white) ; carve-white is 0 or 1, not #f or #t
(if (= carve-white TRUE)
(gimp-drawable-invert mask #f)) (gimp-drawable-invert mask #f))
(gimp-context-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))

3
plug-ins/script-fu/scripts/coffee.scm
View File

@ -40,7 +40,8 @@
(set! theNumber (- theNumber 1)) (set! theNumber (- theNumber 1))
(set! theStain (gimp-layer-new theImage theSize theSize (set! theStain (gimp-layer-new theImage theSize theSize
RGBA-IMAGE _"Stain" 100 RGBA-IMAGE _"Stain" 100
(if inDark ; inDark is [0, 1] not [#f, #t]
(if (= inDark TRUE)
LAYER-MODE-DARKEN-ONLY LAYER-MODE-DARKEN-ONLY
LAYER-MODE-NORMAL))) LAYER-MODE-NORMAL)))

4
plug-ins/script-fu/scripts/test-sphere-v3.scm
View File

@ -80,8 +80,8 @@
(if (and (if (and
(or (and (>= light 45) (<= light 75)) (or (and (>= light 45) (<= light 75))
(and (<= light 135) (>= light 105))) (and (<= light 135) (>= light 105)))
; v3 >>> conditional doesn't need (= shadow TRUE) ; v3 >>> a SF-TOGGLE arg is still [0, 1], not [#f, #t]
shadow ) (= shadow TRUE))
(let ((shadow-w (* (* radius 2.5) (cos (+ *pi* radians)))) (let ((shadow-w (* (* radius 2.5) (cos (+ *pi* radians))))
(shadow-h (* radius 0.5)) (shadow-h (* radius 0.5))
(shadow-x cx) (shadow-x cx)