home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / FNTPAK32.ZIP / BASIC.EXE / DEMO_GFX.BAS next >
BASIC Source File  |  1995-08-16  |  3KB  |  100 lines
  1. DEFINT A-Z
  2.  
  3. '$INCLUDE: 'Font_Pak.Inc'           '... For QB/PDS/VB-DOS
  4.  
  5. '======================================================== PowerBasic Users
  6. ''$INCLUDE "Font_Pak.Inc"             '... PB users, UN-REM these lines
  7.  
  8. ''$Link    "SCRIPT1.OBJ"              '... ALL users -- a callable font
  9.  
  10. ''$Link    "FontPakP.OBJ"             '... SHAREWARE users
  11.  
  12. ''$Link    "GFX_Font.OBJ"             '... REGISTERED users
  13. ''$Link    "Fonts.OBJ"                '        "        "
  14.  
  15. '======================================================== PowerBasic Users
  16.  
  17. '============================================================ Demo_GFX.Bas
  18.  
  19. ' A Font Pak Demonstration         Copyright 1991-1994 Rob W. Smetana
  20. '
  21. ' Demonstrates using DEFAULT graphics mode fonts.
  22. '
  23. ' NOTE:  If you run this on an EGA, calling GFXFont16 will give you the
  24. '        8x14 font not the 8x16 (since EGAs have no 8x16).  Just ignore
  25. '        the note saying you're looking at an 8x16 <g>.
  26. '
  27. ' Requires:  - Ega or Vga monitor (we won't check).
  28. '
  29. '            - Font_Pak.LIB (QB/PDS/VB-DOS) -or- Font_Pak.PBL (PowerBasic)
  30. '
  31. '============================================================ Demo_GFX.Bas
  32.  
  33. DECLARE SUB GFXScript1 ()
  34.  
  35. COLOR 7, 1: CLS
  36.  
  37. CALL fpInitialize: CLS        '=== SHAREWARE versions ONLY
  38.  
  39. WhichFont$ = "             "                    '...use later for labels
  40.  
  41. PRINT "               Demonstrates CALLing fonts in Graphics Modes. "
  42. PRINT "             These are the same fonts you can use in text mode."
  43. PRINT : PRINT
  44. PRINT "  Press a key and we'll demonstrate calling GFXFont# (where # = 8, 14 or 16)."
  45.  
  46. d$ = INPUT$(1)
  47.  
  48. SCREEN 9
  49.  
  50. FOR Which = 1 TO 3                          '...show all 3 VGA default fonts
  51.  
  52.     SELECT CASE Which
  53.         CASE 1: CALL GFXFont08: LSET WhichFont$ = "Default 8x8"
  54.         CASE 2: CALL GFXFont14: LSET WhichFont$ = "Default 8x14"
  55.         CASE 3: CALL GFXFont16: LSET WhichFont$ = "Default 8x16"
  56.     END SELECT
  57.  
  58.     GOSUB DisplayIt
  59.  
  60. NEXT
  61.  
  62. SCREEN 0
  63.  
  64. PRINT "Now press a key to see : : :"
  65. PRINT
  66. PRINT "1. How you can easily mix fonts -- even on the same line."
  67. PRINT
  68. PRINT "2. What happens when you print 2 different size fonts (8 and 16) side by side."
  69.  
  70. d$ = INPUT$(1)
  71.  
  72. SCREEN 9
  73.  
  74. FOR x = 1 TO 15
  75.     CALL GFXFont08:  PRINT "Here's the default 8x8, ";
  76.     CALL GFXScript1: PRINT "an 8x16 Script font ";
  77.     CALL GFXFont14:  PRINT "and the 8x14 -- on the SAME line!"
  78. NEXT
  79.  
  80. PRINT : PRINT : PRINT
  81.  
  82. CALL GFXFont14
  83. PRINT
  84. PRINT "  Note that 3 fonts are printed on the SAME LINE above!  But since font "
  85. PRINT "  heights differ, line heights differ as well.  "
  86. PRINT
  87. PRINT "  This is the 8x14 font.  So you're looking at 3 fonts on the screen at once!"
  88.  
  89. END
  90.  
  91. DisplayIt:
  92.     CLS
  93.     FOR x = 1 TO 20
  94.         PRINT "                  Now is the time for the . . . "; WhichFont$
  95.     NEXT
  96.     d$ = INPUT$(1)
  97.  
  98. RETURN
  99.  
  100.