home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / visionix / test / tfontu.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-12-12  |  7.0 KB  |  215 lines
  1. program tfontu;
  2.  
  3. uses
  4.  
  5.   vtypesu,
  6.   vfontu,
  7.   vdebugu,
  8.   vcrtu;
  9.  
  10.  
  11. Const
  12.  
  13.   FCCBR : Array[0..15] of BYTE =
  14.     ( $00, $00, $FC, $1C, $3C, $74, $E4, $E4,
  15.       $74, $3C, $1C, $FC, $00, $00, $00, $00      );
  16.  
  17.   FCRBL : Array[0..15] of BYTE =
  18.     ( $00, $00, $07, $18, $23, $4F, $4F, $4F,
  19.       $4F, $23, $18, $07, $00, $00, $00, $00      );
  20.  
  21.   FCRBR : Array[0..15] of BYTE =
  22.     ( $00, $00, $C0, $30, $88, $E4, $E4, $E4,
  23.       $E4, $88, $30, $C0, $00, $00, $00, $00      );
  24.  
  25.   FCCBL : Array[0..15] of BYTE =
  26.     ( $00, $00, $1F, $1C, $1E, $17, $13, $13,
  27.       $17, $1E, $1C, $1F, $00, $00, $00, $00      );
  28.  
  29.   FOCBR : Array[0..15] of BYTE =
  30.     ( $00, $00, $FC, $04, $04, $04, $04, $04,
  31.       $04, $04, $04, $FC, $00, $00, $00, $00      );
  32.  
  33.   FOCBL : Array[0..15] of BYTE =
  34.     ( $00, $00, $1F, $10, $10, $10, $10, $10,
  35.       $10, $10, $10, $1F, $00, $00, $00, $00      );
  36.  
  37.   FORBL : Array[0..15] of BYTE =
  38.     ( $00, $00, $07, $18, $20, $40, $40, $40,
  39.       $40, $20, $18, $07, $00, $00, $00, $00      );
  40.  
  41.   FORBR : Array[0..15] of BYTE =
  42.     ( $00, $00, $C0, $30, $08, $04, $04, $04,
  43.       $04, $08, $30, $C0, $00, $00, $00, $00      );
  44.  
  45.   {---------------------------------------------------------------------}
  46.   { Following is the font data for ega/vga redifined border characters. }
  47.   { This border type goes to the outermost edge of the characters, and  }
  48.   { is one pixel wide.                                                  }
  49.   {---------------------------------------------------------------------}
  50.  
  51.   C183_188 : Array[0..95] of BYTE =
  52.     ( $80, $80, $80, $80, $80, $80, $80, $80,
  53.       $80, $80, $80, $80, $80, $80, $80, $80,
  54.       $00, $00, $00, $00, $00, $F8, $18, $F8,
  55.       $18, $18, $18, $18, $18, $18, $18, $18,
  56.       $01, $01, $01, $01, $01, $01, $01, $FF,
  57.       $01, $01, $01, $01, $01, $01, $01, $01,
  58.       $01, $01, $01, $01, $01, $01, $01, $01,
  59.       $01, $01, $01, $01, $01, $01, $01, $01,
  60.       $FF, $01, $01, $01, $01, $01, $01, $01,
  61.       $01, $01, $01, $01, $01, $01, $01, $01,
  62.       $01, $01, $01, $01, $01, $01, $01, $01,
  63.       $01, $01, $01, $01, $01, $01, $01, $FF   );
  64.  
  65.  
  66.   C200_205 : Array[0..95] of BYTE =
  67.     ( $80, $80, $80, $80, $80, $80, $80, $80,
  68.       $80, $80, $80, $80, $80, $80, $80, $FF,
  69.       $FF, $80, $80, $80, $80, $80, $80, $80,
  70.       $80, $80, $80, $80, $80, $80, $80, $80,
  71.       $00, $00, $00, $00, $00, $00, $00, $00,
  72.       $00, $00, $00, $00, $00, $00, $00, $01,
  73.       $01, $00, $00, $00, $00, $00, $00, $00,
  74.       $00, $00, $00, $00, $00, $00, $00, $00,
  75.       $FF, $00, $00, $00, $00, $00, $00, $00,
  76.       $00, $00, $00, $00, $00, $00, $00, $00,
  77.       $00, $00, $00, $00, $00, $00, $00, $00,
  78.       $00, $00, $00, $00, $00, $00, $00, $FF   );
  79.  
  80.  
  81.  
  82.   C224_254 : Array[0..495] of BYTE =
  83.     ( $FF, $81, $99, $99, $99, $99, $99, $99,
  84.       $99, $99, $BD, $99, $81, $FF, $00, $00,
  85.       $FF, $00, $00, $00, $00, $00, $00, $00,
  86.       $00, $00, $00, $00, $00, $00, $00, $FF,
  87.       $00, $00, $00, $00, $00, $00, $00, $00,
  88.       $00, $00, $00, $00, $00, $00, $00, $80,
  89.       $00, $1F, $10, $13, $10, $10, $10, $10,
  90.       $10, $10, $10, $10, $1F, $0F, $00, $00,
  91.       $00, $FF, $00, $00, $00, $00, $55, $00,
  92.       $55, $00, $00, $00, $FF, $FF, $00, $00,
  93.       $00, $FF, $00, $00, $00, $00, $54, $00,
  94.       $54, $00, $00, $00, $FF, $FF, $00, $00,
  95.       $00, $C0, $60, $60, $60, $60, $60, $60,
  96.       $60, $60, $60, $60, $E0, $E0, $00, $00,
  97.       $00, $FF, $00, $00, $00, $FF, $00, $00,
  98.       $01, $01, $D0, $00, $FF, $FF, $00, $00,
  99.       $00, $FF, $00, $00, $00, $FE, $00, $DC,
  100.       $12, $12, $DC, $00, $FF, $FF, $00, $00,
  101.       $00, $FF, $00, $00, $00, $00, $0F, $FF,
  102.       $0F, $00, $00, $00, $FF, $FF, $00, $00,
  103.       $00, $FF, $00, $00, $00, $00, $C0, $FC,
  104.       $C0, $00, $00, $00, $FF, $FF, $00, $00,
  105.       $00, $FF, $00, $00, $00, $8B, $CA, $AB,
  106.       $9A, $8B, $00, $00, $FF, $FF, $00, $00,
  107.       $00, $FF, $00, $00, $00, $DF, $04, $84,
  108.       $04, $C4, $00, $00, $FF, $FF, $00, $00,
  109.       $FF, $80, $80, $81, $83, $87, $8F, $9F,
  110.       $81, $81, $81, $81, $81, $80, $80, $FF,
  111.       $FF, $01, $01, $81, $C1, $E1, $F1, $F9,
  112.       $81, $81, $81, $81, $81, $01, $01, $FF,
  113.       $FF, $80, $80, $81, $81, $81, $81, $81,
  114.       $9F, $8F, $87, $83, $81, $80, $80, $FF,
  115.       $FF, $01, $01, $81, $81, $81, $81, $81,
  116.       $F9, $F1, $E1, $C1, $81, $01, $01, $FF,
  117.       $00, $00, $00, $03, $0C, $08, $3F, $20,
  118.       $10, $10, $08, $0F, $00, $00, $00, $00,
  119.       $00, $00, $00, $C0, $3C, $02, $E2, $12,
  120.       $0A, $0A, $06, $FE, $00, $00, $00, $00,
  121.       $00, $00, $7F, $40, $5B, $40, $55, $40,
  122.       $56, $40, $5D, $40, $40, $7F, $00, $00,
  123.       $00, $00, $E0, $50, $48, $44, $7C, $04,
  124.       $D4, $04, $B4, $04, $04, $FC, $00, $00,
  125.       $00, $00, $7F, $40, $40, $7F, $40, $40,
  126.       $40, $40, $40, $40, $40, $7F, $00, $00,
  127.       $00, $00, $FC, $04, $04, $FC, $04, $04,
  128.       $04, $04, $04, $04, $04, $FC, $00, $00,
  129.       $00, $1F, $17, $10, $10, $10, $10, $10,
  130.       $10, $10, $14, $10, $1F, $0F, $00, $00,
  131.       $00, $E0, $DF, $0F, $00, $70, $88, $88,
  132.       $70, $00, $00, $00, $FF, $FF, $00, $00,
  133.       $FF, $01, $01, $81, $C1, $E1, $F1, $F9,
  134.       $F9, $F1, $E1, $C1, $81, $01, $01, $FF,
  135.       $00, $3F, $DF, $80, $00, $70, $88, $88,
  136.       $70, $00, $01, $00, $FF, $FF, $00, $00,
  137.       $FF, $80, $80, $81, $83, $87, $8F, $9F,
  138.       $9F, $8F, $87, $83, $81, $80, $80, $FF,
  139.       $FF, $01, $01, $01, $01, $01, $01, $F9,
  140.       $F9, $01, $01, $01, $01, $01, $01, $FF,
  141.       $FF, $80, $80, $80, $80, $80, $80, $9F,
  142.       $9F, $80, $80, $80, $80, $80, $80, $FF,
  143.       $00, $00, $00, $00, $00, $7E, $7E, $7E,
  144.       $7E, $7E, $7E, $00, $00, $00, $00, $00  );
  145.  
  146. Procedure WLoadWidgetFont;
  147.  
  148. BEGIN
  149.  
  150.   ClrScr;
  151.  
  152.   WriteLn('Visionix Font Unit Tester');
  153.   WriteLn('Version 0.1; December 13, 1993');
  154.   WriteLn('Copyright 1993 Visionix.  ALL RIGHTS RESERVED');
  155.   WriteLn;
  156.  
  157.   DebugWriteLn('  In WLoadWidgetFont' );
  158.  
  159.   DebugWriteLn('  Starting VFontPut Calls');
  160.   DebugWriteLn('  Starting VFontPut Calls');
  161.   DebugWriteLn('  Starting VFontPut Calls');
  162.   DebugWriteLn('  Starting VFontPut Calls');
  163.   DebugWriteLn('  Starting VFontPut Calls');
  164.  
  165.   VFontPut( 181, 1, 16, @FORBR );
  166.   VFontPut( 182, 1, 16, @FCRBR );
  167.  
  168.  
  169.   VFontPut( 189, 1, 16, @FOCBR );
  170.   VFontPut( 190, 1, 16, @FCCBR );
  171.  
  172.   VFontPut( 198, 1, 16, @FORBL );
  173.   VFontPut( 199, 1, 16, @FCRBL );
  174.  
  175.   VFontPut( 206, 1, 16, @FOCBL );
  176.   VFontPut( 207, 1, 16, @FCCBL );
  177.  
  178.   writeln;
  179.   writeln( #0+#1+#2+#3+#4+#5+#6 );
  180.   WriteLN( '╡╢ ╜╛ ╞╟ ╬╧' );
  181.   Writeln;
  182.  
  183.   readkey;
  184.  
  185. END;
  186.  
  187. {────────────────────────────────────────────────────────────────────────────}
  188.  
  189. Procedure WLoadLook1BorderFont;
  190.  
  191. BEGIN
  192.  
  193.   VFontPut( 183, 6, 16, @C183_188 );
  194.   VFontPut( 200, 6, 16, @C200_205 );
  195.   VFontPut( 224, 31, 16, @C224_254 );
  196.  
  197.   WriteLN('╖╕╣║╗╝ ╚╔╩╦╠═ αßΓπΣσµτΦΘΩδ∞φε∩≡±≥≤⌠⌡÷≈°∙·√ⁿ²■');
  198. c
  199. END;
  200.  
  201.  
  202.  
  203. begin
  204.  
  205.   DebugOpen( 'TFONTU.LOG' );
  206.  
  207.   DebugWriteLN('Calling WLoadWidgetFont');
  208.  
  209.   WLoadWidgetFont;
  210.  
  211.   WLoadLook1BorderFont;
  212.  
  213.   DebugWRiteLn('Back from WLoadWidgetFont');
  214.  
  215. end.