home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / UNT-AXFW.LHA / fwmacros / FontDetail.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-08-29  |  1.5 KB  |  67 lines
  1. /* Generate the complete character set using the current font */
  2. options results
  3. 'status FontPath'
  4. FullFontName = result
  5. pos = LASTPOS('/', FullFontName)
  6. IF ( pos ~= 0 ) 
  7. THEN    /* If we found it, then DELSTR */
  8.     FontName = RIGHT(FullFontName, LENGTH(FullFontName) - pos)
  9. ELSE     DO
  10.     pos = LASTPOS(':', FullFontName)
  11.     IF ( pos ~= 0 ) 
  12.     THEN    /* If we found it, then DELSTR */
  13.         FontName = Right(FullFontName, LENGTH(FullFontName) - pos)
  14.     ELSE     EXIT 20
  15.     END
  16. 'FontSize 16'
  17. 'SectionSetup Columns 4 Top .5 Bottom .5 Inside .75 Outside .25'
  18. 'Font SoftSans_Bold'  /* We'll always display the font name in SoftSans_Bold */
  19. 'Type ' || FontName
  20. 'NewParagraph'
  21.  
  22. DO x = 16 to 24 
  23.     'Font SoftSans' 
  24.     'FontSize 12'
  25.     'Type ' || x || ' ^' || d2c(x + 64) || d2c(9)
  26.     'Font ' || FullFontName
  27.     'FontSize 24' 
  28.     'Type ' || d2c(x)
  29.     'NewParagraph'
  30. END
  31. DO x = 33 to 126 
  32.     'Font SoftSans' 
  33.     'FontSize 12'
  34.     'Type ' || x || '  ' || d2c(x) || d2c(9)
  35.     'Font ' || FullFontName
  36.     'FontSize 24' 
  37.     'Type ' || d2c(x)
  38.     'NewParagraph'
  39. END
  40. DO x = 130 to 154 
  41.     'Font SoftSans' 
  42.     'FontSize 12'
  43.     'Type ' || x || '  ' || d2c(x) || d2c(9)
  44.     'Font ' || FullFontName
  45.     'FontSize 24' 
  46.     'Type ' || d2c(x)
  47.     'NewParagraph'
  48. END
  49. DO x = 161 to 231 
  50.     'Font SoftSans' 
  51.     'FontSize 12'
  52.     'Type ' || x || '  ' || d2c(x) || d2c(9)
  53.     'Font ' || FullFontName
  54.     'FontSize 24' 
  55.     'Type ' || d2c(x)
  56.     'NewParagraph'
  57. END
  58. DO x = 242 to 248 
  59.     'Font SoftSans' 
  60.     'FontSize 12'
  61.     'Type ' || x || '  ' || d2c(x) || d2c(9)
  62.     'Font ' || FullFontName
  63.     'FontSize 24' 
  64.     'Type ' || d2c(x)
  65.     'NewParagraph'
  66. END
  67.