/* 
 * poly-sipp.c: 
 * 
 *     [1999/07/21] OSHIRO Naoki.
 *   
 *     $Log:$
 */

/* compile: cc -o poly-sipp poly-sipp.c -lsipp -lm */

static char rcsid[]="$Id:$";

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

#include <sipp.h>
#include <primitives.h>
#include <shaders.h>

extern char *optarg;

int strncmp_cnt(char *str1, char *str2, int *n)
{
    *n=strlen(str1);
    return strncmp(str1, str2, *n);
}

int main(int argc,char **argv)
{
    FILE *fp;
    Surface *surface;
    Object *object;
    int size=100;
    int push_p;
    int n, nn;
    int x, y, z;
    float xf, yf, zf;
    char str[512];
    int mode;
    int sample;
    int init_point;
    float xmin, xmax;
    float ymin, ymax;
    float zmin, zmax;
    float xc, yc, zc;
    int backface=TRUE;
    float red, grn, blu;
    float opred, opgrn, opblu;
    float ambient, specular, shiny;
    float op3;
    
    if (argc!=2) {
	fprintf(stderr, "poly-sipp polydata_file < command_str\n");
	exit(1);
    }

    /**************************************************************/
    /* sipp init */
    sipp_init();

    /* polygon data reading */
    fp=fopen(argv[1], "r");
    init_point=1;
    push_p=1;
    while (!feof(fp)) {
	if (fgets(str, 512, fp)==NULL) break;
	if (sscanf(str, "%f %f %f", &xf, &yf, &zf)<3) {
	    if (push_p==0) polygon_push();
	    push_p=1;
	} else {
	    vertex_push(xf, yf, zf);
	    if (init_point==1) {
		xmin=xmax=xf; 
		ymin=ymax=yf; 
		zmin=zmax=zf; 
		init_point=0;
	    } else {
		if (xmin>xf) xmin=xf;
		if (xmax<xf) xmax=xf;
		if (ymin>yf) ymin=yf;
		if (ymax<yf) ymax=yf;
		if (zmin>zf) zmin=zf;
		if (zmax<zf) zmax=zf;
	    }
	    if (push_p==1) push_p=0;
	}
    }
    printf("range %6.3f %6.3f %6.3f %6.3f %6.3f %6.3f\n", xmin, xmax, ymin, ymax, zmin, zmax);
    xc=(xmax+xmin)/2;
    yc=(ymax+ymin)/2;
    zc=(zmax+zmin)/2;
    if (push_p==0) polygon_push();
    fclose(fp);

    /**************************************************************/
    /* make light (set four lights) */
#if 1
    lightsource_create(1,0,1,          /* position/direction */
		       .9,.9,.9,          /* color */
		       LIGHT_DIRECTION /* type */);
#if 1
    lightsource_create( -1,0,1, .3,.3,.3, LIGHT_DIRECTION);
    lightsource_create( 1,0,-1, .3,.3,.3, LIGHT_DIRECTION);
    lightsource_create( -1,0,-1, .3,.3,.3, LIGHT_DIRECTION);
#endif
    ambient=.3;
    red=.7; grn=.7; blu=.9;
#else
    /* Mathematica type(?) */
    lightsource_create( 1,0,0, 1,0,0, LIGHT_DIRECTION);
    lightsource_create( 1,1,1, 0,1,0, LIGHT_DIRECTION);
    lightsource_create( 0,0,1, 0,0,1, LIGHT_DIRECTION);
    ambient=.4;
    red=1.0; grn=.8; blu=.7;
#endif

    sipp_show_backfaces(backface);
    sipp_background(0,0,0);

    /* object prepare */
    specular=0;
    shiny=1;
    opred=1; opgrn=1; opblu=1;
    surface=surface_basic_create(ambient,       /* ambient */
				 red, grn, blu, /* color */
				 specular,       /* specular */
				 shiny,       /* shinyness (0:shiny,1:dull) */
				 opred, opgrn, opblu   /* opacity */);
    object=object_create();
    object_add_surface(object, surface);
    object_install(object);

    /* camera setting */
    view_at(xc, yc, zc);
    view_up(0, 0, 1);
    view_focal(.6);

    x=80; y=30; z=30;
    view_from(x, y, z);

    /**************************************************************/
    mode=FLAT;
    sample=1;
    while (!feof(stdin) && fgets(str, 512, stdin)!=NULL) {
	if (strncmp_cnt("render", str, &n)==0) {
	    puts("render...");
	    fp=fopen("out.ppm","w");
	    render_image_file(size, size, fp, mode, sample);
	    fflush(fp);
	    close(fp);
	    puts("done.");
	    fflush(stdout);
	} else if (strncmp_cnt("size=", str, &n)==0) {
	    size=atoi(&str[n]);
	} else if (strncmp_cnt("mode=", str, &n)==0) {
	    if (strncmp_cnt("flat", &str[n], &nn)==0) mode=FLAT;
	    else if (strncmp_cnt("phong", &str[n], &nn)==0) mode=PHONG;
	    else if (strncmp_cnt("gouraud", &str[n], &nn)==0) mode=GOURAUD;
	    else if (strncmp_cnt("line", &str[n], &nn)==0) mode=LINE;
	} else if (strncmp_cnt("sample=", str, &n)==0) {
	    sample=atoi(&str[n]);
	} else if (strncmp_cnt("backface=", str, &n)==0) {
	    backface=(strncmp_cnt("true", &str[n], &nn)==0)? TRUE:FALSE;
	    sipp_show_backfaces(backface);
	} else if (strncmp_cnt("view_from=", str, &n)==0) {
	    if (sscanf(&str[n], "%f,%f,%f", &xf, &yf, &zf)==3) {
		view_from(xf, yf, zf);
		printf("view_from=%f %f %f\n", xf, yf, zf);
	    }
	} else if (strncmp_cnt("surface_color=", str, &n)==0) {
	    if (sscanf(&str[n], "%f,%f,%f", &red, &grn, &blu)==3) {
		surface_basic_shader(surface, 
				     ambient,
				     red, grn, blu,
				     specular,
				     shiny,
				     opred, opgrn, opblu);
	    }
	} else if (strncmp_cnt("surface_shiny=", str, &n)==0) {
	    if (sscanf(&str[n], "%f", &shiny)==1) {
		surface_basic_shader(surface, 
				     ambient,
				     red, grn, blu,
				     specular,
				     shiny,
				     opred, opgrn, opblu);
	    }
	} else if (strncmp_cnt("surface_ambient=", str, &n)==0) {
	    if (sscanf(&str[n], "%f", &ambient)==1) {
		surface_basic_shader(surface, 
				     ambient,
				     red, grn, blu,
				     specular,
				     shiny,
				     opred, opgrn, opblu);
	    }
	} else if (strncmp_cnt("surface_specular=", str, &n)==0) {
	    if (sscanf(&str[n], "%f", &specular)==1) {
		surface_basic_shader(surface, 
				     ambient,
				     red, grn, blu,
				     specular,
				     shiny,
				     opred, opgrn, opblu);
	    }
	} else if (strncmp_cnt("surface_opaque=", str, &n)==0) {
	    if (sscanf(&str[n], "%f", &opred)==1) {
		opgrn=opblu=opred;
		surface_basic_shader(surface, 
				     ambient,
				     red, grn, blu,
				     specular,
				     shiny,
				     opred, opgrn, opblu);
	    }
	} else if (strncmp_cnt("view_at=", str, &n)==0) {
	    if (sscanf(&str[n], "%f,%f,%f", &xf, &yf, &zf)==3) {
		view_at(xf, yf, zf);
		printf("view_at=%d %d %d\n", xf, yf, zf);
	    }
	} else if (strncmp_cnt("view_up=", str, &n)==0) {
	    if (sscanf(&str[n], "%f,%f,%f", &xf, &yf, &zf)==3) {
		view_up(xf, yf, zf);
		printf("view_at=%6.3f %6.3f %6.3f\n", xf, yf, zf);
	    }
	} else if (strncmp_cnt("background=", str, &n)==0) {
	    if (sscanf(&str[n], "%f,%f,%f", &xf, &yf, &zf)==3) {
		sipp_background(xf, yf, zf);
		printf("view_at=%6.3f %6.3f %6.3f\n", xf, yf, zf);
	    }
	} else if (strncmp_cnt("view_focal=", str, &n)==0) {
	    view_focal(atof(&str[n]));
	    printf("%f\n",atof(&str[n]));
	} else if (strncmp_cnt("end", str, &n)==0) {
	    break;
	} else {
	    fprintf(stderr, "poly-sipp: Unexpected variable specified.\n");
	}
    }
}