Computer Science Canada

Easy colour pallet
Author:  Unreal_Origin [ Fri Sep 24, 2004 3:42 pm ]
Post subject:  Easy colour pallet
Hey this was not hard at all but this would have helped me in the beggining so i am really making it for some brand new people. Ya this is also the first program i have posted so don't be so harsh on all how i coded it, but hey i still want suggestions

question, comments email me: unreal_origin@yahoo.com

Thx
Later, Terence

code:

%Programed By: Unreal_Origin
%Good Colour Pallet

var mx, my, mb : int
var counter : int := 1
var boxx : int := 15
var boxy : int := maxy - 60
var colorr : int := 0


for i : 0 .. 255

    if counter = 19 then
        drawfillbox (boxx, boxy, boxx + 15, boxy + 15, i)
        counter := 0
        boxx := 15
        boxy := boxy - 25
    else
        drawfillbox (boxx, boxy, boxx + 15, boxy + 15, i)
        boxx := boxx + 20

    end if
    counter := counter + 1
end for

locate (25, 60)
put "By: Terence"

loop
    mousewhere (mx, my, mb)
    Text.Locate (1, 1)
    if colorr > 0 then
        put colorr
        drawfillbox (450, 165, 600, 315, colorr)
    end if
    colorr := whatdotcolor (mx, my)
end loop
Author:  Dan [ Fri Sep 24, 2004 5:47 pm ]
Post subject: 
An intresting use of whatdotcolor and not a bad color chart for times when u need to look them up. Could be better with some few add ons like leting poleop mix colors with the RGB comands.
Author:  Mazer [ Fri Sep 24, 2004 8:39 pm ]
Post subject: 
I wrote a program exactly like that a few years back. And then my own compsci teacher ripped it off. Careful Unreal_Origin, I'm on to you.

Just kidding, good job.
Author:  Unreal_Origin [ Tue Sep 28, 2004 9:26 pm ]
Post subject:  i fixed it up a little
hey i have fixed it up a little i tried doing what you said dan but it doesn't want to work i think my coding if wrong but mhe

:


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

Terms of Use | Privacy Policy