home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / qb_pds / baswiz / bw_bas / gn1banne.bas < prev    next >
BASIC Source File  |  1992-08-29  |  2KB  |  48 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        BASWIZ  Copyright (c) 1990-1992  Thomas G. Hanlin III         |
  4. '   |                                                                      |
  5. '   |                      The BASIC Wizard's Library                      |
  6. '   |                                                                      |
  7. '   +----------------------------------------------------------------------+
  8.  
  9.    DECLARE FUNCTION Power2I% (BYVAL PowerOf2 AS INTEGER)
  10.    DECLARE SUB GN1Box (BYVAL X1%, BYVAL Y1%, BYVAL X2%, BYVAL Y2%, BYVAL Fill%)
  11.    DECLARE SUB GN1Plot (BYVAL X%, BYVAL Y%)
  12.  
  13.    DECLARE FUNCTION BFontRow0% (BYVAL ch%, BYVAL Row%)
  14.    DECLARE FUNCTION BFontRows0% ()
  15.  
  16.    DEFINT A-Z
  17.  
  18. SUB GN1Banner (St$, X, Y, Xmul, Ymul)
  19.    MaxRow = BFontRows0 - 1
  20.    IF Xmul <= 1 AND Ymul <= 1 THEN
  21.       FOR tmp = 1 TO LEN(St$)
  22.          cha = ASC(MID$(St$, tmp, 1))
  23.          FOR Row = 0 TO MaxRow
  24.             ch = BFontRow0(cha, Row)
  25.             FOR Col = 0 TO 7
  26.                IF ch AND Power2I%(7 - Col) THEN
  27.                   GN1Plot (tmp - 1) * 8 + Col + X, Row + Y
  28.                END IF
  29.             NEXT
  30.          NEXT
  31.       NEXT
  32.    ELSE
  33.       FOR tmp = 1 TO LEN(St$)
  34.          cha = ASC(MID$(St$, tmp, 1))
  35.          FOR Row = 0 TO MaxRow
  36.             vy = Row * Ymul + Y
  37.             ch = BFontRow0(cha, Row)
  38.             FOR Col = 0 TO 7
  39.                IF ch AND Power2I%(7 - Col) THEN
  40.                   vx = ((tmp - 1) * 8 + Col) * Xmul + X
  41.                   GN1Box vx, vy, vx + Xmul - 1, vy + Ymul - 1, 1
  42.                END IF
  43.             NEXT
  44.          NEXT
  45.       NEXT
  46.    END IF
  47. END SUB
  48.