----------------------------------- 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