Return to vf05.c CVS log

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

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

1.1       root        1: /*--------------------------------------------
                      2:    VF05.C -- Display "Hello, world" in circle
                      3:   --------------------------------------------*/
                      4: 
                      5: #define INCL_GPI
                      6: #include <os2.h>
                      7: #include <math.h>
                      8: #include <stdlib.h>
                      9: #include "vectfont.h"
                     10: 
                     11: VOID Display_Rotate (HPS hps, LONG cxClient, LONG cyClient)
                     12:      {
                     13:      static CHAR szText[] = "Hello, world! " ;
                     14:      static LONG cbText = sizeof szText - 1L ;
                     15:      static LONG alWidthTable[256] ;
                     16:      double      ang, angCharWidth, angChar ;
                     17:      FONTMETRICS fm ;
                     18:      GRADIENTL   gradl ;
                     19:      INT         iChar ;
                     20:      LONG        lCircum, lRadius, lTotWidth, lCharRadius, cyChar ;
                     21:      POINTL      ptl ;
                     22: 
                     23:                          // Create the font and get font metrics
                     24: 
                     25:      CreateVectorFont (hps, LCID_MYFONT, "Tms Rmn") ;
                     26:      GpiSetCharSet (hps, LCID_MYFONT) ;
                     27: 
                     28:      GpiQueryFontMetrics (hps, (LONG) sizeof fm, &fm) ;
                     29: 
                     30:                          // Find circle dimensions and scale font
                     31: 
                     32:      lRadius = min (cxClient / 4, cyClient / 4) ;
                     33:      lCircum = (LONG) (2 * PI * lRadius) ;
                     34:      cyChar  = fm.lMaxBaselineExt * lRadius / fm.lMaxAscender ;
                     35: 
                     36:      ScaleFontToBox (hps, cbText, szText, lCircum, cyChar) ;
                     37: 
                     38:                          // Obtain width table and total width
                     39: 
                     40:      GpiQueryWidthTable (hps, 0L, 256L, alWidthTable) ;
                     41: 
                     42:      for (lTotWidth = 0, iChar = 0 ; iChar < (INT) cbText ; iChar ++)
                     43:           lTotWidth += alWidthTable [szText [iChar]] ;
                     44: 
                     45:      ang = PI / 2 ;      // Initial angle for first character
                     46: 
                     47:      for (iChar = 0 ; iChar < (INT) cbText ; iChar++)
                     48:           {
                     49:                               // Set character angle
                     50: 
                     51:           angCharWidth = 2 * PI * alWidthTable [szText [iChar]] / lTotWidth ;
                     52: 
                     53:           gradl.x = (LONG) (lRadius * cos (ang - angCharWidth / 2 - PI / 2)) ;
                     54:           gradl.y = (LONG) (lRadius * sin (ang - angCharWidth / 2 - PI / 2)) ;
                     55: 
                     56:           GpiSetCharAngle (hps, &gradl) ;
                     57: 
                     58:                               // Find position for character and display it
                     59: 
                     60:           angChar = atan2 ((double) alWidthTable [szText [iChar]] / 2,
                     61:                            (double) lRadius) ;
                     62: 
                     63:           lCharRadius = (LONG) (lRadius / cos (angChar)) ;
                     64:           angChar += ang - angCharWidth / 2 ;
                     65: 
                     66:           ptl.x = (LONG) (cxClient / 2 + lCharRadius * cos (angChar)) ;
                     67:           ptl.y = (LONG) (cyClient / 2 + lCharRadius * sin (angChar)) ;
                     68: 
                     69:           GpiCharStringAt (hps, &ptl, 1L, szText + iChar) ;
                     70: 
                     71:           ang -= angCharWidth ;
                     72:           }
                     73:      GpiSetCharSet (hps, LCID_DEFAULT) ;          // Clean up
                     74:      GpiDeleteSetId (hps, LCID_MYFONT) ;
                     75:      }

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