Subversion Repositories Kolibri OS

--PALETTE: Expand Colors v1.0

--by Richard Fhager

--http://hem.fyristorg.com/dawnbringer/

-- Email: dawnbringer@hem.utfors.se

-- MSN:   annassar@hotmail.com

--

-- Copyright 2010 Richard Fhager

--

-- This program is free software; you can redistribute it and/or

-- modify it under the terms of the GNU General Public License

-- as published by the Free Software Foundation; version 2

-- of the License. See 

-- Continously fill the greatest void in the area of the color-cube enclosed by (or along ramps of) initial colors

-- This algorithm will create lines of allowed colors (all ranges) in 3d colorspace and the pick

-- new colors from the most void areas (on any line). Almost like a Median-cut in reverse.

--

-- Rather than filling the colorcube symmetrically it adds intermediate colors to the existing ones.

--

-- Running this script on the C64 16-color palette might be educational

--

--

--   Source cols#, Expand to #,

--   Ex: 15-31 means that palette colors 0-15 is expanded to 16 new colors placed at slots 16-31

--

--    Spread mode: OFF - New colors will conform to the contrast & saturation of original colors

--                       (new colors will stay on the ramps possible from the original colors)

--

--                 ON - New colors will expand their variance by each new addition (mostly notable when adding many new colors)

--                      Will add range lines/ramps to all new colors from old ones, but keep within max/min values of the

--                      original colors. 15-bit mode will dampen the spread towards extreme colors (if starting with low contrast)

--

--  15-bit colors: Higher color-resolution, 32768 possible colors rather than the 4096 of 12bit. Slower but perhaps better.

--

SHADES = 16 -- Going 24bit will probably be too slow and steal too much memory, so start with 12bit (4096 colors) for now

ini = 0

exp = 255

OK,ini,exp,linemode,fbit = inputbox("Expand Colors (0-255):",

                           "Source Cols #: 1-254",    15,  1,254,0,

                           "Expand to #: 2-255",       31,  2,255,0,

                           "Spread mode",       0,  0,1,0,

                           "15-bit colors (slow)", 0,  0,1,0

);

if (fbit == 1) then SHADES = 32; end

function initColorCube(sha)

  ary = {}

  for z = 0, sha-1, 1 do

   ary[z+1] = {}

   for y = 0, sha-1, 1 do

    ary[z+1][y+1] = {}

      for x = 0, sha-1, 1 do

        ary[z+1][y+1][x+1] = {false,0}

      end

   end

  end

  return ary

end

-- Gravity model (think of colors as stars of equal mass/brightness in a 3d space)

function addColor2Cube(cube,sha,r,g,b)

  star = 1000000

  fade = 1000

  cube[r+1][g+1][b+1] = {false,star}

  for z = 0, sha-1, 1 do

   for y = 0, sha-1, 1 do

    for x = 0, sha-1, 1 do

      d = fade / ( (x-b)^2 + (y-g)^2 + (z-r)^2 )

      cube[z+1][y+1][x+1][2] = cube[z+1][y+1][x+1][2] + d

  end;end;end

end

-- Create new allowed colorlines in colorspace (ramps from which colors can be picked)

function enableRangeColorsInCube(cube,sha,r1,g1,b1,r2,g2,b2)

    local div,r,g,b

    div = 256 / sha

    rs = (r2 - r1) / sha / div

    gs = (g2 - g1) / sha / div

    bs = (b2 - b1) / sha / div

    for n = 0, sha-1, 1 do

     r = math.floor(r1/div + rs * n)

     g = math.floor(g1/div + gs * n)

     b = math.floor(b1/div + bs * n)

     cube[r+1][g+1][b+1][1] = true

    end

end

function findVoid(cube,sha)

  weakest = 999999999999

   weak_i = {-1,-1,-1}

  for z = 0, sha-1, 1 do

   for y = 0, sha-1, 1 do

    for x = 0, sha-1, 1 do

      c = cube[z+1][y+1][x+1]

      if c[1] == true then

        w = c[2]

        if w <= weakest then weakest = w; weak_i = {z,y,x}; end

      end

  end;end;end

  return weak_i[1],weak_i[2],weak_i[3]

end

--

if OK == true then

  cube = initColorCube(SHADES)

  -- Define allowed colorspace

  for y = 0, ini-1, 1 do

    r1,g1,b1 = getcolor(y)

    for x = y+1, ini, 1 do

      r2,g2,b2 = getcolor(x)

      enableRangeColorsInCube(cube,SHADES,r1,g1,b1,r2,g2,b2)

    end

  end

  div = 256 / SHADES

  -- Fill cube with initial colors

  for n = 0, ini, 1 do

    r,g,b = getcolor(n)

    addColor2Cube(cube,SHADES,math.floor(r/div),math.floor(g/div),math.floor(b/div))

  end

  for n = ini+1, exp, 1 do

    r,g,b = findVoid(cube,SHADES)

    if (r == -1) then messagebox("Report:","No more colors can be found, exit at "..n); break; end

    mult = 255 / (SHADES - 1)

    setcolor(n, r*mult,g*mult,b*mult)

    if linemode == 1 then

       -- Add lines from new color to all old

       for x = 0, n-1, 1 do

          r2,g2,b2 = getcolor(x)

          enableRangeColorsInCube(cube,SHADES,r*mult,g*mult,b*mult,r2,g2,b2) -- uses 24bit values rgb

       end

    end

    addColor2Cube(cube,SHADES,r,g,b) -- rgb is in 'shade' format here

  end

end