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

Converted more scripts to the new context API:

Browse Source 
2004-09-23  Sven Neumann  <sven@gimp.org>

	Converted more scripts to the new context API:

	* plug-ins/script-fu/scripts/glossy.scm
	* plug-ins/script-fu/scripts/hsv-graph.scm
	* plug-ins/script-fu/scripts/image-structure.scm
	* plug-ins/script-fu/scripts/perspective-shadow.scm
	* plug-ins/script-fu/scripts/pupi-button.scm
	* plug-ins/script-fu/scripts/rendermap.scm
	* plug-ins/script-fu/scripts/ripply-anim.scm
This commit is contained in:
Sven Neumann
2004-09-23 01:44:56 +00:00
committed by Sven Neumann
parent ce1ee9875d
commit cf221a14c1
8 changed files with 56 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
plug-ins/script-fu/scripts/rendermap.scm
View File

@ -21,14 +21,12 @@
inGrad
inWiden)
(set! old-gradient (car (gimp-gradients-get-gradient)))
(set! old-fg (car (gimp-context-get-foreground)))
(set! old-bg (car (gimp-context-get-background)))
(set! theWidth inSize)
(set! theHeight inSize)
(set! theImage (car(gimp-image-new theWidth theHeight RGB)))
(gimp-context-push)
(gimp-selection-all theImage)
(set! theLayer (car (gimp-layer-new theImage theWidth theHeight
@ -66,10 +64,10 @@
(gimp-selection-none theImage)
(gimp-gradients-set-gradient inGrad)
(plug-in-gradmap TRUE theImage theLayer)
(gimp-gradients-set-gradient old-gradient)
(gimp-context-set-background old-bg)
(gimp-context-set-foreground old-fg)
(gimp-display-new theImage))
(gimp-display-new theImage)
(gimp-context-pop))
(script-fu-register "script-fu-render-map"
_"<Toolbox>/Xtns/Script-Fu/Patterns/Render _Map..."