home *** CD-ROM | disk | FTP | other *** search
/ The UNIX CD Bookshelf / OREILLY_TUCB_UNIX_CD.iso / upt / examples / SOURCES / IPL / PART05.Z / PART05
Encoding:
Text File  |  1998-07-24  |  28.6 KB  |  1,011 lines
  1. Subject:  v21i036:  2D graphic system with table beautifier, Part05/14
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4. X-Checksum-Snefru: 1b6bf460 122c0f5d 23857f75 f1550da6
  5.  
  6. Submitted-by: Steve Grubb <uunet!lsr-vax!scg>
  7. Posting-number: Volume 21, Issue 36
  8. Archive-name: ipl/part05
  9.  
  10. # ipl part05
  11. #    This is a shell archive.
  12. #    Remove everything above and including the cut line.
  13. #    Then run the rest of the file through sh.
  14. #---------------------- cut here -----------------------------
  15. #!/bin/sh
  16. # shar:    Shell Archiver
  17. #    Run the following text with /bin/sh to create:
  18. #        src/areadef.c
  19. #        src/areadress.c
  20. #        src/areas.h
  21. #        src/arrow.c
  22. #        src/bargraph.c
  23. #        src/boxplot.c
  24. #        src/constraint_check.c
  25. cat << SHAR_EOF > src/areadef.c
  26. /* Set up a graphics area and do axes, etc. */
  27. #include "ipl.x"
  28. #include "areas.h"
  29.  
  30. Areadef( )
  31. {
  32. char paper[12],
  33.     areaname[30],
  34.     s1[12], s2[12], s3[12], s4[12],
  35.     uin[12];
  36. double    xlo,
  37.     xhi,
  38.     ylo,
  39.     yhi,
  40.     dxlo,
  41.     dxhi,
  42.     dylo,
  43.     dyhi;
  44. int    n,
  45.     areasrc,
  46.     p,
  47.     bad,
  48.     loadflag,
  49.     i;
  50.  
  51. /* see where area is coming from..  */
  52. areasrc = 0;
  53. gget( uin, "Area" ); if( strlen( uin ) > 0 ) areasrc = 1;
  54. gget( uin, "Area.rectangle" ); if( strlen( uin ) > 0 ) areasrc = 2;
  55. gget( uin, "Area.left" ); if( strlen( uin ) > 0 ) areasrc = 3;
  56. if( areasrc < 1 ) { 
  57.     fprintf( stderr, "Area or Area.rectangle, or Area.left+right+top+bottom must be specified.\n" ); 
  58.     gdp_exit(); 
  59.     }
  60.  
  61. if( areasrc == 1 ) {  /* preset area name */
  62.     gget( areaname, "Area" );
  63.     for( i = 0; i < Nareas; i++ ) if( strncmp( areaname, Areacoords[i], strlen( areaname )) ==0 ) break;
  64.     if( i == Nareas ) { fprintf( stderr, "Can't find preset area '%s'.\n", areaname ); gdp_exit(); }
  65.     if( Paper == 0 ) /* portrait */
  66.         n = sscanf( Areacoords[i], "%*s %s %s %s %s", s1, s2, s3, s4 );
  67.     else n = sscanf( Areacoords[i], "%*s %*s %*s %*s %*s %s %s %s %s", s1, s2, s3, s4 ); /* landscape */
  68.     if( n != 4 ) { fprintf( stderr, "Error in area presets.\n" ); gdp_exit(); }
  69.     xlo = atof( s1 ); ylo = atof( s2 ); xhi = atof( s3 ); yhi = atof( s4 ); 
  70.     }
  71. else if( areasrc == 2 ) { /* rectangle */
  72.     gget( uin, "Area.rectangle" );
  73.     if( strlen( uin ) > 0 ) n = sscanf( uin, "%lf %lf %lf %lf", &xlo, &ylo, &xhi, &yhi );
  74.     if( n != 4 ) { 
  75.         fprintf( stderr, "Area.rectangle must contain two coord pairs (low left, up right).\n" ); 
  76.         gdp_exit(); 
  77.         }
  78.     }
  79. else if( areasrc == 3 ) { /* left, right, bottom, top */
  80.     int bad = NO;
  81.     xlo = atof( uin );
  82.     gget( uin, "Area.left" );if( !goodnum( uin, &p ))bad = YES; xlo = atof( uin );
  83.     gget( uin, "Area.right" );if( !goodnum( uin, &p ))bad = YES; xhi = atof( uin );
  84.     gget( uin, "Area.bottom" ); if( !goodnum( uin, &p ))bad = YES; ylo = atof( uin );
  85.     gget( uin, "Area.top" ); if( !goodnum( uin, &p ))bad = YES; yhi = atof( uin );
  86.     if( bad ) { fprintf( stderr, "Area.left+right+bottom+top incompletely specified." ); gdp_exit(); }
  87.     }
  88.  
  89. /* scale discipline */
  90. gget( uin, "Xscaletype" );
  91. if( strcmp( uin, "log" )==0 ) Scale_discipline_x = LOG; 
  92. else if( strcmp( uin, "yymm" )==0 ) Scale_discipline_x = YYMM; 
  93. else Scale_discipline_x = LINEAR;
  94.  
  95. gget( uin, "Yscaletype" );
  96. if( strcmp( uin, "log" )==0 ) Scale_discipline_y = LOG; 
  97. else Scale_discipline_y = LINEAR;
  98.  
  99. /* scale bounds */
  100. bad = NO;
  101. gget( uin, "Xmin" ); if( ! goodnum( uin, &p )) bad = YES; dxlo = atof( uin );
  102. gget( uin, "Xmax" ); if( ! goodnum( uin, &p )) bad = YES; dxhi = atof( uin );
  103. gget( uin, "Ymin" ); if( ! goodnum( uin, &p )) bad = YES; dylo = atof( uin );
  104. gget( uin, "Ymax" ); if( ! goodnum( uin, &p )) bad = YES; dyhi = atof( uin );
  105. if( bad ) { fprintf( stderr, "Scale bounds (Xmin, Xmax, Ymin, Ymax) not all specified.\n" ); gdp_exit(); }
  106.  
  107.  
  108. /* tic increment */
  109. bad = NO;
  110. gget( uin, "Xinc" ); if( ! goodnum( uin, &p )) bad = YES; DXtic = atof( uin );
  111. gget( uin, "Yinc" ); if( ! goodnum( uin, &p )) bad = YES; DYtic = atof( uin );
  112. if( bad ) { fprintf( stderr, "Tic increments incomplete.\n" ); }
  113.  
  114. /* get tic numbering format */
  115. gget( DXticfmt, "Xticfmt" );
  116. gget( DYticfmt, "Yticfmt" );
  117.  
  118. /* fprintf( stderr, "Scaling in x: %5.1f to %5.1f by %3.1f   in y: %5.1f to %5.1f by %3.1f\n", 
  119.     dxlo, dxhi, DXtic, dylo, dyhi, DYtic ); */
  120.  
  121.  
  122. setscale_x( xlo, xhi, dxlo, dxhi );
  123. setscale_y( ylo, yhi, dylo, dyhi );
  124.  
  125.  
  126. /* do the graphic work for axes, ticks, etc. */
  127. areadress( );
  128.  
  129. }
  130. SHAR_EOF
  131. ############################
  132.  
  133. cat << SHAR_EOF > src/areadress.c
  134. /* areadress() - do axis scaling stubs, labels, and title */
  135. /*  ..gets called by areadef (only) */
  136. #include "ipl.x" 
  137. #define LINE 1
  138. #define SHADE 2
  139. #define WLINE 3
  140. #define NUMERIC 0
  141. #define FROM_FILE 1
  142. #define VAR 2
  143. #define LITERAL 3
  144.  
  145.  
  146. areadress( )
  147. {
  148. char     str[50], 
  149.     do_x[10], do_y[10],
  150.     shade[12],
  151.     month[6], year[6];
  152. int     i, j,
  153.     n,
  154.     tl, tr, 
  155.     sl, sr, 
  156.     grid, 
  157.     even, 
  158.     minor,
  159.     stub0or1,
  160.     varfield,
  161.     nrows,
  162.     no_lone_tics,
  163.     stubisrc;
  164. double     tcl = 0.08, 
  165.     mtcl = 0.035, /* tic length, major and minor */
  166.     stop,
  167.     xstubyofs,
  168.     ystubxofs,
  169.     sh,
  170.     f, g, h;
  171. FILE     *fp;
  172.  
  173. /* set to uer's standard font */
  174. gget( Buf, "Font" );
  175. NTfont( Buf );
  176.  
  177.  
  178. /* frame of the graphics area */
  179. gget( Buf, "Frame" );
  180. if( strcmp( Buf, "double" ) == 0 ) ab_rect( Xlo-mtcl, Ylo-mtcl, Xhi+mtcl, Yhi+mtcl, 1.0, 1 );
  181. if( strcmp( Buf, "none" ) != 0 ) ab_rect( Xlo, Ylo, Xhi, Yhi, 1.0, 1 );
  182. /* shade the area */
  183. gget( Buf, "Shade" );
  184. if( strlen( Buf ) > 0 ) {
  185.     sh = atof( Buf );
  186.     ab_rect( Xlo, Ylo, Xhi, Yhi, sh, 0 );
  187.     }
  188.  
  189. gget( Buf, "Ystub.ticlen" ); tcl = atof( Buf );
  190. gget( Buf, "Ystub.ticlen.minor" ); mtcl = atof( Buf );
  191.  
  192. /**** Y ****/
  193. /* draw axis line */
  194. gget( do_y, "Yaxis" ); 
  195. if( do_y[0] == 'n' ) goto BEGIN_X; /* if 'no', skip all the y axis code */
  196.  
  197.  
  198. /* stub text can be numeric, from a data field, from a file, or literally specified. */
  199. gget( Buf, "Ystub" ); 
  200. if( strcmp( Buf, "num" )==0 ) stubisrc = NUMERIC;
  201. else if( Buf[0] == '@' ) { 
  202.     stubisrc = VAR;
  203.     varfield = atoi( &Buf[1] ); 
  204.     if( varfield < 1 || varfield > N_d_fields ) { fprintf( stderr, "bad stub var field\n" ); gdp_exit(); }
  205.     }
  206. else if( strlen( Buf ) < 1 ) fprintf( stderr, "Warning, Ystub not specified.\n" );
  207. else     {
  208.     stubisrc = FROM_FILE;
  209.     fp = fopen( Buf, "r" );
  210.     if( fp != NULL ) {
  211.         gget( Buf, "Ystub.fileline" );
  212.         for( i = 0; i < atoi( Buf ); i++ ) fgets( str, 30, fp );
  213.         }
  214.     else if( fp == NULL ) {
  215.         sprintf( Buf2, "%s/%s", Templatepath, Buf );
  216.         fp = fopen( Buf2, "r" );
  217.         if( fp != NULL ) {
  218.             gget( Buf, "Ystub.fileline" );
  219.             for( i = 0; i < atoi( Buf ); i++ ) fgets( str, 30, fp );
  220.             }
  221.         else if( fp == NULL ) {
  222.             text_tofile( Buf, Tempfile );
  223.             fp = fopen( Tempfile, "r" );
  224.             }
  225.         }
  226.     }
  227.  
  228.  
  229. /* sides to put tics on */
  230. gget( Buf, "Ystub.tics" ); 
  231. if( smember( Buf, "left both" )) tl = YES; else tl = NO;
  232. if( smember( Buf, "right both" )) tr = YES; else tr = NO;
  233.  
  234. /* sides to put stubs on */
  235. gget( Buf, "Ystub.stubs" ); 
  236. if( smember( Buf, "left both" )) sl = YES; else sl = NO;
  237. if( smember( Buf, "right both" )) sr = YES; else sr = NO;
  238.  
  239. /* point size of stubs */
  240. gget( Buf, "Ystub.size" ); NTptsize( atoi( Buf ) );
  241.  
  242. /* shade level for shaded blocks */
  243. gget( shade, "Ystub.shade" );
  244.  
  245. /* grid style */
  246. gget( Buf, "Ystub.grid" ); 
  247. if( strcmp( Buf, "line" )==0 ) grid = LINE;
  248. else if( strcmp( Buf, "shade" )==0 ) grid = SHADE;
  249. else if( strcmp( Buf, "wline" )==0 ) grid = WLINE;
  250. else grid = NO;
  251.  
  252. /* minor tics */
  253. gget( Buf, "Ystub.minor" ); minor = atoi( Buf );
  254.  
  255. gget( Buf, "Ystub.xofs" ); ystubxofs = - atof( Buf ); /* note sign change */
  256. gget( Buf, "Ystub.nolonetics" ); if( Buf[0] == 'y' ) no_lone_tics = 1; else no_lone_tics = 0;
  257.  
  258. /**** loop for doing y axis tics and stubs ****/
  259. even = YES;
  260. n = 0; /* counter for stub from var */
  261. gget( Buf, "Ystart.0or1" ); stub0or1 = atoi( Buf );
  262. if( stub0or1 ) { f = DYlo + (stub0or1 * DYtic); stop = DYhi - DYtic; }
  263. else { f = DYlo; stop = DYhi; }
  264. for( ; f <= stop +.0001; f+= DYtic ) {
  265.  
  266.     /* get stub text */
  267.     if( stubisrc == NUMERIC )sprintf( str, DYticfmt, f );
  268.     else if( stubisrc == VAR ) {
  269.         if( n < N_d_rows ) strcpy( str, D[ n++ ][ atoi( &Buf[1] ) -1 ] );
  270.         else str[0] = '\0';
  271.         }
  272.     else if( stubisrc == FROM_FILE) { 
  273.         if( fgets( str, 30, fp ) == NULL ) str[0] = '\0';
  274.         str[ strlen( str )-1 ] = '\0'; 
  275.         if( str[0] == '!' ) { str[0] = ' '; sscanf( &str[1], "%lf", &f ); if( f > stop ) break; }
  276.         }
  277.  
  278.     if( no_lone_tics && strlen( str ) < 1 ) { even = !even; continue; }
  279.  
  280.     if( tl ) { NTm( DXlo, f ); NTlin( da_x( DXlo ) - tcl , da_y( f ) ); } /* tics, left */
  281.     if( tr ) { NTm( DXhi, f ); NTlin( da_x( DXhi ) + tcl , da_y( f ) ); } /* tics, right */
  282.     if( f <= (DYhi-DYtic)+.0001 ) for( i = 0, g = f; i < minor; i++ ) {  /* minor tics */
  283.         g+= DYtic / (double) minor ;
  284.         if( tl ) { NTm( DXlo, g ); NTlin( da_x( DXlo ) - mtcl , da_y( g ) ); } /* tics, left */
  285.         if( tr ) { NTm( DXhi, g ); NTlin( da_x( DXhi ) + mtcl , da_y( g ) ); } /* tics, right */
  286.         }
  287.     if( sl ) { NTmov( da_x( DXlo ) - 2, da_y( f ) - 0.03 ); NTrightjust( str, (2+ystubxofs) ); } /* text left */
  288.     if( sr ) { NTmov( da_x( DXhi ) - ystubxofs , da_y( f ) - 0.03 ); NTtext( str ); }    /* text right */
  289.     if( grid == LINE ) {     /* lines */
  290.         NTlinetype( "0", 0.3, 0 );
  291.         NTm( DXlo, f ); 
  292.         NTl( DXhi, f ); 
  293.         NTnormline();
  294.         }
  295.     if( grid == WLINE ) ab_rect( da_x( DXlo ), da_y( f ) - 0.02, da_x( DXhi ), da_y( f )+ 0.02, 1.0, 0 );
  296.     if( grid == SHADE && even && f <= (DYhi-DYtic)+.0001 ) { /* shaded blocks */
  297.         rect( DXlo, f, DXhi, f+DYtic, atof( shade ), 0 );
  298.         } 
  299.     even = !even;
  300.     }
  301. if( stubisrc == FROM_FILE ) fclose( fp );
  302. if( smember( do_y, "left both" ) ) { NTmov( Xlo, Ylo ); NTlin( Xlo, Yhi ); }
  303. if( smember( do_y, "right both" ) ) { NTmov( Xhi, Ylo ); NTlin( Xhi, Yhi ); }
  304.  
  305.  
  306.  
  307. /**** X ****/
  308. /* draw axis line */
  309. BEGIN_X:
  310. gget( do_x, "Xaxis" ); 
  311. if( do_x[0] == 'n' ) goto TITLES; /* dont do any of this */
  312.  
  313. gget( Buf, "Xstub.ticlen" ); tcl = atof( Buf );
  314. gget( Buf, "Xstub.ticlen.minor" ); mtcl = atof( Buf );
  315.  
  316. /* Figure out where stub text will come from.. either
  317.  * plain numeric, from a data field, from a file, or literally specified.
  318.  * Also available for x axis only is month/year, which actually comes from a file. */
  319.  
  320. gget( Buf, "Xstub" ); 
  321.  
  322. if( strcmp( Buf, "num" )==0 ) stubisrc = NUMERIC;
  323. else if( Buf[0] == '@' ) { 
  324.     stubisrc = VAR; 
  325.     varfield = atoi( &Buf[1] ); 
  326.     if( varfield < 1 || varfield > N_d_fields ) { fprintf( stderr, "bad stub var field\n" ); gdp_exit(); }
  327.     }
  328. else if( strcmp( Buf, "month" )==0 ) { 
  329.     int start;
  330.     if( Scale_discipline_x == YYMM ) {
  331.         gget( Buf, "Xmin" );
  332.         sprintf( month, "%02d", atoi( Buf ) % 100 );
  333.         sprintf( year, "%02d", atoi( Buf ) / 100 );
  334.         }
  335.     else    {
  336.         gget( month, "Xstub.startmonth" );
  337.         gget( year, "Xstub.startyear" );
  338.         }
  339.     if( month[0] == '\0' || year[0] == '\0' ) {
  340.         fprintf( stderr, "Warning, Xstub.startmonth (1-12) or Xstub.startyear (70-90) are missing.\n" );
  341.         }
  342.     start = (((atoi(year)%100)*12) + atoi( month )) - (70*12);
  343.     fp = fopen( MONTHSTUB_PATH, "r" );
  344.     if( fp == NULL ) { fprintf( stderr, "Can't open month stub file.\n" ); gdp_exit(); }
  345.     for( i = 0; i < start; i++ ) fgets( str, 30, fp );
  346.     stubisrc = FROM_FILE;
  347.     }
  348. else     {
  349.     stubisrc = FROM_FILE;
  350.     fp = fopen( Buf, "r" );
  351.     if( fp != NULL ) {
  352.         gget( Buf, "Xstub.fileline" );
  353.         for( i = 0; i < atoi( Buf ); i++ ) fgets( str, 30, fp );
  354.         }
  355.     else if( fp == NULL ) {
  356.         sprintf( Buf2, "%s/%s", Templatepath, Buf );
  357.         fp = fopen( Buf2, "r" );
  358.         if( fp != NULL ) {
  359.             gget( Buf, "Xstub.fileline" );
  360.             for( i = 0; i < atoi( Buf ); i++ ) fgets( str, 30, fp );
  361.             }
  362.  
  363.         else if( fp == NULL ) {
  364.             text_tofile( Buf, Tempfile );
  365.             fp = fopen( Tempfile, "r" );
  366.             }
  367.         }
  368.     }
  369.  
  370.  
  371. gget( Buf, "Xstub.tics" ); 
  372. if( smember( Buf, "bottom both" )) tl = YES; else tl = NO;
  373. if( smember( Buf, "top both" )) tr = YES; else tr = NO;
  374.  
  375. gget( Buf, "Xstub.stubs" ); 
  376. if( smember( Buf, "bottom both" )) sl = YES; else sl = NO;
  377. if( smember( Buf, "top both" )) sr = YES; else sr = NO;
  378.  
  379. gget( Buf, "Xstub.size" ); NTptsize( atoi( Buf ) );
  380. gget( shade, "Xstub.shade" );
  381.  
  382. gget( Buf, "Xstub.grid" ); 
  383. if( strcmp( Buf, "line" )==0 ) grid = LINE; 
  384. else if( strcmp( Buf, "shade" )==0 ) grid = SHADE;
  385. else if( strcmp( Buf, "wline" )==0 ) grid = WLINE;
  386. else grid = NO;
  387.  
  388. gget( Buf, "Xstub.minor" ); minor = atoi( Buf );
  389. gget( Buf, "Xstub.nolonetics" ); if( Buf[0] == 'y' ) no_lone_tics = 1; else no_lone_tics = 0;
  390.  
  391. /**** loop for doing x axis tics and stubs ****/
  392. n = 0;
  393. even = YES;
  394. gget( Buf, "Xstub.yofs" ); xstubyofs = - atof( Buf ); /* note sign change */
  395. gget( Buf, "Xstart.0or1" ); stub0or1 = atoi( Buf );
  396. if( stub0or1 ) { f = DXlo + (stub0or1 * DXtic ); stop = DXhi - DXtic; }
  397. else { f = DXlo; stop = DXhi; }
  398. for( ; f <= stop + .0001; f+= DXtic ) {
  399.  
  400.     /* get stub text */
  401.     if( stubisrc == NUMERIC )sprintf( str, DXticfmt, f );
  402.     else if( stubisrc == VAR ) {
  403.         if( n < N_d_rows ) strcpy( str, D[ n++ ][ varfield -1 ] );
  404.         else str[0] = '\0';
  405.         }
  406.     else if( stubisrc == FROM_FILE) { 
  407.         if( fgets( str, 30, fp ) == NULL ) str[0] = '\0';
  408.         else str[ strlen( str )-1 ] = '\0'; 
  409.         if( str[0] == '!' ) { str[0] = ' '; sscanf( &str[1], "%lf", &f ); if( f > stop ) break; }
  410.         }
  411.  
  412.     if( no_lone_tics && strlen( str ) < 1 ) { even = !even; continue; }
  413.  
  414.     if( tl ) { NTm( f, DYlo ); NTlin( da_x( f ), da_y( DYlo ) - tcl ); }
  415.     if( tr ) { NTm( f, DYhi ); NTlin( da_x( f ), da_y( DYhi ) + tcl ); }
  416.     if( f <= (stop-DXtic)+.0001 ) for( i = 0, g = f; i < minor; i++ ) {  /* minor tics */
  417.         g+= DXtic / (double) minor ;
  418.         if( tl ) { NTm( g, DYlo ); NTlin( da_x( g ), da_y( DYlo ) - mtcl ); }
  419.         if( tr ) { NTm( g, DYhi ); NTlin( da_x( g ), da_y( DYhi ) + mtcl ); }
  420.         }
  421.  
  422.     if( sl ) {    /* tokens are stacked, max=3 */
  423.         char s[3][30];
  424.         for( i = 0; i < strlen( str ); i++ ) { 
  425.             if( str[i] == ' ' )str[i] = '_';
  426.             else if( str[i] == '~' ) str[i] = '\n' ;
  427.             }
  428.         nrows = sscanf( str, "%s %s %s", s[0], s[1], s[2] ); 
  429.         h = da_y( DYlo ) + xstubyofs;
  430.         for( i = 0; i < nrows; i++ ) {
  431.             for( j = 0; j < strlen( s[i] ); j++ ) if( s[i][j]== '_' ) s[i][j]=' ';
  432.             NTmov( da_x( f ) - 1, h ); NTcentext( s[i], 2 ); 
  433.             h -= Chh;
  434.             }
  435.         }
  436.     if( sr ){ 
  437.         char s[3][30];
  438.         for( i = 0; i < strlen( str ); i++ ) { 
  439.             if( str[i] == ' ' )str[i] = '_';
  440.             else if( str[i] == '~' ) str[i] = '\n' ;
  441.             }
  442.         nrows = sscanf( str, "%s %s %s", s[0], s[1], s[2] ); 
  443.         h = -(xstubyofs) + da_y( DYhi ) + ((nrows-2)*Chh); /* */
  444.         for( i = 0; i < nrows; i++ ) {
  445.             for( j = 0; j < strlen( s[i] ); j++ ) if( s[i][j]== '_' ) s[i][j]=' ';
  446.             NTmov( da_x( f ) - 1, h ); NTcentext( s[i], 2 ); 
  447.             h -= Chh;
  448.             }
  449.         }
  450.  
  451.  
  452.     if( grid == LINE ) { 
  453.         NTlinetype( "0", 0.3, 0 );
  454.         NTm( f, DYlo ); 
  455.         NTl( f, DYhi ); 
  456.         NTnormline();
  457.         }
  458.     if( grid == WLINE ) ab_rect( da_x( f ) - 0.02, da_y( DYlo ), da_x( f ) + 0.02, da_y( DYhi ), 1.0, 0 );
  459.         
  460.     if( grid == SHADE && even && f <= (stop-DXtic)+.0001 ) { 
  461.         rect( f, DYlo, f+DXtic, DYhi, atof( shade ), 0 );
  462.         } 
  463.     even = !even;
  464.     }
  465. if( stubisrc == FROM_FILE ) fclose( fp );
  466. if( smember( do_x, "top both" ) ) { NTmov( Xlo, Yhi ); NTlin( Xhi, Yhi ); }
  467. if( smember( do_x, "bottom both" ) ){ NTmov( Xlo, Ylo ); NTlin( Xhi, Ylo ); }
  468.  
  469. TITLES:
  470.  
  471.  
  472. /**** do axis identifiers ****/
  473.     {
  474.     int n, c1, c2, c3;
  475.     double ofs;
  476.     gget( Buf, "Xlabel" );
  477.     if( strlen( Buf ) > 0 ) {
  478.         gget( Buf2, "Xlabel.size" ); NTptsize( atof( Buf2 ) );
  479.         gget( Buf2, "Xlabel.position" ); ofs = atof( Buf2 );
  480.         getln( "" );
  481.         for( i = 0; i < countln( Buf ); i++ ) {
  482.             NTmov( Xlo, Ylo - ofs ); 
  483.             NTcentext( getln( Buf ), (Xhi-Xlo) );
  484.             ofs += Chh; 
  485.             }
  486.         }
  487.  
  488.     gget( Buf, "Ylabel" );
  489.     if( strlen( Buf ) > 0 ) {
  490.         gget( Buf2, "Ylabel.size" ); NTptsize( atof( Buf2 ) );
  491.         gget( Buf2, "Ylabel.position" ); ofs = atof( Buf2 );
  492.         NTchardir( 90 );
  493.         getln( "" );
  494.         for( i = 0; i < countln( Buf ); i++ ) {
  495.             NTmov( Xlo-ofs, Ylo ); 
  496.             NTcentext( getln( Buf ), (Yhi-Ylo) ); 
  497.             ofs -= Chh;
  498.             }
  499.         NTchardir( 0 );
  500.         }
  501.     }
  502.  
  503. /**** area title ****/
  504.     {
  505.     int i = 1, c;
  506.     double ofs;
  507.     char just[20];
  508.  
  509.     gget( Buf, "Subtitle" );
  510.     if( strlen( Buf ) > 0 ) {
  511.         gget( Buf2, "Subtitle.font" ); NTfont( Buf2 );
  512.         gget( Buf2, "Subtitle.size" ); NTptsize( atof( Buf2 ) );
  513.         gget( Buf2, "Subtitle.above" ); ofs = atof( Buf2 );
  514.         gget( Buf2, "Subtitle.justify" ); strcpy( just, Buf2 );
  515.  
  516.         getln( "" );
  517.         for( i = 0; i < countln( Buf ); i++ ) {
  518.             NTmov( Xlo+0.1, Yhi+ofs );
  519.             if( strcmp( just, "center" )==0 ) NTcentext( getln( Buf ), Xhi-(Xlo+0.1) );
  520.             else if( strcmp( just, "right" )==0 )NTrightjust( getln( Buf ), Xhi-(Xlo+0.1) );
  521.             else NTtext( getln( Buf ) );
  522.             ofs -= Chh;
  523.             }
  524.         }
  525.     }
  526. /* restore standard font */
  527. gget( Buf, "Font" ); NTfont( Buf );
  528. }
  529.  
  530. SHAR_EOF
  531. ############################
  532.  
  533. cat << SHAR_EOF > src/areas.h
  534. /* # area.coords
  535. # 
  536. #   The following is a list of predefined graphics areas (windows) on the page.
  537. # Some use the whole page; those beginning with '2' are for doing two plots 
  538. # per page, 3 for three plots per page, etc.
  539. #   These names can be used as the Area in Proc Areadef.  If none
  540. # of these is suitable, Area.left, Area.right, etc. can be defined explicitly.
  541. # Coordinates are in inches, with the origin in the lower left.
  542. #
  543. #                 ---portrait----    ---landscape---
  544. # format is: 
  545. # AREA NAME (must be followed by space(s))
  546. #               XLO YLO XHI YHI    XLO YLO XHI YHI
  547. # */
  548.  
  549. char *Areacoords[30] = {
  550. "standard     1.2 3.5 7.4 8.0   1.5 1.5 9.0 6.2",
  551. "square       1.2 2.0 7.2 8.0   2.2 0.8 8.2 6.8",
  552. "dist1        1.2 6.5 7.2 8.0   2.2 5.3 8.2 6.8",
  553. "whole        1.2 1.0 7.4 9.0   1.5 1.2 9.0 7.0",
  554. "2hi          1.0 6.0 7.6 9.5   1.0 4.5 9.0 7.5",
  555. "2lo          1.0 1.5 7.6 5.0   1.0 0.75 9.0 3.75",
  556. "2left        1.0 1.0 4.0 9.5   1.0 1.0 5.25 6.5",
  557. "2right       5.0 1.0 8.0 9.5   6.25 1.0 10.5 6.5",
  558. "3hi          1.0 7.0 7.6 9.0   1.0 5.5 9.0 7.5",
  559. "3mid         1.0 4.0 7.6 6.0   1.0 3.0 9.0 5.0",
  560. "3lo          1.0 1.0 7.6 3.0   1.0 0.5 9.0 2.5",
  561. "4nw          1.0 6.0 4.0 9.0   1.0 4.0 5.25 7.0",
  562. "4ne          4.5 6.0 7.5 9.0   6.25 4.0 10.5 7.0",
  563. "4sw          1.0 1.5 4.0 4.5   1.0 0.5 5.25 3.5",
  564. "4se          4.5 1.5 7.5 4.5   6.25 0.5 10.5 3.5",
  565. "map          0.4 2.0 6.8 8.4   1.4 0.8 7.8 7.2",
  566. "usamap       .5  5 8 9.5        .5  1 10.5 7",
  567. "lifetab      1.0 1.0 7.0 4.5   1.5 1.0 7.5 4.5",
  568. "nicetab      1.0 0.5 7.5 10    1.5 0.5 9.0 7.0",
  569. "narrowtab    2.0 0.5 6.0 10    3.0 0.5 8.0 7.0",
  570. "narrowleft   1.0 0.4 4.0 10.5  1.0 1.0 5.25 6.5",
  571. "narrowright  5.0 0.4 8.0 10.5  6.25 1.0 10.5 6.5" ,
  572. "tabhi        1.0 5.5 8.0 10.5  1.0 4.3 10.0 8.0",
  573. "tablo        1.0 0.5 8.0 5.5   1.0 0.5 10.0 4.2"
  574.     } ;
  575. int Nareas = 25;
  576. SHAR_EOF
  577. ############################
  578.  
  579. cat << SHAR_EOF > src/arrow.c
  580. #include "ipl.x"
  581.  
  582. Arrow( )
  583. {
  584. double x1, y1, x2, y2;
  585. gget( Buf, "Points" );
  586. sscanf( Buf, "%lf %lf %lf %lf", &x1, &y1, &x2, &y2 );
  587. arr( x1, y1, x2, y2, 0.3, 0.2, 0.0 );
  588. }
  589.  
  590.  
  591. arr( x1, y1, x2, y2, delt_th, r, sh )
  592. double x1, y1, x2, y2, delt_th, r, sh;
  593. {
  594. double vx, vy, ax1, ay1, ax2, ay2, th0, th1, th2, atan();
  595. vx = x2 - x1;
  596. vy = y2 - y1;
  597.  
  598. th0 = atan( vy / vx );
  599. th1 = th0 + delt_th;
  600. th2 = th0 - delt_th;
  601.  
  602. if( x2 < x1 ) {
  603.     ax1 = x2 + (r * cos( th1 ));
  604.     ay1 = y2 + (r * sin( th1 ));
  605.     ax2 = x2 + (r * cos( th2 ));
  606.     ay2 = y2 + (r * sin( th2 ));
  607.     }
  608. else     {
  609.     ax1 = x2 - (r * cos( th1 ));
  610.     ay1 = y2 - (r * sin( th1 ));
  611.     ax2 = x2 - (r * cos( th2 ));
  612.     ay2 = y2 - (r * sin( th2 ));
  613.     }
  614.  
  615. NTmov( x2, y2 );
  616. NTpath( ax1, ay1 );
  617. NTpath( ax2, ay2 );
  618. NTshade( sh );
  619. NTmov( x1, y1 );
  620. NTlin( x2, y2 );
  621. }
  622. SHAR_EOF
  623. ############################
  624.  
  625. cat << SHAR_EOF > src/bargraph.c
  626. /* horizontal (standard) bar graphs */
  627. #include "ipl.x"
  628. #define STACK    0
  629. #define CLUSTER 1
  630.  
  631.  
  632. Bargraph( )
  633. {
  634. int     k[8], 
  635.     idf[8],
  636.     format,
  637.     label,
  638.     n,
  639.     nc,
  640.     i, j, jj,
  641.     p,
  642.     xfld,
  643.     xset,
  644.     start,
  645.     outline;
  646.  
  647. double s[8],
  648.     accum,
  649.     zer,
  650.     curx,
  651.     xspace,
  652.     subspace,
  653.     y,
  654.     y2,
  655.     f,
  656.     lblpos,
  657.     sep,
  658.     msep = 0.03;
  659. char str[10];
  660.  
  661.  
  662. /* get the data field list */
  663. gget( Buf, "Field" ); 
  664. n = 0;
  665. while( n < 1 ) { 
  666.     n = sscanf( Buf, "%d %d %d %d %d %d %d %d", &k[0], &k[1], &k[2], &k[3], &k[4], &k[5], &k[6], &k[7] );
  667.     if( N_d_fields == 1 ) strcpy( Buf, "1" );
  668.     else if( n < 1 ) { fprintf( stderr, "Field parameter(s) for bar graph are missing.\n" ); gdp_exit(); }
  669.     }
  670. for( i = 0; i < n; i++ ) 
  671.     if( k[i] < 1 || k[i] > N_d_fields ) { fprintf( stderr, "Field is bad\n" ); gdp_exit(); }
  672.  
  673. /* get the label field list, if any */
  674. gget( Buf, "Idfield" ); 
  675. if( strlen( Buf ) > 0 ) { 
  676.     label = YES;
  677.     sscanf( Buf, "%d %d %d %d %d %d %d %d", &idf[0], &idf[1], &idf[2], &idf[3], &idf[4], &idf[5], &idf[6], &idf[7] );
  678.     for( i = 0; i < n; i++ ) 
  679.         if( idf[i] < 1 || idf[i] > N_d_fields ) { fprintf( stderr, "Idfield is bad\n" ); gdp_exit(); }
  680.     }
  681. else label = NO;
  682.  
  683. gget( Buf, "Format" );  
  684. if( strcmp( Buf, "stack" )==0 ) format = STACK;
  685. else format = CLUSTER;
  686.  
  687. DXtic = 1.0;
  688.  
  689. /* get bar shades */
  690. gget( Buf, "Shade" ); 
  691. sscanf( Buf, "%lf %lf %lf %lf %lf %lf %lf %lf", &s[0], &s[1], &s[2], &s[3], &s[4], &s[5], &s[6], &s[7] );
  692.  
  693. /* get zero line */
  694. gget( Buf, "Zeroat" ); 
  695. if( goodnum( Buf, &p )) zer = atof( Buf );
  696. else zer = DYlo;
  697.  
  698. /* get label size */
  699. if( label ) { gget( Buf, "Idfield.size" ); NTptsize( atof( Buf ) ) };
  700.  
  701. /* distance of label from bar top */
  702. if( label ) { gget( Buf, "Idfield.position" ); lblpos = atof( Buf ); }
  703.  
  704. /* outline or not */
  705. gget( Buf, "Outlinebars" ); if( Buf[0] == 'y' ) outline = YES; else outline = NO;
  706.  
  707. /* x distance between major bar spaces */
  708. gget( Buf, "Separation" ); sep = atof( Buf );
  709.  
  710. gget( Buf, "Separation.sub" ); msep = atof( Buf );
  711.  
  712. xspace = ( (Xhi-Xlo)/((DXhi-DXlo)+1) ) - (sep*Scale_x);
  713.  
  714. if( format == CLUSTER ) nc = n; else nc = 1;
  715.  
  716. gget( Buf, "Killwild" ); /* option for aborting plot if any values out of range */
  717. if( atof( Buf ) != 0 ) {
  718.     for( i = 1; i <= N_d_rows; i++ ) {
  719.         if( atof( D[i-1][ k[0] -1 ] ) > atof( Buf ) ) {
  720.             fprintf( stderr, "Note: This Bargraph terminated due to a value of %s.\n", D[i-1][k[0]-1] );
  721.             return( 0 );
  722.             }
  723.         }
  724.     }
  725.  
  726. gget( Buf, "Xfield" ); /* allow placement of bars by a data field */
  727. if( strlen( Buf ) > 0 ) {
  728.     xset = 1;
  729.     xfld = atoi( Buf );
  730.     if( xfld < 1 || xfld > N_d_fields ) { fprintf( stderr, "Yfield bad.\n" ); gdp_exit(); }
  731.     }
  732. else xset = 0;
  733.  
  734. gget( Buf, "Xstart.0or1" ); /* allow starting at 0 or 1 */
  735. if( Buf[0] == '0' ) { start = 0; }
  736. else { start = 1; }
  737.  
  738. for( i = 1; i <= N_d_rows; i++ ) {
  739.     if( xset ) curx = da_x( atof( D[i-1][xfld-1] ) ) - (xspace/2);
  740.     else curx = da_x((double)(DXlo+i+(start-1))) - (xspace/2);
  741.  
  742.     subspace = ( xspace / nc );
  743.     for( j = 0; j < nc; j++ ) {
  744.         if( !goodnum( D[i-1][ k[j]-1 ], &p )) {
  745.             fprintf( stderr, "Warning, row %d, field %d, is bad (%s)\n", i, k[j], D[i-1][ k[j]-1] );
  746.             curx += subspace;
  747.             continue;
  748.             }
  749.         y = atof(D[i-1][ k[j]-1 ]);
  750.         if( y != DYlo )
  751.             ab_rect( curx, da_y(zer), curx+(subspace-msep), da_y(y), s[j], (s[j]==1)?1:outline );
  752.         if( label ) {
  753.             if( y < zer || format == STACK ) f = (-lblpos)-Chh; else f = lblpos;
  754.             strcpy( str, D[i-1][ idf[j]-1 ] );
  755.             NTmov( curx, da_y(y)+f );
  756.             NTcentext( str, subspace-msep );
  757.             }
  758.         if( format == STACK ) for( jj = 1; jj < n; jj++ ) {
  759.             if( !goodnum( D[i-1][ k[jj] -1 ], &p ) ) {
  760.                 fprintf( stderr, "Warning, row %d, field %d, is bad (%s)\n", i, k[jj], D[i-1][k[jj]-1] );
  761.                 continue;
  762.                 }
  763.             y2 = y + atof( D[i-1][ k[jj] -1 ] );
  764.             if( y2 != DYlo )
  765.                 ab_rect( curx, da_y(y), curx+(subspace-msep), da_y(y2), s[jj], (s[jj]==1)?1:outline );
  766.             if( label ) {
  767.                 if( y2 < zer || format == STACK ) f = (-lblpos)-Chh; else f = lblpos;
  768.                 NTmov( curx, da_y(y2)+f );
  769.                 strcpy( str, D[i-1][ idf[jj]-1 ] );
  770.                 NTcentext( str, subspace-msep );
  771.                 }
  772.             y = y2;
  773.             }
  774.  
  775.         curx += subspace;
  776.         }
  777.     }
  778.  
  779. gget( Buf, "Segment" );
  780. if( Buf[0] == 'y' ) 
  781.     for( f = DYlo+DYtic; f < DYhi; f += DYtic ) 
  782.         rect( DXlo + 0.2, f-(DYhi*0.003), DXhi - 0.2, f+(DYhi*0.004), 1.0, 0 );
  783. }
  784. SHAR_EOF
  785. ############################
  786.  
  787. cat << SHAR_EOF > src/boxplot.c
  788. #include "ipl.x"
  789. Boxplot( )
  790. {
  791. int f[8], row, i, doends;
  792. double val[8];
  793. double w, x;
  794.  
  795. gget( Buf, "Linethick" );
  796. NTlinetype( "0", atof( Buf ), 1.0 );
  797.  
  798. gget( Buf, "Label.size" );
  799. if( atoi( Buf ) > 0 ) NTptsize( atoi( Buf ) );
  800.  
  801. gget( Buf, "Ends" );
  802. if( Buf[0] == 'y' ) doends = 1;
  803. else doends = 0;
  804.  
  805. gget( Buf, "Fields" );
  806. if( strlen( Buf ) > 0 ) {
  807.     if( sscanf( Buf, "%d %d %d %d %d %d", &f[0], &f[1], &f[2], &f[3], &f[4], &f[5] ) != 6 ) {
  808.         fprintf( stderr, "Fields should specify six data fields (n, and the 5,25,50,75,95 percentiles)\n" );
  809.         gdp_exit();
  810.         }
  811.     }
  812.  
  813. gget( Buf, "Datarow" );
  814.  
  815. row = atoi( Buf );
  816. for( i = 0; i < 6; i++ ) {
  817.     if( f[i] < 1 || f[i] > N_d_fields ) { fprintf( stderr, "Pfields bad.\n" ); gdp_exit(); }
  818.     else if( row > 0 && row <= N_d_rows ) val[i] = atof( D[ row - 1 ][ f[i]-1 ] );
  819.     else { fprintf( stderr, "Datarow bad.\n" ); gdp_exit(); }
  820.     }
  821.  
  822. gget( Buf, "Xloc" ); x = atof( Buf );
  823. gget( Buf, "Width" ); w = atof( Buf );
  824.  
  825. NTm( x-(w/2), val[2] ); /* lower edge of box */
  826. NTp( x+(w/2), val[2] );
  827. NTp( x+(w/2), val[4] );
  828. NTp( x-(w/2), val[4] );
  829. NTp( x-(w/2), val[2] ); /* upper edge */
  830. NTshade( 1.0 );
  831.  
  832. NTm( x, val[1] ); /* lower tail */
  833. NTl( x, val[2] );
  834. if( doends ) { NTm( x-(w/2.7), val[1] ); NTl( x+(w/2.7), val[1] ); }
  835.  
  836. NTm( x-(w/2), val[2] ); /* lower edge of box */
  837. NTl( x+(w/2), val[2] );
  838. NTl( x+(w/2), val[4] );
  839. NTl( x-(w/2), val[4] );
  840. NTl( x-(w/2), val[2] ); /* upper edge */
  841.  
  842. NTm( x, val[4] );
  843. NTl( x, val[5] ); /* upper tail */
  844. if( doends ) { NTm( x-(w/2.7), val[5] ); NTl( x+(w/2.7), val[5] ); }
  845.  
  846. NTm( x-(w/2), val[3] ); /* median line */
  847. NTl( x+(w/2), val[3] );
  848.  
  849. gget( Buf, "Printn" );
  850. if( Buf[0] == 'y' ) {
  851.     NTmov( da_x(x) -1, Ylo-0.15 );  /* print N */
  852.     sprintf( Buf, "N = %d", (int) (val[0]) );
  853.     NTcentext( Buf, 2 );
  854.     }
  855.  
  856. NTnormline();
  857. }
  858. SHAR_EOF
  859. ############################
  860.  
  861. cat << SHAR_EOF > src/constraint_check.c
  862. /* constraint_check() - checks user parameter value against constraints
  863.    from param. database, if any.  If violated, returns 0, otherwise, returns 1.
  864.  
  865.    Supported constraint types are:    example:        sample input:
  866.     numeric range            0 to 12            2
  867.     any number            number            3.1415
  868.     set                {center,left,right}    left
  869.     character size            charsize        6
  870.     vector (x,y)            coordpair        3.55 2.00
  871.     character string        token            hello
  872.     *    a list of tokens sep. by space    list            0 0.2 0.4 0.7 1
  873.     *    multi-line text            text            Hello world,
  874.                                 is there anyone there?
  875.     * No enforcement done here for these types..
  876. */
  877. #include <stdio.h>
  878. #include "../install.h"
  879.  
  880. constraint_check( value, constraint )
  881. char value[], constraint[];
  882. {
  883. char token[30], val[30], cn[5][8];
  884. double atof(), fval, high, low;
  885. int i, j, multi, rtnval, nct, ix;
  886.  
  887. if( strlen( value ) < 1 ) return( 1 ); /* empty */
  888.  
  889. if( smember( constraint, "list text" )) return( 1 );
  890.  
  891. /* anything else should be single token (or series of single tokens with like types) */
  892. nct = sscanf( constraint, "%*s %s %s %s %s %s", cn[0], cn[1], cn[2], cn[3], cn[4] );
  893. multi = 0;
  894. for( i = 0; i < nct; i++ ) if( strncmp( &cn[i][1], "list", 4 )==0 ) multi = 1;
  895.  
  896.  
  897. /* check members of list.. */
  898. rtnval = 1;
  899. ix = 0;
  900. while( 1 ) {
  901.     strcpy( val, getok( value, &ix ) );
  902.     if( val[0] == '\0' ) break;
  903.     i = 0;
  904.  
  905.     /* sets */
  906.     if( constraint[i] == '{' ) {
  907.         for( j = i; j < strlen( constraint ); j++ ) if( member( constraint[j], "{,}"  )) constraint[j] = ' ';
  908.         while( 1 ) {
  909.             strcpy( token, getok( constraint, &i ) );
  910.             if( token[0] == '\0' ) { 
  911.                 fprintf( stderr, "'%s' illegal.  Legal vals are: { %s }.", val, constraint ); 
  912.                 rtnval = 0;
  913.                 break;
  914.                 }
  915.             if( strcmp( token, val )==0 ) { rtnval = 1; break; }
  916.             }
  917.         }
  918.     
  919.     /* numeric ranges */
  920.     j = i;
  921.     low = atof( getok( constraint, &j ) );
  922.     if( strcmp( getok( constraint, &j ), "to" )==0 ) {
  923.         high = atof( getok( constraint, &j ) );
  924.         fval = atof( val );
  925.         if( fval < low || fval > high ) 
  926.             { fprintf( stderr, "'%s' out of range. Range is %5.2f to %5.2f.", val, low, high ); rtnval = 0; }
  927.         else rtnval = 1;
  928.         }
  929.     
  930.     /* generic number */
  931.     j = i;
  932.     if( strcmp( getok( constraint, &j ), "number" ) == 0 ) {
  933.         if( ! goodnum( val, &j ) ) 
  934.             { fprintf( stderr, "'%s' is not a number." , val ); rtnval = 0; }
  935.         else rtnval = 1;
  936.         }
  937.     
  938.     /* coordinate pair */
  939.     j = i;
  940.     if( strcmp( getok( constraint, &j ), "coordpair" ) == 0 ) {
  941.         char val1[12], val2[12];
  942.         sscanf( value, "%s %s", val1, val2 );
  943.         if( !goodnum( val1, &j ) || !goodnum( val2, &j ) )
  944.             { fprintf( stderr, "'%s' is not a coordinate pair.", value ); rtnval = 0; }
  945.         else rtnval = 1;
  946.         }
  947.     
  948.     /* 2coordpair (rectangle) */
  949.     j = i;
  950.     if( strcmp( getok( constraint, &j ), "2coordpair" ) == 0 ) {
  951.         char val1[12], val2[12], val3[12], val4[12];
  952.         sscanf( value, "%s %s %s %s", val1, val2, val3, val4 );
  953.         if( !goodnum( val1, &j ) || !goodnum( val2, &j ) ||
  954.             !goodnum( val3, &j ) || !goodnum( val4, &j ) )
  955.             { fprintf( stderr, "'%s' is not a 2coordpair.", value ); rtnval = 0; }
  956.         else rtnval = 1;
  957.         }
  958.     
  959.     /* char size */
  960.     j = i;
  961.     if( strcmp( getok( constraint, &j ), "charsize" ) == 0 ) {
  962.         fval = atof( val );
  963.         if( fval < 1 || fval > 36.0 ) {
  964.             fprintf( stderr, "'%s' is not a legal char size (1 to 32).", val );
  965.             rtnval = 0;
  966.             }
  967.         else rtnval = 1;
  968.         }
  969.  
  970.     /* data field */
  971.     j = i;
  972.     if( strcmp( getok( constraint, &j ), "dfield" ) == 0 ) {
  973.         if( atoi( val ) > 0 && atoi( val ) <= MAX_D_COLS ) rtnval = 1;
  974.         else {
  975.             fprintf( stderr, "'%s' is not a legal data field number (1 to %d).", val, MAX_D_COLS );
  976.             rtnval = 0;
  977.             }
  978.         }
  979.  
  980.     /* font */
  981.     j = i;
  982.     if( strcmp( getok( constraint, &j ), "font" ) == 0 ) {
  983.         if( val[0] != '/' ) {
  984.             fprintf( stderr, "'%s': first character in font name should be '/'.", val );
  985.             rtnval = 0;
  986.             }
  987.         else rtnval = 1;
  988.         }
  989.  
  990.     /* color */
  991.     j = i;
  992.     if( strcmp( getok( constraint, &j ), "color" ) == 0 ) {
  993.         if( atof( val ) < 0.0 || atof( val ) > 1.0 ) {
  994.             fprintf( stderr, "'%s': color must be a number from 0.0 to 1.0.", val );
  995.             rtnval = 0;
  996.             }
  997.         else rtnval = 1;
  998.         }
  999.  
  1000.  
  1001.  
  1002.     if( rtnval == 0 || !multi ) break;
  1003.     }
  1004.  
  1005. return( rtnval );
  1006. }
  1007. SHAR_EOF
  1008. ############################
  1009.  
  1010.  
  1011.