Return to vf04.c CVS log

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

Annotation of pmsdk/samples/vectfont/vf04.c, revision 1.1

1.1     ! root        1: /*------------------------------------------
        !             2:    VF04.C -- Display eight character angles
        !             3:   ------------------------------------------*/
        !             4: 
        !             5: #define INCL_GPI
        !             6: #include <os2.h>
        !             7: #include <stdio.h>
        !             8: #include "vectfont.h"
        !             9: 
        !            10: VOID Display_CharAngle (HPS hps, LONG cxClient, LONG cyClient)
        !            11:      {
        !            12:      static GRADIENTL agradl[8] = { 100,    0,  100,  100,
        !            13:                                       0,  100, -100,  100,
        !            14:                                    -100,    0, -100, -100,
        !            15:                                       0, -100,  100, -100 } ;
        !            16:      CHAR             szBuffer[40] ;
        !            17:      INT              iIndex ;
        !            18:      POINTL           ptl ;
        !            19: 
        !            20:                               // Create Helvetica font
        !            21: 
        !            22:      CreateVectorFont (hps, LCID_MYFONT, "Helv") ;
        !            23:      GpiSetCharSet (hps, LCID_MYFONT) ;
        !            24:      ScaleVectorFont (hps, 200, 200) ;
        !            25: 
        !            26:      ptl.x = cxClient / 2 ;   // Center of client window
        !            27:      ptl.y = cyClient / 2 ;
        !            28: 
        !            29:      for (iIndex = 0 ; iIndex < 8 ; iIndex++)
        !            30:           {
        !            31:           GpiSetCharAngle (hps, agradl + iIndex) ;     // Char angle
        !            32: 
        !            33:           GpiCharStringAt (hps, &ptl,
        !            34:                (LONG) sprintf (szBuffer, " Character Angle (%ld,%ld)",
        !            35:                                agradl[iIndex].x, agradl[iIndex].y),
        !            36:                szBuffer) ;
        !            37:           }
        !            38:      GpiSetCharSet (hps, LCID_DEFAULT) ;               // Clean up
        !            39:      GpiDeleteSetId (hps, LCID_MYFONT) ;
        !            40:      }

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