home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume31 / jgraph / part06 / printline.c < prev    next >
C/C++ Source or Header  |  1992-07-14  |  6KB  |  309 lines
  1. /* 
  2.  * $Source: /n/fs/vd/jsp/src/jgraph/RCS/printline.c,v $
  3.  * $Revision: 8.0 $
  4.  * $Date: 92/07/03 14:16:05 $
  5.  * $Author: jsp $
  6.  */
  7.  
  8. #include "jgraph.h"
  9. #include <stdio.h>
  10.  
  11. #define LINEWIDTHFACTOR 0.700
  12. #define MAX(a, b) ((a > b) ? (a) : (b))
  13.  
  14. typedef struct fontlist {
  15.   struct fontlist *flink;
  16.   struct fontlist *blink;
  17.   int level;
  18.   float s;
  19.   char *f;
  20. } *Fontlist;
  21.  
  22. static Fontlist Jgraph_fonts;
  23. static int Jgraph_gsave_level = -100;
  24. static int Jgraph_comment;
  25.  
  26. gsave()
  27. {
  28.   if (Jgraph_gsave_level == -100) {
  29.     Jgraph_gsave_level = 0;
  30.     Jgraph_fonts = (Fontlist) make_list(sizeof(struct fontlist));
  31.   } 
  32.   Jgraph_gsave_level++;
  33.   printf(" gsave ");
  34. }
  35.  
  36. grestore()
  37. {
  38.   Fontlist l;
  39.  
  40.   if (last(Jgraph_fonts) != nil(Jgraph_fonts)) {
  41.     l = last(Jgraph_fonts);
  42.     if (l->level == Jgraph_gsave_level) {
  43.       delete_item(l);
  44.       free_node(l, Jgraph_fonts);
  45.     }
  46.   }
  47.   Jgraph_gsave_level--;
  48.   printf(" grestore ");
  49. }
  50.  
  51. setfont(f, s)
  52. char *f;
  53. float s;
  54. {
  55.   Fontlist l;
  56.   int ins;
  57.  
  58.   if (last(Jgraph_fonts) != nil(Jgraph_fonts)) {
  59.     l = last(Jgraph_fonts);
  60.     ins = (strcmp(l->f, f) != 0 || s != l->s);
  61.     if (ins) {
  62.       delete_item(l);
  63.       free_node(l, Jgraph_fonts);
  64.     }
  65.   } else {
  66.     ins = 1;
  67.   }
  68.   if (ins) {
  69.     l = (Fontlist) get_node(Jgraph_fonts);
  70.     l->level = Jgraph_gsave_level;
  71.     l->s = s;
  72.     l->f = f;
  73.     insert(l, Jgraph_fonts);
  74.     printf("/%s findfont %f scalefont setfont\n", f, s);
  75.   }
  76. }
  77.   
  78. setfill( t, f)
  79. char t ;
  80. float f[] ;
  81. {
  82.     if ( t == 'g' )  {
  83.        if( f[0] >= 0.0 ) printf("gsave %f setgray fill grestore ", f[0] );
  84.     } else if ( t == 'c' )  {
  85.        printf("gsave %f %f %f setrgbcolor fill grestore ", f[0], f[1], f[2] );
  86.     } else {
  87.        printf("fill ");
  88.     }
  89. }
  90.  
  91. setgray( t, f)
  92. char t ;
  93. float f[] ;
  94. {
  95.     if ( t == 'g' )  {
  96.        if( f[0] >= 0.0 ) printf("%f setgray\n", f[0] );
  97.     } else if ( t == 'c' )  {
  98.        printf("%f %f %f setrgbcolor\n", f[0], f[1], f[2] );
  99.     }
  100. }
  101.  
  102. printline(x1, y1,x2, y2, orientation)
  103. float x1, y1, x2, y2;
  104. char orientation;
  105. {
  106.   if (orientation == 'x') 
  107.     printf("newpath %f %f moveto %f %f lineto stroke\n",
  108.           x1, y1, x2, y2);
  109.   else
  110.     printf("newpath %f %f moveto %f %f lineto stroke\n",
  111.           y1, x1, y2, x2);
  112. } 
  113.  
  114. print_ebar(x1, y1, x2, ms, orientation)
  115. float x1, y1, x2, ms;
  116. char orientation;
  117. {
  118.   printline(x1, y1, x2, y1, orientation);
  119.   printline(x2, y1-ms, x2, y1+ms, orientation);
  120. }
  121.  
  122. start_line(x1, y1, c)
  123. float x1, y1;
  124. Curve c;
  125. {
  126.   setlinewidth(c->linethick);
  127.   setlinestyle(c->linetype, c->gen_linetype);
  128.   printf("%f %f moveto ", x1, y1);
  129. }
  130.  
  131. cont_line(x1, y1)
  132. float x1, y1;
  133. {
  134.   printf("  %f %f lineto\n", x1, y1);
  135. }
  136.  
  137. end_line()
  138. {
  139.   printf("stroke\n");
  140.   setlinewidth(1.0);
  141.   setlinestyle('s', (Flist) 0);
  142.  
  143. }
  144.  
  145. bezier_control(x1, y1)
  146. float x1, y1;
  147. {
  148.   printf("  %f %f ", x1, y1);
  149. }
  150.  
  151. bezier_end(x1, y1)
  152. float x1, y1;
  153. {
  154.   printf("  %f %f curveto\n", x1, y1);
  155. }
  156.  
  157.  
  158. start_poly(x1, y1)
  159. float x1, y1;
  160. {
  161.   printf("newpath %f %f moveto ", x1, y1);
  162. }
  163.  
  164. cont_poly(x1, y1)
  165. float x1, y1;
  166. {
  167.   printf("  %f %f lineto\n", x1, y1);
  168. }
  169.  
  170. end_poly(ftype, fill)
  171. char  ftype ;
  172. float fill[];
  173. {
  174.   printf("closepath ");
  175.   setfill( ftype, fill );
  176.   printf("stroke\n");
  177. }
  178.  
  179. printellipse(x, y, radius1, radius2, ftype, fill)
  180. char ftype ;
  181. float x, y, radius1, radius2, fill[];
  182. {
  183.   printf("newpath %f %f %f %f 0 360 DrawEllipse ", x, y, radius1, radius2);
  184.   setfill( ftype, fill );
  185.   printf("stroke\n");
  186. }
  187.  
  188. set_comment(c)
  189. int c;
  190. {
  191.   Jgraph_comment = c;
  192. }
  193.  
  194. comment(s)
  195. char *s;
  196. {
  197.   if (Jgraph_comment) printf("%% %s\n", s);
  198. }
  199.  
  200. printline_c(x1, y1, x2, y2, g)
  201. float x1, y1, x2, y2;
  202. Graph g;
  203. {
  204.   printline(ctop(x1, g->x_axis), ctop(y1, g->y_axis),
  205.             ctop(x2, g->x_axis), ctop(y2, g->y_axis), 'x');
  206. }
  207.  
  208. print_label(l)
  209. Label l;
  210. {
  211.   int f, i, nlines;
  212.   float fnl;
  213.   char *s;
  214.  
  215.   if (l->label == CNULL) return;
  216.  
  217.   nlines = 0;
  218.   for (i = 0; l->label[i] != '\0'; i++) {
  219.     if (l->label[i] == '\n') {
  220.       l->label[i] = '\0';
  221.       nlines++;
  222.     }
  223.   }
  224.   fnl = (float) nlines;
  225.  
  226.   setfont(l->font, l->fontsize);
  227.   printf("gsave %f %f translate %f rotate\n", l->x, l->y, l->rotate);
  228.   if (l->graytype == 'g') {
  229.     printf("  %f setgray\n", l->gray[0]);
  230.   } else if (l->graytype == 'c') {
  231.     printf("  %f %f %f setrgbcolor\n", l->gray[0], l->gray[1], 
  232.            l->gray[2]);
  233.   }
  234.  
  235.   if (l->vj == 'b') {
  236.     printf("0 %f translate ", fnl * (l->fontsize + l->linesep) * FCPI / FPPI);
  237.   } else if (l->vj == 'c') {
  238.     if (nlines % 2 == 0) {
  239.       printf("0 %f translate ", 
  240.              (fnl/2.0*(l->fontsize + l->linesep) - l->fontsize/2.0)
  241.               * FCPI / FPPI);
  242.     } else {
  243.       printf("0 %f translate ", 
  244.              ((fnl-1.0)/2.0*(l->fontsize + l->linesep) + l->linesep/2.0)
  245.               * FCPI / FPPI);
  246.     }
  247.   } else {
  248.     printf("0 %f translate ", -l->fontsize * FCPI / FPPI);
  249.   }
  250.  
  251.   s = l->label;
  252.   for (i = 0; i <= nlines; i++) {
  253.     printf("(%s) dup stringwidth pop ", s);
  254.     if (l->hj == 'c') {
  255.       printf("2 div neg 0 moveto\n");
  256.     } else if (l->hj == 'r') {
  257.       printf("neg 0 moveto\n");
  258.     } else {
  259.       printf("pop 0 0 moveto\n");
  260.     }
  261.     /* I would put string blanking in here if I had the time... */
  262.  
  263.     if (i != nlines) {
  264.       f = strlen(s);
  265.       s[f] = '\n';
  266.       s = &(s[f+1]);
  267.       printf("show 0 %f translate\n", 
  268.               - (l->fontsize + l->linesep) * FCPI / FPPI);
  269.     } else {
  270.       printf("show\n");
  271.     }
  272.   }
  273.   printf("grestore\n");
  274. }
  275.  
  276. setlinewidth(size)
  277. float size;
  278. {
  279.   printf("%f setlinewidth\n", size * LINEWIDTHFACTOR);
  280. }
  281.  
  282. setlinestyle(style, glist)
  283. char style;
  284. Flist glist;
  285. {
  286.   Flist fl;
  287.  
  288.   switch(style) {
  289.     case '0': printf("\t[0 2] setdash\n"); break;
  290.     case 's': printf("\t[] 0 setdash\n"); break;
  291.     case '.': printf("\t [1 3.200000] 0 setdash\n"); break;
  292.     case '-': printf("\t [4.00000] 0 setdash\n"); break;
  293.     case 'l': printf("\t [7 2] 0 setdash\n"); break;
  294.     case 'd': printf("\t [5 3 1 3] 0 setdash\n"); break;
  295.     case 'D': printf("\t [5 3 1 2 1 3] 0 setdash\n"); break;
  296.     case '2': printf("\t [5 3 5 3 1 2 1 3] 0 setdash\n"); break;
  297.     case 'g': 
  298.       printf("\t [");
  299.       for (fl = first(glist); fl != nil(glist); fl = next(fl))
  300.         printf("%f ", fl->f);
  301.       printf("] 0 setdash\n");
  302.       break;
  303.     default: fprintf(stderr, "Error: Unknown line type: %c\n", style);
  304.              exit(1);
  305.              break;
  306.   }
  307. }
  308.  
  309.