The best way to choose a colour-submission

[LindenRulz]

for i : 1 .. 256 %there are only 256 pre-determined colours
colour (i) % makes number the same colour as the colour
put i .. % puts number
put " " .. % makes a space
end for

[agnivohneb]

Actually there are only 255 colors. And this way may be better because it deals with the fact that by just adding a space you will eventually split the numbers between two lines.

Turing:

for i : 1 .. 255     color (i)     put count : 4 ..  % note the : 4. it keeps it even and lined up. end for

You got the right idea tho.

[ericfourfour]

agnivohneb @ Wed Feb 21, 2007 5:35 pm wrote:

Actually there are only 255 colors.

Turing:

for i : 1 .. 255     color (i)     put count : 4 ..  % note the : 4. it keeps it even and lined up. end for

(Your code does not run by the way. Replace count with i.)


Believe it or not, there are 256 colours. I like it this way:

Turing:

for i : 0 .. 255     colourback (i)     put i : 5 .. end for

[fishtastic]

% try this with the code
for i : 1 .. 255
drawfillbox (round (maxx / 255) * i, 0, round
(maxx / 255) * i + 2, maxy, i)
end for

[Abstraction]

Wouldn't the best reference be to simply use maxcolour instead of 255?
It would improve readability, as well as eliminating assumptions....although I guess the max number of colours remains constant

[agnivohneb]

ericfourfour @ Wed Feb 21, 2007 6:23 pm wrote:

(Your code does not run by the way. Replace count with i.)


Believe it or not, there are 256 colours.

Sorry i forgot to put the i there and i also forgot about 0 being white.

[little_guy9]

To be honest, I prefer finding the right colour with a mouse, rather than looking through 255 numbers.

code:

View.Set ("graphics:max,max") var x, y, b : int var width : int := 4 for i : 0 .. 255     for i2 : 1 .. width         Draw.Line (i * width + i2, 0, i * width + i2, maxy - 16, i)     end for end for loop     Mouse.Where (x, y, b)     x -= 1     if x > 0 and x < maxx then         locate (1, 1)         put "colour #", floor (x / width)         Draw.FillBox (120, maxy - 14, 150, maxy, floor (x / width))     end if     delay(30) end loop