`color

[upthescale]

type balls:
record
col:int%%%%%%Color
end record

var...etc i dont feel liek typing it outlol

for i:1..10
randint(ball( i ).col,1,255)
end for


ok so my problem is this, my backgorund is black, how can i do it so all my balls are a random coklor between 1-255, but not black>?
because if they are black, u wont see them!!!!
i tried
randint(ball.(i).col ,1,255 not black) but obviously it iddnt werk!

[Tony]

upthescale wrote:

randint(ball.(i).col ,1,255 not black) but obviously it iddnt werk!

Have you tried

Rand.Int(any colour but black) ? Maybe... oh wait, Turing is not a natural language, now is it?

code:

ball(i).col := Rand.Int(black+1, 255)

[jamonathin]

First, take a good look at all of the colors

code:

for i : 1 .. maxcolor     color (i)     put i, " " .. end for

Then loop it until it fits right

pseudo:

while (color not= blackNumber)      {      color = randomNumber      }

[Cervantes]

First, there's no point in making a variable type if it's just going to store a single field (and that field is a primitive data type).

Second, don't use 'randint'. Use 'Rand.Int'. Functions are so much nicer than procedures, especially for something like this. The 'randint' procedure takes your variable and gets full control of it. It can do whatever you want to it. Giving away this kind of access is not a good thing.

As for picking a random value that is not black, see this thread. The answer being in the last post:

Cervantes wrote:

To return to the original question for a moment, there's no need to have a loop. Why would you possibly want to use a loop to generate a second random number when you can do it on the first try?

Say the first roll is 6. The second roll must be one of the set {1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13}. There's 12 digits there. Thus, we can "roll a 12-sided die" and use that value. However, if the value on this roll is a 6, we return 13.

code:

var n := 13 var d1 := Rand.Int (1, n) var d2 := Rand.Int (1, n - 1) if d2 = d1 then     d2 := n end if

[upthescale]

thx tony