Computer Science Canada

`color
Author:  upthescale [ Sun May 07, 2006 7:54 pm ]
Post subject:  `color
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!
Author:  Tony [ Sun May 07, 2006 8:06 pm ]
Post subject:  Re: `color
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)
Author:  jamonathin [ Sun May 07, 2006 8:06 pm ]
Post subject: 
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
     }
Author:  Cervantes [ Sun May 07, 2006 8:08 pm ]
Post subject:  Re: `color
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
Author:  upthescale [ Sun May 07, 2006 8:13 pm ]
Post subject: 
thx tony

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy