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

s_climax

Sun May 16, 2004 9:39 pm


[SOURCE] Colour palette/chooser

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


setscreen ("graphics:270,240")
var start, finished : boolean := true
var mx, my, mb, col : int
const xsize : int := 15
const ysize : int := 15
loop
    mousewhere (mx, my, mb)
    for x : 1 .. 17
        for y : 1 .. 15
            if start = true then
                drawfillbox (x * xsize, y * ysize, (x + xsize) * xsize, (ysize + y) * ysize, x * y)
            end if
        end for
    end for
    start := false
    if mb = 1 and (mx div xsize) * (my div ysize)0

xc := 0
yc := 0
xc2 := 20
yc2 := 20
clr := 0

xcfill := xc + 1
ycfill := yc + 1


for a : 0 .. 15

    for b : 0 .. 15

        Draw.Box (xc, yc, xc2, yc2, black)
        Draw.Fill (xcfill, ycfill, clr, black)

        xc += 22
        xc2 += 22
        
        clr += 1

        xcfill := xc + 1
        ycfill := yc + 1
    end for

    xc := 0
    xc2 := 20
    yc += 22
    yc2 += 22

    xcfill := xc + 1
    ycfill := yc + 1

end for

loop

    exit when clr