283 lines
11 KiB
Scheme
283 lines
11 KiB
Scheme
; This is a a test script to show and test the possibilities of the
|
|
; Script-Fu parameter API.
|
|
;
|
|
; ----------------------------------------------------------------------
|
|
; SF-ADJUSTMENT
|
|
; is only useful in interactive mode, if you call a script from
|
|
; the console, it acts just like a normal SF-VALUE
|
|
; In interactive mode it creates an adjustment widget in the dialog.
|
|
;
|
|
; Usage:
|
|
; SF-ADJUSTMENT "label" '(value lower upper step_inc page_inc digits type)
|
|
;
|
|
; type is one of: SF-SLIDER(0), SF-SPINNER(1)
|
|
;
|
|
; ----------------------------------------------------------------------
|
|
; SF-COLOR
|
|
; creates a color button in the dialog. It accepts either a list of three
|
|
; values for the red, green and blue components or a color name in CSS
|
|
; notatation
|
|
;
|
|
; Usage:
|
|
; SF-COLOR "label" '(red green blue)
|
|
; SF-COLOR "label" "color"
|
|
;
|
|
; ----------------------------------------------------------------------
|
|
; Resources: Brush, Font, Gradient, Palette, Pattern
|
|
;
|
|
; Resources are Pika objects for installed data such as fonts.
|
|
|
|
; Resources have a unique integer ID for the lifetime of a Pika session.
|
|
; In ScriptFu, a resource argument is bound to an integer ID.
|
|
;
|
|
; Resources have names, often unique, but not always.
|
|
; For example, fonts from different collections of fonts might
|
|
; have the same names.
|
|
;
|
|
; ScriptFu v3 does not let you name a default resource.
|
|
; In v2, the third term of a triplet named a default resource.
|
|
; In v3, the third term is just a placeholder and is ignored.
|
|
; This is compatible with v2 scripts, but any default
|
|
; in a v2 script will be ignored in v3.
|
|
; (Similarly as for SF-IMAGE.)
|
|
;
|
|
; In the code below, a default name is shown,
|
|
; but is ignored since v3.
|
|
; Some even name resources that are not installed with Pika any longer.
|
|
;
|
|
; In non-interactive mode, a resource argument in ScriptFu
|
|
; is an integer ID passed by the caller.
|
|
;
|
|
; In interactive mode, the widget to choose a resource
|
|
; initially shows a resource from the context.
|
|
; The user can choose a different value.
|
|
;
|
|
; The resource chooser widgets are buttons.
|
|
; The choice is previewed in the label of the button,
|
|
; or in a preview window beside the button.
|
|
; Clicking the button shows another dialog for choosing.
|
|
; Clicking a preview window shows an enlarged view of the choice.
|
|
;
|
|
; ----------------------------------------------------------------------
|
|
; SF-BRUSH
|
|
;
|
|
; Usage:
|
|
; SF-BRUSH "Brush to paint with" ""
|
|
|
|
; Note that v2 required a list for the third argument, the default.
|
|
; If you need the spacing attribute of the brush, get it from the brush.
|
|
; If you want to set opacity and mode when painting with the brush,
|
|
; declare more arguments and set them into a temporary context.
|
|
; ----------------------------------------------------------------------
|
|
; Usage:
|
|
; SF-FONT "Font to render with" ""
|
|
; SF-GRADIENT "Gradient to render with" ""
|
|
; SF-PALETTE "Palette to render with" ""
|
|
; SF-PATTERN "Pattern to render with" ""
|
|
;
|
|
; ----------------------------------------------------------------------
|
|
; SF-FILENAME
|
|
; Only useful in interactive mode. It will create a widget in the control
|
|
; dialog. The widget consists of a button containing the name of a file.
|
|
; If the button is pressed a file selection dialog will popup.
|
|
;
|
|
; Usage:
|
|
; SF-FILENAME "Environment Map"
|
|
; (string-append "" pika-data-directory "/scripts/beavis.jpg")
|
|
;
|
|
; The value returned when the script is invoked is a string containing the
|
|
; filename.
|
|
;
|
|
; ----------------------------------------------------------------------
|
|
; SF-DIRNAME
|
|
; Only useful in interactive mode. Very similar to SF-FILENAME, but the
|
|
; created widget allows to choose a directory instead of a file.
|
|
;
|
|
; Usage:
|
|
; SF-DIRNAME "Image Directory" "/var/tmp/images"
|
|
;
|
|
; The value returned when the script is invoked is a string containing the
|
|
; dirname.
|
|
;
|
|
; ----------------------------------------------------------------------
|
|
; SF-OPTION
|
|
; Only useful in interactive mode. It will create a widget in the control
|
|
; dialog. The widget is a combo-box showing the options that are passed
|
|
; as a list. The first option is the default choice.
|
|
;
|
|
; Usage:
|
|
; SF-OPTION "Orientation" '("Horizontal" "Vertical")
|
|
;
|
|
; The value returned when the script is invoked is the number of the
|
|
; chosen option, where the option first is counted as 0.
|
|
;
|
|
; ----------------------------------------------------------------------
|
|
; SF-ENUM
|
|
; Only useful in interactive mode. It will create a widget in the control
|
|
; dialog. The widget is a combo-box showing all enum values for the given
|
|
; enum type. This has to be the name of a registered enum, without the
|
|
; "Pika" prefix. The second parameter specifies the default value, using
|
|
; the enum value's nick.
|
|
;
|
|
; Usage:
|
|
; SF-ENUM "Interpolation" '("InterpolationType" "linear")
|
|
;
|
|
; The value returned when the script is invoked corresponds to chosen
|
|
; enum value.
|
|
;
|
|
; ----------------------------------------------------------------------
|
|
|
|
|
|
(define (script-fu-test-sphere radius
|
|
light
|
|
shadow
|
|
bg-color
|
|
sphere-color
|
|
brush
|
|
text
|
|
multi-text
|
|
pattern
|
|
gradient
|
|
gradient-reverse
|
|
font
|
|
size
|
|
unused-palette
|
|
unused-filename
|
|
unused-orientation
|
|
unused-interpolation
|
|
unused-dirname
|
|
unused-image
|
|
unused-layer
|
|
unused-channel
|
|
unused-drawable)
|
|
(let* (
|
|
(width (* radius 3.75))
|
|
(height (* radius 2.5))
|
|
(img (car (pika-image-new width height RGB)))
|
|
(drawable (car (pika-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 (pika-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)
|
|
)
|
|
|
|
(pika-context-push)
|
|
(pika-context-set-defaults)
|
|
|
|
(pika-image-undo-disable img)
|
|
(pika-image-insert-layer img drawable 0 0)
|
|
(pika-context-set-foreground sphere-color)
|
|
(pika-context-set-background bg-color)
|
|
(pika-drawable-edit-fill drawable FILL-BACKGROUND)
|
|
(pika-context-set-background '(20 20 20))
|
|
|
|
(if (and
|
|
(or (and (>= light 45) (<= light 75))
|
|
(and (<= light 135) (>= light 105)))
|
|
(= shadow TRUE))
|
|
(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))))
|
|
|
|
(pika-context-set-feather TRUE)
|
|
(pika-context-set-feather-radius 7.5 7.5)
|
|
(pika-image-select-ellipse img CHANNEL-OP-REPLACE shadow-x shadow-y shadow-w shadow-h)
|
|
(pika-context-set-pattern pattern)
|
|
(pika-drawable-edit-fill drawable FILL-PATTERN)))
|
|
|
|
(pika-context-set-feather FALSE)
|
|
(pika-image-select-ellipse img CHANNEL-OP-REPLACE (- cx radius) (- cy radius)
|
|
(* 2 radius) (* 2 radius))
|
|
|
|
(pika-context-set-gradient-fg-bg-rgb)
|
|
(pika-drawable-edit-gradient-fill drawable
|
|
GRADIENT-RADIAL offset
|
|
FALSE 0 0
|
|
TRUE
|
|
light-x light-y
|
|
light-end-x light-end-y)
|
|
|
|
(pika-selection-none img)
|
|
|
|
(pika-image-select-ellipse img CHANNEL-OP-REPLACE 10 10 50 50)
|
|
|
|
(pika-context-set-gradient gradient)
|
|
(pika-context-set-gradient-reverse gradient-reverse)
|
|
(pika-drawable-edit-gradient-fill drawable
|
|
GRADIENT-LINEAR offset
|
|
FALSE 0 0
|
|
TRUE
|
|
10 10
|
|
30 60)
|
|
|
|
(pika-selection-none img)
|
|
|
|
(pika-context-set-foreground '(0 0 0))
|
|
(pika-floating-sel-anchor (car (pika-text-font img drawable
|
|
x-position y-position
|
|
multi-text
|
|
0 TRUE
|
|
size
|
|
font)))
|
|
|
|
(pika-image-undo-enable img)
|
|
(pika-display-new img)
|
|
|
|
(pika-context-pop)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-test-sphere"
|
|
_"_Sphere..."
|
|
"Simple script to test and show the usage of the new Script-Fu API extensions."
|
|
"Spencer Kimball, Sven Neumann"
|
|
"Spencer Kimball"
|
|
"1996, 1998"
|
|
""
|
|
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" TRUE
|
|
SF-COLOR "Background color" "white"
|
|
SF-COLOR "Sphere color" "red"
|
|
SF-BRUSH "Brush" '("2. Hardness 100" 100 44 0)
|
|
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" FALSE
|
|
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 pika-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"
|
|
"<Image>/Filters/Development/Script-Fu/Test")
|
