home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c129 / 1.ddi / HPPLOT.C < prev    next >
Encoding:
C/C++ Source or Header  |  1989-08-11  |  11.2 KB  |  472 lines
  1. #include <dos.h>
  2. #include <stdio.h>
  3. #include <stdlib.h>
  4. #include <graph.h>
  5. #include <string.h>
  6. #include "asyncxx.h"
  7.  
  8. typedef enum  {AA,AR,CA,CI,CP,CS,DF,DI,DP,DR,DT,EA,
  9.                ER,EW,FT,IM,INx,IP,IW,LB,LT,OA,OC,OD,
  10.                OE,OFx,OH,OI,OO,OP,OS,OW,PA,PD,PR,PS,
  11.                PT,PU,RA,RO,RR,SA,SC,SI,SL,SM,SP,SR,
  12.                SS,TL,UC,VS,WG,XT,YT} HPGLType;
  13.  
  14. typedef char string255[256];
  15.  
  16. char HPGLTag[60][3] = {"AA","AR","CA","CI","CP","CS","DF","DI",
  17.      "DP","DR","DT","EA","ER","EW","FT","IM","IN","IP","IW","LB",
  18.      "LT","OA","OC","OD","OE","OF","OH","OI","OO","OP","OS","OW",
  19.      "PA","PD","PR","PS","PT","PU","RA","RO","RR","SA","SC","SI",
  20.      "SL","SM","SP","SR","SS","TL","UC","VS","WG","XT","YT"};
  21.  
  22. int HPGLFillMap[11][2] = {{5,2},{1,0},{3,0},{3,45},{3,45},{3,135},
  23.                           {3,135},{4,45},{4,45},{4,45},{4,45}};
  24. char COM[2] = {44,0};
  25. char SEM[2] = {59,0};
  26. char COL[2] = {58,0};
  27. char CR[2]  = {13,0};
  28. char LF[2]  = {10,0};
  29. char SPC[2] = {32,0};
  30. char BS[2]  = {8,0};
  31. char ETX[2] = {3,0};
  32.  
  33. int Err=0;
  34. char debugF;
  35. int maxC=6;
  36. int tdir=0;
  37. int thJust=0;
  38. int tvJust=0;
  39. int CurColor=128;
  40. int PUx1;
  41. int PUx2;
  42. int PUy1;
  43. int PUy2;
  44. int ppattype;
  45. int ppatcolor;
  46. char outString[256];
  47.  
  48. /* get pen number  1 -> maxC */
  49. int Pgetcolor()
  50. {
  51.         return( CurColor );
  52. }
  53.  
  54. void SwapReal(float *r,float *s)
  55. {
  56.    float temp;
  57.  
  58.    temp = (*r);
  59.    (*r) = (*s);
  60.    (*s) = temp;
  61. }
  62.  
  63. /* sets the maximum pen color */
  64. void SetMaxColor(int c)
  65. {
  66.         maxC = c;
  67. }
  68.  
  69.  
  70. /* Turns on the plotter debugger.  HPGL tags
  71.    are printed to the crt. It is recommended
  72.    to turn CRTGraphOff while running the
  73.    debugger.                                  */
  74.  
  75. void DebugOn()
  76. {
  77.         debugF = 1;
  78. }
  79.  
  80.  
  81. /* Turns off the plotter debugger.             */
  82.  
  83. void DebugOff()
  84. {
  85.         debugF = 0;
  86. }
  87.  
  88.  
  89. /* Writes data to plotter if plotter is on.
  90.    Writes HPGL tags to crt if debug is on.     */
  91.  
  92. void WritePlotter(char s[256])
  93. {
  94.    int Err;
  95.  
  96.         writeln_com(s,&Err);
  97.         if ( debugF ) {
  98.                 fprintf(stdout,"%s\n", s);
  99.         }
  100. }
  101.  
  102.  
  103. void PenUp()
  104. {
  105.         strcpy(outString,  HPGLTag[PU]);
  106.         strcat(outString,SEM);
  107.         WritePlotter(outString);
  108. }
  109.  
  110.  
  111. void PenDown()
  112. {
  113.         strcpy(outString, HPGLTag[PD]);
  114.         strcat(outString, SEM);
  115.         WritePlotter(outString);
  116. }
  117.  
  118.  
  119. char *I2S(int i)
  120. {
  121.    char result[256];
  122.  
  123.         sprintf(result, "%d", i);
  124.         return(result);
  125. }
  126.  
  127. char *R2S(float r,int n,int m)
  128. {
  129.         char result[256];
  130.  
  131.         sprintf(result, "%*.*f",n,m,r);
  132.         return(result);
  133. }
  134.  
  135. void GetPlotterViewport(int *x1,int *y1,int *x2,int *y2)
  136. {
  137.         *x1 = PUx1;
  138.         *x2 = PUx2;
  139.         *y1 = PUy1;
  140.         *y2 = PUy2;
  141. }
  142.  
  143. void SetPlotterViewport(int x1,int y1,int x2,int y2)
  144. {
  145.         PUx1 = x1;
  146.         PUx2 = x2;
  147.         PUy1 = y1;
  148.         PUy2 = y2;
  149.         strcpy( outString, HPGLTag[IP]);
  150.         strcat( outString,SPC);
  151.         strcat( outString, I2S(x1));
  152.         strcat( outString, COM);
  153.         strcat( outString, I2S(y1));
  154.         strcat( outString, COM);
  155.         strcat( outString, I2S(x2));
  156.         strcat( outString, COM);
  157.         strcat( outString, I2S(y2));
  158.         strcat( outString, SEM);
  159.         WritePlotter(outString);
  160. }
  161.  
  162.  
  163. void SelectPen(int p)
  164. {
  165.         if ( p > maxC ) {
  166.                 p = maxC;
  167.         }
  168.         if (p != CurColor ){
  169.                 PenUp();
  170.                 CurColor = p;
  171.                 strcpy(outString, HPGLTag[SP]);
  172.                 strcat(outString, SPC );
  173.                 strcat(outString, I2S(p));
  174.                 strcat(outString, SEM);
  175.                 WritePlotter(outString);
  176.                 PenUp();
  177.         }
  178. }
  179.  
  180.  
  181.  
  182. void ScalePlotterViewport(int x1,int y1,int x2,int y2)
  183. {
  184.         strcpy(outString, HPGLTag[SC]);
  185.         strcat(outString, SPC);
  186.         strcat(outString, I2S(x1));
  187.         strcat(outString, COM);
  188.         strcat(outString, I2S(x2));
  189.         strcat(outString, COM);
  190.         strcat(outString, I2S(y1));
  191.         strcat(outString, COM);
  192.         strcat(outString, I2S(y2));
  193.         strcat(outString, SEM);
  194.         WritePlotter(outString);
  195. }
  196.  
  197.  
  198. void Pmoveto(float x1,float y1)
  199. {
  200.         PenUp();
  201.         strcpy(outString, HPGLTag[PA]);
  202.         strcat(outString, SPC);
  203.         strcat(outString, R2S(x1,2,1));
  204.         strcat(outString, COM);
  205.         strcat(outString, R2S(y1,2,1));
  206.         strcat(outString, SEM);
  207.         WritePlotter(outString);
  208. }
  209.  
  210.  
  211. void Plineto(float x1,float y1)
  212. {
  213.         PenDown();
  214.         strcpy(outString, HPGLTag[PA]);
  215.         strcat(outString, SPC);
  216.         strcat(outString, R2S(x1,2,1));
  217.         strcat(outString, COM);
  218.         strcat(outString, R2S(y1,2,1));
  219.         strcat(outString, SEM);
  220.         WritePlotter(outString);
  221. }
  222.  
  223.  
  224. void Pmoverel(float x1,float y1)
  225. {
  226.         PenUp();
  227.         strcpy(outString, HPGLTag[PR]);
  228.         strcat(outString, SPC);
  229.         strcat(outString, R2S(x1,2,1));
  230.         strcat(outString, COM);
  231.         strcat(outString, R2S(y1,2,1));
  232.         strcat(outString, SEM);
  233.         WritePlotter(outString);
  234. }
  235.  
  236.  
  237. void Plinerel(float x1,float y1)
  238. {
  239.         PenDown();
  240.         strcpy(outString, HPGLTag[PR]);
  241.         strcat(outString, SPC);
  242.         strcat(outString, R2S(x1,2,1));
  243.         strcat(outString, COM);
  244.         strcat(outString, R2S(y1,2,1));
  245.         strcat(outString, SEM);
  246.         WritePlotter(outString);
  247. }
  248.  
  249.  
  250. void Psettextjustify(int H,int V)
  251. {
  252.         thJust = H;
  253.         tvJust = V;
  254. }
  255.  
  256.  
  257. void Psetlinestyle(int ls, int pat)
  258. {
  259.         if (ls == 0)  {
  260.                 strcpy( outString,HPGLTag[LT]);
  261.                 strcat( outString,SEM);
  262.         }
  263.         else{
  264.                 strcpy(outString, HPGLTag[LT]);
  265.                 strcat(outString, SPC);
  266.                 strcat(outString, I2S(ls));
  267.                 strcat(outString, COM);
  268.                 strcat(outString, I2S(2));
  269.                 strcat(outString, SEM);
  270.         }
  271.         WritePlotter(outString);
  272. }
  273.  
  274.  
  275. void Psettextstyle(int font,int  dir,int  size)
  276. {
  277.   float wr= 0.150;
  278.   float hr= 0.200;
  279.   int run, rise;
  280.   float temp,fsize;
  281.  
  282.         tdir = dir;
  283.         if (dir==0)  { run = 1; rise = 0; }
  284.         if (dir == 1)  { run = 0; rise = 1; }
  285.         strcpy( outString, HPGLTag[DI]);
  286.         strcat( outString, SPC);
  287.         strcat( outString, I2S(run));
  288.         strcat( outString, COM);
  289.         strcat( outString, I2S(rise));
  290.         strcat( outString, SEM);
  291.         WritePlotter(outString);
  292.         strcpy( outString, HPGLTag[SI]);
  293.         strcat( outString, SPC);
  294.         fsize =((float) size );
  295.         temp = fsize*wr;
  296.         strcat( outString, R2S(temp,2,1));
  297.         strcat( outString, COM);
  298.         temp = fsize * hr;
  299.         strcat( outString, R2S(temp,2,1));
  300.         strcat( outString, SEM);
  301.         WritePlotter(outString);
  302.         strcpy(outString,HPGLTag[CS]);
  303.         strcat(outString, SPC);
  304.         strcat(outString, I2S(font));
  305.         strcat(outString, SEM);
  306.         WritePlotter(outString);
  307. }
  308.  
  309.  
  310. void   JustifyPenPosition(char s[256])
  311. { float x,y;
  312.   int l;
  313.  
  314.         l = strlen(s);
  315.         switch (thJust) {
  316.                 case  0: if (tdir==0) x= 0.0; else y= -1.0;   break;
  317.                 case  1: if (tdir==0) x= -l/2.0; else y=-0.25; break;
  318.                 case  2: if (tdir==0) x= -l; else y= 0.0; break;
  319.         }
  320.         switch  (tvJust){
  321.                 case  0: if (tdir==0) y= 0.0; else x= 0.0; break;
  322.                 case  1: if (tdir==0) y= -0.25; else x= -l/2.0; break;
  323.                 case  2: if (tdir==0) y= -1.0; else x= -l; break;
  324.         }
  325.         strcpy( outString, HPGLTag[CP]);
  326.         strcat( outString, SPC );
  327.         strcat( outString, R2S(x,2,1));
  328.         strcat( outString, COM);
  329.         strcat( outString, R2S(y,2,1));
  330.         strcat( outString, SEM);
  331.         WritePlotter(outString);
  332. }
  333.  
  334.  
  335. void Pouttext(char s[256])
  336. {  char ss[256];
  337.  
  338.         strcpy(ss,s);
  339.         strcat(ss ,ETX);
  340.         JustifyPenPosition(ss);
  341.         strcpy(outString,HPGLTag[LB]);
  342.         strcat(outString,SPC);
  343.         strcat(outString,ss);
  344.         strcat(outString, SEM);
  345.         WritePlotter(outString);
  346. }
  347.  
  348.  
  349. void Pbar(float x1,float y1,float x2,float y2)
  350. {
  351.         if (ppattype != 0){
  352.                 Pmoveto(x1,y1);
  353.                 strcpy( outString, HPGLTag[RA]);
  354.                 strcat( outString,SPC);
  355.                 strcat( outString,R2S(x2,2,1));
  356.                 strcat( outString,COM);
  357.                 strcat( outString,R2S(y2,2,1));
  358.                 strcat( outString,SEM);
  359.                 WritePlotter(outString);
  360.         }
  361. }
  362.  
  363.  
  364. void Prectangle(float x1,float y1,float x2,float y2)
  365. {
  366.         Pmoveto(x1,y1);
  367.         strcpy( outString, HPGLTag[EA]);
  368.         strcat( outString, SPC);
  369.         strcat( outString, R2S(x2,2,1) );
  370.         strcat( outString, COM);
  371.         strcat( outString,R2S(y2,2,1));
  372.         strcat( outString,SEM);
  373.         WritePlotter(outString);
  374. }
  375.  
  376. void PEdgeWedge(float x,float y,float radius, int  start,int  sweep)
  377. {
  378.  int c;
  379.  char outString[256];
  380.  
  381.   Pmoveto(x,y);
  382.   strcpy(outString, HPGLTag[EW]);
  383.   strcat(outString,SPC);
  384.   strcat(outString, R2S(radius,2,1));
  385.   strcat(outString,COM);
  386.   strcat(outString,I2S(start));
  387.   strcat(outString,COM);
  388.   strcat(outString,I2S(sweep));
  389.   strcat(outString,COM);
  390.   strcat(outString,I2S(5));
  391.   strcat(outString,SEM);
  392.   WritePlotter(outString);
  393. }
  394.  
  395.  
  396.  
  397. void PShadeWedge(float x,float y,float radius,int start,int sweep)
  398. {
  399.  int c;
  400.  char outString[256];
  401.  
  402.   PEdgeWedge(x,y,radius,start,sweep);
  403.   if (ppattype > 0)
  404.   {
  405.     Pmoveto(x,y);
  406.     c = CurColor;
  407.     SelectPen(ppatcolor);
  408.     strcpy(outString, HPGLTag[WG]);
  409.     strcat(outString,SPC);
  410.     strcat(outString,R2S(radius,2,1));
  411.     strcat(outString,COM);
  412.     strcat(outString,I2S(start));
  413.     strcat(outString,COM);
  414.     strcat(outString,I2S(sweep));
  415.     strcat(outString,COM);
  416.     strcat(outString,I2S(5));
  417.     strcat(outString,SEM);
  418.     WritePlotter(outString);
  419.     SelectPen(c);
  420.   }
  421. }
  422.  
  423.  
  424. void Psetfillstyle(int pati,int c)
  425. {
  426.     int pat,angle;
  427.  
  428.         if (pati>=0){
  429.                 ppatcolor = c;
  430.                 ppattype = pati;
  431.                 pat = HPGLFillMap[pati][0];
  432.                 angle = HPGLFillMap[pati][1];
  433.                 strcpy( outString ,HPGLTag[FT]);
  434.                 strcat( outString,SPC);
  435.                 strcat( outString,I2S(pat));
  436.                 strcat( outString,COM);
  437.                 strcat( outString,I2S(4));
  438.                 strcat( outString,COM);
  439.                 strcat( outString,I2S(angle));
  440.                 strcat( outString,SEM);
  441.                 WritePlotter(outString);
  442.         }
  443. }
  444.  
  445.  
  446. void SetClippingWindow(int x1,int y1,int x2,int y2)
  447. {
  448.         strcpy( outString,HPGLTag[IW]);
  449.         strcat( outString,SPC);
  450.         strcat( outString,I2S(x1));
  451.         strcat( outString,COM);
  452.         strcat( outString,I2S(y1));
  453.         strcat( outString,COM);
  454.         strcat( outString,I2S(x2));
  455.         strcat( outString,COM);
  456.         strcat( outString,I2S(y2));
  457.         strcat( outString,SEM);
  458.         WritePlotter(outString);
  459. }
  460.  
  461.  
  462. void SelectPenVelocity(int v)
  463. {
  464.         strcpy( outString, HPGLTag[VS]);
  465.         strcat( outString, SPC);
  466.         strcat( outString, I2S(v));
  467.         strcat( outString, SEM);
  468.         WritePlotter(outString);
  469. }
  470.  
  471.  
  472.