Return to vf00.c CVS log

Up to [OS/2 SDKs] / pmsdk / samples / vectfont

Annotation of pmsdk/samples/vectfont/vf00.c, revision 1.1.1.1

1.1       root        1: /*--------------------------------------------------
                      2:    VF00.C -- Routines for working with vector fonts
                      3:   --------------------------------------------------*/
                      4: 
                      5: #define INCL_WIN
                      6: #define INCL_GPI
                      7: #include <os2.h>
                      8: #include <stdlib.h>
                      9: #include <string.h>
                     10: #include "vectfont.h"
                     11: 
                     12: extern HAB hab ;
                     13: 
                     14: LONG CreateVectorFont (HPS hps, LONG lcid, CHAR *szFacename)
                     15:      {
                     16:      FATTRS fat ;
                     17: 
                     18:      fat.usRecordLength  = sizeof fat ;
                     19:      fat.fsSelection     = 0 ;
                     20:      fat.lMatch          = 0 ;
                     21:      fat.idRegistry      = 0 ;
                     22:      fat.usCodePage      = GpiQueryCp (hps) ;
                     23:      fat.lMaxBaselineExt = 0 ;
                     24:      fat.lAveCharWidth   = 0 ;
                     25:      fat.fsType          = 0 ;
                     26:      fat.fsFontUse       = FATTR_FONTUSE_OUTLINE |
                     27:                            FATTR_FONTUSE_TRANSFORMABLE ;
                     28: 
                     29:      strcpy (fat.szFacename, szFacename) ;
                     30: 
                     31:      return GpiCreateLogFont (hps, NULL, lcid, &fat) ;
                     32:      }
                     33: 
                     34: BOOL ScaleVectorFont (HPS hps, SHORT xPointSize, SHORT yPointSize)
                     35:      {
                     36:      HDC    hdc ;
                     37:      LONG   xDeviceRes, yDeviceRes ;
                     38:      POINTL ptlFont ;
                     39:      SIZEF  sizfx ;
                     40:                          // Get device resolution in pixels per meter
                     41: 
                     42:      hdc = GpiQueryDevice (hps) ;
                     43: 
                     44:      DevQueryCaps (hdc, CAPS_HORIZONTAL_RESOLUTION, 1L, &xDeviceRes) ;
                     45:      DevQueryCaps (hdc, CAPS_VERTICAL_RESOLUTION,   1L, &yDeviceRes) ;
                     46: 
                     47:                          // Find desired font size in pixels
                     48: 
                     49:      ptlFont.x = 254L * xPointSize * xDeviceRes / 7200000L ;
                     50:      ptlFont.y = 254L * yPointSize * yDeviceRes / 7200000L ;
                     51: 
                     52:                          // Convert to page units
                     53: 
                     54:      GpiConvert (hps, CVTC_DEVICE, CVTC_PAGE, 1L, &ptlFont) ;
                     55: 
                     56:                          // Set the character box
                     57: 
                     58:      sizfx.cx = MAKEFIXED (ptlFont.x, 0) ;
                     59:      sizfx.cy = MAKEFIXED (ptlFont.y, 0) ;
                     60: 
                     61:      return GpiSetCharBox (hps, &sizfx) ;
                     62:      }
                     63: 
                     64: BOOL ScaleFontToBox (HPS hps, LONG cbText, CHAR *szText, LONG cxBox,
                     65:                                                          LONG cyBox)
                     66:      {
                     67:      POINTL aptl[TXTBOX_COUNT] ;
                     68:      SIZEF  sizfx ;
                     69: 
                     70:      GpiQueryCharBox (hps, &sizfx) ;
                     71:      GpiQueryTextBox (hps, cbText, szText, TXTBOX_COUNT, aptl) ;
                     72: 
                     73:      sizfx.cx = sizfx.cx /
                     74:           (max (aptl[TXTBOX_TOPRIGHT].x, aptl[TXTBOX_BOTTOMRIGHT].x) -
                     75:            min (aptl[TXTBOX_TOPLEFT].x,  aptl[TXTBOX_BOTTOMLEFT].x))
                     76:           * cxBox ;
                     77: 
                     78:      sizfx.cy = sizfx.cy /
                     79:           (max (aptl[TXTBOX_TOPRIGHT].y,    aptl[TXTBOX_TOPLEFT].y) -
                     80:            min (aptl[TXTBOX_BOTTOMRIGHT].y, aptl[TXTBOX_BOTTOMLEFT].y))
                     81:           * cyBox ;
                     82: 
                     83:      return GpiSetCharBox (hps, &sizfx) ;
                     84:      }
                     85: 
                     86: VOID QueryStartPointInTextBox (HPS hps, LONG cbText, CHAR *szText,
                     87:                                         POINTL *pptl)
                     88:      {
                     89:      POINTL aptl[TXTBOX_COUNT] ;
                     90: 
                     91:      GpiQueryTextBox (hps, cbText, szText, TXTBOX_COUNT, aptl) ;
                     92: 
                     93:      pptl->x = max(-aptl[TXTBOX_TOPLEFT].x, -aptl[TXTBOX_BOTTOMLEFT].x);
                     94:      pptl->y = max(-aptl[TXTBOX_TOPLEFT].y, -aptl[TXTBOX_BOTTOMLEFT].y);
                     95:      }
                     96: 
                     97: VOID ColorClient (HPS hps, LONG cxClient, LONG cyClient, LONG lColor)
                     98:      {
                     99:      RECTL rcl ;
                    100: 
                    101:      WinSetRect (hab, &rcl, 0, 0, (SHORT) cxClient, (SHORT) cyClient) ;
                    102:      WinFillRect (hps, &rcl, lColor) ;
                    103:      }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.