home *** CD-ROM | disk | FTP | other *** search
/ QBasic & Borland Pascal & C / Delphi5.iso / C / Samples / CSAPE32.ARJ / SOURCE / OWLSCR / DISP.C < prev    next >
Encoding:
C/C++ Source or Header  |  1990-06-22  |  4.3 KB  |  169 lines
  1. /*
  2.     disp.c
  3.  
  4.     % Display object hardware-independent code.
  5.  
  6.     5/16/88  by Ted.
  7.  
  8.     OWL 1.2
  9.     Copyright (c) 1988, 1989 by Oakland Group, Inc.
  10.     ALL RIGHTS RESERVED.
  11.  
  12.     Revision History:
  13.     -----------------
  14.     11/15/88 ted:    put in new ptd_SetInner function
  15.     12/16/88 jmd    made ddisp_GetWidth/Height into functions
  16.      1/15/89 ted:    made ddisp_GetFont omalloc its own font structure.
  17.      4/04/89 ted    Added FreeFont function.
  18.      8/22/89 ted    Made disp_OpenFont use ocalloc.
  19.  
  20.     11/29/89 jmd    added casts for DG
  21.      2/14/90 ted    Got rid of fontreq_struct. Just use fontdesc_struct.
  22.      3/28/90 jmd    ansi-fied
  23.      6/22/90 ted    added "void"s to no-parameter functions per ansii.
  24. */
  25.  
  26. #include "oakhead.h"
  27. #include "disppriv.h"
  28.  
  29. /* -------------------------------------------------------------------------- */
  30.  
  31. boolean disp_Ok(void)
  32. /*
  33.     This disp_Ok function assumes that no valid display will:
  34.         Have an invalid id number.
  35.         Have a NULL dig data pointer.
  36.         Have a NULL info structure pointer.
  37.         Have an invalid display map.
  38. */
  39. {
  40.     OEXTERN int num_dmgrs;
  41.  
  42.     if (curr_dmgr->id > 0 && curr_dmgr->id <= num_dmgrs &&
  43.         curr_dmgr->disp.dig.data != NULL &&
  44.         curr_dmgr->disp.info != NULL &&
  45.         pmap_Ok(disp_dispmap())) {
  46.         return(TRUE);
  47.     }
  48.     return(FALSE);
  49. }
  50. /* -------------------------------------------------------------------------- */
  51.  
  52. int disp_GetHeight(void)
  53. /*
  54.     Get the height of the display in characters
  55. */
  56. {
  57.     owl_Assert(disp_Ok(), OE_GH_DISP);
  58.     return((int)(disp_GetPixHeight() / ofont_GetHeight(disp_GetDefFont())));
  59. }
  60. /* -------------------------------------------------------------------------- */
  61.  
  62. int disp_GetWidth(void)
  63. /*
  64.     Get the width of the display in characters
  65. */
  66. {
  67.     owl_Assert(disp_Ok(), OE_GW_DISP);
  68.     return((int)(disp_GetPixWidth() / ofont_GetWidth(disp_GetDefFont())));
  69. }
  70. /* -------------------------------------------------------------------------- */
  71.  
  72. ofont_type disp_OpenFont(fontdesc_struct *fontreq)
  73. /*
  74.     Request a reference to the font the device interface can supply that
  75.     is closest to the desired width, height, and other attributes.
  76. */
  77. {
  78.     ofont_type font;
  79.  
  80.     owl_Assert(disp_Ok(), OE_GF_DISP);
  81.  
  82.     if ((font = (ofont_type) ocalloc(OA_FONT, sizeof(struct ofont_struct), sizeof(byte)))
  83.         == NULL) {
  84.         return(NULL);
  85.     }
  86.     if (!disp_Control(DC_OPENFONT, fontreq, font)) {
  87.         ofree(OA_FONT, font);
  88.         font = NULL;
  89.     }
  90.     return(font);
  91. }
  92. /* -------------------------------------------------------------------------- */
  93.  
  94. void disp_CloseFont(ofont_type font)
  95. /*
  96.     Release a font previously requested from disp_GetFont().
  97. */
  98. {
  99.     disp_Control(DC_CLOSEFONT, font, NULL);
  100.     ofree(OA_FONT, (VOID *) font);
  101. }
  102. /* -------------------------------------------------------------------------- */
  103.  
  104. void disp_SetAttrColors(byte attr, opixval bg, opixval fg)
  105. {
  106.     setattr_struct pvs;
  107.  
  108.     pvs.attr = attr;
  109.     pvs.bg = bg;
  110.     pvs.fg = fg;
  111.     disp_Control(DC_SETATTRCOLS, &pvs, NULL);
  112. }
  113. /* -------------------------------------------------------------------------- */
  114.  
  115. opixval disp_GetAttrFgColor(byte attr)
  116. {
  117.     opixval fg;
  118.  
  119.     fg = 0;
  120.     disp_getattrfg(&attr, &fg);
  121.     return(fg);
  122. }
  123. /* -------------------------------------------------------------------------- */
  124.  
  125. opixval disp_GetAttrBgColor(byte attr)
  126. {
  127.     opixval bg;
  128.  
  129.     bg = 0;
  130.     disp_getattrbg(&attr, &bg);
  131.     return(bg);
  132. }
  133. /* -------------------------------------------------------------------------- */
  134.  
  135. void disp_SetColMapEntry(opixval icol, olevel red, olevel green, olevel blue)
  136. /*
  137. */
  138. {
  139.     ocolmap_struct(1) color;
  140.  
  141.     color.firstpix = icol;
  142.     color.nentries = 1;
  143.     color.rgbs[0].rgb[ORED] = red;
  144.     color.rgbs[0].rgb[OGREEN] = green;
  145.     color.rgbs[0].rgb[OBLUE] = blue;
  146.  
  147.     disp_Control(DC_SETCOLMAP, &color, NULL);
  148. }
  149. /* -------------------------------------------------------------------------- */
  150.  
  151. boolean ptd_SetInner(ptd_struct *ptd, ptd_struct *inptd, opbox *inboxp)
  152. /*
  153.     Make inptd a copy of ptd but with its relboxp pointing to inboxp.
  154.     Clip inboxp within the ptd window's inner box.
  155.     Returns TRUE if the new relbox is not empty.
  156.     Sets inptd->relboxp even if it fails.
  157.     Leaves ptd unaltered.
  158. */
  159. {
  160.     memmove((VOID *) inptd, (VOID *) ptd, sizeof(ptd_struct));
  161.     opbox_copy(inboxp, ptd->relboxp);
  162.     inptd->relboxp = inboxp;
  163.     return(opwh_clipbox(win_GetPixWidth(ptd->win),
  164.                         win_GetPixHeight(ptd->win),
  165.                         inboxp) != 0);
  166. }
  167. /* -------------------------------------------------------------------------- */
  168.  
  169.