Commit 51caeda1 authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens

Moved an out of order entry.

2006-10-23  Kevin Cozens  <kcozens@cvs.gnome.org>

	* Makefile.am: Moved an out of order entry.

	* plug-ins/script-fu/scripts/beveled-button.scm
	* plug-ins/script-fu/scripts/fuzzyborder.scm
	* plug-ins/script-fu/scripts/paste-as-pattern.scm: Formatting changes.

	* plug-ins/script-fu/scripts/coolmetal-logo.scm: Changed two colours
	to named colour.

	* plug-ins/script-fu/scripts/gimp-labels.scm: Moved a double quote.

	* plug-ins/script-fu/scripts/spinning-globe.scm: Fixed duplicate
	variable reference in let block.

	* plug-ins/script-fu/scripts/tileblur.scm: Wrong version got commited.

	* plug-ins/script-fu/scripts/unsharp-mask.scm: Added missing menu
	register block.
parent f548a6ea
2006-10-23 Kevin Cozens <kcozens@cvs.gnome.org>
* Makefile.am: Moved an out of order entry.
* plug-ins/script-fu/scripts/beveled-button.scm
* plug-ins/script-fu/scripts/fuzzyborder.scm
* plug-ins/script-fu/scripts/paste-as-pattern.scm: Formatting changes.
* plug-ins/script-fu/scripts/coolmetal-logo.scm: Changed two colours
to named colour.
* plug-ins/script-fu/scripts/gimp-labels.scm: Moved a double quote.
* plug-ins/script-fu/scripts/spinning-globe.scm: Fixed duplicate
variable reference in let block.
* plug-ins/script-fu/scripts/tileblur.scm: Wrong version got commited.
* plug-ins/script-fu/scripts/unsharp-mask.scm: Added missing menu
register block.
2006-10-22 Manish Singh <yosh@gimp.org>
* plug-ins/pygimp/plug-ins/pyconsole.py
......
......@@ -68,10 +68,10 @@ scripts = \
land.scm \
lava.scm \
line-nova.scm \
old-photo.scm \
mkbrush.scm \
neon-logo.scm \
news-text.scm \
old-photo.scm \
paste-as-brush.scm \
paste-as-pattern.scm \
perspective-shadow.scm \
......
......@@ -154,7 +154,8 @@
SF-COLOR _"Text color" "black"
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)
SF-TOGGLE _"Pressed" FALSE
)
(script-fu-menu-register "script-fu-button00"
"<Toolbox>/Xtns/Buttons")
......@@ -137,7 +137,7 @@
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Effect size (pixels)" '(100 2 1000 1 10 0 1)
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Background color" "white"
SF-GRADIENT _"Gradient" "Horizon 1"
SF-TOGGLE _"Gradient reverse" FALSE
)
......@@ -175,7 +175,7 @@
SF-STRING _"Text" "Cool Metal"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "Crillee"
SF-COLOR _"Background color" '(255 255 255)
SF-COLOR _"Background color" "white"
SF-GRADIENT _"Gradient" "Horizon 1"
SF-TOGGLE _"Gradient reverse" FALSE
)
......
......@@ -44,8 +44,10 @@
(gimp-selection-all inImage)
(set! theImage (if (= inCopy TRUE)
(car (gimp-image-duplicate inImage)) inImage
))
(car (gimp-image-duplicate inImage))
inImage
)
)
(if (> (car (gimp-drawable-type inLayer)) 1)
(gimp-image-convert-rgb theImage)
)
......@@ -95,7 +97,8 @@
(gimp-selection-none inImage)
(gimp-image-add-layer theImage
(car (gimp-layer-copy theLayer FALSE)) 0)
(gimp-layer-scale theLayer (- theWidth inSize) (- theHeight inSize) TRUE)
(gimp-layer-scale theLayer
(- theWidth inSize) (- theHeight inSize) TRUE)
(gimp-desaturate theLayer)
(gimp-brightness-contrast theLayer 127 127)
(gimp-invert theLayer)
......
......@@ -172,7 +172,7 @@
"Adrian Likins & Jens Lautenbacher"
"1997"
""
SF-STRING _"Text" " Gimp.Org"
SF-STRING _"Text" "Gimp.Org"
SF-FONT _"Font" "Sans"
SF-ADJUSTMENT _"Font size (pixels)" '(18 2 1000 1 10 0 1)
SF-COLOR _"Text color" '(130 165 235)
......
......@@ -40,7 +40,7 @@
(gimp-context-set-pattern name)
)
(script-fu-register "script-fu-paste-as-pattern"
(script-fu-register "script-fu-paste-as-pattern"
_"New _Pattern..."
_"Paste the clipboard contents into a new pattern"
"Michael Natterer <mitch@gimp.org>"
......
......@@ -37,7 +37,6 @@
(ang (* (/ 360 inFrames)
(if (= inFromLeft TRUE) 1 -1) ))
(theFrame)
(theFrame)
)
(gimp-layer-add-alpha theLayer)
......
......@@ -5,12 +5,12 @@
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
......@@ -18,57 +18,61 @@
(define (script-fu-tile-blur inImage inLayer inRadius inVert inHoriz inType)
(set! theImage inImage)
(set! theLayer inLayer)
(set! theHeight (car (gimp-drawable-height theLayer)))
(set! theWidth (car (gimp-drawable-width theLayer)))
(let* (
(theImage inImage)
(theLayer inLayer)
(theHeight (car (gimp-drawable-height theLayer)))
(theWidth (car (gimp-drawable-width theLayer)))
)
(gimp-image-undo-group-start theImage)
(gimp-layer-resize theLayer (* 3 theWidth) (* 3 theHeight) 0 0)
(define (pasteat xoff yoff)
(let ((theFloat (car(gimp-edit-paste theLayer 0))))
(gimp-layer-set-offsets theFloat (* xoff theWidth) (* yoff theHeight) )
(gimp-floating-sel-anchor theFloat)
)
)
(gimp-rect-select theImage 0 0 theWidth theHeight CHANNEL-OP-REPLACE 0 0)
(gimp-edit-cut theLayer)
(gimp-image-undo-group-start theImage)
(gimp-layer-resize theLayer (* 3 theWidth) (* 3 theHeight) 0 0)
(gimp-selection-none theImage)
(gimp-layer-set-offsets theLayer theWidth theHeight)
(gimp-rect-select theImage 0 0 theWidth theHeight CHANNEL-OP-REPLACE 0 0)
(gimp-edit-cut theLayer)
(cjg-pasteat 1 1) (cjg-pasteat 1 2) (cjg-pasteat 1 3)
(cjg-pasteat 2 1) (cjg-pasteat 2 2) (cjg-pasteat 2 3)
(cjg-pasteat 3 1) (cjg-pasteat 3 2) (cjg-pasteat 3 3)
(gimp-selection-none theImage)
(gimp-layer-set-offsets theLayer theWidth theHeight)
(gimp-selection-none theImage)
(if (= inType 0)
(plug-in-gauss-iir TRUE theImage theLayer inRadius inHoriz inVert)
(plug-in-gauss-rle TRUE theImage theLayer inRadius inHoriz inVert)
)
(pasteat 1 1) (pasteat 1 2) (pasteat 1 3)
(pasteat 2 1) (pasteat 2 2) (pasteat 2 3)
(pasteat 3 1) (pasteat 3 2) (pasteat 3 3)
(gimp-layer-resize theLayer theWidth theHeight (- 0 theWidth) (- 0 theHeight))
(gimp-layer-set-offsets theLayer 0 0)
(gimp-image-undo-group-end theImage)
(gimp-displays-flush)
)
(gimp-selection-none theImage)
(if (= inType 0)
(plug-in-gauss-iir TRUE theImage theLayer inRadius inHoriz inVert)
(plug-in-gauss-rle TRUE theImage theLayer inRadius inHoriz inVert)
)
(define (cjg-pasteat xoff yoff)
(let ((theFloat (car(gimp-edit-paste theLayer 0))))
(gimp-layer-set-offsets theFloat (* xoff theWidth) (* yoff theHeight) )
(gimp-floating-sel-anchor theFloat)
)
(gimp-layer-resize theLayer
theWidth theHeight (- 0 theWidth) (- 0 theHeight))
(gimp-layer-set-offsets theLayer 0 0)
(gimp-image-undo-group-end theImage)
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-tile-blur"
_"_Tileable Blur..."
_"Blur the edges of an image so the result tiles seamlessly"
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"25th April 1998"
"RGB*"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-ADJUSTMENT _"Radius" '(5 0 128 1 1 0 0)
SF-TOGGLE _"Blur vertically" TRUE
SF-TOGGLE _"Blur horizontally" TRUE
SF-OPTION _"Blur type" '(_"IIR" _"RLE"))
_"_Tileable Blur..."
_"Blur the edges of an image so the result tiles seamlessly"
"Chris Gutteridge"
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
"25th April 1998"
"RGB*"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-ADJUSTMENT _"Radius" '(5 0 128 1 1 0 0)
SF-TOGGLE _"Blur vertically" TRUE
SF-TOGGLE _"Blur horizontally" TRUE
SF-OPTION _"Blur type" '(_"IIR" _"RLE")
)
(script-fu-menu-register "script-fu-tile-blur"
"<Image>/Filters/Blur")
"<Image>/Filters/Blur")
......@@ -71,8 +71,8 @@
)
(script-fu-register "script-fu-unsharp-mask"
"Unsharp Mask..."
"Make a new image from the current layer by applying the unsharp mask method"
_"Unsharp Mask..."
_"Make a new image from the current layer by applying the unsharp mask method"
"Shuji Narazaki <narazaki@gimp.org>"
"Shuji Narazaki"
"1997,1998"
......@@ -82,3 +82,7 @@
SF-ADJUSTMENT _"Mask size" '(5 1 100 1 1 0 1)
SF-ADJUSTMENT _"Mask opacity" '(50 0 100 1 1 0 1)
)
(script-fu-menu-register "script-fu-unsharp-mask"
"<Image>/Filters/Enhance")
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