dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Kevin Cozens 2006-10-23 05:15:40 +00:00 committed by Kevin Cozens
parent f548a6ea7e
commit 51caeda1c3
10 changed files with 89 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ChangeLog
View File

@ -1,3 +1,24 @@
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

2
plug-ins/script-fu/scripts/Makefile.am
View File

@ -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 \

3
plug-ins/script-fu/scripts/beveled-button.scm
View File

@ -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")

4
plug-ins/script-fu/scripts/coolmetal-logo.scm
View File

@ -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
)

9
plug-ins/script-fu/scripts/fuzzyborder.scm
View File

@ -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)

2
plug-ins/script-fu/scripts/gimp-labels.scm
View File

@ -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)

2
plug-ins/script-fu/scripts/paste-as-pattern.scm
View File

@ -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>"

1
plug-ins/script-fu/scripts/spinning-globe.scm
View File

@ -37,7 +37,6 @@
(ang (* (/ 360 inFrames)
(if (= inFromLeft TRUE) 1 -1) ))
(theFrame)
(theFrame)
)
(gimp-layer-add-alpha theLayer)

94
plug-ins/script-fu/scripts/tileblur.scm
View File

@ -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)
)
(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)
)
)
(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)
)
)
(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")

8
plug-ins/script-fu/scripts/unsharp-mask.scm
View File

@ -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")