/**********************************/
/*
Compile with:
gcc -Wall -g -o tutorial main.c `pkg-config --cflags --libs gtk+-2.0 libglade-2.0` -ltiff
*/
/**********************************/
#include <gtk/gtk.h>
#include <glade/glade.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <tiffio.h>


GSList *file_list=NULL;


void on_window1_destroy (GtkObject *object, gpointer user_data);
void on_select_files_butn (GtkButton *button, gpointer user_data);
void add_images_textview (GtkWidget *textview, gpointer user_data);
int register_all (GtkButton *button, gpointer user_data);




int
main (int argc, char *argv[])
{
    GladeXML        *gxml;
    GtkWidget       *window;
    GtkWidget        *text_view;
    GtkWidget        *message_view;

    gtk_init (&argc, &argv);

    gxml = glade_xml_new ("gui.glade", NULL, NULL);
    window = glade_xml_get_widget (gxml, "window1");
    text_view = glade_xml_get_widget (gxml, "textview1");
    message_view = glade_xml_get_widget (gxml, "messages_textview");

    glade_xml_signal_connect (gxml, "on_window1_destroy",
                              G_CALLBACK(on_window1_destroy));
    glade_xml_signal_connect_data (gxml, "on_select_files_butn",
                              G_CALLBACK(on_select_files_butn), window);
    glade_xml_signal_connect_data (gxml, "on_select_files_butn",
                              G_CALLBACK(add_images_textview), text_view);
    glade_xml_signal_connect_data (gxml, "on_reg_butn",
                              G_CALLBACK(register_all), message_view);


    g_object_unref (G_OBJECT (gxml));
       
    gtk_widget_show (window);               
    gtk_main ();

    return 0;
}


void
on_window1_destroy                     (GtkObject       *object,
                                        gpointer         user_data)
{
    gtk_main_quit();
}



int register_all            (GtkButton       *button,
                             gpointer            user_data)
{
    gchar *filename, message[200];
    guint num_files, i;
    GtkTextBuffer *buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (user_data));
    uint32 w,h,brightness=0,high_val=0;
    uint16 *row_buf,x,y,reg_x,reg_y;
    int16 j,jj, radius=3;

    num_files = g_slist_length(file_list);

    for (i=0; i<num_files; i++)
    {
        filename = g_slist_nth_data (file_list, i);
        TIFF* tif = TIFFOpen(filename, "r");
        /*Read Image Header for width, height*/
        TIFFGetField(tif, TIFFTAG_IMAGEWIDTH, &w);
        TIFFGetField(tif, TIFFTAG_IMAGELENGTH, &h);

        /*Allocate memory for the stack of images*/
        row_buf = _TIFFmalloc(TIFFScanlineSize(tif));
        uint32 **row_buf_pointers = (uint32**) malloc (sizeof(uint32)*h);

        for(y=0;y<h;y++)
        {
            row_buf_pointers[y] = (uint32*) malloc(sizeof(uint32) * w * 3);
            TIFFReadScanline(tif, row_buf, y,0);
            for(x=0;x<(w*3);x++) row_buf_pointers[y][x] = (uint32) row_buf[x];
        }
        _TIFFfree(row_buf);
        TIFFClose(tif);

        for (y=(h/8); y<(7*h/8); y++)
        {
            for (x=(w/8); x<(7*w/8); x++)
            {
                brightness=0;
                for (jj = -radius; jj<=radius; jj++)
                {
                    uint32* row = row_buf_pointers[y+jj];

                    for (j = -radius; j <= radius; j++)
                    {
                        brightness+=row[(x+j)*3]+row[(x+j)*3+1]+row[(x+j)*3+2];
                    }
                }
                if (brightness>high_val)
                {
                    high_val=brightness;
                    reg_x=x;
                    reg_y=y;
                }
            }
        }
       
        sprintf(message,"Registered %s: Anchor Point[%d,%d]\n",filename,reg_x,reg_y);
        gtk_text_buffer_insert_at_cursor (buffer, message, -1);
        gtk_text_view_set_buffer (GTK_TEXT_VIEW (user_data),buffer);


    }
    return 1;
}



void on_select_files_butn                   (GtkButton       *button,
                                             gpointer         user_data)
{
        GtkWidget *chooser;
    GtkFileFilter *file_filter; 

        chooser = gtk_file_chooser_dialog_new ("Select Multiple Images...",
                                               GTK_WINDOW (user_data),
                                               GTK_FILE_CHOOSER_ACTION_OPEN,
                                               GTK_STOCK_CANCEL, GTK_RESPONSE_CANCEL,
                                               GTK_STOCK_OPEN, GTK_RESPONSE_OK,
                                               NULL);

    gtk_file_chooser_set_select_multiple(GTK_FILE_CHOOSER (chooser), TRUE);

       file_filter = gtk_file_filter_new();
       gtk_file_filter_add_pattern(file_filter, "*.png");
       gtk_file_filter_add_pattern(file_filter, "*.PNG");
       gtk_file_filter_add_pattern(file_filter, "*.tif");
       gtk_file_filter_add_pattern(file_filter, "*.tiff");
       gtk_file_filter_add_pattern(file_filter, "*.TIF");
       gtk_file_filter_add_pattern(file_filter, "*.TIFF");
      gtk_file_chooser_set_filter(GTK_FILE_CHOOSER(chooser), file_filter);

        if (gtk_dialog_run (GTK_DIALOG (chooser)) == GTK_RESPONSE_OK)
        {
                file_list = gtk_file_chooser_get_filenames (GTK_FILE_CHOOSER (chooser));
        }
       
        gtk_widget_destroy (chooser);
}


void
add_images_textview                    (GtkWidget        *button,
                                        gpointer         user_data)
{
    GtkTextBuffer *buffer = gtk_text_view_get_buffer (GTK_TEXT_VIEW (user_data));
    gchar *filename;
    guint num_files, i;

    num_files = g_slist_length(file_list);
    printf("Number of files = %d\n", num_files);
    for (i=0; i<num_files; i++)
    {
        filename = g_slist_nth_data (file_list, i);
        gtk_text_buffer_insert_at_cursor (buffer, filename, -1);
        gtk_text_buffer_insert_at_cursor (buffer, "\n", -1);
        gtk_text_view_set_buffer (GTK_TEXT_VIEW (user_data),buffer);
    }
}