ScriptFu: scripts: revert changes to SF-TOGGLE args

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

View File

@ -181,7 +181,8 @@
(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-context-set-background '(255 255 255))

View File

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

View File

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