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

Converted the first bunch of Script-Fu to the new context API:

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

	Converted the first bunch of Script-Fu to the new context API:

	* plug-ins/script-fu/scripts/[3a-c]*.scm: push and pop a context.
	Removed code that used to restore the context values changed by
	the scripts.
This commit is contained in:
Sven Neumann
2004-09-22 17:27:20 +00:00
committed by Sven Neumann
parent 2dffdbeb60
commit 0ef809d6d4
36 changed files with 303 additions and 279 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
plug-ins/script-fu/scripts/add-bevel.scm
View File

@ -64,7 +64,7 @@
(offsets (gimp-drawable-offsets pic-layer))
(width (car (gimp-drawable-width pic-layer)))
(height (car (gimp-drawable-height pic-layer)))
(old-bg (car (gimp-palette-get-background)))
; Bumpmap has a one pixel border on each side
(bump-layer (car (gimp-layer-new image
(+ width 2)
@ -72,9 +72,10 @@
GRAY
"Bumpmap"
100
NORMAL-MODE)))
)
NORMAL-MODE))))
(gimp-context-push)
; If the layer we're bevelling is offset from the image's origin, we
; have to do the same to the bumpmap
(gimp-layer-set-offsets bump-layer (- (car offsets) 1)
@ -146,7 +147,6 @@
;
; Restore things
;
(gimp-palette-set-background old-bg)
(if (= bevelling-whole-image TRUE)
(gimp-selection-none image) ; No selection to start with
(gimp-selection-load select)
@ -160,23 +160,20 @@
(begin
(gimp-image-add-layer image bump-layer 1)
(gimp-drawable-set-visible bump-layer 0))
(gimp-drawable-delete bump-layer)
)
(gimp-drawable-delete bump-layer))
(gimp-image-set-active-layer image pic-layer)
; enable undo / end undo group
(if (= work-on-copy TRUE)
(begin
(gimp-display-new image)
(gimp-image-undo-enable image)
)
(gimp-image-undo-group-end image)
)
(begin
(gimp-display-new image)
(gimp-image-undo-enable image))
(gimp-image-undo-group-end image))
(gimp-displays-flush)
)
)
(gimp-context-pop)))
(script-fu-register "script-fu-add-bevel"
_"<Image>/Script-Fu/Decor/Add B_evel..."