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