callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minor script-fu and plug-in tweaks

Browse Source 
--Sven
This commit is contained in:
Sven Neumann
1999-12-21 13:57:58 +00:00
parent 9e9fbd07fc
commit f806fa9524
10 changed files with 185 additions and 145 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
plug-ins/script-fu/scripts/blend-anim.scm
View File

@ -16,17 +16,18 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
;
; blend-anim.scm version 1.02 05/28/98
; blend-anim.scm version 1.03 1999/12/21
;
; CHANGE-LOG:
; 1.00 - initial release
; 1.01 - some code cleanup, no real changes
; 1.02 - use gimp-message to output an error message if called
; with less than three layers
; 1.03 - only call blur plugin when blut-radius >= 1.0
;
; Copyright (C) 1997-98 Sven Neumann (neumanns@uni-duesseldorf.de)
;
; Copyright (C) 1997-1999 Sven Neumann <sven@gimp.org>
;
;
; Blends two or more layers over a backgound, so that an animation can
; be saved. A minimum of three layers is required.
@ -128,11 +129,12 @@
(+ layer-height (* blur 2))
blur
blur)
(plug-in-gauss-rle 1
image
upper-copy
blur
TRUE TRUE)
(if (>= blur 1.0)
(plug-in-gauss-rle 1
image
upper-copy
blur
TRUE TRUE))
(set! blur (- max-blur blur))
(gimp-layer-set-preserve-trans lower-copy FALSE)
(set! layer-width (car (gimp-drawable-width
@ -144,11 +146,12 @@
(+ layer-height (* blur 2))
blur
blur)
(plug-in-gauss-rle 1
image
lower-copy
blur
TRUE TRUE)))
(if (>= blur 1.0)
(plug-in-gauss-rle 1
image
lower-copy
blur
TRUE TRUE))))
(gimp-layer-resize bg-copy
max-width
max-height
@ -217,14 +220,14 @@
"<Image>/Script-Fu/Animators/Blend..."
"Blend two or more layers over a background, so that an
animation can be saved"
"Sven Neumann (neumanns@uni-duesseldorf.de)"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"05/28/1998"
"1999/12/21"
"RGB RGBA GRAY GRAYA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-VALUE "Intermediate Frames" "3"
SF-VALUE "Max. Blur Radius" "0"
SF-ADJUSTMENT "Intermediate Frames" '(3 1 1024 1 10 0 1)
SF-ADJUSTMENT "Max. Blur Radius" '(0 0 1024 1 10 0 1)
SF-TOGGLE "Looped" TRUE)

2
plug-ins/script-fu/scripts/copy-visible.scm
View File

@ -73,7 +73,7 @@
(script-fu-register "script-fu-copy-visible"
"<Image>/Edit/Copy Visible"
"Copy the visible selction"
"Sven Neumann (neumanns@uni-duesseldorf.de), Adrian Likins <adrian@gimp.org>"
"Sven Neumann <sven@gimp.org>, Adrian Likins <adrian@gimp.org>"
"Sven Neumann, Adrian Likins"
"01/24/1998"
"RGB* INDEXED* GRAY*"

28
plug-ins/script-fu/scripts/drop-shadow.scm
View File

@ -16,7 +16,7 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
;
; drop-shadow.scm version 1.03 06/03/99
; drop-shadow.scm version 1.04 1999/12/21
;
; CHANGE-LOG:
; 1.00 - initial release
@ -25,7 +25,7 @@
; 1.03 - can't call gimp-edit-fill until layer is added to image!
;
;
; Copyright (C) 1997 Sven Neumann (neumanns@uni-duesseldorf.de)
; Copyright (C) 1997-1999 Sven Neumann <sven@gimp.org>
;
;
; Adds a drop-shadow of the current selection or alpha-channel.
@ -131,12 +131,12 @@
(gimp-edit-fill shadow-layer)
(gimp-selection-none image)
(gimp-layer-set-preserve-trans shadow-layer FALSE)
(if (> shadow-blur 0) (plug-in-gauss-rle 1
image
shadow-layer
shadow-blur
TRUE
TRUE))
(if (>= shadow-blur 1.0) (plug-in-gauss-rle 1
image
shadow-layer
shadow-blur
TRUE
TRUE))
(gimp-layer-translate shadow-layer shadow-transl-x shadow-transl-y)
(if (= from-selection TRUE)
@ -159,17 +159,17 @@
"<Image>/Script-Fu/Shadow/Drop-Shadow..."
"Add a drop-shadow of the current selection or
alpha-channel"
"Sven Neumann (neumanns@uni-duesseldorf.de)"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"12/13/1997"
"1999/12/21"
"RGB RGBA GRAY GRAYA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-VALUE "X offset" "8"
SF-VALUE "Y offset" "8"
SF-VALUE "Blur Radius" "15"
SF-ADJUSTMENT "X Offset" '(8 -4096 4096 1 10 0 1)
SF-ADJUSTMENT "Y Offset" '(8 -4096 4096 1 10 0 1)
SF-ADJUSTMENT "Blur Radius" '(15 0 1024 1 10 0 1)
SF-COLOR "Color" '(0 0 0)
SF-VALUE "Opacity" "80"
SF-ADJUSTMENT "Opacity" '(80 0 100 1 10 0 0)
SF-TOGGLE "Allow Resizing" TRUE)

13
plug-ins/script-fu/scripts/perspective-shadow.scm
View File

@ -16,15 +16,16 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
;
; perspective-shadow.scm version 1.02 12/13/97
; perspective-shadow.scm version 1.03 1999/12/21
;
; CHANGE-LOG:
; 1.00 - initial release
; 1.01 - fixed the problem with a remaining copy of the selection
; 1.02 - some code cleanup, no real changes
; 1.03 - only call blur plugin when blut-radius >= 1.0
;
;
; Copyright (C) 1997 Sven Neumann (neumanns@uni-duesseldorf.de)
; Copyright (C) 1997-1999 Sven Neumann <sven@gimp.org>
;
;
; Adds a perspective shadow of the current selection or alpha-channel
@ -145,7 +146,7 @@
x2 y2
x3 y3)
(if (> shadow-blur 0)
(if (>= shadow-blur 1.0)
(begin
(gimp-layer-set-preserve-trans shadow-layer FALSE)
(gimp-layer-resize shadow-layer
@ -179,16 +180,16 @@
(script-fu-register "script-fu-perspective-shadow"
"<Image>/Script-Fu/Shadow/Perspective..."
"Add a perspective shadow"
"Sven Neumann (neumanns@uni-duesseldorf.de)"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"12/13/1997"
"1999/12/21"
"RGB RGBA GRAY GRAYA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT "Angle" '(45 0 180 1 10 1 0)
SF-ADJUSTMENT "Relative horizon distance" '(5 0 24 .1 1 1 1)
SF-ADJUSTMENT "Relative shadow length" '(1 0 24 .1 1 1 1)
SF-ADJUSTMENT "Blur Radius" '(3 0 64 1 10 0 0)
SF-ADJUSTMENT "Blur Radius" '(3 0 1024 1 10 0 0)
SF-COLOR "Color" '(0 0 0)
SF-ADJUSTMENT "Opacity" '(80 0 100 1 10 0 0)
SF-TOGGLE "Interpolate?" TRUE

22
plug-ins/script-fu/scripts/round-corners.scm
View File

@ -16,13 +16,13 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
;
; round-corners.scm version 1.01 12/13/97
; round-corners.scm version 1.02 1999/12/21
;
; CHANGE-LOG:
; 1.00 - initial release
; 1.01 - some code cleanup, no real changes
;
; Copyright (C) 1997 Sven Neumann (neumanns@uni-duesseldorf.de)
; Copyright (C) 1997-1999 Sven Neumann <sven@gimp.org>
;
;
; Rounds the corners of an image, optionally adding a drop-shadow and
@ -117,19 +117,19 @@
(script-fu-register "script-fu-round-corners"
"<Image>/Script-Fu/Decor/Round Corners..."
"Round the corners of an image and optionally adds a drop-shadow and a background"
"Sven Neumann (neumanns@uni-duesseldorf.de)"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"12/13/1997"
"1999/12/21"
"RGB GRAY"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-VALUE "Radius of Edges" "12"
SF-TOGGLE "Add drop-shadow" TRUE
SF-VALUE "Shadow x" "8"
SF-VALUE "Shadow y" "8"
SF-VALUE "Blur Radius" "15"
SF-TOGGLE "Add background" TRUE
SF-TOGGLE "Work on copy" TRUE)
SF-ADJUSTMENT "Edge Radius" '(15 0 4096 1 10 0 1)
SF-TOGGLE "Add Drop-Shadow" TRUE
SF-ADJUSTMENT "Shadow X Offset" '(8 -4096 4096 1 10 0 1)
SF-ADJUSTMENT "Shadow Y Offset" '(8 -4096 4096 1 10 0 1)
SF-ADJUSTMENT "Blur Radius" '(15 0 1024 1 10 0 1)
SF-TOGGLE "Add Background" TRUE
SF-TOGGLE "Work on Copy" TRUE)

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

@ -16,14 +16,14 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
;
; selection-round.scm version 1.02 02/06/98
; selection-round.scm version 1.02 1998/02/06
;
; CHANGE-LOG:
; 1.00 - initial release
; 1.01 - some code cleanup, no real changes
; 1.02 - made script undoable
;
; Copyright (C) 1997,1998 Sven Neumann (neumanns@uni-duesseldorf.de)
; Copyright (C) 1997, 1998 Sven Neumann <sven@gimp.org>
;
;
; Rounds the current selection by cutting of rectangles from the edges and
@ -126,9 +126,9 @@
"<Image>/Script-Fu/Selection/Round..."
"Rounds the active selection. The selection should be
rectangular."
"Sven Neumann (neumanns@uni-duesseldorf.de)"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"02/06/98"
"1998/02/06"
"RGB RGBA GRAY GRAYA INDEXED INDEXEDA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0

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

@ -16,7 +16,7 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
;
; slide.scm version 0.40 99/5/11
; slide.scm version 0.40 1999/5/11
;
; CHANGE-LOG:
; 0.20 - first public release
@ -31,7 +31,7 @@
; - make 'add background' an option
; - ?
;
; Copyright (C) 1997,1999 Sven Neumann (neumanns@uni-duesseldorf.de)
; Copyright (C) 1997-1999 Sven Neumann <sven@gimp.org>
;
; makes your picture look like a slide
;
@ -229,7 +229,7 @@
"Gives the image the look of a slide"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"1999/5/11"
"1999/05/11"
"RGB GRAY"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0

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

@ -16,13 +16,13 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
;
; waves-anim.scm version 1.01 12/13/97
; waves-anim.scm version 1.01 1997/12/13
;
; CHANGE-LOG:
; 1.00 - initial release
; 1.01 - some code cleanup, no real changes
;
; Copyright (C) 1997 Sven Neumann (neumanns@uni-duesseldorf.de)
; Copyright (C) 1997 Sven Neumann <sven@gimp.org>
;
;
; Makes a copy of your image and creates an animation of the active layer
@ -87,9 +87,9 @@
(script-fu-register "script-fu-waves-anim"
"<Image>/Script-Fu/Animators/Waves..."
"Animate an image like a stone's been thrown into it"
"Sven Neumann (neumanns@uni-duesseldorf.de)"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"12/13/1997"
"1997/13/12"
"RGB RGBA GRAY GRAYA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0