Return to vf06.c CVS log

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

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

1.1       root        1: /*----------------------------------------------------------
                      2:    VF06.C -- Display seven different character shear angles
                      3:   ----------------------------------------------------------*/
                      4: 
                      5: #define INCL_GPI
                      6: #include <os2.h>
                      7: #include <stdio.h>
                      8: #include "vectfont.h"
                      9: 
                     10: VOID Display_CharShear (HPS hps, LONG cxClient, LONG cyClient)
                     11:      {
                     12:      static POINTL aptlShear[7] = { -100,  41, -100, 100,
                     13:                                      -41, 100,    0, 100,
                     14:                                       41, 100,  100, 100,
                     15:                                      100,  41 } ;
                     16:      CHAR          szBuffer[40] ;
                     17:      FONTMETRICS   fm ;
                     18:      INT           iIndex ;
                     19:      POINTL        ptl ;
                     20: 
                     21:                          // Create and scale Helvetica font
                     22: 
                     23:      CreateVectorFont (hps, LCID_MYFONT, "Helv") ;
                     24:      GpiSetCharSet (hps, LCID_MYFONT) ;
                     25:      ScaleVectorFont (hps, 480, 480) ;
                     26: 
                     27:                          // Get font metrics for scaled font
                     28: 
                     29:      GpiQueryFontMetrics (hps, (LONG) sizeof (FONTMETRICS), &fm) ;
                     30: 
                     31:      ptl.x = cxClient / 8 ;
                     32:      ptl.y = cyClient ;
                     33: 
                     34:      for (iIndex = 0 ; iIndex < 7 ; iIndex++)
                     35:           {
                     36:           GpiSetCharShear (hps, aptlShear + iIndex) ;  // Char shear
                     37: 
                     38:           ptl.y -= fm.lMaxBaselineExt ;
                     39: 
                     40:           GpiCharStringAt (hps, &ptl,
                     41:                (LONG) sprintf (szBuffer, "Character Shear (%ld,%ld)",
                     42:                          aptlShear[iIndex].x, aptlShear[iIndex].y),
                     43:                szBuffer) ;
                     44:           }
                     45:      GpiSetCharSet (hps, LCID_DEFAULT) ;               // Clean up
                     46:      GpiDeleteSetId (hps, LCID_MYFONT) ;
                     47:      }

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