Easy colour pallet
Author |
Message |
Unreal_Origin
|
Posted: 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
|
|
|
|
|
|
|
Sponsor Sponsor
|
|
|
Dan
|
Posted: Fri Sep 24, 2004 5:47 pm Post subject: (No 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. |
Computer Science Canada
Help with programming in C, C++, Java, PHP, Ruby, Turing, VB and more! |
|
|
|
|
Mazer
|
Posted: Fri Sep 24, 2004 8:39 pm Post subject: (No 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. |
|
|
|
|
|
Unreal_Origin
|
Posted: 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 |
|
|
|
|
|
|
|