home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume18 / treepar / part01 / plotTEST.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-03-12  |  1.3 KB  |  79 lines
  1. /* plotTEST.c - plot driver for testing
  2.  *
  3.  *  2.Aug.87  jimmc  Initial definition
  4.  * 17.Aug.87  jimmc  Add textsize function
  5.  * 19.Aug.87  jimmc  Simplify text function
  6.  * 27.Aug.87  jimmc  Remove box function
  7.  */
  8.  
  9. #include <stdio.h>
  10. #include "plot.h"
  11.  
  12. static FILE *PTfile;
  13.  
  14. #define TESTLEFT 0
  15. #define TESTRIGHT 1000
  16. #define TESTBOTTOM 0
  17. #define TESTTOP 1000
  18.  
  19. int        /* 1 if OK */
  20. PTInit(filename,lxp,lyp,hxp,hyp)
  21. char *filename;
  22. int *lxp,*lyp,*hxp,*hyp;    /* returns bounding box of window */
  23. {
  24.     if (strcmp(filename,"stdout")==0) PTfile=stdout;
  25.     else if (strcmp(filename,"stderr")==0) PTfile=stderr;
  26.     else PTfile = fopen(filename,"w");
  27.     if (!PTfile) {
  28.         printf("can't open file %s",filename);
  29.         return 0;
  30.     }
  31.     fprintf(PTfile,"Init %s\n", filename);
  32.     *lxp = TESTLEFT;
  33.     *lyp = TESTBOTTOM;
  34.     *hxp = TESTRIGHT;
  35.     *hyp = TESTTOP;
  36.     return 1;
  37. }
  38.  
  39. PTDone()
  40. {
  41.     fprintf(PTfile,"Done\n");
  42.     if (PTfile!=stdout && PTfile!=stderr)
  43.         fclose(PTfile);
  44. }
  45.  
  46. PTTextSize(x,y)
  47. int x,y;
  48. {
  49.     fprintf(PTfile,"TextSize (%d %d)\n",x,y);
  50. }
  51.  
  52. PTLine(lx,ly,hx,hy)
  53. int lx,ly,hx,hy;
  54. {
  55.     fprintf(PTfile,"Line (%d %d)(%d %d)\n",lx,ly,hx,hy);
  56. }
  57.  
  58. PTText(x,y,text)
  59. int x,y;
  60. char *text;
  61. {
  62.     fprintf(PTfile,"Text \"%s\" at (%d,%d)\n",text,x,y);
  63. }
  64.  
  65. PTSetup()
  66. {
  67. PDevInfo *p;
  68.  
  69.     p = Pnew();
  70.     p->name = "TEST";
  71.     p->init = PTInit;
  72.     p->done = PTDone;
  73.     p->line = PTLine;
  74.     p->text = PTText;
  75.     p->textsize = PTTextSize;
  76. }
  77.  
  78. /* end */
  79.