home *** CD-ROM | disk | FTP | other *** search
/ The UNIX CD Bookshelf / OREILLY_TUCB_UNIX_CD.iso / upt / examples / SOURCES / IPL / PART10.Z / PART10
Encoding:
Text File  |  1998-07-24  |  35.8 KB  |  969 lines
  1. Subject:  v21i041:  2D graphic system with table beautifier, Part10/14
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4. X-Checksum-Snefru: 3c92451a cf1911e5 4faeb657 5c05c1a5
  5.  
  6. Submitted-by: Steve Grubb <uunet!lsr-vax!scg>
  7. Posting-number: Volume 21, Issue 41
  8. Archive-name: ipl/part10
  9.  
  10. # ipl part10
  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/shading.h
  19. #        src/siplmenu.c
  20. #        src/sunv.c
  21. #        src/template.h
  22. #        src/text.c
  23. cat << \SHAR_EOF > src/shading.h
  24.  
  25. /* shading .... */
  26. static short w_im_00[] = {        /* black */
  27. #include <images/square_black.pr> 
  28. };
  29. mpr_static( w_s_00, 16, 16, 1, w_im_00 );
  30.  
  31. static short w_im_10[] = {
  32. /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16
  33.  */
  34.     0x7F7F,0xFFFF,0xF7F7,0xFFFF,0x7F7F,0xFFFF,0xF7F7,0xFFFF,
  35.     0x7F7F,0xFFFF,0xF7F7,0xFFFF,0x7F7F,0xFFFF,0xF7F7,0xFFFF
  36. };
  37. mpr_static( w_s_10, 16, 16, 1, w_im_10 );
  38.  
  39.  
  40. static short w_im_20[] = {
  41. /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16
  42.  */
  43.     0x7777,0xFFFF,0x7777,0xFFFF,0x7777,0xFFFF,0x7777,0xFFFF,
  44.     0x7777,0xFFFF,0x7777,0xFFFF,0x7777,0xFFFF,0x7777,0xFFFF
  45. };
  46. mpr_static( w_s_20, 16, 16, 1, w_im_20 );
  47.  
  48. static short w_im_30[] = {
  49. /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16
  50.  */
  51.     0x7DF7,0xDF7D,0xFBEF,0xEFBE,0xBEFB,0xF7DF,0x7DF7,0xDF7D,
  52.     0xFBEF,0xEFBE,0xBEFB,0xF7DF,0x7DF7,0xDF7D,0xFBEF,0xEFBE
  53. } ;
  54. mpr_static( w_s_30, 16, 16, 1, w_im_30 );
  55.  
  56. static short w_im_40[] = {
  57. /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16
  58.  */
  59.     0x7777,0xDDDD,0x7777,0xDDDD,0x7777,0xDDDD,0x7777,0xDDDD,
  60.     0x7777,0xDDDD,0x7777,0xDDDD,0x7777,0xDDDD,0x7777,0xDDDD
  61. } ;
  62. mpr_static( w_s_40, 16, 16, 1, w_im_40 );
  63.  
  64. static short w_im_50[] = {
  65. /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16
  66.  */
  67.     0xEEEE,0xAAAA,0xAAAA,0xBBBB,0xEEEE,0xAAAA,0xAAAA,0xBBBB,
  68.     0xEEEE,0xAAAA,0xAAAA,0xBBBB,0xEEEE,0xAAAA,0xAAAA,0xBBBB
  69. };
  70. mpr_static( w_s_50, 16, 16, 1, w_im_50 );
  71.  
  72. static short w_im_60[] = {
  73. /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16
  74.  */
  75.     0x5555,0x5555,0x5555,0x5555,0x5555,0x5555,0x5555,0x5555,
  76.     0x5555,0x5555,0x5555,0x5555,0x5555,0x5555,0x5555,0x5555
  77. };
  78. mpr_static( w_s_60, 16, 16, 1, w_im_60 );
  79.  
  80. static short w_im_70[] = {
  81. /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16
  82.  */
  83.     0x8888,0x2222,0x8888,0x2222,0x8888,0x2222,0x8888,0x2222,
  84.     0x8888,0x2222,0x8888,0x2222,0x8888,0x2222,0x8888,0x2222
  85. };
  86. mpr_static( w_s_70, 16, 16, 1, w_im_70 );
  87.  
  88. static short w_im_80[] = {
  89. #include <images/square_17.pr>
  90. /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16   6
  91.  */
  92. /*    0x8888,0x2222,0x8888,0x0000,0x8888,0x2222,0x8888,0x0000,
  93.     0x8888,0x2222,0x8888,0x0000,0x8888,0x2222,0x8888,0x0000
  94. */
  95. };
  96. mpr_static( w_s_80, 16, 16, 1, w_im_80 );
  97.  
  98. static short w_im_90[] = {
  99. /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16
  100.  */
  101.     0x8080,0x0000,0x0808,0x0000,0x8080,0x0000,0x0808,0x0000,
  102.     0x8080,0x0000,0x0808,0x0000,0x8080,0x0000,0x0808,0x0000
  103. };
  104. mpr_static( w_s_90, 16, 16, 1, w_im_90 );
  105.  
  106. static short w_im1_0[] = {        /* black */
  107. /* Format_version=1, Width=16, Height=16, Depth=1, Valid_bits_per_item=16
  108.  */
  109.     0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,
  110.     0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000
  111. };
  112. mpr_static( w_s1_0, 16, 16, 1, w_im1_0 );
  113.  
  114. SHAR_EOF
  115. ############################
  116.  
  117. cat << \SHAR_EOF > src/siplmenu.c
  118. #include "ipl.x"
  119. siplmenu( proc )
  120. char proc[];
  121. {
  122. char p1[80], p2[80];
  123.  
  124. if( strcmp( proc, "Endoffile" )==0 ) while( 1 ) {
  125.     message( Controlfile,
  126.         "Press RETURN for next file,",
  127.         "enter another file to view,",
  128.         "or enter 'q' to quit." );
  129.     get_string_box( p2, "> ", 8.0, 9.5, 11.0, 9.8 );
  130.     if( strcmp( p2, "q" )==0 ) { gdp_exit(); }
  131.     else    {
  132.         message( "Next control file:", p2, "", "" );
  133.         if( ! restart( p2 ) ) { sleep( 3 ); continue; }
  134.         NTshow();
  135.         break;
  136.         }
  137.     }
  138.  
  139. if( strcmp( proc, "Pagebreak" )==0 ) {
  140.     message( "SIPL graphics previewer", "", "More..", "Press RETURN.." );
  141.     get_string_box( p2, "> ", 8.0, 9.5, 11.0, 9.8 );
  142.     }
  143. }
  144. SHAR_EOF
  145. ############################
  146.  
  147. cat << \SHAR_EOF > src/sunv.c
  148. /* sunview.c
  149. IPL sunview driver. (c) 1989 Steve Grubb.
  150.  
  151. Use compile option -DNOEVENTS if you do not need to handle mouse/keyboard events.
  152. Otherwise, you have to write a function handle_event( x, y, e ) that will get
  153. called whenever waiting for an event.  Arguments: x and y are double values indicating
  154. the position of the mouse at the time of the event, in your units;  e is the integer
  155. event identifier (see Sunview Pixwind guide), generally the ascii value of keys, and
  156. other values for mouse events.
  157.  
  158. User origin is lower-left.
  159.  
  160.  
  161. */
  162.  
  163. #include <stdio.h>
  164. #include <ctype.h>
  165. #include <sys/file.h>
  166. #include <suntool/sunview.h>  /* sun stuff */
  167. #include <suntool/canvas.h>  /* sun stuff */
  168. #include "shading.h"
  169. #define SUNV_FONT_PATH "/usr/lib/fonts/fixedwidthfonts"
  170. #define MAX_D_ROWS 1000
  171. #define AREA_WIDTH 900
  172. #define AREA_HEIGHT 900
  173.  
  174. #define WHITE 0
  175. #define BLACK 255
  176.  
  177. double xscale, yscale;
  178. double xsca_inv(), ysca_inv();
  179. double oldx, oldy;
  180.  
  181. int color, backcolor;
  182.  
  183. /* polygon vertexes */
  184. struct pr_pos vlist[MAX_D_ROWS];
  185. int nv = 0;
  186.  
  187. /* sunview variables.. */
  188. Frame w_fr;
  189. Canvas w_cvs;
  190. int w_width, w_height;
  191. struct rect w_rect; /* drawing area rect */
  192. struct pixwin *w_pw; /* window handle */
  193. Pixfont *w_font;  /* current font */
  194. int w_ppc;    /* pixels per character (across) for current font */
  195. Pr_brush w_br, *w_brush = &w_br ; /* line width */
  196. Pr_texture w_tex, *w_texture = &w_tex; /* line dash pattern */
  197.  
  198. static void SVevent();
  199. int w_waitflag = 0;
  200.  
  201. short w_dash[4][10][6]= {
  202.         { {1}, {1,1}, {3,1}, {5,1}, {2,1,1,1}, {4,1,1,1}, {6,1,1,1}, 
  203.           {2,1,1,1,1,1}, {4,1,1,1,1,1}, {6,1,1,1,1,1} },
  204.         { {2}, {2,2}, {6,2}, {10,2}, {4,2,2,2}, {8,2,2,2}, {12,2,2,2}, 
  205.           {4,2,2,2,2,2}, {8,2,2,2,2,2}, {12,2,2,2,2,2} },
  206.         { {3}, {3,3}, {9,3}, {15,3}, {6,3,3,3}, {12,3,3,3}, {18,3,3,3}, 
  207.           {6,3,3,3,3,3}, {12,3,3,3,3,3}, {18,3,3,3,3,3} },
  208.         { {4}, {4,4}, {12,4}, {20,4}, {8,4,4,4}, {16,4,4,4}, {24,4,4,4}, 
  209.           {8,4,4,4,4,4}, {16,4,4,4,4,4}, {24,4,4,4,4,4} }
  210.             };
  211. /* icon */
  212. static short ic_image[258] = {
  213. #include "ipl.icon"
  214. };
  215. mpr_static(gfxic_mpr, 64, 64, 1, ic_image);
  216.  
  217. static    struct icon icon = {64, 64, (struct pixrect *)NULL, 0, 0, 64, 64,
  218.         &gfxic_mpr, 0, 0, 0, 0, NULL, (struct pixfont *)NULL,
  219.         ICON_BKGRDCLR};
  220.  
  221.  
  222. /* =============================================== */
  223. /* SVsetup()-- initialize the window and parameters */
  224. SVsetup( x_max, y_max )
  225. double x_max, y_max;
  226. {
  227. w_fr = window_create( NULL, FRAME, 
  228.     WIN_HEIGHT, AREA_HEIGHT, WIN_WIDTH, AREA_WIDTH, WIN_X, 0, WIN_Y, 0, 
  229.     FRAME_LABEL, "sipl", FRAME_ICON, &icon, 0 );
  230. w_cvs = window_create( w_fr, CANVAS, WIN_EVENT_PROC, SVevent, 0 );
  231. window_set( w_cvs, WIN_CONSUME_KBD_EVENT, WIN_ASCII_EVENTS, 0 );
  232. w_pw = canvas_pixwin( w_cvs );
  233.  
  234. color = BLACK;
  235. backcolor = WHITE;
  236. w_height = AREA_HEIGHT - 20;    /* in pixels */
  237. w_width = AREA_WIDTH;        /* in pixels */
  238. xscale = (double)(w_width) / (x_max);
  239. yscale = (double)(w_height) / (y_max);
  240. w_texture->pattern = w_dash[0][0];
  241. w_brush->width = 1; 
  242. window_set( w_fr, WIN_SHOW, TRUE, 0 );
  243. (void) notify_dispatch();
  244. }
  245.  
  246. /* ====================== */
  247. static void SVevent( ecvs, e )
  248. Canvas ecvs;
  249. Event *e;
  250. {
  251. int x1, y1, eid;
  252.  
  253. #ifndef NOEVENT
  254. x1 = event_x( e );
  255. y1 = event_y( e );
  256. if( event_is_ascii(e) ) {
  257.     w_waitflag = handle_event( xsca_inv( x1 ), ysca_inv( y1 ), event_action( e ) );
  258.     }
  259. if( event_is_button(e) ) {
  260.     /* use generic button identifiers.. */
  261.     if( event_action(e)  == MS_LEFT ) eid = 1001;
  262.     if( event_action(e) == MS_MIDDLE ) eid = 1002;
  263.     if( event_action(e) == MS_RIGHT ) eid = 1003;
  264.     w_waitflag = handle_event( xsca_inv( x1 ), ysca_inv( y1 ), eid );
  265.     }
  266. #endif
  267. }
  268.  
  269. /* ====================== */
  270. SVwait()
  271. {
  272. w_waitflag = 0;
  273. #ifndef NOEVENT
  274. while( ! w_waitflag ) {
  275.     (void) notify_dispatch();
  276.     usleep( 10000 );  /* check notifier every .01 seconds */
  277.     }
  278. #endif
  279. }
  280.  
  281. /* ==================== scale in x to window size */
  282. xsca( f )
  283. double f;
  284. { 
  285. int iout;
  286. iout = (int) (f * xscale); 
  287. return( iout );
  288. }
  289.  
  290. /* ==================== inverse of xsca */
  291. double xsca_inv( i )
  292. int i;
  293. {
  294. double out;
  295. out = (double) i / xscale;
  296. return( out );
  297. }
  298.  
  299. /* ==================== scale in y to window size */
  300. ysca( f )
  301. double f;
  302. { 
  303. int iout;
  304. iout = w_height - (int) (f * yscale);
  305. return( iout );
  306. }
  307.  
  308. /* ===================== inverse of ysca */
  309. double ysca_inv( i )
  310. int i;
  311. {
  312. double out;
  313. out = (double)(w_height-i) / yscale;
  314. return( out );
  315. }
  316.  
  317. /* ==================== clear the display */
  318. SVclear()
  319. {
  320. pw_writebackground( w_pw, 0, 0, w_width, w_height, (PIX_SRC | PIX_COLOR(backcolor)) );
  321. }
  322.  
  323. /* ====================  line to */
  324. SVlineto(x,y)  
  325. double x, y;
  326. { 
  327. int a, b, c, d;
  328. a = xsca( oldx ); b = ysca( oldy ); c = xsca( x ); d = ysca( y );
  329. pw_line( w_pw, a, b, c, d, w_brush, w_texture, (PIX_SRC | PIX_COLOR(color)) );
  330. oldx=x;
  331. oldy=y;
  332. }
  333.  
  334. /* =====================  moveto */
  335. SVmoveto(x,y)   
  336. double x, y;
  337. {
  338. oldx = x;
  339. oldy = y;
  340. }
  341.  
  342. /* ===================== dot */
  343. SVdot(x,y)    
  344. double x, y;
  345. {
  346. pw_put( w_pw, xsca(x), ysca(y), color );
  347. }
  348.  
  349. /* ===================== read pixel value */
  350. SVread(x,y)   
  351. double x, y;
  352. {
  353. pw_get( w_pw, xsca(x), ysca(y) );
  354. }
  355.  
  356. /* ===================== set point size of type */
  357. /* SVpointsize */
  358. SVpointsize( p )
  359. int p;
  360. {
  361. char fontdir[60], buf[65];
  362. strcpy( fontdir, SUNV_FONT_PATH );
  363.  
  364. if( p <= 6 )         { p = 6; w_ppc = 4; }
  365. if( p == 7 || p == 8 )     { p = 7; w_ppc = 6; }
  366. if( p == 9 || p == 10 )    { p = 10; w_ppc = 7; }
  367. if( p == 11 )        { w_ppc = 7; }
  368. if( p == 12 || p == 13 ){ p = 12; w_ppc = 8; }
  369. if( p == 14 || p == 15 ){ p = 14; w_ppc = 9; }
  370. if( p == 16 || p == 17 ){ p = 16; w_ppc = 10; }
  371. if( p >= 18 && p <= 22 ){ p = 18; w_ppc = 11; }
  372. if( p > 22 ){ p = 24; w_ppc = 14; }
  373.  
  374. if( p < 10 ) sprintf( buf, "%s/screen.r.%d", fontdir, p );
  375. else if( p == 11 ) sprintf( buf, "%s/screen.r.%d", fontdir, p );
  376. else sprintf( buf, "%s/cour.b.%d", fontdir, p );
  377.  
  378. if( w_font != (Pixfont *) 0 ) pf_close( w_font );
  379. w_font = pf_open( buf );
  380. if( w_font == NULL ) { w_font = pw_pfsysopen(); }
  381. return( w_ppc );
  382. }
  383.  
  384. /* ==================== display left adjusted text starting at current position */
  385. SVtext( s, aw )
  386. char s[];
  387. double *aw; /* actual string width in inches (sent back) */
  388. {
  389. pw_ttext( w_pw, xsca(oldx), ysca(oldy), (PIX_SRC | PIX_COLOR(color)), w_font, s );
  390. oldx+= (double)((strlen(s)-1)* w_ppc ); 
  391. *aw = xsca_inv( (strlen(s)-1) * w_ppc );
  392. }
  393.  
  394. /* ==================== display centered text */
  395. SVcentext( s, w, x, aw )
  396. char s[];
  397. double w;
  398. double *x; /* actual X starting point in inches (sent back) */
  399. double *aw; /* actual string width in inches (sent back) */
  400. {
  401. double width;
  402.  
  403. strip_ws( s );
  404. width = xsca_inv( w_ppc*strlen( s ) );
  405. SVmoveto( oldx+((w-width)/2.0), oldy );
  406. SVtext( s, aw );
  407. *x = xsca_inv((int)( oldx+((w-width)/2.0) ) );
  408. }
  409.  
  410. /* ==================== display right-justified text */
  411. SVrightjust( s, w, x, aw )
  412. char s[];
  413. double w;
  414. double *x; /* actual X starting point in inches (sent back) */
  415. double *aw; /* actual string width in inches (sent back) */
  416. {
  417. double width;
  418.  
  419. strip_ws( s );
  420. width = xsca_inv( w_ppc*strlen( s ) );
  421. SVmoveto( oldx+(w-width), oldy );
  422. SVtext( s, aw );
  423. *x = xsca_inv((int)(oldx+(w-width) ));
  424. }
  425.  
  426. /* ==================== set the drawing color */
  427. SVcolor( d, b )
  428. int d, b;
  429. {
  430. color = d; backcolor = b;
  431. }
  432.  
  433.  
  434. /* ==================== add to "fill path" */
  435. SVpath( x, y )
  436. double x, y;
  437. {
  438. if( nv == 0 ) { vlist[0].x = xsca( oldx ); vlist[0].y = ysca( oldy ); nv++; }
  439. vlist[nv].x = xsca(x);
  440. vlist[nv].y = ysca(y);
  441. nv++;
  442. }
  443.  
  444. /* ==================== fill prev. defined polygon path with color c */
  445. SVshade( c )
  446. double c; 
  447. {
  448. int n[1];
  449. Pixrect *pr;
  450. if( c >= 0.0 && c <= 1.0 ) {
  451.     if( c == 1.0 ) pr = &w_s1_0;
  452.     else if( c > .95 ) pr = &w_s_90;
  453.     else if( c > .90 ) pr = &w_s_80;
  454.     else if( c > .85 ) pr = &w_s_70;
  455.     else if( c > .75 ) pr = &w_s_60;
  456.     else if( c > .65 ) pr = &w_s_50;
  457.     else if( c > .55 ) pr = &w_s_40;
  458.     else if( c > .45 ) pr = &w_s_30;
  459.     else if( c > .35 ) pr = &w_s_20;
  460.     else if( c > .15 ) pr = &w_s_10;
  461.     else if( c >= 0.0 ) pr = &w_s_00;
  462.     else pr = (Pixrect *) 0;
  463.     }
  464.  
  465. n[0] = nv;
  466. pw_polygon_2( w_pw, 0, 0, 1, n, vlist, (PIX_SRC | PIX_COLOR((int)(c))), pr, 0, 0 ); 
  467. nv = 0;
  468. }
  469.  
  470. /* ========= set line dotting attribs ============= */
  471.  
  472. SVlinetype( t, w, mag )
  473. char t[];
  474. double w, mag;
  475. {
  476. int i, j, k;
  477.  
  478. if( strlen( t ) < 1 ) return( 0 );
  479. if( mag < 1 ) mag = 1;
  480. if( mag > 4 ) mag = 4;
  481. w_brush->width = (int)((w*1.6)+0.5);
  482. w_texture->pattern = w_dash[ (int)mag-1 ][ atoi( t ) % 10 ];
  483. }
  484.  
  485. /* ========= batch calls for efficiency  ========== */
  486. SVbatch_on()
  487. {
  488. (void) notify_dispatch();
  489. pw_batch_on( w_pw );
  490. }
  491. SVbatch_off()
  492. {
  493. (void) notify_dispatch();
  494. pw_batch_off( w_pw );
  495. }
  496.  
  497.  
  498.  
  499. /* =========================================== */
  500. /* sets up color map, 0 = white, 255 = black, color mixes from 1 to 114 */
  501. setup_colormap()
  502. {
  503. u_char red[256], grn[256], blu[256];
  504. int i, j;
  505.  
  506. red[0] = (u_char) 0;                /* background color */
  507. grn[0] = (u_char) 0;
  508. blu[0] = (u_char) 0;
  509.  
  510.     for (i=0; i<19; i++) {
  511.         red[i +   1] = (u_char) ( 0.99 * 256 );        /* ramp to yellow */
  512.         grn[i +   1] = (u_char) ( 0.055*i * 256 );
  513.         blu[i +   1] = (u_char) ( 0.0 * 256 );
  514.  
  515.         red[i +  20] = (u_char) ( (0.99-0.055*i) * 256 );    /* ramp to green */
  516.         grn[i +  20] = (u_char) ( 0.99 * 256 );
  517.         blu[i +  20] = (u_char) ( 0.0 * 256 );
  518.  
  519.         red[i +  39] = (u_char) ( 0.0 * 256 );        /* ramp to turqouise */
  520.         grn[i +  39] = (u_char) ( 0.99 * 256 );
  521.         blu[i +  39] = (u_char) ( 0.055*i * 256 );
  522.  
  523.         red[i +  58] = (u_char) ( 0.0 * 256 );        /* ramp to blue */
  524.         grn[i +  58] = (u_char) ( ( 0.99-0.055*i ) * 256 );
  525.         blu[i +  58] = (u_char) ( 0.99 * 256 );
  526.  
  527.         red[i +  77] = (u_char) ( 0.055*i * 256 );        /* ramp to violet */
  528.         grn[i +  77] = (u_char) ( 0.0 * 256 );
  529.         blu[i +  77] = (u_char) ( 0.99 * 256 );
  530.  
  531.         red[i +  96] = (u_char) ( 0.99 * 256 );        /* ramp to red */
  532.         grn[i +  96] = (u_char) ( 0.0 * 256 );
  533.         blu[i +  96] = (u_char) ( (0.99-0.055*i) * 256 );
  534.         }
  535. for( i = 115, j = 0; i < 125; i++, j+= 25 ) red[i] = blu[i] = grn[i] = j;
  536. for( i = 125, j = 255; i < 256; i++ ) { j = abs(j-255); red[i] = blu[i] = grn[i] = j ; }
  537.  
  538.  
  539. pw_setcmsname( w_pw, "dots" );
  540. pw_putcolormap( w_pw, 0, 256, red, grn, blu );
  541. }
  542.  
  543.  
  544. SHAR_EOF
  545. ############################
  546.  
  547. cat << \SHAR_EOF > src/template.h
  548. char *Template[350] =  { "Proc Areadef:",
  549. "Area.bottom: 0 to 12    :   : Units are inches from lower left.",
  550. "Area.file: token    :   : file containing user defined areas",
  551. "Area.left: 0 to 12    :   :",
  552. "Area.rectangle: 2coordpair   :  : alternately, two coord-pairs (low left, up right) rectangle",
  553. "Area.right: 0 to 12    :   : | These four must all be used together.",
  554. "Area.top: 0 to 12    :   : ",
  555. "Area:  token    : standard : preset graphics area name (see area.coords)",
  556. "Clone:  token    :  : to inherit parms from a previous Areadef.",
  557. "Font:  font    :         : standard font to be used on axis labels etc.",
  558. "Frame:  {single,double,none}  : none  : frame of graphic area ",
  559. "Saveas:  token    :  : to give this Areadef a name so it can be Cloned later.",
  560. "Shade:  color    :   : shade of graphic area",
  561. "Subtitle.above: -12 to 12 (T)   : 0.02  : distance of 1st area title line above window top, inches",
  562. "Subtitle.font: font    :   : font for area title",
  563. "Subtitle.justify: {center,left,right}  : left  : title to be centered, left, or right justified",
  564. "Subtitle.size: charsize   : 10  : char size of title",
  565. "Subtitle: text    :   : area title",
  566. "Xaxis:  {bottom,top,both,none}  : bottom : where to draw X axis",
  567. "Xinc:  number    : 1  : increment.. put a tic mark every n units",
  568. "Xlabel.position: -12 to 12 (X)   : 0.6  : distance of x axis identifier from window bottom, inches",
  569. "Xlabel.size:  charsize   : 10  : char size for x axis identifier",
  570. "Xlabel:  text    :   : x axis identifier",
  571. "Xmax:  number     :   : maximum in x",
  572. "Xmin:  number     : 0   : minimum in x",
  573. "Xscaletype: {linear,log,yymm}   : linear : x scaling discipline",
  574. "Xstart.0or1: 0 to 10    : 0  : tell x stubs where to start ",
  575. "Xstub.fileline: number    : 0  : line in a stub text file to start at",
  576. "Xstub.grid: {line,shade,none,wline}  : none  : form a grid of lines or shaded blocks",
  577. "Xstub.minor: 0 to 100   : 0  : create this many divisions between regular tics",
  578. "Xstub.nolonetics: {y,n} : y : if y, no tics will be produced where there are no stubs",
  579. "Xstub.shade: color    : 0.98  : shade for the shaded blocks",
  580. "Xstub.size:  charsize   : 7  : char size for stubs",
  581. "Xstub.startmonth: 1 to 12   :   : for month stubs, leftmost month",
  582. "Xstub.startyear: 0 to 99   :   : for month stubs, leftmost year ",
  583. "Xstub.stubs: {bottom,top,both,none}  : bottom : produce labeled axis on left, right, or both sides",
  584. "Xstub.ticlen.minor: -2 to 2 (X)   : 0.035  : length of minor tics in inches (negative inverts it)",
  585. "Xstub.ticlen: -2 to 2 (X)   : 0.08  : length of major tics in inches (negative inverts it)",
  586. "Xstub.tics: {bottom,top,both,none}  : bottom : which side(s) to put tics on",
  587. "Xstub.yofs: -2 to 2 (X)   : 0.2  : distance of stubs up(-) or down(+) from x axis in inches",
  588. "Xstub:   text    : num  : stubs for tics (num, a file name, a var, or literal)",
  589. "Xticfmt: token    : %4.0f  : format for display of numbers in X (like printf)",
  590. "Yaxis:  {left,right,both,none}  : left  : where to draw Y axis",
  591. "Yinc:  number    : 1  : increment.. put a tic mark every n units",
  592. "Ylabel.position: -12 to 12 (Y)   : 0.6  : distance of y axis identifier from window left, inches",
  593. "Ylabel.size:  charsize   : 10   : char size for y axis identifier",
  594. "Ylabel:  text    :   : y axis identifier",
  595. "Ymax:  number    :   : maximum in y",
  596. "Ymin:  number    : 0  : minimum in y",
  597. "Yscaletype: {linear,log}   : linear : y scaling discipline",
  598. "Ystart.0or1: 0 to 10    : 0  : tell y stubs to start at 0 ",
  599. "Ystub.fileline: number    : 0  : line in a stub text file to start at",
  600. "Ystub.grid: {line,shade,none,wline}  : none  : form a grid of lines or shaded blocks",
  601. "Ystub.minor: 0 to 100   : 0  : create this many divisions between regular tics",
  602. "Ystub.nolonetics: {y,n} : y : if y, no tics will be produced where there are no stubs",
  603. "Ystub.shade: color     : 0.98  : shade for the shaded blocks",
  604. "Ystub.size:  charsize   : 7  : char size for stubs",
  605. "Ystub.stubs:  {left,right,both,none}  : left  : produce labeled axis on left, right, or both sides",
  606. "Ystub.ticlen.minor: -2 to 2 (Y)   : 0.035  : length of minor tics in inches (negative inverts it)",
  607. "Ystub.ticlen: -2 to 2 (Y)   : 0.08  : length of major tics in inches (negative inverts it)",
  608. "Ystub.tics: {left,right,both,none}  : left  : which side(s) to put tics on",
  609. "Ystub.xofs: -2 to 2 (Y)   : 0.1  : distance from y axis to right side of y stub",
  610. "Ystub:   text    : num   : stubs for tics (num, a file name, a var, or literal)",
  611. "Yticfmt: token    : %4.0f  : format for display of numbers in Y (like printf)",
  612. "Proc Arrow:",
  613. "Clone:  token    : :",
  614. "Points:  2coordpair   : : x1, y1, x2, y2.  Arrowhead will be at (x2, y2)",
  615. "Saveas:  token    : : ",
  616. "Proc Bargraph:",
  617. "Clone:  token  :  : to clone an earlier proc's set of parameters",
  618. "Field: dfield (list8) (M) :   : a field for each bar or subbar",
  619. "Format: {single,cluster,stack} : single : single bars, clusters of bars, or bars stacked up",
  620. "Idfield.position: -1 to 1 : 0.02  : distance of label above (or below) top of bar (inches)",
  621. "Idfield.size:  charsize : 6  : char size of labels",
  622. "Idfield: dfield (list8) :   : bars can be labeled using these field(s)",
  623. "Killwild: number  :   : if a data value greater than this is found, abort ",
  624. "Outlinebars: {y,n}  : y  : outline for each bar",
  625. "Saveas:  token  :  : to save a set of parms for cloning",
  626. "Segment: {y,n}  : n  : segment bars at axis tics",
  627. "Separation.sub: -2 to 2  : 0.03  : separation factor between sub-bars in a cluster",
  628. "Separation: -2 to 2  : 0.20  : separation factor between major bar spaces ",
  629. "Shade:   color (list8) : .2 .5 .8 1 0  : a shade for each bar or subbar",
  630. "Xfield:  dfield  :  : X position of bars can be determined by this data field *",
  631. "Xstart.0or1: {0,1}  : 1  : start bars at X=0 or X=1",
  632. "Zeroat:  number  :   : bars point down at values less than this (usually 0)",
  633. "Proc Boxplot:",
  634. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  635. "Datarow: number     : 1  : the row in the data that contains the above 6 values",
  636. "Ends:  {y,n}    : y  : do little cross-bars on the ends?",
  637. "Fields:  dfield (list6) (M)  :   : the 6 data fields (see below)",
  638. "Label.size: charsize   : 7  : size of N label in points",
  639. "Linethick: 0 to 5    : 1  : thickness of boxplot line",
  640. "Printn:  {y,n}    : y  : print an N=... string at the bottom?",
  641. "Saveas:  token    :  : to save a set of parms for cloning",
  642. "Width:  number    : 0.5  : width of box, in data units",
  643. "Xloc:  number    : 0.5  : where box will be centered in x, in data units",
  644. "Proc Distribution:",
  645. "Axdist.length:  -2 to 2    : 0.08  : length of distribution bars ",
  646. "Axdist:  {y,n}    : n  : show bar distributions on axes",
  647. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  648. "Cluster: {y,n}    : y  : offset overlaying points slightly to show duplicity",
  649. "Idfield: dfield    :  : case identifier may be in this field",
  650. "Mark.field: dfield     :   : if specified, mark is contents of this field",
  651. "Mark.font: font      :   : font for points",
  652. "Mark.size: charsize   : 6  : size (in point units) for data points",
  653. "Mark:  token    : sym6e  : symbol code (symNS) or character(s) for points",
  654. "Saveas:  token    :  : to save a set of parms for cloning",
  655. "Shadefield: dfield     :  : if specified, shade of point symbols controlled by field",
  656. "Shadescale: number    :  : factor for scaling data to acceptable shade range (0..1)",
  657. "Sizefield: dfield     :  : if specified, size of symbols controlled by field ",
  658. "Sizescale: number    : 1  : factor for scaling data to acceptable size (4..20)",
  659. "Xfield:  dfield (M)   :   : x data comes from this field ",
  660. "Yfield:  dfield    :   : y data field.  If Yfield ommitted, do a bar distr.",
  661. "Proc Draw:",
  662. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  663. "Linethick: 0.1 to 10   : 1  : thickness of line",
  664. "Linetype.magnify: 0.1 to 10   : 1  : magnification of patterns",
  665. "Linetype: 0 to 8    : 0  : line dash pattern",
  666. "Points:  text (M) (C)   :  : coord pairs, 2 per line (move+draw) or 1 per line (draw)",
  667. "Saveas:  token    :  : to save a set of parms for cloning",
  668. "System:  {data,absolute}   : absolute : which coord system points are in",
  669. "Proc Errorbars:",
  670. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  671. "Double:  {y,n}    : y  : display 2 times the error amount?",
  672. "Errfield: dfield (M)   :  : field containing error amount in y",
  673. "Linethick: 0 to 10    : 0.3  : line thickness for error bars",
  674. "Offset:  -1 to 1    : 0  : amount of offset in X, in inches",
  675. "Saveas:  token    :  : to save a set of parms for cloning",
  676. "Taillen: 0 to 1    : 0.04  : width of tails at the end of the bars",
  677. "Xfield:  dfield (M)   :  : field containing point x location",
  678. "Yfield:  dfield (M)   :  : field containing point y location",
  679. "Proc Getdata:",
  680. "Append:  {y,n}    : n  : if y, new data will be put below existing data",
  681. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  682. "Data:  text    :  : following lines contain data",
  683. "Datafile: token (M)     :   : file name, '-' (terminal), or a Unix command ",
  684. "Join:  {y,n}    : n  : if y, new data will be put beside existing data",
  685. "Percents: dfield (list20)   :  : change these fields from N to percentages, based on total",
  686. "Saveas:  token    :  : to save a set of parms for cloning",
  687. "Selectfields: token (list20)   : all  : select only these fields from input",
  688. "Startline: number    : 1  : line to start with (first line is line 1)",
  689. "Stopline: number     : 9999  : stop reading after this line is read",
  690. "Proc Legend:",
  691. "Backshade: color     :   : shade for backing box",
  692. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  693. "Corner:  {A,B,C,D}   : A  : which corner of the area, clockwise from upperleft",
  694. "Entry.font: font    :   : font for legend entries",
  695. "Entry.size: charsize   : 7  : char size for legend entries",
  696. "Entry:  text (M)   :   : text for legend entries, one per line ",
  697. "Linethick: number (list10)  : 1 1 1 1 1 1 1 1 1 1   : thickness of line(s)",
  698. "Linetype.magnify: number (list10)  : 3 3 3 3 3 3 3 3 3 3   : mag. factor for dash pattern",
  699. "Linetype: number (list10)   :   : line dash type for (each) line",
  700. "Location.system: {absolute,data}  : absolute : coord system for the above",
  701. "Location: coordpair   :  : location for upperleft of legend",
  702. "Mark.font: font    :   : ",
  703. "Mark.size: charsize   : 7  :",
  704. "Mark:  list    :  : list of marks for legend entries (symNS or chars)",
  705. "Outlinebars: {y,n}    : n  : ' '",
  706. "Saveas:  token    :  : to save a set of parms for cloning",
  707. "Shade:  color (list10)   :  : for bar graphs",
  708. "Title.size: charsize   : 10  : size for legend title",
  709. "Title:  text    :  : legend title",
  710. "Proc Lineplot:",
  711. "Accum:  {y,n}    : n  : option to accumulate yalues of y",
  712. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  713. "Label.size: charsize   : 8  : char size for line identifier",
  714. "Label:   text    :   : curve identifier, one per line",
  715. "Linethick: 0 to 10 (list8)  : 1 1 1 1 1 1 1 1  : thickness of line(s)",
  716. "Linetype.magnify: 0 to 10 (list8) : 3 3 3 3 3 3 3 3  : mag. factor for dash pattern",
  717. "Linetype: 0 to 8 (list8)  : 0 1 2 3 4 5 6 7 : line dash type for (each) line",
  718. "Mark.size: charsize   : 7  : Size for mark chars",
  719. "Mark:  list    :   : Mark char for points, one per line",
  720. "Numberfinal: {y,n}    : n  : display y value of rightmost point",
  721. "Numbers.offset: -1 to 1    : 0.015  : abs distance of numbers (+) above or (-)below line",
  722. "Numbers: {y,n}    : n  : display y value at each point",
  723. "Saveas:  token    :  : to save a set of parms for cloning",
  724. "Shade:  color (list8)   :               : shading below lines",
  725. "Stairstep.bars: {y,n}    : n  : for superimposing line over bar graph (moves it 1/2)",
  726. "Stairstep: {y,n}    : n  : lines form steps rather than diagonals",
  727. "Xfield:  dfield    :   : line's x data field (optional)",
  728. "Xstart.0or1: {0,1}    : 0  : if no x data field specified, start on or beside origin",
  729. "Yfield:  dfield (list8) (M)  :   : list of y fields for each line ",
  730. "Zeroat:  number    : 0  : point for zero crossing with shading ",
  731. "Proc Map:",
  732. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  733. "Country.linethick: 0.1 to 5   : 1  : thickness for country boundary lines",
  734. "Country: {usa,usa+canada}  : usa+canada : map format",
  735. "List:  {y,n}    : y  : list state distribution down right side",
  736. "Mode:  {country,state,statedist} : state  : country outln, state outln, or state distribution",
  737. "Saveas:  token    :  : to save a set of parms for cloning",
  738. "Shade:  color (list10)   : 1 .9 .8 .6 .4 .2 : shades corresponding to the above thresholds",
  739. "State.linethick: 0.1 to 5   : 0.2  : thickness for state boundary lines",
  740. "Statefield: dfield    :  : field in which standard state/province name can be found",
  741. "Threshold: number (list10)   :  : thresholds for shading (don't include 0 or max)",
  742. "Valfield: dfield    :  : field in which n value can be found",
  743. "Proc Nicetab:",
  744. "Area.rectangle: 2coordpair   :  : two coord pairs (low left, up right) defining area",
  745. "Area:  token    :nicetab : a pre-defined area name, see area.coords",
  746. "Body.font: font    :  : body font",
  747. "Body.only: {y,n}    : n  : indicates no title present, process all as table body.",
  748. "Body.size: token    : 8  : body char size",
  749. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  750. "File:  token (M)   :   : file containing ascii table",
  751. "Saveas:  token    :  : to save a set of parms for cloning",
  752. "Title.font: font    :   : title font",
  753. "Title.size: charsize   : 11  : title char size",
  754. "Proc Page:",
  755. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  756. "Paperway: {portrait,landscape,screen} : portrait : the way paper will be held to look at",
  757. "Saveas:  token    :  : to save a set of parms for cloning",
  758. "Standard.font:  font    : /Helvetica : default font for everything on page",
  759. "Standard.linethick: 0 to 6   : 1  : standard line thickness",
  760. "Title.belowtop: -12 to 12 (T)   : 0.2  : distance of 1st title line below top of page",
  761. "Title.file: token    :  : file containing title",
  762. "Title.font: font    :   : font for page title",
  763. "Title.size: charsize   : 12  : char size of title",
  764. "Title:  text    :   : window title",
  765. "Proc Pagebreak:",
  766. "Clone: token : : this is not really useful, but all procs must have this",
  767. "Saveas: token : : this is not really useful, but all procs must have this",
  768. "Proc Pie:",
  769. "Field: dfield (M) : : Data field to use.  Numbers should be integer percentages.",
  770. "Center: coordpair : 4.0 5.5 : Location of center, in absolute units." ,
  771. "Radius: 0 to 5 :  3 : Radius of pie, in absolute units.",
  772. "Shade: color list20 : : Shades of pie sections",
  773. "Linethick: 0 to 10 : 1 : Thickness of lines",
  774. "Explode: 0 to 3 : 0.1 : Distance in abs units to 'explode' each piece",
  775. "Rotate: 0 to 360 : 0 : Rotate entire pie this many degrees counterclockwise",
  776. "Clone: token : :",
  777. "Saveas: token : :",
  778. "Proc Point:",
  779. "Clone:  token  :  : ",
  780. "Mark:  token  : sym6e  : symbol code (see example point1.g)",
  781. "Position: text (M) (C)  :  : position in absolute data system",
  782. "Saveas:  token  :  : ",
  783. "Size:  1 to 20  : 5  : marker size",
  784. "Proc Polygon:",
  785. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  786. "Linethick: 0.1 to 10   : 1  : thickness of line for outline",
  787. "Linetype.magnify: 0.1 to 10   : 1  : magnification of patterns for outline",
  788. "Linetype: 0 to 8    : 0  : line dash pattern for outline",
  789. "Outline: {y,n}    : n  : outline polygon with a line?",
  790. "Points:  text (M) (C)   :  : one coord pair per line (points making up a polygon)",
  791. "Rectangle: 2coordpair   :  : (lower left and upper right) for a rectangle, abs units ",
  792. "Saveas:  token    :  : to save a set of parms for cloning",
  793. "Shade:  color    : 0.5  : shade of polygon",
  794. "System:  {data,absolute}   : absolute : which coord system points are in",
  795. "Proc QuitAppend:",
  796. "Clone:  token  :  : ",
  797. "Saveas:  token  :  : ",
  798. "Proc Rangebar:",
  799. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  800. "Ends:  {y,n}    : y  : do little cross-bars on the ends?",
  801. "Field:  dfield (list5) (M)  :   : data fields (should have Nval members)",
  802. "Idfield: dfield    :   : data field holding id label",
  803. "Label.position: number    : 1  : position for N=.. label in Y data units",
  804. "Label.size: charsize   : 6  : size of the above label in points",
  805. "Linethick: 0 to 5    : 1  : thickness of boxplot line",
  806. "Midlineright:  {y,n}    : n  : option for making median lines protrude right only",
  807. "Midlinewidth: number    : 0  : size of median line in user units, 0 uses Width value",
  808. "Nval:  1 to 5    : 5  : number of values making up the box",
  809. "Saveas:  token    :  : to save a set of parms for cloning",
  810. "Shade:  color    : 1.0  : shade for inside of bar",
  811. "Width:  number    : 0.3  : width of box, in data units",
  812. "Xfield:  dfield    :   : (optional) data field, bar x placement",
  813. "Proc Text:",
  814. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  815. "Direction: 0 to 359   : 0   : direction of text in degrees counterclockwise",
  816. "File:  token    :  : file containing text",
  817. "Embeddedcoords: {y,n} :  n : if y look for x and y values at beginning of each line",
  818. "Font:  font    :   : font to use",
  819. "Position: coordpair (M)   :   : location of beginning of 1st text line",
  820. "Saveas:  token    :  : to save a set of parms for cloning",
  821. "Size:  charsize   : 10  : size of text",
  822. "System:  {data,absolute}   : absolute : which coord system position is in",
  823. "Text:  text    :  : the text itself",
  824. "Proc Vbargraph:",
  825. "Clone:  token    :  : to clone an earlier proc's set of parameters",
  826. "Field:  dfield (list8)   :   : a field for each bar and subbar",
  827. "Format:  {single,cluster,stack}  : single : single bars, clusters of bars, or bars stacked up",
  828. "Idfield.position: -1 to 1   : 0.02  : distance of label above (or below) top of bar (inches)",
  829. "Idfield.size:  charsize   : 6  : char size of labels",
  830. "Idfield: dfield (list8)   :   : bars can be labeled using these field(s)",
  831. "Killwild: number    :   : if a data value greater than this is found, abort ",
  832. "Outlinebars: {y,n}    : y  : outline for each bar",
  833. "Saveas:  token    :  : to save a set of parms for cloning",
  834. "Segment: {y,n}    : n  : segment bars at axis tics",
  835. "Separation.sub: 0 to 1    : 0.03  : distance between sub-bars in cluster",
  836. "Separation: 0 to 1    : 0.20  : distance between major bar spaces",
  837. "Shade:   color (list8)   : .2 .5 .8 1 0  : a shade for each bar and subbar",
  838. "Yfield:  dfield    :  : Y position of bars (optional)",
  839. "Ystart.0or1: {0,1}    : 1  : start bars at Y=0 or Y=1",
  840. "Zeroat:  number    :   : bars point down at values less than this (usually 0)",
  841. "Proc Vector:",
  842. "Point1fields: dfield (list2) (M) : :fields in data holding x and y describing point p1 (x,y)",
  843. "Point2fields: dfield (list2) (M) : :fields in data holding x and y describing point p2 (x,y)",
  844. "Headlength: 0 to 2 : 0.2 :determines size of arrowhead, length in inches from point",
  845. "Headwidth:  0 to 0.8 : 0.24 :determines size of arrowhead, arc of half of arrow in radians",
  846. "Headshade: color : 0.0 :color of arrowhead",
  847. "Saveas: token    : : to save a set of parms for cloning",
  848. "Clone:    token    : : to clone an earlier proc's set of parameters",
  849. "Proc Vrangebar:",
  850. "Clone:    token :    : to clone an earlier proc's set of parameters",
  851. "Ends:    {y,n} : y : do little cross-bars on the ends?",
  852. "Field:    dfield (list5) (M) : : data fields (should have Nval members)",
  853. "Idfield: dfield    : : data field holding id label",
  854. "Label.size: charsize : 6 : size of the above label in points",
  855. "Label.position: number    : 1 : position for N=.. label in Y data units",
  856. "Linethick: 0 to 5 : 1 : thickness of boxplot line",
  857. "Midlinewidth: number : 0 : size of median line in user units, 0 uses Width value",
  858. "Midlineright: {y,n} : n    : option for making median lines protrude right only",
  859. "Nval: 1 to 5    : 5 : number of values making up the box",
  860. "Saveas:    token    : : to save a set of parms for cloning",
  861. "Shade: color    : 1.0 : shade for inside of bar",
  862. "Width: number    : 0.3 : width of box, in data units",
  863. "Yfield:    dfield    : : (optional) data field, bar x placement",
  864. "", "", "" } ;
  865.  
  866. /* number of lines per proc */
  867. int Tdx[30] = { 0, 
  868.         64,  /* Areadef */
  869.         4,   /* Arrow */
  870.         17,  /* Barg */
  871.         11,  /* Boxp */
  872.         17,  /* Dist */
  873.         8,   /* Draw */ 
  874.         10,  /* Errorbars */
  875.         11,  /* Getdata */
  876.         20,  /* Legend */ 
  877.         21,  /* Linep */
  878.         12,  /*  Map */
  879.         11,  /* Nicetab */
  880.         11,  /* Page */
  881.         3,   /* Pagebreak */
  882.         10,   /* Pie */
  883.         6,   /* Point */
  884.         11,  /* Polygon */
  885.         3,   /* QuitAppend */
  886.         15,  /* Rangebar */
  887.         11,  /* Text */
  888.         17,  /* Vbar */
  889.         8,   /* Vector */
  890.         15,  /* Vrangebar */
  891.         0, 0, 0, 0 };  
  892.  
  893. /* Note, only one space allowed after word "Proc" */
  894. SHAR_EOF
  895. ############################
  896.  
  897. cat << \SHAR_EOF > src/text.c
  898. #include "ipl.x"
  899. #define DATA 0
  900. #define ABSOLUTE 1
  901.  
  902. Text( )
  903. {
  904. int sys, ln, embedded, p, ix;
  905. double x, y, theta, size;
  906. char s1[40], s2[40];
  907. FILE *fp;
  908.  
  909. gget( Buf, "System" );
  910. if( Buf[0] == 'd' ) { 
  911.     sys = DATA; 
  912.     if( DXlo == 0 && DXhi == 0 ) { fprintf( stderr, "No graphics area.\n" ); gdp_exit(); }
  913.     }
  914. else sys = ABSOLUTE;
  915.  
  916. gget( Buf, "Font" ); NTfont( Buf );
  917. gget( Buf, "Size" ); size = atof( Buf ); NTptsize( size );
  918. gget( Buf, "Position" ); 
  919. sscanf( Buf, "%lf %lf", &x, &y );
  920. gget( Buf, "Direction" ); theta = atof( Buf );
  921.  
  922. if( theta != 0 ) NTchardir( theta );
  923.  
  924. gget( Buf, "Embeddedcoords" );
  925. if( Buf[0] == 'y' ) embedded = 1; else embedded = 0;
  926.  
  927. gget( Buf, "File" );
  928. if( strlen( Buf ) > 0 ) fp = fopen( Buf, "r" );        /* text in a file */
  929. else     {        /* text given-- put it in a file */
  930.     gget( Buf, "Text" );
  931.     text_tofile( Buf, Tempfile );
  932.     fp = fopen( Tempfile, "r" );
  933.     }
  934. if( fp == NULL ) { fprintf( stderr, "Cant open text file" );  gdp_exit(); }
  935.  
  936. /* read the file and print the text */
  937. if( !embedded ) {
  938.     if( sys == DATA ) NTm( x, y );
  939.     else NTmov( x, y );
  940.     }
  941.  
  942. ln = 1;
  943. while( fgets( Buf, 200, fp ) != NULL ) {
  944.     if( embedded ) {
  945.         ix = 0;
  946.         strcpy( s1, getok( Buf, &ix ) );
  947.         strcpy( s2, getok( Buf, &ix ) );
  948.         if( goodnum( s1, &p ) && goodnum( s2, &p ) ) {
  949.             x = atof( s1 ); y = atof( s2 );
  950.             if( sys == DATA ) NTm( x, y );
  951.             else NTmov( x, y );
  952.             strcpy( Buf, &Buf[ix] );
  953.             strip_ws( Buf );
  954.             }
  955.         }
  956.     NTtext( Buf );
  957.     if( sys == DATA ) NTmov( da_x(x), da_y(y)-(ln*Chh) ); 
  958.     else NTmov( x, y-(ln*Chh) );
  959.     ln++;
  960.     }
  961.  
  962. fclose( fp );
  963. NTchardir( 0 );
  964. }
  965. SHAR_EOF
  966. ############################
  967.  
  968.  
  969.