Randomly Choosing colors from a palette for script [solved]

Graechan · **Posted:** Wed Dec 12, 2012 12:21 am **(#1)**

GIMP Version: 2.6.11
Operating System: Windows
OS Version: XP - SP3
GIMP Experience: Beginner Level

I've been trying hard all day to randomly select a color from a palette, but with no success and little help from Wilbur (sometimes I try his patience)

I tried (set! list (cadr (gimp-palette-get-colors "Default") to create a list and then to pick from that list but somewhere me and Wilbur clashed when I tried to

(set! color (car list))

.

If anyone knows of a routine that could help please let me know but don't tell Wilbur, I'll surprise him/her

K1TesseraEna · **Joined:** Sep 22, 2012 **Posts:** 2089 **Location:** US

Try this.

(set! nextcolour (list (+ (rand 254) 1) (+ (rand 254) 1) (+ (rand 254) 1))) ;Random colour - not B, W or flagcoulor
(while (= (listeql? nextcolour inFlagColour) TRUE)
(set! nextcolour (list (+ (rand 254) 1) (+ (rand 254) 1) (+ (rand 254) 1)))
)
)
(begin
(set! nextcolour (car (gimp-palette-entry-get-color inPalette palettecount))) ; next palette colour, - not B, W or flagcoulor
(while (or (= (+ (car nextcolour) (cadr nextcolour) (caddr nextcolour)) 765)
(= (+ (car nextcolour) (cadr nextcolour) (caddr nextcolour)) 0)
(= (listeql? nextcolour inFlagColour) TRUE))
(set! palettecount (modulo (+ palettecount 1) numcolours)) ; increment palette
(set! nextcolour (car (gimp-palette-entry-get-color inPalette palettecount)))
)

(set! palettecount (modulo (+ palettecount 1) numcolours)) ; increment palette
)

That's from Rob's script.
I won't tell him. Her. I mean Wilber. Not Rob.

Graechan · **Posted:** Wed Dec 12, 2012 2:22 am **(#3)**

Thank you K1TesseraEna what was the name of RobA's script the routine came from

Odinbc · **Posted:** Wed Dec 12, 2012 3:07 am **(#4)**

Graechan wrote:

Thank you K1TesseraEna what was the name of RobA's script the routine came from

I think it's, Multifill Flatting Tools.
http://registry.gimp.org/node/14051

saulgoode · **Posted:** Wed Dec 12, 2012 4:00 am **(#5)**

The following expression will return a random color from the Default palette:

Code: Select all

(let ((vec (cadr (gimp-palette-get-colors "Default"))))
  (vector-ref vec (random (vector-length vec))) )

As an aside, you should generally avoid redefining 'list' because that is one of Scheme's standard procedures (perhaps use 'lis' or 'lyst' or 'lst').

K1TesseraEna · **Joined:** Sep 22, 2012 **Posts:** 2089 **Location:** US

Sorry, yes, Odin got it right, thats Rob's Flatting Tools.
Did it help?

Graechan · **Posted:** Wed Dec 12, 2012 7:26 pm **(#7)**

Thank you with everyones help I came up with this

Code: Select all

(set! num-colors (car (gimp-palette-get-colors "Default")))
    (set! entry-num (random  num-colors))
    (set! bkg-color (car (gimp-palette-entry-get-color "Default" entry-num)))
and shortened it to
(set! bkg-color (car (gimp-palette-entry-get-color  "Default" (random  (car (gimp-palette-get-colors  "Default"))))))

To create this

	Similar Topics	Replies
	Palette To Gradient	4
	palette not saving	0
	More Wood Palette	4
	Creating palette from image	9
	lock the colours in a palette	8