home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume8 / gnuplot1.10A / part02 / hp75.trm < prev    next >
Encoding:
Text File  |  1989-09-09  |  1.4 KB  |  91 lines
  1. #define HP75_XMAX 6000
  2. #define HP75_YMAX 6000
  3.  
  4. #define HP75_XLAST (HP75_XMAX - 1)
  5. #define HP75_YLAST (HP75_XMAX - 1)
  6.  
  7. /* HP75_VCHAR, HP75_HCHAR  are not used */
  8. #define HP75_VCHAR    (HP75_YMAX/20)    
  9. #define HP75_HCHAR    (HP75_XMAX/20)        
  10. #define HP75_VTIC    (HP75_YMAX/70)        
  11. #define HP75_HTIC    (HP75_XMAX/75)        
  12.  
  13. HP75_init()
  14. {
  15.     fprintf(outfile,
  16.     "IN;\033.P1:SC0,%d,0,%d;\n;IP;SI0.2137,0.2812;\n",
  17.         HP75_XMAX,HP75_YMAX);
  18. /*     1      2  3       4             5    6  7
  19.     1. turn on eavesdropping
  20.     2. reset to power-up defaults
  21.     3. enable XON/XOFF flow control
  22.     4. set SCaling to 2000 x 2000
  23.     5. rotate page 90 degrees
  24.     6. ???
  25.     7. set some character set stuff
  26. */
  27. }
  28.  
  29.  
  30. HP75_graphics()
  31. {
  32. /*         1
  33.     fputs("\033.Y",outfile);
  34.     1. enable eavesdropping
  35. */
  36. }
  37.  
  38.  
  39. HP75_text()
  40. {
  41.     fputs("NR;\033.Z",outfile);
  42. /*         1  2
  43.     1. go into 'view' mode
  44.     2. disable plotter eavesdropping
  45. */
  46. }
  47.  
  48.  
  49. HP75_linetype(linetype)
  50. int linetype;
  51. {
  52.     fprintf(outfile,"SP%d;\n",(linetype+3)%8);
  53. }
  54.  
  55.  
  56. HP75_move(x,y)
  57. int x,y;
  58. {
  59.     fprintf(outfile,"PU%d,%d;\n",x,y);
  60. }
  61.  
  62.  
  63. HP75_vector(x,y)
  64. int x,y;
  65. {
  66.     fprintf(outfile,"PD%d,%d;\n",x,y);
  67. }
  68.  
  69.  
  70. HP75_lrput_text(row,str)
  71. int row;
  72. char str[];
  73. {
  74.     HP75_move(HP75_XMAX-HP75_HTIC*2,HP75_VTIC*2+HP75_VCHAR*row);
  75.     fprintf(outfile,"LO17;LB%s\003\n",str);
  76. }
  77.  
  78. HP75_ulput_text(row,str)
  79. int row;
  80. char str[];
  81. {
  82.     HP75_move(HP75_HTIC*2,HP75_YMAX-HP75_VTIC*2-HP75_VCHAR*row);
  83.     fprintf(outfile,"LO13;LB%s\003\n",str);
  84. }
  85.  
  86. HP75_reset()
  87. {
  88. }
  89.  
  90.  
  91.