开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 通讯编程 > 查看源码
hpgl.c
资源名称：ns-allinone-2.33.tar.gz　[点击查看]
上传用户：rrhhcc
上传日期：2015-12-11
资源大小：54129k
文件大小：10k
源码类别：

通讯编程

开发平台：

Visual C++

hpgl.c：源码内容
  1. /*
  2.  * HPGL Output
  3.  *
  4.  * Tom Quarles
  5.  */
  7. #define MAPX(state,x) ( (x) + P1X + state->clipminX )
  8. #define MAPY(state,y) ( MAXY - (y) + P1Y - state->clipminY)
  10. #include "copyright.h"
  11. #include "xgraph.h"
  12. #include "plotter.h"
  13. #include <stdio.h>
  14. #include <math.h>
  16. static void hpglText();
  17. static void hpglSeg();
  18. static void hpglDot();
  19. static void hpglEnd();
  21. static xgOut hpglInfo =
  22. {
  23.     D_COLOR, /* device characteristics */
  24.     MAXX, /* width */
  25.     MAXY, /* height */
  26.     200, /* border padding */
  27.     0, /* extra space around axis labels */
  28.     250, /* tick length - approx 1/4 inch */
  29.     50, /* spacing above legend lables */
  30.     0, /* axis font width */
  31.     0, /* axis font height */
  32.     0, /* title font width */
  33.     0, /* title font height */
  34.     1000000, /* maximum number of segments */
  36.     hpglText, /* text output function */
  37.     hpglSeg, /* segment  drawing function */
  38.     hpglDot, /* dot/marker drawing function */
  39.     hpglEnd, /* end of plot function */
  41.     NULL, /* userInfo */
  42. };
  44. typedef struct {
  45.     double  axis_w;
  46.     double  axis_h;
  47.     double  title_w;
  48.     double  title_h;
  49.     FILE   *plotterFile;
  50.     int     clipminX;
  51.     int     clipminY;
  52.     int     clipmaxX;
  53.     int     clipmaxY;
  54. }       mydata;
  56. /*ARGSUSED*/
  57. int
  58. hpglInit(stream, width, height, title_family, title_size,
  59.  axis_family, axis_size, flags, outInfo, errmsg)
  60. FILE   *stream; /* output stream */
  61. int     width; /* desired width of space in microns */
  62. int     height; /* desired height in microns */
  63. char   *title_family; /* name of font for titles */
  64. double  title_size; /* size of font for titles */
  65. char   *axis_family; /* name of font for axes */
  66. double  axis_size; /* size of font for axes */
  67. int     flags; /* predicate values (ignored) */
  68. xgOut  *outInfo; /* my structure */
  69. char    errmsg[ERRBUFSIZE]; /* a place to complain to */
  70. {
  71.     mydata *myInfo;
  73.     myInfo = (mydata *) Malloc(sizeof(mydata));
  74.     if (myInfo == NULL)
  75. return 0;
  76.     *outInfo = hpglInfo;
  77.     outInfo->area_w = MIN(MAXX, width / 25);
  78.     outInfo->area_h = MIN(MAXY, height / 25);
  79.     /* magic formulas:  input sizes are in points = 1/72 inch */
  80.     /* my sizes are in cm */
  81.     /* plotter units are in units of .025mm ~= 1/1016 inch */
  82.     /*
  83.      * have to warn of height 1.5 times larger or get bitten by plotter's
  84.      * internal padding
  85.      */
  86.     /* widths are (arbitrarily) selected to be 2/3 of the height */
  87.     /* (cancels with width factor) */
  88.     myInfo->axis_w = axis_size * .666 * 2.54 / 72.;
  89.     myInfo->axis_h = axis_size * 2.54 / 72.;
  90.     myInfo->title_w = title_size * .666 * 2.54 / 72.;
  91.     myInfo->title_h = title_size * 2.54 / 72.;
  93.     outInfo->axis_pad = axis_size * 1016. * 1.5 / 72.;
  94.     outInfo->axis_width = axis_size * 1016. * 1.5 / 72.;
  95.     outInfo->axis_height = axis_size * 1016. * .666 / 72.;
  96.     outInfo->title_width = title_size * 1016. * 1.5 / 72.;
  97.     outInfo->title_height = title_size * 1016. * .666 / 72.;
  98.     outInfo->user_state = (char *) myInfo;
  99.     myInfo->plotterFile = stream;
  100.     myInfo->clipminX = 0;
  101.     myInfo->clipminY = 0;
  102.     myInfo->clipmaxX = MAXX;
  103.     myInfo->clipmaxY = MAXY;
  104.     fprintf(myInfo->plotterFile, "PG;IN;n");
  105.     fprintf(myInfo->plotterFile, "DI1,0;n");
  106.     fprintf(myInfo->plotterFile, "IW%d,%d,%d,%d;n", MAPX(myInfo, 0),
  107.     MAPY(myInfo, myInfo->clipmaxY - myInfo->clipminY),
  108.     MAPX(myInfo, myInfo->clipmaxX - myInfo->clipminX),
  109.     MAPY(myInfo, 0));
  110.     return (1);
  111. }
  113. static void
  114. hpglText(userState, x, y, text, just, style)
  115. mydata *userState; /* my state information  */
  116. int     x,
  117.         y; /* coords of text origin */
  118. char   *text; /* what to put there */
  119. int     just; /* how to justify */
  121.  /*
  122.   * where the origin is relative to where the text should go as a function of
  123.   * the various values of just
  124.   * 
  125.   * T_UPPERLEFT     T_TOP       T_UPPERRIGHT T_LEFT          T_CENTER    T_RIGHT
  126.   * T_LOWERLEFT     T_BOTTOM    T_LOWERRIGHT
  127.   * 
  128.   */
  129. int     style; /* T_AXIS = axis font, T_TITLE = title font */
  131. {
  132.     fprintf(userState->plotterFile, "PU;SP%d;", TEXTCOLOR);
  133.     fprintf(userState->plotterFile, "PA%d,%d;", MAPX(userState, x), MAPY(userState, y));
  134.     switch (style) {
  135.     case T_AXIS:
  136. fprintf(userState->plotterFile, "SI%f,%f;", userState->axis_w, userState->axis_h);
  137. break;
  138.     case T_TITLE:
  139. fprintf(userState->plotterFile, "SI%f,%f;", userState->title_w, userState->title_h);
  140. break;
  141.     default:
  142. printf("bad text style %d in hpglTextn", style);
  143. exit(1);
  144. break;
  145.     }
  146.     switch (just) {
  147.     case T_UPPERLEFT:
  148. fprintf(userState->plotterFile, "LO3;n");
  149. break;
  150.     case T_TOP:
  151. fprintf(userState->plotterFile, "LO6;n");
  152. break;
  153.     case T_UPPERRIGHT:
  154. fprintf(userState->plotterFile, "LO9;n");
  155. break;
  156.     case T_LEFT:
  157. fprintf(userState->plotterFile, "LO2;n");
  158. break;
  159.     case T_CENTER:
  160. fprintf(userState->plotterFile, "LO5;n");
  161. break;
  162.     case T_RIGHT:
  163. fprintf(userState->plotterFile, "LO8;n");
  164. break;
  165.     case T_LOWERLEFT:
  166. fprintf(userState->plotterFile, "LO1;n");
  167. break;
  168.     case T_BOTTOM:
  169. fprintf(userState->plotterFile, "LO4;n");
  170. break;
  171.     case T_LOWERRIGHT:
  172. fprintf(userState->plotterFile, "LO7;n");
  173. break;
  174.     default:
  175. printf("bad justification type %d in hpglTextn", just);
  176. exit(1);
  177. break;
  178.     }
  179.     fprintf(userState->plotterFile, "LB%s3;", text);
  180. }
  184. static int penselect[8] =
  185. {PEN1, PEN2, PEN3, PEN4, PEN5, PEN6, PEN7, PEN8};
  186. static int lineselect[8] =
  187. {LINE1, LINE2, LINE3, LINE4, LINE5, LINE6,
  188.  LINE7, LINE8};
  192. static void
  193. hpglSeg(userState, ns, segs, width, style, lappr, color)
  194. mydata *userState; /* my state information (not used) */
  195. int     ns; /* number of segments */
  196. XSegment *segs; /* X array of segments */
  197. int     width; /* width of lines in pixels */
  198. int     style; /* L_VAR = dotted, L_AXIS = grid, L_ZERO = axis */
  199. int     lappr; /* line style */
  200. int     color; /* line color */
  201. {
  202.     int     i;
  204.     if (style == L_ZERO) {
  205. fprintf(userState->plotterFile, "SP%d;", PENAXIS); /* select correct pen */
  206. fprintf(userState->plotterFile, "LT;"); /* solid line style */
  207.     }
  208.     else if (style == L_AXIS) {
  209. fprintf(userState->plotterFile, "SP%d;", PENGRID); /* select correct pen */
  210. fprintf(userState->plotterFile, "LT;"); /* solid line style */
  211.     }
  212.     else if (style == L_VAR) {
  213. if ((color < 0) || (color > 7)) {
  214.     printf("out of range line color %d in hpglLinen", color);
  215.     exit(1);
  216. }
  217. fprintf(userState->plotterFile, "SP%d;", penselect[color]); /* select correct pen */
  218. if ((lappr < 0) || (lappr > 7)) {
  219.     printf("out of range line style %d in hpglLinen", lappr);
  220.     exit(1);
  221. }
  222. if (lappr == 0) {
  223.     fprintf(userState->plotterFile, "LT;"); /* select solid line
  224.  * type */
  225. }
  226. else {
  227.     fprintf(userState->plotterFile, "LT%d;", lineselect[lappr]); /* select line type */
  228. }
  229.     }
  230.     else {
  231. printf("unknown style %d in hpglLinen", style);
  232. exit(1);
  233.     }
  234.     for (i = 0; i < ns; i++) {
  235. if (!i || ((segs[i].x1 != segs[i - 1].x2) || (segs[i].y1 != segs[i - 1].y2))) {
  236.     /* MOVE */
  237.     fprintf(userState->plotterFile, "PU;PA%d,%d;n", MAPX(userState, segs[i].x1),
  238.     MAPY(userState, segs[i].y1));
  239. }
  240. /* DRAW */
  241. if (width <= 1) {
  242.     fprintf(userState->plotterFile, "PD;PA%d,%d;n", MAPX(userState, segs[i].x2),
  243.     MAPY(userState, segs[i].y2));
  244. }
  245. else { /* ugly - wide lines -> rectangles */
  246.     double  frac;
  247.     int     lx,
  248.             ly;
  249.     int     urx,
  250.             ury,
  251.             ulx,
  252.             uly,
  253.             llx,
  254.             lly,
  255.             lrx,
  256.             lry;
  258.     frac = (width / 2) / sqrt((double)
  259.       ((segs[i].x1 - segs[i].x2) *
  260.        (segs[i].x1 - segs[i].x2)) +
  261.       ((segs[i].y1 - segs[i].y2) *
  262.        (segs[i].y1 - segs[i].y2)));
  263.     lx = frac * (segs[i].y2 - segs[i].y1);
  264.     ly = -frac * (segs[i].x2 - segs[i].x1);
  265.     urx = segs[i].x2 + lx;
  266.     ury = segs[i].y2 + ly;
  267.     ulx = segs[i].x2 - lx;
  268.     uly = segs[i].y2 - ly;
  269.     llx = segs[i].x1 - lx;
  270.     lly = segs[i].y1 - ly;
  271.     lrx = segs[i].x1 + lx;
  272.     lry = segs[i].y1 + ly;
  273.     fprintf(userState->plotterFile, "PU;PA%d,%d;", MAPX(userState, llx),
  274.     MAPY(userState, lly));
  275.     fprintf(userState->plotterFile, "PM0;");
  276.     fprintf(userState->plotterFile, "PD,PA%d,%D;PA%d,%D;PA%d,%d;n",
  277.     MAPX(userState, lrx), MAPY(userState, lry),
  278.     MAPX(userState, urx), MAPY(userState, ury),
  279.     MAPX(userState, ulx), MAPY(userState, uly));
  280.     fprintf(userState->plotterFile, "PM2;FP;EP;");
  281. }
  282.     }
  283.     fprintf(userState->plotterFile, "PU;");
  284. }
  286. static char *markselect[8] =
  287. {MARK1, MARK2, MARK3, MARK4, MARK5, MARK6,
  288.  MARK7, MARK8};
  290. static void
  291. hpglDot(userState, x, y, style, type, color)
  292. mydata *userState; /* my state information (not used) */
  293. int     x,
  294.         y; /* coord of dot */
  295. int     style; /* type of dot */
  296. int     type; /* dot style variation */
  297. int     color; /* color of dot */
  298. {
  299.     /* move to given coord */
  300.     fprintf(userState->plotterFile, "PU;PA%d,%d;n", MAPX(userState, x), MAPY(userState, y));
  301.     if ((color < 0) || (color > 7)) {
  302. printf("unknown color %d in hpglDotn", color);
  303. exit(1);
  304.     }
  305.     fprintf(userState->plotterFile, "SP%d;", penselect[color]);
  306.     if (style == P_PIXEL) {
  307. fprintf(userState->plotterFile, "PD;PU;n");
  308.     }
  309.     else if (style == P_DOT) {
  310. fprintf(userState->plotterFile, "LT;PM0;CI40;PM2;FT;EP;n");
  311.     }
  312.     else if (style == P_MARK) {
  313. if ((type < 0) || (type > 7)) {
  314.     printf("unknown marker type %d in hpglDotn", type);
  315.     exit(1);
  316. }
  317. /*
  318.  * fprintf(userState->plotterFile,"LT;CA5;LO4;SI0.1;LB%s3;n",marksele
  319.  * ct[type]);
  320.  */
  321. fprintf(userState->plotterFile, "LT;CS5;LO4;SI0.15;SM%s;PR0,0;SM;CS;n", markselect[type]);
  322.     }
  323.     else {
  324. printf("unknown marker style %d in hpglDotn", style);
  325. exit(1);
  326.     }
  327. }
  329. static void
  330. hpglEnd(userState)
  331. mydata *userState; /* my state information (not used) */
  333. {
  334.     fprintf(userState->plotterFile, "SP;PG;IN;n");
  335.     fflush(userState->plotterFile);
  336.     return;
  337. }