//
// "$Id: colbrowser.cxx 6622 2009-01-04 16:21:42Z fabien $"
//
// X Color Browser demo program for the Fast Light Tool Kit (FLTK).
//
// Copyright 1998-2009 by Bill Spitzak and others.
//
// This library is free software; you can redistribute it and/or
// modify it under the terms of the GNU Library General Public
// License as published by the Free Software Foundation; either
// version 2 of the License, or (at your option) any later version.
//
// This library is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
// Library General Public License for more details.
//
// You should have received a copy of the GNU Library General Public
// License along with this library; if not, write to the Free Software
// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
// USA.
//
// Please report all bugs and problems on the following page:
//
//     http://www.fltk.org/str.php
//

#include <FL/Fl.H>
#include <FL/Fl_Double_Window.H>
#include <FL/Fl_Button.H>
#include <FL/Fl_Value_Slider.H>
#include <FL/Fl_Hold_Browser.H>
#include <FL/Fl_Box.H>

#include <FL/fl_ask.H>
#include <FL/filename.H>

#include <stdlib.h>
#include <stdio.h>
#include <string.h>

// some constants

#define MAX_RGB 3000

#define FL_FREE_COL4    ((Fl_Color)(FL_FREE_COLOR+3))
#define FL_INDIANRED	((Fl_Color)(164))

static Fl_Double_Window *cl;
static Fl_Box *rescol;
static Fl_Button *dbobj;
static Fl_Hold_Browser *colbr;
static Fl_Value_Slider *rs, *gs, *bs;

static char dbname[FL_PATH_MAX];

static void create_form_cl(void);
static int load_browser(char *);

typedef struct { int r, g, b; } RGBdb;

static RGBdb rgbdb[MAX_RGB];

int
main(int argc, char *argv[])
{
    create_form_cl();

#ifdef USING_XCODE
  strcpy(dbname, "../../../../test/rgb.txt");
#else
  strcpy(dbname, "rgb.txt");
#endif

    if (load_browser(dbname))
      dbobj->label(dbname);
    else
      dbobj->label("None");
    dbobj->redraw();

    cl->size_range(cl->w(),cl->h(),2*cl->w(),2*cl->h());

    cl->label("RGB Browser");
    cl->free_position();
    cl->show(argc,argv);
    
    return Fl::run();
}

static void
set_entry(int i)
{
    RGBdb *db = rgbdb + i;
    Fl::set_color(FL_FREE_COL4, db->r, db->g, db->b);
    rs->value(db->r);
    gs->value(db->g);
    bs->value(db->b);
    rescol->redraw();
}

static void
br_cb(Fl_Widget *ob, long)
{
    int r = ((Fl_Browser *)ob)->value();

    if (r <= 0)
      return;
    set_entry(r - 1);
}

static int
read_entry(FILE * fp, int *r, int *g, int *b, char *name)
{
    int  n;
    char buf[512], *p;

    if (!fgets(buf, sizeof(buf) - 1, fp))
      return 0;

    if(buf[0] == '!')
      fgets(buf,sizeof(buf)-1,fp);

    if(sscanf(buf, " %d %d %d %n", r, g, b, &n) < 3)
	return 0;

    p = buf + n;

    /* squeeze out all spaces */
    while (*p)
    {
	if (*p != ' ' && *p != '\n')
	    *name++ = *p;
	p++;
    }
    *name = 0;

    return (feof(fp) || ferror(fp)) ? 0 : 1;
}


static int
load_browser(char *fname)
{
    FILE *fp;
    RGBdb *db = rgbdb, *dbs = db + MAX_RGB;
    int r, g, b,  lr  = -1 , lg = -1, lb = -1;
    char name[256], buf[256];
#ifdef __EMX__
    if (!(fp = fopen(__XOS2RedirRoot(fname), "r")))
#else
    if (!(fp = fopen(fname, "r")))
#endif
    {
	fl_alert("%s\n%s\n%s","Load", fname, "Can't open");
	return 0;
    }

    /* read the items */

    for (; db < dbs && read_entry(fp, &r, &g, &b, name);)
    {
	db->r = r;
	db->g = g;
	db->b = b;

	/* unique the entries on the fly */
	if (lr != r || lg != g || lb != b)
	{
	    db++;
	    lr = r;
	    lg = g;
	    lb = b;
	    sprintf(buf, "(%3d %3d %3d) %s", r, g, b, name);
	    colbr->add(buf);
	}
    }
    fclose(fp);

    if (db < dbs)
	db->r = 1000;		/* sentinel */
    else
    {
	db--;
	db->r = 1000;
    }

    colbr->topline(1);
    colbr->select(1,1);
    set_entry(0);

    return 1;
}

static int
search_entry(int r, int g, int b)
{
    register RGBdb *db = rgbdb;
    int i, j, diffr, diffg, diffb;
    unsigned int diff, mindiff;

    mindiff = (unsigned int)~0;
    for (i = j = 0; db->r < 256; db++, i++)
    {
       diffr = r - db->r;
       diffg = g - db->g;
       diffb = b - db->b;

#ifdef FL_LINEAR
	diff = unsigned(3.0 * (FL_abs(r - db->r)) +
			(5.9 * FL_abs(g - db->g)) +
			(1.1 * (FL_abs(b - db->b)));
#else
        diff = unsigned(3.0 * (diffr *diffr) +
			5.9 * (diffg *diffg) +
			1.1 * (diffb *diffb));
#endif

	if (mindiff > diff)
	{
	    mindiff = diff;
	    j = i;
	}
    }

    return j;
}

static void
search_rgb(Fl_Widget *, long)
{
    int r, g, b, i;
    int top  = colbr->topline();

    r = int(rs->value());
    g = int(gs->value());
    b = int(bs->value());

    // fl_freeze_form(cl);
    Fl::set_color(FL_FREE_COL4, r, g, b);
    rescol->redraw();
    i = search_entry(r, g, b);
    /* change topline only if necessary */
    if(i < top || i > (top+15))
       colbr->topline(i-8);
    colbr->select(i+1, 1);
    // fl_unfreeze_form(cl);
}

/* change database */
static void
db_cb(Fl_Widget * ob, long)
{
    const char *p = fl_input("Enter New Database Name", dbname);
    char buf[512];

    if (!p || strcmp(p, dbname) == 0)
	return;

    strcpy(buf, p);
    if (load_browser(buf))
	strcpy(dbname, buf);
    else
	ob->label(dbname);
}

static void
done_cb(Fl_Widget *, long)
{
    exit(0);
}

static void
create_form_cl(void)
{
    if (cl)
	return;

    cl = new Fl_Double_Window(400,385);
    cl->box(FL_UP_BOX);
    cl->color(FL_INDIANRED, FL_GRAY);

    Fl_Box *title = new Fl_Box(40, 10, 300, 30, "Color Browser");
    title->box(FL_NO_BOX);
    title->labelcolor(FL_RED);
    title->labelsize(32);
    title->labelfont(FL_HELVETICA_BOLD);
    title->labeltype(FL_SHADOW_LABEL);

    dbobj = new Fl_Button(40, 50, 300, 25, "");
    dbobj->type(FL_NORMAL_BUTTON);
    dbobj->box(FL_BORDER_BOX);
    dbobj->color(FL_INDIANRED,FL_INDIANRED);
    dbobj->callback(db_cb, 0);

    colbr = new Fl_Hold_Browser(10, 90, 280, 240, "");
    colbr->textfont(FL_COURIER); 
    colbr->callback(br_cb, 0);
    colbr->box(FL_DOWN_BOX);

    rescol = new Fl_Box(300, 90, 90, 35, "");
    rescol->color(FL_FREE_COL4, FL_FREE_COL4);
    rescol->box(FL_BORDER_BOX);

    rs = new Fl_Value_Slider(300, 130, 30, 200, "");
    rs->type(FL_VERT_FILL_SLIDER);
    rs->color(FL_INDIANRED, FL_RED);
    rs->bounds(0, 255);
    rs->precision(0);
    rs->callback(search_rgb, 0);
    rs->when(FL_WHEN_RELEASE);

    gs = new Fl_Value_Slider(330, 130, 30, 200, "");
    gs->type(FL_VERT_FILL_SLIDER);
    gs->color(FL_INDIANRED, FL_GREEN);
    gs->bounds(0, 255);
    gs->precision(0);
    gs->callback(search_rgb, 1);
    gs->when(FL_WHEN_RELEASE);

    bs = new Fl_Value_Slider(360, 130, 30, 200, "");
    bs->type(FL_VERT_FILL_SLIDER);
    bs->color(FL_INDIANRED, FL_BLUE);
    bs->bounds(0, 255);
    bs->precision(0);
    bs->callback(search_rgb, 2);
    bs->when(FL_WHEN_RELEASE);

    Fl_Button *done = new Fl_Button(160, 345, 80, 30, "Done");
    done->type(FL_NORMAL_BUTTON);
    done->callback(done_cb, 0);

    cl->end();
    cl->resizable(cl);
}

//
// End of "$Id: colbrowser.cxx 6622 2009-01-04 16:21:42Z fabien $".
//