Commit abdd2e56 authored by EDT 1998 Adrian Likins's avatar EDT 1998 Adrian Likins Committed by Adrian Likins

tileblur.scm, title-header.scm, trochoid.scm,truchet.scm,

Thu Aug 13 23:00:39 EDT 1998 Adrian Likins <adrian@gimp.org>

        * plug-ins/script-fu/scripts: tileblur.scm, title-header.scm,
        trochoid.scm,truchet.scm, unsharp-mask.scm, waves-anim.scm,
        weave.scm,xach-effect.scm: first wave of scripts to
        use some of the new script-fu options

-adrian
parent dbac5e9e
Thu Aug 13 23:00:39 EDT 1998 Adrian Likins <adrian@gimp.org>
* plug-ins/script-fu/scripts: tileblur.scm, title-header.scm,
trochoid.scm,truchet.scm, unsharp-mask.scm, waves-anim.scm,
weave.scm,xach-effect.scm: first wave of scripts to
use some of the new script-fu options
Thu Aug 13 22:20:06 MEST 1998 Sven Neumann <sven@gimp.org>
* app/transform_tool.[ch]: minor cosmetic changes
......
......@@ -70,7 +70,8 @@
"RGBA RGB"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-VALUE "Radius:" "5"
; SF-VALUE "Radius:" "5"
SF-ADJUSTMENT "Radius:" '(5 0 128 1 1 0 0)
SF-TOGGLE "Blur Vertically?" TRUE
SF-TOGGLE "Blur Horizontally?" TRUE
SF-TOGGLE "Blur Type: TRUE=RLE, FALSE=IIR" FALSE
......
......@@ -22,12 +22,12 @@
(define (script-fu-title-header text
size
foundry
family
weight
slant
set-width
spacing)
; foundry
; family
; weight
; slant
; set-width
fontname)
(let* (; Parameters
(padding 8)
......@@ -44,7 +44,7 @@
; Text layer
(text-layer (car (gimp-text
(text-layer (car (gimp-text-fontname
img
-1
0
......@@ -54,12 +54,7 @@
TRUE
size
PIXELS
foundry
family
weight
slant
set-width
spacing)))
fontname)))
(text-width (car (gimp-drawable-width text-layer)))
(text-height (car (gimp-drawable-height text-layer)))
......@@ -172,10 +167,5 @@
"June 1997"
""
SF-STRING "Text" "Hello world!"
SF-VALUE "Text size" "32"
SF-STRING "Foundry" "adobe"
SF-STRING "Family" "helvetica"
SF-STRING "Weight" "bold"
SF-STRING "Slant" "r"
SF-STRING "Set width" "normal"
SF-STRING "Spacing" "p")
SF-ADJUSTMENT "Text size" '(32 2 256 1 10 0 0)
SF-FONT "Font" "-adobe-helvetica-bold-r-normal-*-30-*-*-*-p-*-*-*")
......@@ -387,10 +387,10 @@
"Shuji Narazaki"
"1997"
""
SF-VALUE "Base radius (pixel)" "40"
SF-VALUE "Wheel Radius (hypo < 0 < epi)" "60"
SF-VALUE "Pen rad./wheel rad. [0.0:1.0]" "0.8"
SF-VALUE "Hue rate " "1.0"
SF-ADJUSTMENT "Base radius (pixel)" '(40 0 512 1 1 0 0)
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/1]" "0"
)
......
......@@ -144,17 +144,18 @@
(script-fu-register "script-fu-truchet"
"<Toolbox>/Xtns/Script-Fu/Patterns/Truchet"
"Create a Truchet pattern"
"Create a Truchet pattern \n\n Works best with even sized thicknesses"
"Adrian Likins <aklikins@eos.ncsu.edu>"
"Adrian Likins"
"1997"
""
SF-VALUE "Block Size" "32"
SF-VALUE "Thickness" "2"
SF-ADJUSTMENT "Block Size" '(32 2 512 1 10 1 1)
SF-ADJUSTMENT "Thickness" '(2 1 512 1 10 1 1)
SF-COLOR "Background Color" '(255 255 255)
SF-COLOR "Foreground Color" '(0 0 0)
SF-VALUE "Number of Xtiles" "5"
SF-VALUE "Number of Ytiles" "5"
SF-ADJUSTMENT "Number of Xtiles" '(5 1 512 1 10 1 1)
SF-ADJUSTMENT "Number of Ytile" '(5 1 512 1 10 1 1)
)
......
......@@ -73,7 +73,7 @@
"RGB*, GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable to apply" 0
SF-VALUE "Mask size" (number->string script-fu-unsharp-mask-mask-size)
SF-VALUE "Mask size" (number->string script-fu-unsharp-mask-mask-size )
)
;;; unsharp-mask.scm ends here
......@@ -93,9 +93,9 @@
"RGB RGBA GRAY GRAYA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-VALUE "Amplitude" "10"
SF-VALUE "Wavelength" "10"
SF-VALUE "Number of Frames" "6"
SF-ADJUSTMENT "Amplitude" '(10 1 101 1 10 1 0)
SF-ADJUSTMENT "Wavelength" '(10 .10 100 1 10 1 0)
SF-ADJUSTMENT "Number of Frames" '(6 1 512 1 10 1 1)
SF-TOGGLE "Invert direction" FALSE)
......
......@@ -360,10 +360,10 @@
"RGB*, GRAY*"
SF-IMAGE "Image to weave" 0
SF-DRAWABLE "Drawable to weave" 0
SF-VALUE "Ribbon width" "30"
SF-VALUE "Ribbon spacing" "10"
SF-VALUE "Shadow darkness" "75"
SF-VALUE "Shadow depth" "75"
SF-VALUE "Thread length" "20"
SF-VALUE "Thread density" "50"
SF-VALUE "Thread intensity" "100")
SF-ADJUSTMENT "Ribbon width" '(30 0 256 1 10 1 1)
SF-ADJUSTMENT "Ribbon spacing" '(10 0 256 1 10 1 1)
SF-ADJUSTMENT "Shadow darkness" '(75 0 100 1 10 1 1)
SF-ADJUSTMENT "Shadow depth" '(75 0 100 1 10 1 1)
SF-ADJUSTMENT "Thread length" '(200 0 256 1 10 1 1)
SF-ADJUSTMENT "Thread density" '(50 0 100 1 10 1 1)
SF-ADJUSTMENT "Thread intensity" '(100 0 512 1 10 1 1))
......@@ -30,7 +30,7 @@
hl-offset-x
hl-offset-y
hl-color
hl-opacity
hl-opacity-comp
ds-color
ds-opacity
ds-blur
......@@ -42,12 +42,15 @@
(ds-opacity (max ds-opacity 0))
(type (car (gimp-drawable-type-with-alpha drawable)))
(image-width (car (gimp-image-width image)))
(hl-opacity (list hl-opacity-comp hl-opacity-comp hl-opacity-comp))
(image-height (car (gimp-image-height image)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-disable-undo image)
(gimp-layer-add-alpha drawable)
(if (= (car (gimp-selection-is-empty image)) TRUE)
(begin
(gimp-selection-layer-alpha image drawable)
......@@ -118,15 +121,16 @@
"RGB RGBA GRAY GRAYA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-VALUE "highlight X offset" "-1"
SF-VALUE "highlight Y offset" "-1"
SF-ADJUSTMENT "highlight X offset" '(-1 -100 100 1 10 0 1)
SF-ADJUSTMENT "highlight Y offset" '(-1 -100 100 1 10 0 1)
SF-COLOR "Highlight Color" '(255 255 255)
SF-COLOR "Opacity" '(66 66 66)
SF-ADJUSTMENT "Opacity" '(66 0 255 1 10 0 0)
; SF-COLOR "Opacity" '(66 66 66)
SF-COLOR "Drop Shadow Color" '(0 0 0)
SF-VALUE "Drop shadow Opacity" "100"
SF-VALUE "Drop shadow Blur Radius" "12"
SF-VALUE "Drop shadow X offset" "5"
SF-VALUE "Drop shadow Y offset" "5"
SF-ADJUSTMENT "Drop Shadow Opacity" '(100 0 100 1 10 0 0)
SF-ADJUSTMENT "Drop Shadow Blur Radius" '(12 0 255 1 10 0 1)
SF-ADJUSTMENT "Drop shadow X offset" '(5 0 255 1 10 0 1)
SF-ADJUSTMENT "Drop shadow Y offset" '(5 0 255 1 10 0 1)
SF-TOGGLE "Keep Selection?" TRUE)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment