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

Changes for increased compatability with Script-Fu scripts.

Browse Source 
2006-09-29  Kevin Cozens  <kcozens@cvs.gnome.org>

	Changes for increased compatability with Script-Fu scripts.

	* tiny-fu/tiny-fu-scripts.c:
	* tiny-fu/ts-wrapper.c: Changed references of tiny-fu*-register to
	script-fu*-register, tiny-fu-path to script-fu-path, and tiny-fu-quit
	to script-fu-quit.

	* scripts/*.scm: All scripts changed to use script-fu-... instead
	of tiny-fu-... in function names and in the register call.
This commit is contained in:
Kevin Cozens
2006-09-29 06:01:39 +00:00
committed by Kevin Cozens
parent 80cbb2f83e
commit cb4f30cab9
4 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
plug-ins/script-fu/scripts/script-fu-set-cmap.scm
View File

@ -2,7 +2,7 @@
; by Kevin Cozens <kcozens@interlog.com>
;
; Change the colourmap of an image to the colours in a specified palette.
; Included is tiny-fu-make-cmap-array (available for use in scripts) which
; Included is script-fu-make-cmap-array (available for use in scripts) which
; returns an INT8ARRAY containing the colours from a specified palette.
; This array can be used as the cmap argument for gimp-image-set-cmap.
@ -23,7 +23,7 @@
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (tiny-fu-make-cmap-array palette)
(define (script-fu-make-cmap-array palette)
(let* (
(num-colours (car (gimp-palette-get-info palette)))
(cmap (cons-array (* num-colours 3) 'byte))
@ -43,14 +43,14 @@
)
)
(define (tiny-fu-set-cmap img drawable palette)
(define (script-fu-set-cmap img drawable palette)
(gimp-image-set-colormap img
(* (car (gimp-palette-get-info palette)) 3)
(tiny-fu-make-cmap-array palette))
(script-fu-make-cmap-array palette))
(gimp-displays-flush)
)
(tiny-fu-register "tiny-fu-set-cmap"
(script-fu-register "script-fu-set-cmap"
_"Set Colormap"
"Change the colourmap of an image to the colours in a specified palette."
"Kevin Cozens <kcozens@interlog.com>"
@ -62,5 +62,5 @@
SF-PALETTE _"Palette" "Default"
)
(tiny-fu-menu-register "tiny-fu-set-cmap"
(script-fu-menu-register "script-fu-set-cmap"
"<Image>/Tiny-Fu/Utils")