Computer Science Canada

Color Codes
Author:  smith_scott_04 [ Sun Nov 16, 2003 10:22 pm ]
Post subject:  Color Codes
These are the color codes, so you can see all the colors. Its on 2 different backgrounds.

code:

View.Set ("graphics:640;500")
var myrow, mycol : int %counts the rows
myrow := 1
mycol := 1
for a : 0 .. 255
    color (a)
    colorback (29)
    if mycol >= maxcol - 1 then
        myrow := myrow + 1
        mycol := 1
    end if
    locate (myrow, mycol)
    put a
    mycol := mycol + 4
end for
mycol := 1
for a : 0 .. 255
    color (0)
    colorback (a)
    if mycol >= maxcol - 1 then
        myrow := myrow + 1
        mycol := 1
    end if
    locate (myrow, mycol)
    put a
    mycol := mycol + 4
end for
Author:  Dan [ Mon Nov 17, 2003 5:19 pm ]
Post subject: 
Not bad, nice litte app to find color codes.

have some bits....

:


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

Terms of Use | Privacy Policy