-----------------------------------

Unreal_Origin

Fri Sep 24, 2004 3:42 pm


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


%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



-----------------------------------

Dan

Fri Sep 24, 2004 5:47 pm



-----------------------------------

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.


-----------------------------------

Mazer

Fri Sep 24, 2004 8:39 pm



-----------------------------------

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.


-----------------------------------

Unreal_Origin

Tue Sep 28, 2004 9:26 pm


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