home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume10 / tek / tek4.h < prev    next >
Encoding:
C/C++ Source or Header  |  1990-02-20  |  1.2 KB  |  52 lines
  1. /*
  2.  *    tek4.h - CGI version
  3.  *    copyright 1988 Ronald Florence
  4.  */
  5.  
  6. #define WEATHER        1
  7. #define Maxpts        1000
  8. #define    int        short    /* for CGI functions    */
  9. #define Tekx        4096.0
  10. #define Teky        3120.0
  11. #define Vmax        31000    /* Tek programs cheat! */
  12. #define Hmax        32000
  13.  
  14. double    xm = Hmax / Tekx,
  15.     ym = Vmax / Teky,
  16.     xscale = (32768 - Hmax) / 2.0,
  17.     yscale;
  18.  
  19. #define Left        0    /* character alignment  */
  20. #define Base        0
  21. #define Solid        1    /* linetypes */
  22. #define Longdash    2
  23. #define Dotted        3
  24. #define Dotdash        4
  25. #define Shortdash    7
  26. #define Altcolor    2    /* red */
  27.  
  28.  
  29. extern    int    dev;        /* device handle */
  30.  
  31. #define Align(H, V)    {                        \
  32.             int    gh, gv;                    \
  33.             vst_alignment(dev, Left, Base, &gh, &gv);    \
  34.             }
  35. #define Clear_scr()    /*  v_clrwk(dev)  */
  36. #define Set_line(L)    vsl_type(dev, L)
  37. #define Increment(X,Y)    
  38. #define Switch_pen()    {                    \
  39.             vst_color(dev, Altcolor);    \
  40.             vsl_color(dev, Altcolor);    \
  41.             vsm_color(dev, Altcolor);    \
  42.             }
  43.  
  44. #define Set_charsize(s)    {                        \
  45.             int    chh, chw, cellh;                \
  46.             chh = charht[s] * ym;                    \
  47.             vst_height(dev, chh, &chw, &cellw, &cellh);    \
  48.             }
  49. #define    Vector(N, PTS)    v_pline(dev, (N/2), PTS)
  50. #define Marker(N, PTS)    v_pmarker(dev, (N/2), PTS)
  51. #define Wr_str(X, Y, p)    v_gtext(dev, X, Y, p)
  52.