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

Moved two set!'s in to the let block. 

2005-05-04  Kevin Cozens  <kcozens@cvs.gimp.org>

	* scripts/tiny-fu-set-cmap.sct: Moved two set!'s in to the let block.
This commit is contained in:
Kevin Cozens 2005-05-04 18:38:27 +00:00 committed by Kevin Cozens
parent 417850dba9
commit b93a15b17d
1 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24,15 +24,12 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
(define (tiny-fu-make-cmap-array palette)
(let (
(num-colours)
(colour)
(cmap)
(i 0)
)
(set! num-colours (car (gimp-palette-get-info palette)))
(set! cmap (cons-array (* num-colours 3) 'byte))
(let* (
(num-colours (car (gimp-palette-get-info palette)))
(cmap (cons-array (* num-colours 3) 'byte))
(colour)
(i 0)
)
(while (< i num-colours)
(set! colour (car (gimp-palette-entry-get-color palette i)))