home *** CD-ROM | disk | FTP | other *** search
/ Phoenix Heaven Sunny 2 / APPARE2.BIN / oh_towns / art2 / src.lzh / WGBMAC.H < prev    next >
Text File  |  1994-08-31  |  4KB  |  79 lines
  1. #define WGB_GETBLOCK(wk,buf,x,y,width,height) {                            \
  2.   char para[20];                                                        \
  3.   DWORD(para) = (unsigned int)(buf); WORD(para+4) = getds();            \
  4.   WORD(para+6) = (x);                WORD(para+8) = (y);                \
  5.   WORD(para+10) = (x)+(width)-1;     WORD(para+12) = (y)+(height)-1;    \
  6.   WGB_getBlock(wk, para); }
  7.  
  8. #define WGB_PUTBLOCK(wk,buf,x,y,width,height) {                            \
  9.   char para[20];                                                        \
  10.   EGB_writeMode(wk,0);                                                    \
  11.   DWORD(para) = (unsigned int)(buf); WORD(para+4) = getds();            \
  12.   WORD(para+6) = (x);                WORD(para+8) = (y);                \
  13.   WORD(para+10) = (x)+(width)-1;     WORD(para+12) = (y)+(height)-1;    \
  14.   WGB_putBlock(wk, 1, para); }
  15.  
  16. #define WGB_PUTBLOCKCOLOR(wk,buf,x,y,width,height) {                    \
  17.   char para[20];                                                        \
  18.   EGB_writeMode(wk,0);                                                    \
  19.   DWORD(para) = (unsigned int)(buf); WORD(para+4) = getds();            \
  20.   WORD(para+6) = (x);                WORD(para+8) = (y);                \
  21.   WORD(para+10) = (x)+(width)-1;     WORD(para+12) = (y)+(height)-1;    \
  22.   WGB_putBlockColor(wk, 0, para); }
  23.  
  24. #define    WGB_LINE(wk,x1,y1,x2,y2,col,mode) {                                \
  25.   char para[20];                                                        \
  26.   EGB_color(wk,0,col); EGB_writeMode(wk,mode); EGB_paintMode(wk,0x002);    \
  27.   WORD(para  ) = 2;                                                        \
  28.   WORD(para+2) = (x1);  WORD(para+4) = (y1);                            \
  29.   WORD(para+6) = (x2);  WORD(para+8) = (y2);                            \
  30.   WGB_connect(wk,para); EGB_writeMode(wk,0);  }
  31.  
  32. #define    WGB_BOXLINE(wk,x1,y1,x2,y2,col,mode) {                            \
  33.   char para[20];                                                        \
  34.   EGB_color(wk,0,col);  EGB_writeMode(wk,mode);                            \
  35.   EGB_paintMode(wk,0x002);                                                \
  36.   WORD(para  ) = (x1);  WORD(para+2) = (y1);                            \
  37.   WORD(para+4) = (x2);  WORD(para+6) = (y2);                            \
  38.   WGB_rectangle(wk,para); EGB_writeMode(wk,0);  }
  39.  
  40. #define    WGB_RBOXLINE(wk,x1,y1,wid,ht,col,mode) {                        \
  41.   char para[20];                                                        \
  42.   EGB_color(wk,0,col);  EGB_writeMode(wk,mode);                            \
  43.   EGB_paintMode(wk,0x002);                                                \
  44.   WORD(para  ) = (x1);          WORD(para+2) = (y1);                    \
  45.   WORD(para+4) = (x1)+(wid)-1;  WORD(para+6) = (y1)+(ht)-1;                \
  46.   WGB_rectangle(wk,para); EGB_writeMode(wk,0);  }
  47.  
  48. #define    WGB_BOXFILL(wk,x1,y1,x2,y2,col,mode) {                            \
  49.   char para[20];                                                        \
  50.   EGB_color(wk,0,col);  EGB_color(wk,2,col);  EGB_writeMode(wk,mode);    \
  51.   EGB_paintMode(wk,0x022);                                                \
  52.   WORD(para  ) = (x1);  WORD(para+2) = (y1);                            \
  53.   WORD(para+4) = (x2);  WORD(para+6) = (y2);                            \
  54.   WGB_rectangle(wk,para); EGB_writeMode(wk,0);  }
  55.  
  56. #define    WGB_RBOXFILL(wk,x1,y1,wid,ht,col,mode) {                        \
  57.   char para[20];                                                        \
  58.   EGB_color(wk,0,col);  EGB_color(wk,2,col);  EGB_writeMode(wk,mode);    \
  59.   EGB_paintMode(wk,0x022);                                                \
  60.   WORD(para  ) = (x1);  WORD(para+2) = (y1);                            \
  61.   WORD(para+4) = (x1)+(wid)-1; WORD(para+6) = (y1)+(ht)-1;                \
  62.   WGB_rectangle(wk,para); EGB_writeMode(wk,0);  }
  63.  
  64. #define    WGB_ELLIPSEFILL(wk,x,y,rx,ry,col,mode) {                        \
  65.   char para[20];                                                        \
  66.   EGB_color(wk,0,col);  EGB_color(wk,2,col);  EGB_writeMode(wk,mode);    \
  67.   EGB_paintMode(wk,0x022);                                                \
  68.   WORD(para  ) = (x);   WORD(para+2) = (y);                             \
  69.   WORD(para+4) = (rx);  WORD(para+6) = (ry);                            \
  70.   WGB_ellipse(wk,para); EGB_writeMode(wk,0);  }
  71.  
  72. #define    WGB_PSET(wk,x,y,col,mode) {                                        \
  73.   char para[20];                                                        \
  74.   EGB_color(wk,0,col);  EGB_writeMode(wk,mode);                            \
  75.   EGB_paintMode(wk,0x002);                                                \
  76.   WORD(para  ) = 1;     WORD(para+2) = (x);                             \
  77.   WORD(para+4) = (y);                                                    \
  78.   WGB_pset(wk,para); EGB_writeMode(wk,0);  }
  79.