Random Colours

[cam]

I want to do 3 colours switching from red to black to green. I want to do this as a variable.

[richcash]

Something like this?

code:

var c : array 1 .. 3 of int := init (red, black, green) var clr : int loop      clr := Rand.Int (c, 1, 3)

end loop
That's if you want it random, as the post title suggests.

This could be for swithching in an orderly fashion.

code:

var c : array 1 .. 3 := init (red, black, green) var n := 0 var clr : int loop     n += 1     clr := c (n mod 3 + 1) end loop

[zylum]

both your code examples dont work

to choose one of those three colours at random you could do:

code:

round (Rand.Int (1, 3) * 2.2)

[TokenHerbz]

zylum, would those colors work with whatdotcolor red, black, green?

perhaps later he would want to use a different variety of colors.

[richcash]

Oops, I must've deleted too much when I took out my drawing stuff. Here :
switching orderly :

code:

var c : array 1 .. 3 of int := init (red, black, green) var n := 0 var clr : int loop     n += 1     clr := c (n mod 3 + 1)     Draw.FillOval (50, 50, 15, 15, clr)     delay (200) end loop

randomly :

code:

var c : array 1 .. 3 of int := init (red, black, green) var clr : int loop     clr := c (Rand.Int (1, 3))     Draw.FillOval (50, 50, 15, 15, clr)     delay (200) end loop

Use zylum's way for simplicity, but use mine if you want to change the colours later on (or come up with your formula!).

[cam]

alright thx

[zylum]

nah, dont use my way

the code is not self explanitory and you cant extend it to use other colours. i was just fooling around. unless you are trying to ubfuscate your code then by all means use it