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:
@ -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))
|
||||
|
@ -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)))
|
||||
|
||||
|
@ -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)
|
||||
|
Reference in New Issue
Block a user