f64115d3b2
The "Sphere" plugin demonstrate all the widgets for arguments of a plugin. Only its menu label is translated. The "Hello World" plugin demonstrates an independently interpreted SF plugin. It has no translations, even of its menu label. Formerly in ..ScriptFu>Test menu. They still are installed even in a stable release. If we don't want 3.0 stable to ship with demos, need more changes to meson.build. They are akin to the goat exercise plugins. These plugins are expected to ship with the goat plugins in a stable build. !!! But 2.10 did not ship with any demo plugins in stable build. There are duplicate "Sphere" (v2) and "Sphere v3" plugins. Does not break string freeze. The new-style "Sphere v3" plugin moves to Demos. It will be installed with stable build. No translations will change. "Sphere" (v2) will only be installed in an unstable build. FUTURE: we should translate Hello World and Sphere v3. If they are to ship as demos, their GUI should be translated. FUTURE: low priority we could rename "Sphere v3" to just Sphere, and Sphere to "Sphere v2" so there is no conflict.
186 lines
6.8 KiB
Scheme
186 lines
6.8 KiB
Scheme
#!/usr/bin/env gimp-script-fu-interpreter-3.0
|
|
|
|
; v3 >>> Has shebang, is interpreter
|
|
|
|
; This is a a test script to test Script-Fu parameter API.
|
|
|
|
; For GIMP 3: uses GimpImageProcedure, GimpProcedureDialog, GimpConfig
|
|
|
|
; See also test-sphere.scm, for GIMP 2, from which this is derived
|
|
; Diffs marked with ; v3 >>>
|
|
|
|
; Also modified to use script-fu-use-v3
|
|
; I.E. binding of boolean and binding of PDB returns is changed.
|
|
; TRUE => #t in many places
|
|
; (car (...)) => (...) in many places
|
|
|
|
|
|
; v3 >>> signature of GimpImageProcedure
|
|
; drawables is a vector
|
|
(define (script-fu-test-sphere-v3
|
|
image
|
|
drawables
|
|
radius
|
|
light
|
|
shadow
|
|
bg-color
|
|
sphere-color
|
|
brush
|
|
text
|
|
multi-text
|
|
pattern
|
|
gradient
|
|
gradient-reverse
|
|
font
|
|
size
|
|
unused-palette
|
|
unused-filename
|
|
orientation
|
|
unused-interpolation
|
|
unused-dirname
|
|
unused-image
|
|
unused-layer
|
|
unused-channel
|
|
unused-drawable)
|
|
(script-fu-use-v3)
|
|
(let* (
|
|
(width (* radius 3.75))
|
|
(height (* radius 2.5))
|
|
(img (gimp-image-new width height RGB)) ; v3 >>> elide car
|
|
(drawable (gimp-layer-new img width height RGB-IMAGE
|
|
"Sphere Layer" 100 LAYER-MODE-NORMAL))
|
|
(radians (/ (* light *pi*) 180))
|
|
(cx (/ width 2))
|
|
(cy (/ height 2))
|
|
(light-x (+ cx (* radius (* 0.6 (cos radians)))))
|
|
(light-y (- cy (* radius (* 0.6 (sin radians)))))
|
|
(light-end-x (+ cx (* radius (cos (+ *pi* radians)))))
|
|
(light-end-y (- cy (* radius (sin (+ *pi* radians)))))
|
|
(offset (* radius 0.1))
|
|
(text-extents (gimp-text-get-extents-font multi-text
|
|
size
|
|
font))
|
|
(x-position (- cx (/ (car text-extents) 2)))
|
|
(y-position (- cy (/ (cadr text-extents) 2)))
|
|
(shadow-w 0)
|
|
(shadow-x 0)
|
|
)
|
|
|
|
(gimp-context-push)
|
|
(gimp-context-set-defaults)
|
|
|
|
(gimp-image-undo-disable img)
|
|
(gimp-image-insert-layer img drawable 0 0)
|
|
(gimp-context-set-foreground sphere-color)
|
|
(gimp-context-set-background bg-color)
|
|
(gimp-drawable-edit-fill drawable FILL-BACKGROUND)
|
|
(gimp-context-set-background '(20 20 20))
|
|
|
|
(if (and
|
|
(or (and (>= light 45) (<= light 75))
|
|
(and (<= light 135) (>= light 105)))
|
|
; v3 >>> conditional doesn't need (= shadow TRUE)
|
|
shadow )
|
|
(let ((shadow-w (* (* radius 2.5) (cos (+ *pi* radians))))
|
|
(shadow-h (* radius 0.5))
|
|
(shadow-x cx)
|
|
(shadow-y (+ cy (* radius 0.65))))
|
|
(if (< shadow-w 0)
|
|
(begin (set! shadow-x (+ cx shadow-w))
|
|
(set! shadow-w (- shadow-w))))
|
|
|
|
(gimp-context-set-feather #t)
|
|
(gimp-context-set-feather-radius 7.5 7.5)
|
|
(gimp-image-select-ellipse img CHANNEL-OP-REPLACE shadow-x shadow-y shadow-w shadow-h)
|
|
(gimp-context-set-pattern pattern)
|
|
(gimp-drawable-edit-fill drawable FILL-PATTERN)))
|
|
|
|
(gimp-context-set-feather #f) ; v3 >>> FALSE => #f
|
|
(gimp-image-select-ellipse img CHANNEL-OP-REPLACE (- cx radius) (- cy radius)
|
|
(* 2 radius) (* 2 radius))
|
|
|
|
(gimp-context-set-gradient-fg-bg-rgb)
|
|
(gimp-drawable-edit-gradient-fill drawable
|
|
GRADIENT-RADIAL offset
|
|
#f 1 1 ; v3 >>> and also supersampling enum starts at 1 now
|
|
#t
|
|
light-x light-y
|
|
light-end-x light-end-y)
|
|
|
|
(gimp-selection-none img)
|
|
|
|
(gimp-image-select-ellipse img CHANNEL-OP-REPLACE 10 10 50 50)
|
|
|
|
(gimp-context-set-gradient gradient)
|
|
(gimp-context-set-gradient-reverse gradient-reverse)
|
|
(gimp-drawable-edit-gradient-fill drawable
|
|
GRADIENT-LINEAR offset
|
|
#f 1 1
|
|
#t
|
|
10 10
|
|
30 60)
|
|
|
|
(gimp-selection-none img)
|
|
|
|
(gimp-context-set-foreground '(0 0 0))
|
|
(gimp-floating-sel-anchor (gimp-text-font
|
|
img drawable
|
|
x-position y-position
|
|
multi-text
|
|
0 #t
|
|
size
|
|
font))
|
|
|
|
(if (= orientation 1)
|
|
(gimp-image-rotate img ROTATE-DEGREES90))
|
|
|
|
(gimp-image-undo-enable img)
|
|
(gimp-display-new img)
|
|
|
|
(gimp-context-pop)
|
|
)
|
|
)
|
|
|
|
; v3 >>> use script-fu-register-filter
|
|
; v3 >>> menu item is v3, alongside old one
|
|
; v3 >>> not yet localized
|
|
|
|
(script-fu-register-filter "script-fu-test-sphere-v3"
|
|
"Sphere v3..."
|
|
"Test script-fu-register-filter and GimpProcedureDialog: needs 2 selected layers."
|
|
"Spencer Kimball, Sven Neumann"
|
|
"Spencer Kimball"
|
|
"1996, 1998"
|
|
"*" ; image types any
|
|
SF-ONE-OR-MORE-DRAWABLE ; v3 >>> additional argument
|
|
SF-ADJUSTMENT "Radius (in pixels)" (list 100 1 5000 1 10 0 SF-SPINNER)
|
|
SF-ADJUSTMENT "Lighting (degrees)" (list 45 0 360 1 10 1 SF-SLIDER)
|
|
SF-TOGGLE "Shadow" #t ; v3 >>>
|
|
SF-COLOR "Background color" "white"
|
|
SF-COLOR "Sphere color" "red"
|
|
; v3 >>> only declare name of default brush
|
|
SF-BRUSH "Brush" "2. Hardness 100"
|
|
SF-STRING "Text" "Tiny-Fu rocks!"
|
|
SF-TEXT "Multi-line text" "Hello,\nWorld!"
|
|
SF-PATTERN "Pattern" "Maple Leaves"
|
|
SF-GRADIENT "Gradient" "Deep Sea"
|
|
SF-TOGGLE "Gradient reverse" #f ; v3 >>>
|
|
SF-FONT "Font" "Agate"
|
|
SF-ADJUSTMENT "Font size (pixels)" '(50 1 1000 1 10 0 1)
|
|
SF-PALETTE "Palette" "Default"
|
|
SF-FILENAME "Environment map"
|
|
(string-append gimp-data-directory
|
|
"/scripts/images/beavis.jpg")
|
|
SF-OPTION "Orientation" '("Horizontal"
|
|
"Vertical")
|
|
SF-ENUM "Interpolation" '("InterpolationType" "linear")
|
|
SF-DIRNAME "Output directory" "/var/tmp/"
|
|
SF-IMAGE "Image" -1
|
|
SF-LAYER "Layer" -1
|
|
SF-CHANNEL "Channel" -1
|
|
SF-DRAWABLE "Drawable" -1
|
|
SF-VECTORS "Vectors" -1
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-test-sphere-v3"
|
|
"<Image>/Filters/Development/Demos")
|