gimp r24614 - in trunk: . plug-ins/script-fu/scripts
- From: kcozens svn gnome org
- To: svn-commits-list gnome org
- Subject: gimp r24614 - in trunk: . plug-ins/script-fu/scripts
- Date: Tue, 15 Jan 2008 05:15:09 +0000 (GMT)
Author: kcozens
Date: Tue Jan 15 05:15:08 2008
New Revision: 24614
URL: http://svn.gnome.org/viewvc/gimp?rev=24614&view=rev
Log:
2008-01-15 Kevin Cozens <kcozens cvs gnome org>
* plug-ins/script-fu/scripts/3d-outline.scm
* plug-ins/script-fu/scripts/add-bevel.scm
* plug-ins/script-fu/scripts/burn-in-anim.scm
* plug-ins/script-fu/scripts/camo.scm
* plug-ins/script-fu/scripts/circuit.scm
* plug-ins/script-fu/scripts/clothify.scm
* plug-ins/script-fu/scripts/coffee.scm
* plug-ins/script-fu/scripts/contactsheet.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/fuzzyborder.scm
* plug-ins/script-fu/scripts/glossy.scm
* plug-ins/script-fu/scripts/land.scm
* plug-ins/script-fu/scripts/lava.scm
* plug-ins/script-fu/scripts/old-photo.scm
* plug-ins/script-fu/scripts/predator.scm
* plug-ins/script-fu/scripts/rendermap.scm
* plug-ins/script-fu/scripts/ripply-anim.scm
* plug-ins/script-fu/scripts/script-fu-set-cmap.scm
* plug-ins/script-fu/scripts/select-to-brush.scm
* plug-ins/script-fu/scripts/select-to-image.scm
* plug-ins/script-fu/scripts/select-to-pattern.scm
* plug-ins/script-fu/scripts/speed-text.scm
* plug-ins/script-fu/scripts/spinning-globe.scm
* plug-ins/script-fu/scripts/test-sphere.scm
* plug-ins/script-fu/scripts/text-circle.scm
* plug-ins/script-fu/scripts/unsharp-mask.scm
* plug-ins/script-fu/scripts/xach-effect.scm: Variables in a let
block must be of the form (variable value) per the R5RS.
Modified:
trunk/ChangeLog
trunk/plug-ins/script-fu/scripts/3d-outline.scm
trunk/plug-ins/script-fu/scripts/add-bevel.scm
trunk/plug-ins/script-fu/scripts/burn-in-anim.scm
trunk/plug-ins/script-fu/scripts/camo.scm
trunk/plug-ins/script-fu/scripts/circuit.scm
trunk/plug-ins/script-fu/scripts/clothify.scm
trunk/plug-ins/script-fu/scripts/coffee.scm
trunk/plug-ins/script-fu/scripts/contactsheet.scm
trunk/plug-ins/script-fu/scripts/distress-selection.scm
trunk/plug-ins/script-fu/scripts/flatland.scm
trunk/plug-ins/script-fu/scripts/font-map.scm
trunk/plug-ins/script-fu/scripts/fuzzyborder.scm
trunk/plug-ins/script-fu/scripts/glossy.scm
trunk/plug-ins/script-fu/scripts/land.scm
trunk/plug-ins/script-fu/scripts/lava.scm
trunk/plug-ins/script-fu/scripts/old-photo.scm
trunk/plug-ins/script-fu/scripts/predator.scm
trunk/plug-ins/script-fu/scripts/rendermap.scm
trunk/plug-ins/script-fu/scripts/ripply-anim.scm
trunk/plug-ins/script-fu/scripts/script-fu-set-cmap.scm
trunk/plug-ins/script-fu/scripts/select-to-brush.scm
trunk/plug-ins/script-fu/scripts/select-to-image.scm
trunk/plug-ins/script-fu/scripts/select-to-pattern.scm
trunk/plug-ins/script-fu/scripts/speed-text.scm
trunk/plug-ins/script-fu/scripts/spinning-globe.scm
trunk/plug-ins/script-fu/scripts/test-sphere.scm
trunk/plug-ins/script-fu/scripts/text-circle.scm
trunk/plug-ins/script-fu/scripts/unsharp-mask.scm
trunk/plug-ins/script-fu/scripts/xach-effect.scm
Modified: trunk/plug-ins/script-fu/scripts/3d-outline.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/3d-outline.scm (original)
+++ trunk/plug-ins/script-fu/scripts/3d-outline.scm Tue Jan 15 05:15:08 2008
@@ -37,10 +37,10 @@
RGB-IMAGE "Background" 100 NORMAL-MODE)))
(pattern (car (gimp-layer-new img width height
RGBA-IMAGE "Pattern" 100 NORMAL-MODE)))
- (layer2)
- (layer3)
- (pattern-mask)
- (floating-sel)
+ (layer2 0)
+ (layer3 0)
+ (pattern-mask 0)
+ (floating-sel 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/add-bevel.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/add-bevel.scm (original)
+++ trunk/plug-ins/script-fu/scripts/add-bevel.scm Tue Jan 15 05:15:08 2008
@@ -74,7 +74,7 @@
"Bumpmap"
100
NORMAL-MODE)))
- (select)
+ (select 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/burn-in-anim.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/burn-in-anim.scm (original)
+++ trunk/plug-ins/script-fu/scripts/burn-in-anim.scm Tue Jan 15 05:15:08 2008
@@ -26,23 +26,23 @@
;--- main variable: "bl-x" runs from 0 to layer-width
(bl-x 0)
(frame-nr 0)
- (img)
- (source-layer)
- (bg-source-layer)
- (source-layer-width)
- (bg-layer)
- (bg-layer-name)
- (bl-layer)
- (bl-layer-name)
- (bl-mask)
- (bl-layer-width)
- (bl-height)
- (bl-x-off)
- (bl-y-off)
- (nofadeout-bl-x-off)
- (nofadeout-bl-width)
- (blended-layer)
- (img-display)
+ (img 0)
+ (source-layer 0)
+ (bg-source-layer 0)
+ (source-layer-width 0)
+ (bg-layer 0)
+ (bg-layer-name 0)
+ (bl-layer 0)
+ (bl-layer-name 0)
+ (bl-mask 0)
+ (bl-layer-width 0)
+ (bl-height 0)
+ (bl-x-off 0)
+ (bl-y-off 0)
+ (nofadeout-bl-x-off 0)
+ (nofadeout-bl-width 0)
+ (blended-layer 0)
+ (img-display 0)
)
(if (< speed 1)
Modified: trunk/plug-ins/script-fu/scripts/camo.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/camo.scm (original)
+++ trunk/plug-ins/script-fu/scripts/camo.scm Tue Jan 15 05:15:08 2008
@@ -26,9 +26,9 @@
(theHeight inSize)
(theImage (car (gimp-image-new theWidth theHeight RGB)))
(baseLayer (car (gimp-layer-new theImage theWidth theHeight RGBA-IMAGE "Background" 100 NORMAL-MODE)))
- (thickLayer)
- (thinLayer)
- (theBlur)
+ (thickLayer 0)
+ (thinLayer 0)
+ (theBlur 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/circuit.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/circuit.scm (original)
+++ trunk/plug-ins/script-fu/scripts/circuit.scm Tue Jan 15 05:15:08 2008
@@ -40,15 +40,15 @@
(type (car (gimp-drawable-type-with-alpha drawable)))
(image-width (car (gimp-image-width image)))
(image-height (car (gimp-image-height image)))
- (active-selection)
- (from-selection)
- (selection-bounds)
- (select-offset-x)
- (select-offset-y)
- (select-width)
- (select-height)
- (effect-layer)
- (active-layer)
+ (active-selection 0)
+ (from-selection 0)
+ (selection-bounds 0)
+ (select-offset-x 0)
+ (select-offset-y 0)
+ (select-width 0)
+ (select-height 0)
+ (effect-layer 0)
+ (active-layer 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/clothify.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/clothify.scm (original)
+++ trunk/plug-ins/script-fu/scripts/clothify.scm Tue Jan 15 05:15:08 2008
@@ -11,8 +11,8 @@
(img (car (gimp-image-new width height RGB)))
; (layer-two (car (gimp-layer-new img width height RGB-IMAGE "Y Dots" 100 MULTIPLY-MODE)))
(layer-one (car (gimp-layer-new img width height RGB-IMAGE "X Dots" 100 NORMAL-MODE)))
- (layer-two)
- (bump-layer)
+ (layer-two 0)
+ (bump-layer 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/coffee.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/coffee.scm (original)
+++ trunk/plug-ins/script-fu/scripts/coffee.scm Tue Jan 15 05:15:08 2008
@@ -23,7 +23,7 @@
(theWidth (car (gimp-image-width theImage)))
(theNumber inNumber)
(theSize (min theWidth theHeight))
- (theStain)
+ (theStain 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/contactsheet.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/contactsheet.scm (original)
+++ trunk/plug-ins/script-fu/scripts/contactsheet.scm Tue Jan 15 05:15:08 2008
@@ -34,15 +34,15 @@
(define (init-sheet-data size)
(let (
- (sheet-w)
- (sheet-h)
- (thumb-w)
- (thumb-h)
- (border-x) ;Space between rows and at top and bottom of thumbnails
- (border-y) ;Space between columns and at left and right of thumbnails
- (off-x) ; Additional X shift to properly center a row of thumbnails
- (off-y) ; Additional Y shift to properly center rows of thumbnails
- (count)
+ (sheet-w 0)
+ (sheet-h 0)
+ (thumb-w 0)
+ (thumb-h 0)
+ (border-x 0) ;Space between rows and at top and bottom of thumbnails
+ (border-y 0) ;Space between columns and at left and right of thumbnails
+ (off-x 0) ; Additional X shift to properly center a row of thumbnails
+ (off-y 0) ; Additional Y shift to properly center rows of thumbnails
+ (count 0)
)
(case size
@@ -108,9 +108,9 @@
(define (init-sheet-img img num img-width border-y off-y)
(let* (
- (text-layer)
- (text-width)
- (text-height)
+ (text-layer 0)
+ (text-width 0)
+ (text-height 0)
)
(gimp-selection-all img)
(gimp-drawable-fill (car (gimp-image-get-active-layer img))
@@ -155,25 +155,25 @@
(pos-x 0)
(pos-y 0)
- (sheet-data)
- (sheet-width)
- (sheet-height)
- (thumb-w)
- (thumb-h)
- (border-x)
- (border-y)
- (off-x)
- (off-y)
- (max-x)
- (max-y)
-
- (sheet-img)
- (sheet-layer)
-
- (new-img)
- (file)
- (file-path)
- (tmp-layer)
+ (sheet-data 0)
+ (sheet-width 0)
+ (sheet-height 0)
+ (thumb-w 0)
+ (thumb-h 0)
+ (border-x 0)
+ (border-y 0)
+ (off-x 0)
+ (off-y 0)
+ (max-x 0)
+ (max-y 0)
+
+ (sheet-img 0)
+ (sheet-layer 0)
+
+ (new-img 0)
+ (file 0)
+ (file-path 0)
+ (tmp-layer 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/distress-selection.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/distress-selection.scm (original)
+++ trunk/plug-ins/script-fu/scripts/distress-selection.scm Tue Jan 15 05:15:08 2008
@@ -34,7 +34,7 @@
(theImage inImage)
(theWidth (car (gimp-image-width inImage)))
(theHeight (car (gimp-image-height inImage)))
- (theLayer)
+ (theLayer 0)
(theMode (car (gimp-image-base-type inImage)))
)
Modified: trunk/plug-ins/script-fu/scripts/flatland.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/flatland.scm (original)
+++ trunk/plug-ins/script-fu/scripts/flatland.scm Tue Jan 15 05:15:08 2008
@@ -38,7 +38,7 @@
(img (car (gimp-image-new width height RGB)))
(layer-one (car (gimp-layer-new img width height
RGB-IMAGE "bottom" 100 NORMAL-MODE)))
- (layer-two)
+ (layer-two 0)
)
(gimp-image-undo-disable img)
Modified: trunk/plug-ins/script-fu/scripts/font-map.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/font-map.scm (original)
+++ trunk/plug-ins/script-fu/scripts/font-map.scm Tue Jan 15 05:15:08 2008
@@ -81,7 +81,7 @@
GRAY-IMAGE RGB-IMAGE)
"Background" 100 NORMAL-MODE)))
(count 0)
- (font)
+ (font "")
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/fuzzyborder.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/fuzzyborder.scm (original)
+++ trunk/plug-ins/script-fu/scripts/fuzzyborder.scm Tue Jan 15 05:15:08 2008
@@ -38,8 +38,8 @@
(let (
(theWidth (car (gimp-image-width inImage)))
(theHeight (car (gimp-image-height inImage)))
- (theImage)
- (theLayer)
+ (theImage 0)
+ (theLayer 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/glossy.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/glossy.scm (original)
+++ trunk/plug-ins/script-fu/scripts/glossy.scm Tue Jan 15 05:15:08 2008
@@ -47,7 +47,7 @@
(posy (- (cadr (gimp-drawable-offsets logo-layer))))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
(grow-me (car (gimp-layer-copy logo-layer TRUE)))
- (dont-drop-me)
+ (dont-drop-me 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/land.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/land.scm (original)
+++ trunk/plug-ins/script-fu/scripts/land.scm Tue Jan 15 05:15:08 2008
@@ -35,7 +35,7 @@
(img (car (gimp-image-new width height RGB)))
(layer-one (car (gimp-layer-new img width height
RGB-IMAGE "Bottom" 100 NORMAL-MODE)))
- (layer-two)
+ (layer-two 0)
)
(gimp-context-set-gradient gradient)
(gimp-image-undo-disable img)
Modified: trunk/plug-ins/script-fu/scripts/lava.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/lava.scm (original)
+++ trunk/plug-ins/script-fu/scripts/lava.scm Tue Jan 15 05:15:08 2008
@@ -36,14 +36,14 @@
(type (car (gimp-drawable-type-with-alpha drawable)))
(image-width (car (gimp-image-width image)))
(image-height (car (gimp-image-height image)))
- (active-selection)
- (selection-bounds)
- (select-offset-x)
- (select-offset-y)
- (select-width)
- (select-height)
- (lava-layer)
- (active-layer)
+ (active-selection 0)
+ (selection-bounds 0)
+ (select-offset-x 0)
+ (select-offset-y 0)
+ (select-width 0)
+ (select-height 0)
+ (lava-layer 0)
+ (active-layer 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/old-photo.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/old-photo.scm (original)
+++ trunk/plug-ins/script-fu/scripts/old-photo.scm Tue Jan 15 05:15:08 2008
@@ -26,10 +26,10 @@
(define (script-fu-old-photo inImage inLayer inDefocus inBorderSize inSepia inMottle inCopy)
(let (
- (theImage)
- (theLayer)
- (theWidth)
- (theHeight)
+ (theImage 0)
+ (theLayer 0)
+ (theWidth 0)
+ (theHeight 0)
)
(gimp-image-undo-group-start inImage)
(gimp-selection-all inImage)
Modified: trunk/plug-ins/script-fu/scripts/predator.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/predator.scm (original)
+++ trunk/plug-ins/script-fu/scripts/predator.scm Tue Jan 15 05:15:08 2008
@@ -35,15 +35,15 @@
(type (car (gimp-drawable-type-with-alpha drawable)))
(image-width (car (gimp-image-width image)))
(image-height (car (gimp-image-height image)))
- (active-selection)
- (from-selection)
- (selection-bounds)
- (select-offset-x)
- (select-offset-y)
- (select-width)
- (select-height)
- (effect-layer)
- (active-layer)
+ (active-selection 0)
+ (from-selection 0)
+ (selection-bounds 0)
+ (select-offset-x 0)
+ (select-offset-y 0)
+ (select-width 0)
+ (select-height 0)
+ (effect-layer 0)
+ (active-layer 0)
)
(gimp-image-undo-group-start image)
Modified: trunk/plug-ins/script-fu/scripts/rendermap.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/rendermap.scm (original)
+++ trunk/plug-ins/script-fu/scripts/rendermap.scm Tue Jan 15 05:15:08 2008
@@ -25,8 +25,8 @@
(theWidth inSize)
(theHeight inSize)
(theImage (car(gimp-image-new theWidth theHeight RGB)))
- (theLayer)
- (thinLayer)
+ (theLayer 0)
+ (thinLayer 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/ripply-anim.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/ripply-anim.scm (original)
+++ trunk/plug-ins/script-fu/scripts/ripply-anim.scm Tue Jan 15 05:15:08 2008
@@ -25,19 +25,19 @@
(height (car (gimp-drawable-height drawable)))
(ripple-image (car (gimp-image-new width height GRAY)))
(ripple-layer (car (gimp-layer-new ripple-image width height GRAY-IMAGE "Ripple Texture" 100 NORMAL-MODE)))
- (rippletiled-ret)
- (rippletiled-image)
- (rippletiled-layer)
- (remaining-frames)
- (xpos)
- (ypos)
- (xoffset)
- (yoffset)
- (dup-image)
- (layer-name)
- (this-image)
- (this-layer)
- (dup-layer)
+ (rippletiled-ret 0)
+ (rippletiled-image 0)
+ (rippletiled-layer 0)
+ (remaining-frames 0)
+ (xpos 0)
+ (ypos 0)
+ (xoffset 0)
+ (yoffset 0)
+ (dup-image 0)
+ (layer-name 0)
+ (this-image 0)
+ (this-layer 0)
+ (dup-layer 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/script-fu-set-cmap.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/script-fu-set-cmap.scm (original)
+++ trunk/plug-ins/script-fu/scripts/script-fu-set-cmap.scm Tue Jan 15 05:15:08 2008
@@ -27,7 +27,7 @@
(let* (
(num-colours (car (gimp-palette-get-info palette)))
(cmap (cons-array (* num-colours 3) 'byte))
- (colour)
+ (colour 0)
(i 0)
)
Modified: trunk/plug-ins/script-fu/scripts/select-to-brush.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/select-to-brush.scm (original)
+++ trunk/plug-ins/script-fu/scripts/select-to-brush.scm Tue Jan 15 05:15:08 2008
@@ -38,13 +38,13 @@
(select-offset-y (caddr selection-bounds))
(selection-width (- (cadr (cddr selection-bounds)) select-offset-x))
(selection-height (- (caddr (cddr selection-bounds)) select-offset-y))
- (from-selection)
- (active-selection)
- (brush-draw-type)
- (brush-image-type)
- (brush-image)
- (brush-draw)
- (filename2)
+ (from-selection 0)
+ (active-selection 0)
+ (brush-draw-type 0)
+ (brush-image-type 0)
+ (brush-image 0)
+ (brush-draw 0)
+ (filename2 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/select-to-image.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/select-to-image.scm (original)
+++ trunk/plug-ins/script-fu/scripts/select-to-image.scm Tue Jan 15 05:15:08 2008
@@ -32,10 +32,10 @@
(select-offset-y (caddr selection-bounds))
(selection-width (- (cadr (cddr selection-bounds)) select-offset-x))
(selection-height (- (caddr (cddr selection-bounds)) select-offset-y))
- (active-selection)
- (from-selection)
- (new-image)
- (new-draw)
+ (active-selection 0)
+ (from-selection 0)
+ (new-image 0)
+ (new-draw 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/select-to-pattern.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/select-to-pattern.scm (original)
+++ trunk/plug-ins/script-fu/scripts/select-to-pattern.scm Tue Jan 15 05:15:08 2008
@@ -26,16 +26,16 @@
(define (script-fu-selection-to-pattern image drawable desc filename)
(let* (
- (selection-width)
- (selection-height)
- (selection-bounds)
- (select-offset-x)
- (select-offset-y)
- (pattern-draw-type)
- (pattern-image-type)
- (pattern-image)
- (pattern-draw)
- (filename2)
+ (selection-width 0)
+ (selection-height 0)
+ (selection-bounds 0)
+ (select-offset-x 0)
+ (select-offset-y 0)
+ (pattern-draw-type 0)
+ (pattern-image-type 0)
+ (pattern-image 0)
+ (pattern-draw 0)
+ (filename2 0)
)
(if (= (car (gimp-selection-is-empty image)) TRUE)
Modified: trunk/plug-ins/script-fu/scripts/speed-text.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/speed-text.scm (original)
+++ trunk/plug-ins/script-fu/scripts/speed-text.scm Tue Jan 15 05:15:08 2008
@@ -31,8 +31,8 @@
(saved-select 0)
(cell-size (/ font-size 8))
(grey (/ (* density 255) 100))
- (saved-sel)
- (text-mask)
+ (saved-sel 0)
+ (text-mask 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/spinning-globe.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/spinning-globe.scm (original)
+++ trunk/plug-ins/script-fu/scripts/spinning-globe.scm Tue Jan 15 05:15:08 2008
@@ -36,7 +36,7 @@
(n 0)
(ang (* (/ 360 inFrames)
(if (= inFromLeft TRUE) 1 -1) ))
- (theFrame)
+ (theFrame 0)
)
(gimp-layer-add-alpha theLayer)
Modified: trunk/plug-ins/script-fu/scripts/test-sphere.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/test-sphere.scm (original)
+++ trunk/plug-ins/script-fu/scripts/test-sphere.scm Tue Jan 15 05:15:08 2008
@@ -194,8 +194,8 @@
font))
(x-position (- cx (/ (car text-extents) 2)))
(y-position (- cy (/ (cadr text-extents) 2)))
- (shadow-w)
- (shadow-x)
+ (shadow-w 0)
+ (shadow-x 0)
)
(gimp-context-push)
Modified: trunk/plug-ins/script-fu/scripts/text-circle.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/text-circle.scm (original)
+++ trunk/plug-ins/script-fu/scripts/text-circle.scm Tue Jan 15 05:15:08 2008
@@ -49,9 +49,9 @@
(ndx-start 0)
(ndx-step 1)
(ccw 0)
- (fill-angle-rad)
- (rot-op)
- (radian-step)
+ (fill-angle-rad 0)
+ (rot-op 0)
+ (radian-step 0)
)
(gimp-image-undo-disable img)
Modified: trunk/plug-ins/script-fu/scripts/unsharp-mask.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/unsharp-mask.scm (original)
+++ trunk/plug-ins/script-fu/scripts/unsharp-mask.scm Tue Jan 15 05:15:08 2008
@@ -12,12 +12,12 @@
drawable-width drawable-height
RGB-IMAGE "Original"
100 NORMAL-MODE)))
- (original-layer-for-darker)
- (original-layer-for-lighter)
- (blured-layer-for-darker)
- (blured-layer-for-lighter)
- (darker-layer)
- (lighter-layer)
+ (original-layer-for-darker 0)
+ (original-layer-for-lighter 0)
+ (blured-layer-for-darker 0)
+ (blured-layer-for-lighter 0)
+ (darker-layer 0)
+ (lighter-layer 0)
)
(gimp-selection-all img)
Modified: trunk/plug-ins/script-fu/scripts/xach-effect.scm
==============================================================================
--- trunk/plug-ins/script-fu/scripts/xach-effect.scm (original)
+++ trunk/plug-ins/script-fu/scripts/xach-effect.scm Tue Jan 15 05:15:08 2008
@@ -43,12 +43,12 @@
(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)))
- (active-selection)
- (from-selection)
- (theLayer)
- (hl-layer)
- (shadow-layer)
- (mask)
+ (active-selection 0)
+ (from-selection 0)
+ (theLayer 0)
+ (hl-layer 0)
+ (shadow-layer 0)
+ (mask 0)
)
(gimp-context-push)
[
Date Prev][
Date Next] [
Thread Prev][
Thread Next]
[
Thread Index]
[
Date Index]
[
Author Index]
