/* ======================================================= *
 * Copyright 1998-2008 Stephen C. Grubb                    *
 * http://ploticus.sourceforge.net                         *
 * Covered by GPL; see the file ./Copyright for details.   *
 * ======================================================= */

#include "pl.h"
extern int PLGS_fontname(), PLGP_fontname(), PLGF_fontname(), PLG_textslant();


/* ============================= */
/* TEXTDET - parse a text details setting and execute it */
/* attributes are: size=N color=COLOR style=B|I|BI|R align=L|C|R adjust=x,y */
/* ============================= */
int
PL_textdet( parmname, spec, align, adjx, adjy, sizehint, stylehint, sephint )
const char *parmname;
const char *spec;
int *align;
double *adjx, *adjy;
int sizehint;
char *stylehint;
double sephint; /* added scg 8/10/05 */
{
char at[6][80];
int nt;
int i, j;
int p;
char str[80];
char font[FONTLEN];
char *color;
double linesep;

/* defaults.. */
color = Estandard_color;
strcpy( font, "" );

/* style only valid for svg,swf, and postscript environs.. */
if( GL_member( Edev, "sfp" )) {
	strcpy( font, stylehint );
#ifndef NOSVG
	if ( Edev == 's') PLGS_fontname( Estandard_font, font );/* for SVG font support - BT 5/11/01 */
#endif
#ifndef NOSWF
        if ( Edev == 'f') PLGF_fontname( Estandard_font, font );/* for SWF font support - BT 11/01/03*/
 #endif
#ifndef NOPS
	if( Edev == 'p' ) PLGP_fontname( Estandard_font, font );
#endif
	}

p = Estandard_textsize + sizehint;
*align = '?'; /* align and offset will be sent back to caller.. */
*adjx = 0.0;
*adjy = 0.0;
linesep = sephint; /* added scg 8/10/05 */

/* parse spec.. */
strcpy( at[0], "" ); /* added scg 9/30/03 */
nt = sscanf( spec, "%s %s %s %s %s %s", at[0], at[1], at[2], at[3], at[4], at[5] );

if( strcmp( at[0], "yes" )==0 || 
	strncmp( at[0], "no", 2 )==0 ) nt = 0; /* drop thru.. */

for( i = 0; i < nt; i++ ) {
	if( strncmp( at[i], "size=", 5 )==0 ) p = atoi( &at[i][5] );

	else if( strncmp( at[i], "style=", 6 )==0 ) {
	    /* style makes sense only for svg, swf and postscript environs.. */
	    if( GL_member( Edev, "sfp" )) {
		if( !GL_slmember( &at[i][6], "B I BI R" )) {
			Eerr( 82, "warning, text style must be B, I, BI, or R", &at[i][6] );
			strcpy( font, "R" );
			}
		else strcpy( font, &at[i][6] );

#ifndef NOSVG
		if ( Edev == 's') PLGS_fontname( Estandard_font, font );/* for SVG font support - BT 5/11/01 */
#endif
#ifndef NOSWF
                if ( Edev == 'f') PLGF_fontname( Estandard_font, font );/* for SWF font support - BT 11/01/03 */
#endif
#ifndef NOPS
		if( Edev == 'p' ) PLGP_fontname( Estandard_font, font );
#endif
		}
	    }

	else if( strncmp( at[i], "font=", 5 )==0 ) {
		strcpy( font, &at[i][5] );
		for( j = 0; font[j] != '\0'; j++ ) if( font[j] == '!' ) font[j] = ' '; /* embedded spaces represented as '!' */
		}

	else if( strncmp( at[i], "color=", 6 )==0 ) color = &at[i][6];

	else if( strncmp( at[i], "align=", 6 )==0 ) *align = toupper(at[i][6]);
	else if( strncmp( at[i], "linesep=", 8 )==0 ) linesep = atof( &at[i][8] ); /* added scg 8/10/05 */
	else if( strncmp( at[i], "adjust=", 7 )==0 ) {
		if( Eflip ) sscanf( &at[i][7],  "%lf,%lf", adjy, adjx );
		else sscanf( &at[i][7],  "%lf,%lf", adjx, adjy );
		}
	else if( strncmp( at[i], "slantparm=", 10 )==0 ) PLG_textslant( atof( &at[i][10] ) ); /* added scg 8/7/07 */
	else 	{
		sprintf( str, "warning: %s is an unrecognized text details subattribute", at[i] );
		Eerr( 71, str, parmname );
		}
	}
if( Estandard_color[0] ) Ecolor( color ); /* 'if' added scg 7/12/01 */
if( font[0] ) Efont( font );
Etextsize( p ); 
Ecurtextheight *= linesep; /* added scg 8/10/05 */

if( !GL_member( *align, "LCRDU?" )) {
	Eerr( 72, "warning, align must be either 'left', 'center', 'right' or 'downdiagonal' or 'updiagonal'", parmname );
	*align = '?';
	}
if( PLS.usingcm ) { *adjx /= 2.54; *adjy /= 2.54; }
return( 0 );
}

/* ============================= */
/* LINEDET - parse a line details setting and execute it */
/* attributes are: width=W style=N color=COLOR dashscale=S */
/* ============================= */
int
PL_linedet( parmname, spec, defaultwidth )
const char *parmname;
const char *spec;
double defaultwidth;
{
char at[5][80];
int nt;
int i;
int stat;
int style;
double width;
double ds;
char str[80];
char *color;

/* defaults.. */
style = 0;
width = defaultwidth;
ds = 1.0;
color = Estandard_color;

/* parse the spec.. */
strcpy( at[0], "" ); /* added scg 9/30/03 */
nt = sscanf( spec, "%s %s %s %s %s", at[0], at[1], at[2], at[3], at[4] );

if( strcmp( at[0], "yes" )==0 || 
	strncmp( at[0], "no", 2 )==0 ) nt = 0; /* drop thru.. */

for( i = 0; i < nt; i++ ) {
	if( strncmp( at[i], "width=", 6 )==0 || strncmp( at[i], "thick=", 6 )==0 ) {
		stat = num( &at[i][6], &width );
		if( stat != 0 || width < 0.1 ) return( Eerr( 73, "invalid line width", parmname ) );
		}
	else if( strncmp( at[i], "style=", 6 )==0 ) style = atoi( &at[i][6] );
	else if( strncmp( at[i], "color=", 6 )==0 ) color = &at[i][6];
	else if( strncmp( at[i], "dashscale=", 10 )==0 ) ds = atof( &at[i][10] );
	else 	{
		sprintf( str, "%s is an unrecognized line details subattribute", at[i] );
		return( Eerr( 72, str, parmname ) );
		}
	}
Elinetype( style, width, ds );
Ecolor( color );
	
return( 0 );
}

/* ================== */
/* SYMDET - parse a point symbol detail spec and build a symbol code  */
/* shape=A style=S radius=R linewidth=W symcode= giffile=F gifscale=sx,sy */
/* =================== */
int
PL_symdet( parmname, spec, symcode, radius )
const char *parmname;
const char *spec;
char *symcode; /* new symbol code copied into here */
double *radius;
{
char at[5][80];
int nt;
int i;
int stat;
int shape;
char style;
double linewidth;
char *fillcolor, *linecolor, *color;
int symcodedone;
char str[MAXPATH];
int doing_img;
int imgheight, imgwidth;
int pixpt;

/* defaults.. */
shape = 6;
style = 'a';
linewidth = 0.5; /* nice & thin */
fillcolor = "";
linecolor = "";
*radius = 0.05;
symcodedone = 0;
doing_img = 0;
imgwidth = 10; imgheight = 10;
pixpt = 0;
color = "";

/* parse the spec.. */
strcpy( at[0], "" ); /* added scg 9/30/03 */
nt = sscanf( spec, "%s %s %s %s %s", at[0], at[1], at[2], at[3], at[4] );

if( strcmp( at[0], "yes" )==0 || 
	strncmp( at[0], "no", 2 )==0 ) nt = 0; /* drop thru.. */


for( i = 0; i < nt; i++ ) {
	if( strncmp( at[i], "linewidth=", 10 )==0 ) {
		stat = num( &at[i][10], &linewidth );
		if( stat != 0 || linewidth < 0.1 ) return( Eerr( 73, "invalid line width", parmname ) );
		}
	else if( strncmp( at[i], "shape=", 6 )==0 ) {
		/* if using a device that doesn't support pix* shapes, rewrite shape spec.. */
		if( strncmp( &at[i][6], "pix", 3 )==0 && !GL_member( Edev, "gx" ) ) strcpy( &at[i][6], &at[i][9] );
			
		if( atoi( &at[i][6] ) > 0 ) shape = atoi( &at[i][6] );
		else if( strncmp( &at[i][6], "tri", 3 )==0 ) shape = 1;
		else if( strncmp( &at[i][6], "downtri", 7 )==0 ) shape = 2;
		else if( strncmp( &at[i][6], "di", 2 )==0 ) shape = 3;
		else if( strncmp( &at[i][6], "sq", 2 )==0 ) shape = 4;
		else if( strncmp( &at[i][6], "pe", 2 )==0 ) shape = 5;
		else if( strncmp( &at[i][6], "ci", 2 )==0 ) shape = 6;
		else if( strncmp( &at[i][6], "lefttri", 7 )==0 ) shape = 8;
		else if( strncmp( &at[i][6], "righttri", 8 )==0 ) shape = 7;
		else if( strncmp( &at[i][6], "niceci", 6 )==0 ) shape = 9;
		else if( strncmp( &at[i][6], "pix", 3 )==0 ) {
			strcpy( symcode, &at[i][6] );
			pixpt = 1;
			}
		}
	else if( strncmp( at[i], "style=", 6 )==0 ) {
		if( strlen( &at[i][6] ) == 1 ) style = at[i][6];
		else if( strncmp( &at[i][6], "out", 3 )==0 ) style = 'a';
		else if( strncmp( &at[i][6], "spo", 3 )==0 ) style = 's';
		else if( strncmp( &at[i][6], "sol", 3 )==0 || strncmp( &at[i][6], "fil", 3 )==0 ) {
			style = 'n';
			if( fillcolor[0] == '\0' ) fillcolor = Estandard_color;
			}
		}
	
	else if( strncmp( at[i], "fillcolor=", 10 )==0 ) fillcolor = &at[i][10];
	else if( strncmp( at[i], "color=", 6 )==0 ) color = &at[i][6]; /* added scg 5/25/06 */
	else if( strncmp( at[i], "linecolor=", 10 )==0 ) linecolor = &at[i][10];
	else if( strncmp( at[i], "radius=", 7 )==0 ) {
		*radius = atof( &at[i][7] );
		if( PLS.usingcm ) *radius /= 2.54; 
		if( *radius > 5.0 ) { Eerr( 4729, "very large symbol radius.. using 0.05", "" ); *radius = 0.05; }
		}
	else if( strncmp( at[i], "sym", 3 ) == 0 ) { strcpy( symcode, at[i] ); symcodedone = 1; }
	else if( strncmp( at[i], "imgfile", 7 ) ==0 ) { strcpy( str, &at[i][8] ); doing_img = 1; }
	else if( strncmp( at[i], "imgwidth", 8 ) ==0 ) imgwidth = atoi( &at[i][9] );
	else if( strncmp( at[i], "imgheight", 9 ) ==0 ) imgwidth = atoi( &at[i][10] );
	else 	{
		sprintf( str, "%s is an unrecognized symboldetails subattribute", at[i] );
		return( Eerr( 72, str, parmname ) );
		}
	}

if( doing_img ) {
	stat = Eimload( str, imgwidth, imgheight );
	if( stat != 0 ) Eerr( 5893, "warning, error on image load", str );
	strcpy( symcode, "img" );
	return( 0 );
	}

/* assimilate color= into the old scheme.. scg 5/30/06 */
if( (style == 'a' || style == 's' ) && color[0] != '\0' ) linecolor = color;
else if( style == 'n' && color[0] != '\0' ) fillcolor = color;

/* compatibility w/ old scheme.. scg 5/30/06 */
if( linecolor[0] == '\0' && style != 'n' ) linecolor = Estandard_color;
if( fillcolor[0] != '\0' && linecolor[0] != '\0' ) style = 'a';


if( pixpt ) {
	/* sprintf( str, "%g", *radius ); */
	/* strcat( symcode, str ); */
	Enormline(); /* added scg 6/8/06 */
	if( style == 'a' ) {
		symcode[0] = 'o';  /* if doing outline data point, symcode is "oix*"  */
		Ecolor( linecolor );
		}
	else Ecolor( fillcolor );
	return(0);
	}

if( !symcodedone ) sprintf( symcode, "sym%d%c%s", shape, style, fillcolor );
	
Elinetype( 0, linewidth, 1.0 );  /* do this always  - scg 11/26/07 */
if( linecolor[0] != '\0' ) Ecolor( linecolor );
return( 0 );
}

/* ======================================================= *
 * Copyright 1998-2008 Stephen C. Grubb                    *
 * http://ploticus.sourceforge.net                         *
 * Covered by GPL; see the file ./Copyright for details.   *
 * ======================================================= */