dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

typo fix 

* gimptool.in: typo fix

* plug-ins/script-fu/scripts/alien-glow-arrow.scm
* plug-ins/script-fu/scripts/alien-glow-bar.scm
* plug-ins/script-fu/scripts/alien-glow-bullet.scm
* plug-ins/script-fu/scripts/alien-glow-button.scm
* plug-ins/script-fu/scripts/beveled-button.scm
* plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
* plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
* plug-ins/script-fu/scripts/beveled-pattern-button.scm
* plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
* plug-ins/script-fu/scripts/chrome-it.scm
* plug-ins/script-fu/scripts/circuit.scm
* plug-ins/script-fu/scripts/clothify.scm
* plug-ins/script-fu/scripts/distress_selection.scm
* plug-ins/script-fu/scripts/flatland.scm
* plug-ins/script-fu/scripts/font-map.scm
* plug-ins/script-fu/scripts/gimp-headers.scm
* plug-ins/script-fu/scripts/gimp-labels.scm
* plug-ins/script-fu/scripts/glossy.scm
* plug-ins/script-fu/scripts/gradient-bevel-logo.scm
* plug-ins/script-fu/scripts/gradient-example.scm
* plug-ins/script-fu/scripts/hsv-graph.scm
* plug-ins/script-fu/scripts/image-structure.scm
* plug-ins/script-fu/scripts/trochoid.scm:
applied gimp-simon-20000426-0, which makes more scripts use
SF-ADJUSTMENT instead of SF-VALUE.

-Yosh
This commit is contained in:
Manish Singh 2000-04-26 18:07:41 +00:00
parent 59a1268066
commit 5bca88b5e8
27 changed files with 134 additions and 102 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
ChangeLog
View File

@ -1,3 +1,33 @@
Wed Apr 26 11:04:12 PDT 2000 Manish Singh <yosh@gimp.org>
* gimptool.in: typo fix
* plug-ins/script-fu/scripts/alien-glow-arrow.scm
* plug-ins/script-fu/scripts/alien-glow-bar.scm
* plug-ins/script-fu/scripts/alien-glow-bullet.scm
* plug-ins/script-fu/scripts/alien-glow-button.scm
* plug-ins/script-fu/scripts/beveled-button.scm
* plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
* plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
* plug-ins/script-fu/scripts/beveled-pattern-button.scm
* plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
* plug-ins/script-fu/scripts/chrome-it.scm
* plug-ins/script-fu/scripts/circuit.scm
* plug-ins/script-fu/scripts/clothify.scm
* plug-ins/script-fu/scripts/distress_selection.scm
* plug-ins/script-fu/scripts/flatland.scm
* plug-ins/script-fu/scripts/font-map.scm
* plug-ins/script-fu/scripts/gimp-headers.scm
* plug-ins/script-fu/scripts/gimp-labels.scm
* plug-ins/script-fu/scripts/glossy.scm
* plug-ins/script-fu/scripts/gradient-bevel-logo.scm
* plug-ins/script-fu/scripts/gradient-example.scm
* plug-ins/script-fu/scripts/hsv-graph.scm
* plug-ins/script-fu/scripts/image-structure.scm
* plug-ins/script-fu/scripts/trochoid.scm:
applied gimp-simon-20000426-0, which makes more scripts use
SF-ADJUSTMENT instead of SF-VALUE.
2000-04-26 Michael Natterer <mitch@gimp.org>
* app/paint_funcs.c: removed C++ comments (#9444).

2
gimptool-1.2.in
View File

@ -61,7 +61,7 @@ User options:
--uninstall-script plug-in remove a script-fu script
The --install and --uninstall options have "admin" counterparts (with
prefix --install-admin instead of --installl) that can be used instead to
prefix --install-admin instead of --install) that can be used instead to
install/uninstall a plug-in or script in the site directory instead of a
user directory.

2
gimptool.in
View File

@ -61,7 +61,7 @@ User options:
--uninstall-script plug-in remove a script-fu script
The --install and --uninstall options have "admin" counterparts (with
prefix --install-admin instead of --installl) that can be used instead to
prefix --install-admin instead of --install) that can be used instead to
install/uninstall a plug-in or script in the site directory instead of a
user directory.

2
plug-ins/script-fu/scripts/alien-glow-arrow.scm
View File

@ -127,7 +127,7 @@
"Adrian Likins"
"1997"
""
SF-VALUE _"Size" "32"
SF-ADJUSTMENT _"Size" '(32 5 150 1 10 0 1)
SF-VALUE _"Orientation" "'right"
SF-COLOR _"Glow Color" '(63 252 0)
SF-COLOR _"Background Color" '(0 0 0)

4
plug-ins/script-fu/scripts/alien-glow-bar.scm
View File

@ -70,8 +70,8 @@
"Adrian Likins"
"1997"
""
SF-VALUE _"Bar Length" "480"
SF-VALUE _"Bar Height" "16"
SF-ADJUSTMENT _"Bar Length" '(480 5 1500 1 10 0 1)
SF-ADJUSTMENT _"Bar Height" '(16 1 100 1 10 0 1)
SF-COLOR _"Glow Color" '(63 252 0)
SF-COLOR _"Background Color" '(0 0 0)
SF-TOGGLE _"Flatten Image" TRUE)

8
plug-ins/script-fu/scripts/alien-glow-bullet.scm
View File

@ -81,8 +81,8 @@
"Adrian Likins"
"1997"
""
SF-VALUE _"Radius" "16"
SF-COLOR _"Glow Color" '(63 252 0)
SF-COLOR _"Background Color" '(0 0 0)
SF-TOGGLE _"Flatten Image" TRUE)
SF-ADJUSTMENT _"Radius" '(16 1 100 1 10 0 1)
SF-COLOR _"Glow Color" '(63 252 0)
SF-COLOR _"Background Color" '(0 0 0)
SF-TOGGLE _"Flatten Image" TRUE)

14
plug-ins/script-fu/scripts/alien-glow-button.scm
View File

@ -136,11 +136,11 @@
"July 1997"
""
SF-STRING _"Text" "Hello world!"
SF-FONT _ "Font" "-*-futura_poster-*-*-*-*-22-*-*-*-*-*-*-*"
SF-FONT _"Font" "-*-futura_poster-*-*-*-*-22-*-*-*-*-*-*-*"
SF-ADJUSTMENT _"Font Size (pixels)" '(22 2 100 1 1 0 1)
SF-COLOR _"Text Color" '(0 0 0)
SF-COLOR _"Glow Color" '(63 252 0)
SF-COLOR _"Background Color" '(0 0 0)
SF-VALUE _"Padding" "6"
SF-VALUE _"Glow Radius" "10"
SF-TOGGLE _"Flatten Image" TRUE)
SF-COLOR _"Text Color" '(0 0 0)
SF-COLOR _"Glow Color" '(63 252 0)
SF-COLOR _"Background Color" '(0 0 0)
SF-ADJUSTMENT _"Padding" '(6 1 100 1 10 0 1)
SF-ADJUSTMENT _"Glow Radius" '(10 1 200 1 10 0 1)
SF-TOGGLE _"Flatten Image" TRUE)

4
plug-ins/script-fu/scripts/beveled-button.scm
View File

@ -164,6 +164,6 @@
SF-COLOR _"Upper-Left color" '(0 255 127)
SF-COLOR _"Lower-Right color" '(0 127 255)
SF-COLOR _"Text Color" '(0 0 0)
SF-VALUE _"Padding" "2"
SF-VALUE _"Bevel Width" "4"
SF-ADJUSTMENT _"Padding" '(2 1 100 1 10 0 1)
SF-ADJUSTMENT _"Bevel Width" '(4 1 100 1 10 0 1)
SF-TOGGLE _"Pressed" FALSE)

2
plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
View File

@ -140,6 +140,6 @@
"Federico Mena Quintero"
"July 1997"
""
SF-VALUE _"Size" "32"
SF-ADJUSTMENT _"Size" '(32 5 150 1 10 0 1)
SF-VALUE _"Orientation" "'right"
SF-PATTERN _"Pattern" "Wood")

6
plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
View File

@ -80,6 +80,6 @@
"Federico Mena Quintero"
"July 1997"
""
SF-VALUE _"Diameter" "16"
SF-PATTERN _"Pattern" "Wood"
SF-TOGGLE _"Transparent Background" FALSE)
SF-ADJUSTMENT _"Diameter" '(16 1 150 1 10 0 1)
SF-PATTERN _"Pattern" "Wood"
SF-TOGGLE _"Transparent Background" FALSE)

2
plug-ins/script-fu/scripts/beveled-pattern-button.scm
View File

@ -122,7 +122,7 @@
"July 1997"
""
SF-STRING _"Text" "Hello world!"
SF-VALUE _"Font Size (pixels)" "32"
SF-ADJUSTMENT _"Font Size (pixels)" '(32 2 1000 1 10 0 1)
SF-FONT _"Font" "-*-helvetica-*-r-*-*-32-*-*-*-p-*-*-*"
SF-COLOR _"Text Color" '(0 0 0)
SF-PATTERN _"Pattern" "Wood"

6
plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
View File

@ -69,6 +69,6 @@
"Federico Mena Quintero"
"July 1997"
""
SF-VALUE _"Width" "480"
SF-VALUE _"Height" "16"
SF-PATTERN _"Pattern" "Wood")
SF-ADJUSTMENT _"Width" '(480 5 1500 1 10 0 1)
SF-ADJUSTMENT _"Height" '(16 1 100 1 10 0 1)
SF-PATTERN _"Pattern" "Wood")

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

@ -190,9 +190,9 @@
"GRAY"
SF-IMAGE "Chrome Image" 0
SF-DRAWABLE "Chrome Mask" 0
SF-VALUE _"Chrome Saturation" "-80"
SF-VALUE _"Chrome Lightness" "-47"
SF-VALUE _"Chrome Factor" "0.75"
SF-ADJUSTMENT _"Chrome Saturation" '(-80 -100 100 1 10 0 0)
SF-ADJUSTMENT _"Chrome Lightness" '(-47 -100 100 1 10 0 0)
SF-ADJUSTMENT _"Chrome Factor" '(.75 0 1 .1 .01 2 0)
SF-FILENAME _"Environment Map" (string-append "" gimp-data-dir "/scripts/beavis.jpg")
SF-COLOR _"Highlight Balance" '(211 95 0)
SF-COLOR _"Chrome Balance" '(0 0 0)

39
plug-ins/script-fu/scripts/circuit.scm
View File

@ -41,6 +41,7 @@
(image-width (car (gimp-image-width image)))
(image-height (car (gimp-image-height image)))
(old-fg (car (gimp-palette-get-foreground)))
)
(gimp-image-undo-disable image)
(gimp-layer-add-alpha drawable)
@ -70,8 +71,8 @@
100
NORMAL)))
(gimp-layer-set-offsets effect-layer select-offset-x select-offset-y)
(gimp-image-add-layer image effect-layer -1)
(gimp-layer-set-offsets effect-layer select-offset-x select-offset-y)
(gimp-selection-none image)
(gimp-edit-clear effect-layer)
(gimp-selection-load active-selection)
@ -85,9 +86,9 @@
(if (and
(= remove-bg TRUE)
(= old-bg '(0 0 0))
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-foreground '(14 14 14))))
(= old-bg '(0 0 0)))
(gimp-palette-set-foreground '(0 0 0))
(gimp-palette-set-foreground '(14 14 14)))
(gimp-selection-load active-selection)
(plug-in-maze 1 image active-layer 5 5 TRUE 0 seed 57 1)
@ -97,18 +98,18 @@
(if (and
(= remove-bg TRUE)
(= seperate-layer TRUE)
(begin
(gimp-by-color-select
active-layer
'(0 0 0)
15
2
TRUE
FALSE
10
FALSE)
(gimp-edit-clear active-layer))))
(= seperate-layer TRUE))
(begin
(gimp-by-color-select
active-layer
'(0 0 0)
15
2
TRUE
FALSE
10
FALSE)
(gimp-edit-clear active-layer)))
(gimp-palette-set-foreground old-fg)
@ -118,7 +119,7 @@
(gimp-image-undo-enable image)
(gimp-image-remove-channel image active-selection)
(gimp-image-set-active-layer image drawable)
(gimp-displays-flush))))
(gimp-displays-flush)))
(script-fu-register "script-fu-circuit"
_"<Image>/Script-Fu/Render/Circuit..."
@ -130,8 +131,8 @@
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-VALUE _"Oilify Mask Size" "17"
SF-VALUE _"Circuit Seed" "3"
SF-ADJUSTMENT _"Oilify Mask Size" '(17 3 50 1 10 0 1)
SF-ADJUSTMENT _"Circuit Seed" '(3 1 3000000 1 10 0 1)
SF-TOGGLE _"No Background (only for separate layer)" FALSE
SF-TOGGLE _"Keep Selection" TRUE
SF-TOGGLE _"Separate Layer" TRUE)

10
plug-ins/script-fu/scripts/clothify.scm
View File

@ -48,8 +48,8 @@
"RGB* GRAY*"
SF-IMAGE "Input Image" 0
SF-DRAWABLE "Input Drawable" 0
SF-VALUE _"Blur X" "9"
SF-VALUE _"Blur Y" "9"
SF-VALUE _"Azimuth" "135"
SF-VALUE _"Elevation" "45"
SF-VALUE _"Depth" "3")
SF-ADJUSTMENT _"Blur X" '(9 3 100 1 10 0 1)
SF-ADJUSTMENT _"Blur Y" '(9 3 100 1 10 0 1)
SF-ADJUSTMENT _"Azimuth" '(135 0 360 1 10 1 0)
SF-ADJUSTMENT _"Elevation" '(45 0 90 1 10 1 0)
SF-ADJUSTMENT _"Depth" '(3 1 50 1 10 0 1))

8
plug-ins/script-fu/scripts/distress-selection.scm
View File

@ -96,10 +96,10 @@
"RGB*"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-VALUE _"Threshold (Bigger 1<-->255 Smaller)" "127"
SF-VALUE _"Spread" "8"
SF-VALUE _"Granularity (1 is Low)" "4"
SF-VALUE _"Smooth" "2"
SF-ADJUSTMENT _"Threshold (Bigger 1<-->255 Smaller)" '(127 1 255 1 10 0 0)
SF-ADJUSTMENT _"Spread" '(8 0 1000 1 10 0 1)
SF-ADJUSTMENT _"Granularity (1 is Low)" '(4 1 25 1 10 0 1)
SF-ADJUSTMENT _"Smooth" '(2 0 150 1 10 0 1)
SF-TOGGLE _"Smooth Horizontally" TRUE
SF-TOGGLE _"Smooth Vertically" TRUE
)

8
plug-ins/script-fu/scripts/distress_selection.scm
View File

@ -96,10 +96,10 @@
"RGB*"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-VALUE _"Threshold (Bigger 1<-->255 Smaller)" "127"
SF-VALUE _"Spread" "8"
SF-VALUE _"Granularity (1 is Low)" "4"
SF-VALUE _"Smooth" "2"
SF-ADJUSTMENT _"Threshold (Bigger 1<-->255 Smaller)" '(127 1 255 1 10 0 0)
SF-ADJUSTMENT _"Spread" '(8 0 1000 1 10 0 1)
SF-ADJUSTMENT _"Granularity (1 is Low)" '(4 1 25 1 10 0 1)
SF-ADJUSTMENT _"Smooth" '(2 0 150 1 10 0 1)
SF-TOGGLE _"Smooth Horizontally" TRUE
SF-TOGGLE _"Smooth Vertically" TRUE
)

12
plug-ins/script-fu/scripts/flatland.scm
View File

@ -61,9 +61,9 @@
"Adrian Likins"
"1997"
""
SF-VALUE _"Image Width" "256"
SF-VALUE _"Image Height" "256"
SF-VALUE _"Random Seed" "80"
SF-VALUE _"Detail Level" "3.0"
SF-VALUE _"Scale X" "4"
SF-VALUE _"Scale Y" "4")
SF-ADJUSTMENT _"Image Width" '(256 10 2000 1 10 0 1)
SF-ADJUSTMENT _"Image Height" '(256 10 2000 1 10 0 1)
SF-ADJUSTMENT _"Random Seed" '(80 1 2000000 1 10 0 1)
SF-ADJUSTMENT _"Detail Level" '(3 1 15 1 10 1 0)
SF-ADJUSTMENT _"Scale X" '(4 0.1 16 0.1 2 1 1)
SF-ADJUSTMENT _"Scale Y" '(4 0.1 16 0.1 2 1 1))

2
plug-ins/script-fu/scripts/font-map.scm
View File

@ -69,5 +69,5 @@
""
SF-VALUE _"Fonts" "'(\"Agate\" \"AlfredDrake\" \"Becker\" \"Blippo\" \"Bodoni\" \"Dragonwick\" \"Engraver\" \"Futura_Poster\" \"RoostHeavy\")"
SF-ADJUSTMENT _"Font Size (pixels)" '(32 2 1000 1 10 0 1)
SF-VALUE _"Border" "10"
SF-ADJUSTMENT _"Border" '(10 0 150 1 10 0 1)
)

6
plug-ins/script-fu/scripts/gimp-headers.scm
View File

@ -150,7 +150,7 @@
SF-TOGGLE _"AutoCrop" TRUE
SF-TOGGLE _"Remove Background" TRUE
SF-TOGGLE _"Index Image" TRUE
SF-VALUE _"Number of Colors" "15")
SF-ADJUSTMENT _"Number of Colors" '(15 2 255 1 10 0 1))
(script-fu-register "script-fu-small-header-gimp-org"
_"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Gimp.Org/Small Header..."
@ -169,6 +169,6 @@
SF-TOGGLE _"AutoCrop" TRUE
SF-TOGGLE _"Remove Background" TRUE
SF-TOGGLE _"Index Image" TRUE
SF-VALUE _"Number of Colors" "15"
SF-VALUE _"Select-By-Color Threshold" "1")
SF-ADJUSTMENT _"Number of Colors" '(15 2 255 1 10 0 1)
SF-ADJUSTMENT _"Select-By-Color Threshold" '(1 1 256 1 10 0 1))

16
plug-ins/script-fu/scripts/gimp-labels.scm
View File

@ -95,13 +95,13 @@
;;;
(define (script-fu-tube-button-label-gimp-org text rm-bg index)
(script-fu-labels-gimp-org text "helvetica" 14 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 8 0 30))
(script-fu-labels-gimp-org text "-*-helvetica-*-r-*-*-24-*-*-*-p-*-*-*" 14 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 8 0 30))
(define (script-fu-tube-subbutton-label-gimp-org text rm-bg index)
(script-fu-labels-gimp-org text "helvetica" 12 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 7 10 24))
(script-fu-labels-gimp-org text "-*-helvetica-*-r-*-*-24-*-*-*-p-*-*-*" 12 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 7 10 24))
(define (script-fu-tube-subsubbutton-label-gimp-org text rm-bg index)
(script-fu-labels-gimp-org text "helvetica" 10 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 6 20 18))
(script-fu-labels-gimp-org text "-*-helvetica-*-r-*-*-24-*-*-*-p-*-*-*" 10 '(86 114 172) '(255 255 255) '(255 255 255) rm-bg index 15 1 6 20 18))
(script-fu-register "script-fu-tube-button-label-gimp-org"
@ -153,8 +153,8 @@
SF-COLOR _"Background Color" '(255 255 255)
SF-TOGGLE _"Remove Background" TRUE
SF-TOGGLE _"Index Image" TRUE
SF-VALUE _"Number of Colors" "15"
SF-VALUE _"Select-By-Color Threshold" "1"
SF-VALUE _"Offset X" "8"
SF-VALUE _"Offset Y" "0"
SF-VALUE _"Height" "30")
SF-ADJUSTMENT _"Number of Colors" '(15 2 255 1 10 0 1)
SF-ADJUSTMENT _"Select-By-Color Threshold" '(1 1 256 1 10 0 1)
SF-ADJUSTMENT _"Offset X" '(8 0 50 1 10 0 1)
SF-ADJUSTMENT _"Offset Y" '(0 0 50 1 10 0 1)
SF-ADJUSTMENT _"Height" '(30 2 1000 1 10 0 1))

6
plug-ins/script-fu/scripts/glossy.scm
View File

@ -130,7 +130,7 @@
SF-FONT _"Font" "-*-Eras-*-r-*-*-24-*-*-*-p-*-*-*"
SF-GRADIENT _"Blend Gradient (Text)" "Shadows_2"
SF-GRADIENT _"Blend Gradient (Outline)" "Shadows_2"
SF-VALUE _"Outline Size" "5"
SF-ADJUSTMENT _"Outline Size" '(5 0 250 1 10 0 1)
SF-COLOR _"Background Color" '(255 255 255)
SF-TOGGLE _"Use Pattern for Text instead of Gradient" FALSE
SF-PATTERN _"Pattern (Text)" "Electric Blue"
@ -140,7 +140,7 @@
SF-PATTERN _"Pattern (Overlay)" "Parque #1"
SF-TOGGLE _"Default Bumpmap Settings" TRUE
SF-TOGGLE _"Shadow" TRUE
SF-VALUE _"Shadow X Offset" "8"
SF-VALUE _"Shadow Y Offset" "8"
SF-ADJUSTMENT _"Shadow X Offset" '(8 0 100 1 10 0 1)
SF-ADJUSTMENT _"Shadow Y Offset" '(8 0 100 1 10 0 1)
SF-TOGGLE _"Flatten Image" FALSE)

4
plug-ins/script-fu/scripts/gradient-bevel-logo.scm
View File

@ -81,6 +81,6 @@
SF-STRING _"Text" "Moo"
SF-ADJUSTMENT _"Font Size (pixels)" '(90 2 1000 1 10 0 1)
SF-FONT _"Font" "-*-futura_poster-*-r-*-*-24-*-*-*-p-*-*-*"
SF-VALUE _"Bevel Height (Sharpness)" "40"
SF-VALUE _"Bevel Width" "2.5"
SF-ADJUSTMENT _"Bevel Height (Sharpness)" '(40 1 250 1 10 0 1)
SF-ADJUSTMENT _"Bevel Width" '(2.5 1 200 1 10 1 1)
SF-COLOR _"Background Color" '(255 255 255))

4
plug-ins/script-fu/scripts/gradient-example.scm
View File

@ -60,5 +60,5 @@
"Federico Mena Quintero"
"June 1997"
""
SF-VALUE _"Width" "400"
SF-VALUE _"Height" "32")
SF-ADJUSTMENT _"Width" '(400 1 2000 1 10 0 1)
SF-ADJUSTMENT _"Height" '(30 1 2000 1 10 0 1))

22
plug-ins/script-fu/scripts/hsv-graph.scm
View File

@ -213,16 +213,16 @@
(let ((offsets (gimp-drawable-offsets drawable)))
(set! beg-x (clamp-value beg-x 0
(+ (nth 0 offsets)
(gimp-drawable-width drawable))))
(car (gimp-drawable-width drawable)))))
(set! end-x (clamp-value end-x 0
(+ (nth 0 offsets)
(gimp-drawable-width drawable))))
(car (gimp-drawable-width drawable)))))
(set! beg-y (clamp-value beg-y 0
(+ (nth 1 offsets)
(gimp-drawable-height drawable))))
(set! end-y (clamp-value beg-y 0
(car (gimp-drawable-height drawable)))))
(set! end-y (clamp-value end-y 0
(+ (nth 1 offsets)
(gimp-drawable-height drawable))))))
(car (gimp-drawable-height drawable)))))))
(set! opacity (clamp-value opacity 0 100))
(let* ((x-len (- end-x beg-x))
(y-len (- end-y beg-y))
@ -345,14 +345,14 @@
"RGB*"
SF-IMAGE "Image to analyze" 0
SF-DRAWABLE "Drawable to analyze" 0
SF-VALUE _"Graph Scale" (number->string script-fu-hsv-graph-scale)
SF-VALUE _"BG Opacity" (number->string script-fu-hsv-graph-opacity)
SF-ADJUSTMENT _"Graph Scale" (cons script-fu-hsv-graph-scale '(0.1 5 0.1 1 1 1))
SF-ADJUSTMENT _"BG Opacity" (cons script-fu-hsv-graph-opacity '(0 100 1 10 0 1))
SF-TOGGLE _"Use Selection Bounds Instead of Belows" script-fu-hsv-graph-bounds?
SF-TOGGLE _"From Top-Left to Bottom-Right" script-fu-hsv-graph-left2right?
SF-VALUE _"Start X" (number->string script-fu-hsv-graph-beg-x)
SF-VALUE _"Start Y" (number->string script-fu-hsv-graph-beg-y)
SF-VALUE _"End X" (number->string script-fu-hsv-graph-end-x)
SF-VALUE _"End Y" (number->string script-fu-hsv-graph-end-y)
SF-ADJUSTMENT _"Start X" (cons script-fu-hsv-graph-beg-x '(0 5000 1 10 0 1))
SF-ADJUSTMENT _"Start Y" (cons script-fu-hsv-graph-beg-y '(0 5000 1 10 0 1))
SF-ADJUSTMENT _"End X" (cons script-fu-hsv-graph-end-x '(0 5000 1 10 0 1))
SF-ADJUSTMENT _"End Y" (cons script-fu-hsv-graph-end-y '(0 5000 1 10 0 1))
)
;;; hsv-graph.scm ends here

8
plug-ins/script-fu/scripts/image-structure.scm
View File

@ -144,14 +144,14 @@
SF-IMAGE "image" 0
SF-DRAWABLE "Drawable (unused)" 0
SF-TOGGLE _"Create New Image" script-fu-show-image-structure-new-image?
SF-VALUE _"Space Between Layers" (number->string script-fu-show-image-structure-space)
SF-VALUE _"Shear Length (> 0)" (number->string script-fu-show-image-structure-shear-length)
SF-VALUE _"Outer Border (>= 0)" (number->string script-fu-show-image-structure-border)
SF-ADJUSTMENT _"Space Between Layers" (cons script-fu-show-image-structure-space '(0 1000 1 10 0 1))
SF-ADJUSTMENT _"Shear Length" (cons script-fu-show-image-structure-shear-length '(1 1000 1 10 0 1))
SF-ADJUSTMENT _"Outer Border" (cons script-fu-show-image-structure-border '(0 250 1 10 0 1))
SF-TOGGLE _"Apply Layer Mask (or discard)" script-fu-show-image-structure-apply-layer-mask?
SF-TOGGLE _"Insert Layer Names" script-fu-show-image-structure-with-layer-name?
SF-TOGGLE _"Padding for Transparent Regions" script-fu-show-image-structure-with-pad?
SF-COLOR _"Pad Color" script-fu-show-image-structure-padding-color
SF-VALUE _"Pad Opacity [0:100]" (number->string script-fu-show-image-structure-padding-opacity)
SF-ADJUSTMENT _"Pad Opacity" (cons script-fu-show-image-structure-padding-opacity '(0 100 1 10 1 0))
SF-TOGGLE _"Make New Background" script-fu-show-image-structure-with-background?
SF-COLOR _"Background Color" script-fu-show-image-structure-background-color
)

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

@ -394,7 +394,8 @@
SF-ADJUSTMENT _"Wheel Radius (hypo < 0 < epi)" '(60 0 512 1 1 0 0)
SF-ADJUSTMENT _"Pen Rad. / Wheel Rad. [0.0:1.0]" '(0.8 0 1 .01 .01 2 0)
SF-ADJUSTMENT _"Hue Rate" '(1.0 0 1 .01 .01 2 0)
SF-VALUE _"Erase before Draw" "0"
; Does erase_before_draw something? I can't see any effect...
SF-ADJUSTMENT _"Erase before Draw" '(0 0 16 1 10 0 1)
SF-BRUSH _"Use Brush" '("Circle (05)" 1.0 44 2)
)