'=========================================================================== ' Subject: QB GRAPHICAL FONTS Date: 07-13-99 (01:33) ' Author: Kevin Everingham Code: QB, PDS ' Origin: fortunecity.com/skyscraper/quan Packet: GRAPHICS.ABC '=========================================================================== ' ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» ' º º Û 'LETTER º QuickBASIC G R A P H I C A L F O N T º Û 'exampleº PROFESSIONAL QUALITY LETTERING º Û ' º º Û ' º QuickBASIC PRO QULITY LETTERING VER 2 º Û ' º Abacus WebDesigns (C)1995-98. Kevin Everingham º Û ' ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ Û ' ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß ' Last Edited: 2-15-96 ' Author's NOTE: ' I know this bit of source code is large but much of ' it is example and explination. To use this program, ' just take the call source you want from below, insert ' it into your program and add the DESIGN, TRANSLATE, and ' FONT sub that you want to call. If this is used in ' commercial or shareware programs please mention the ' author. Please do not change FONT data at all. ' DEFINT A-Z ' $INCLUDE: 'QB.BI' DECLARE SUB background () DECLARE SUB translate () DECLARE SUB FONT1 () DECLARE SUB FONT2 () DECLARE SUB FONT3 (Bold%) DECLARE SUB FONT4 (Bold%) DECLARE SUB FONT5 () DECLARE SUB FONT6 () DECLARE SUB FONT7 () DECLARE SUB FONT8 () DECLARE SUB Design () DECLARE SUB bLANK (COLR1%) COMMON SHARED Prime$(), Prime$, size$ COMMON SHARED C1$, C2$, C3$ COMMON SHARED c4$, bgc, angle$ COMMON SHARED spacing$, word$ COMMON SHARED pft, pfl DIM SHARED Inregs AS RegType, Outregs AS RegType: C2 = 6 DIM Prime$(122) DIM shape$(122) DIM A1(230) user$ = COMMAND$ where$ = "Print to Screen " SCREEN 12: CLS '************************************************************* ' below is an example of the CALL section you will need to add ' to your own program. This is all you need! '------------------------------------------------------------- CALL Design: word$ = "VGA Quality Lettering in QuickBASIC" spacing$ = "l0": size$ = "8": angle$ = "0": bgc = 0 CALL translate C1$ = "C 5": C2$ = "c 4": C3$ = "c 0": c4$ = "C15" pft = 24: pfl = 20: CALL FONT1 '------------------------------------------------------------- ' End example source code to put graphical text in your program. '************************************************************* word$ = "It looks nice but..." spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 8": C2$ = "c 0": C3$ = "c 0": c4$ = "c15" pft = 45: pfl = 390: CALL FONT5 COLOR 15: LOCATE 2, 67: PRINT "?" LOCATE 6, 1: PRINT " This will be too slow for my programs! Right?...." PRINT " It doesn't have to be,... if you first let all colors but one," PRINT " equal 0 or (black) then draw the letters, then go to another" PRINT " sub to reset colors back to normal and flash!,..your letters " PRINT " will appear. While you are drawing the letters, use that one" PRINT " color that you didn't change to black, to display a message:" PRINT " (Loading....program), You've seen that before right?" PRINT " ----Look up the palette command to change colors.----": PRINT PRINT " Try some of these in your own programs...Some of these letter" PRINT " designs are quite fast and some take longer to load." PRINT " You will only need the FONT sub you wish to use, the TRANSLATE sub, " PRINT " the DESIGN sub and your main call statements in your own program." PRINT : PRINT : PRINT "press any key to see all of these high quality letters" PRINT "or, for quicker viewing: (3) view heading text only (quickest)": PRINT PRINT "press (1) to see only small fonts, (2) to see only large." use$ = "" DO UNTIL use$ = "3" use$ = INKEY$ IF use$ = "1" THEN EXIT DO IF use$ = "2" THEN EXIT DO IF use$ <> "" THEN EXIT DO LOOP use$ = LTRIM$(use$): use$ = RTRIM$(use$) CLS : CALL Design a = 7 'background fontpack: CALL bLANK(a) IF use$ = "1" THEN GOTO size4 IF use$ = "2" THEN GOTO size8 IF use$ = "3" THEN GOTO quickie size4: word$ = "Standard Print " spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8 CALL translate C1$ = "C0": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6" pft = 80: pfl = 50: CALL FONT3(0) word$ = "Standard Print (Bold)" spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8 CALL translate C1$ = "C4": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6" pft = 95: pfl = 50: CALL FONT3(1) word$ = "Standard Print (xtra bold)" spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8 CALL translate C1$ = "C0": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6" pft = 110: pfl = 50: CALL FONT3(2) word$ = "Fancy Small print Font " spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 9": C3$ = "c 1": c4$ = "c 0" pft = 125: pfl = 50: CALL FONT4(0) word$ = "Fancy Small print Font (Bold) " spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 9": C3$ = "c 1": c4$ = "c 0" pft = 140: pfl = 50: CALL FONT4(1) word$ = "Outline Font" spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 7": C3$ = "c 1": c4$ = "c 7" pft = 160: pfl = 50: CALL FONT5 word$ = "Front Stamped Font" spacing$ = "r2": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 7": C3$ = "c 3": c4$ = "c 0" pft = 175: pfl = 50: CALL FONT5 word$ = "Reverse Stamp Font" spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 8": C2$ = "c 0": C3$ = "c 0": c4$ = "c15" pft = 190: pfl = 50: CALL FONT5 word$ = "Light Color Outline-Stamp Font" spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 5": C3$ = "c 0": c4$ = "c 7" pft = 205: pfl = 50: CALL FONT5 word$ = "Full Colored Outline-Stamp Font" spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 3": C3$ = "c 0": c4$ = "c 9" pft = 220: pfl = 50: CALL FONT5 word$ = "Bold Statement Font" spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 4": C3$ = "c12": c4$ = "c 5" pft = 235: pfl = 50: CALL FONT6 word$ = "(Double) Bold Statement Font" spacing$ = "r2": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c14": C3$ = "c 9": c4$ = "c10" pft = 250: pfl = 50: CALL FONT6 pft = 251: pfl = 51: CALL FONT6 word$ = "Upright Shadow Font" spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 2": C3$ = "c14": c4$ = "c 2" pft = 270: pfl = 50: CALL FONT7 word$ = "Heavy Base Font" spacing$ = "r3": size$ = "4": angle$ = "0": bgc = 4 CALL translate C1$ = "C 0": C2$ = "c 1": C3$ = "c 1": c4$ = "c 7" pft = 285: pfl = 50: CALL FONT7 word$ = "Marquee Feature Font" spacing$ = "r1": size$ = "4": angle$ = "0": bgc = 4 CALL translate C1$ = "C 0": C2$ = "c 5": C3$ = "c 4": c4$ = "c 4" pft = 300: pfl = 50: CALL FONT8 word$ = "Fat 3-D Font" spacing$ = "r3": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 1": C3$ = "c 0": c4$ = "c15" pft = 317: pfl = 50: CALL FONT2 word$ = "Glass Tube Font" spacing$ = "r4": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C 7": C2$ = "c 8": C3$ = "c 0": c4$ = "c15" pft = 330: pfl = 50: CALL FONT1 word$ = "Colored Glass Font" spacing$ = "r2": size$ = "4": angle$ = "0": bgc = 8 CALL translate C1$ = "C10": C2$ = "c 0": C3$ = "c 0": c4$ = "c15" pft = 345: pfl = 50: CALL FONT1 word$ = "Plus Many other combinations!... " spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8 CALL translate C1$ = "C1": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6" pft = 365: pfl = 50: CALL FONT3(0) size8: IF use$ = "1" THEN GOTO skipped word$ = "]]]]]]]]]]]]]]]]]]]" spacing$ = "r1": size$ = "4": angle$ = "1": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 0": C3$ = "C0" pft = 370: pfl = 330: CALL FONT3(0) word$ = "Fancy Print ^" spacing$ = "r1": size$ = "8": angle$ = "0": bgc = 8 CALL translate C1$ = "C 7": C2$ = "c 0": C3$ = "c 8" pft = 95: pfl = 350: CALL FONT4(1) word$ = "Outline Type Font" spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8 CALL translate C1$ = "C 2": C2$ = "c 3": C3$ = "c 0": c4$ = "C10" pft = 125: pfl = 350: CALL FONT5 word$ = "Stamped Font" spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8 CALL translate C1$ = "C 8": C2$ = "c 0": C3$ = "c 0": c4$ = "C15" pft = 150: pfl = 350: CALL FONT5 word$ = "Glass Tube Font" spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8 CALL translate C1$ = "C 7": C2$ = "c 0": C3$ = "c 0": c4$ = "C15" pft = 175: pfl = 350: CALL FONT1 word$ = "Plastic Tube Font" spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 7 CALL translate C1$ = "C 5": C2$ = "c 4": C3$ = "c 0": c4$ = "C15" pft = 200: pfl = 350: CALL FONT1 word$ = "--Neon-Sign-Font--" spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 7 CALL translate C1$ = "C 0": C2$ = "c 9": C3$ = "c 3": c4$ = "C 0" pft = 225: pfl = 350: CALL FONT1 word$ = "Bold Statement" spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 4": C3$ = "c12": c4$ = "C 5" pft = 250: pfl = 350: CALL FONT6 word$ = "Marquee Feature" spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 2": C3$ = "c 9": c4$ = "C10" pft = 275: pfl = 350: CALL FONT8 word$ = "Standard Heavy Bold" spacing$ = "l1": size$ = "8": angle$ = "0": bgc = 8 CALL translate C1$ = "C 0": C2$ = "c 1": C3$ = "c 1": c4$ = "C 5" pft = 300: pfl = 350: CALL FONT3(2) word$ = "Wax Letter Font " spacing$ = "r0": size$ = "8": angle$ = "0": bgc = 8 CALL translate C1$ = "C 8": C2$ = "c15": C3$ = "c 0": c4$ = "c14" pft = 330: pfl = 350: CALL FONT5 '0) word$ = "<...>" spacing$ = "r2": size$ = "8": angle$ = "0": bgc = 8 CALL translate C1$ = "C 8": C2$ = "c15": C3$ = "c 0": c4$ = "c 9" pft = 365: pfl = 400: CALL FONT2 '0) skipped: word$ = "Plus Graphics" spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8 CALL translate C1$ = "C0": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6" pft = 390: pfl = 350: CALL FONT3(0) quickie: word$ = " Press" spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8 CALL translate C1$ = "C0": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6" pft = 380: pfl = 510: CALL FONT3(0) word$ = "any key to exit" spacing$ = "l1": size$ = " 4": angle$ = "0": bgc = 8 CALL translate C1$ = "C0": C2$ = "c 6": C3$ = "c 4": c4$ = "c 6" pft = 395: pfl = 515: CALL FONT3(0) word$ = "(c)1995-98 Kevin Everingham" spacing$ = "r3": size$ = "8": angle$ = "0": bgc = 0 CALL translate C1$ = "C15": C2$ = "c 7": C3$ = "c 0": c4$ = "c 0" pft = 440: pfl = 48: CALL FONT1 '0) word$ = "Some Sample Fonts you could use..." spacing$ = "r1" size$ = "8" angle$ = "0" bgc = 8 CALL translate C1$ = "C 6": C2$ = "c 0": C3$ = "c 0": c4$ = "c15" pft = 20: pfl = 32: CALL FONT1 ender: END SUB background COLOR 0: SCREEN 12, 1: CLS LINE (1, 45)-(640, 420), 4, BF LINE (4, 49)-(636, 416), 6, B: LINE (3, 48)-(637, 417), 0, B: LINE (5, 50)-(635, 415), 0, B word$ = "Michigan Prime Software Presents:" spacing$ = "r1": size$ = "8": dot$ = "Y": bgc = 1 CALL translate C1$ = "C 6": C2$ = "c 0": C3$ = "c 0": c4$ = "c14" pft = 25: pfl = 33: CALL FONT1 pft = 25: pfl = 31: CALL FONT1 pft = 24: pfl = 33: CALL FONT1 word$ = "QuickBasic Tools" spacing$ = "r2" size$ = "8" dot$ = "Y" bgc = 0 CALL translate C1$ = "C 6": C2$ = "c 4": C3$ = "c 0": c4$ = "c15" ' glass look text! pft = 372: pfl = 342: CALL FONT1 pft = 372: pfl = 340: CALL FONT1 END SUB SUB bLANK (COLR1%) count% = count% + 1 COLOR 0: SCREEN 12: CLS LINE (1, 45)-(640, 420), COLR1%, BF LINE (4, 49)-(636, 416), 6, B: LINE (3, 48)-(637, 417), 0, B: LINE (5, 50)-(635, 415), 0, B END SUB SUB Design ' (c)1995/98 Abacus WebDesigns (abacus@pathwaynet.com) ' Contains the following Keyboard designs. ' 0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ' (space) * - . : ! ( ) " = ' ' Graphic shape keys < = left arrow [ = a checkerboard/waffle ' > = right arrow ] = empty box ' ^ = a triangle ' Prime$(32) = "BR4" Prime$(33) = "BR1BD1U1BU2U5BD7BR3" Prime$(34) = "BR0BU7D2BR2U2BD7BR3" Prime$(39) = "BR2BU7D1G1BD5BR4" Prime$(40) = "BR1BD1BU2U4E2G2D4F2BU1BR4" Prime$(41) = "BR2BD1BU2U4H2F2D4G2BU1BR5" Prime$(42) = "BR2BU2U6D3L2R4BL4BD2E4BL4F4BD3BR4" Prime$(45) = "BR1BU3R3L3BD3BR5" Prime$(46) = "BD1BR1L1BU1BR4" Prime$(48) = "BD1BU1U6E1R2F1D6G1L2H1BR6" Prime$(49) = "BD1BR2U7BL1E1D1BD6BR3" Prime$(50) = "BR1BU6E1R2F1D2G4D1R4BU1BR3" Prime$(51) = "BU6E1R2F1D2G1L2R2F1D2G1L2H1BR7" Prime$(52) = "BU3E4D8U4L4R5BD3BR3" Prime$(53) = "BR1BU3U4R4L4D4E1R2F1D3G1L2H1BR7" Prime$(54) = "BR1BD1BU4U3E1R2F1H1L2G1D6F1R2E1U3H1L2G1BD3BR6" Prime$(55) = "BR1BU7R4D3G4D1BU1BR7" Prime$(56) = "BR1BU6E1R2F1D2G1L2R2F1D2G1L2H1U2E1H1U2BD6BR7" Prime$(57) = "BR1BU4U2E1R2F1D6G1L2H1BU4F1R3BD3BR3" Prime$(58) = "BR1U1BU2U1BD4BR3" Prime$(60) = "E7D5R10D4L10D5H7BR20" '< graphic Prime$(61) = "BU3R4BD2L4BR7BD1" Prime$(62) = "U2R10U5F7G7U5L10U3BR18" '> graphic Prime$(65) = "BD1U7E1R3F1D3L5R5D4BR4BU1" Prime$(66) = "BD1U8R4F1D2G1L4R4F1D2G1L4BU1BR9" Prime$(67) = "BD1BU1U6E1R3F1BD6G1L3H1F1R3BR4BU1" Prime$(68) = "BD1U8R4F1D6G1L4BR9BU1" Prime$(69) = "BD1U8R4L4D4R3L3D4R4BU1BR4" Prime$(70) = "BD1U8R5L5D4R4L4D4BR8BU1" Prime$(71) = "BD1BU1U6E1R3F1BD6G1L3H1F1R3E1U3L2R2D3BR4" Prime$(72) = "BD1U8D4R4U4D8BR4BU1" Prime$(73) = "BD1BR3U8L1R2L1D8L1R2BR4BU1" Prime$(74) = "BD1BU1F1R2E1U7L1R2L1D7BR5" Prime$(75) = "BD1BU8D8U4R1E4G4F4BR4BR1" Prime$(76) = "BD1BU8D8R4BU1BR4" Prime$(77) = "BD1U7E1R2F1D7U7E1R2F1D7BU1BR4" Prime$(78) = "BD1U8F7D1U8D8BR4BU1" Prime$(79) = "BD1BU1U6E1R3F1BD6G1L3H1BR5U6D6BR4" Prime$(80) = "BD1U8R4F1D2G1L4D4BR9BU1" Prime$(81) = "BD1BU1U6E1R3F1BD6G1L3H1BR5U6BL3BD5F3BG3BR7BU5" Prime$(82) = "BD1U8R4F1D2G1L4R1F4BR4BU1" Prime$(83) = "BD1BU5U2E1R3F1BD2BL5F1R3F1D2G1L3H1BR9" Prime$(84) = "BR3BD1BU8L4R6L3D8BR6BU1" Prime$(85) = "BD1BU1U7D7F1R3E1U7D7BR4" Prime$(86) = "BD1BU8D5F2D1U1E2U5D5BR5BD2" Prime$(87) = "BD1BU1U7D7F1R2E1U7D7F1R2E1U7D7BD1BR4BU1" Prime$(88) = "BD1BU8D1F3E3U1D1G6D1U1E3F3D1BU1BR5" Prime$(89) = "BL1BU5U2D2F3E3U2D2G3D3BU1BR7" Prime$(90) = "BU7R5D2G5D1R5BR4BU1" Prime$(91) = "BU7R2BD8U8R2BD8U8R2BD8U8R2BD8U8R2BD8U8R2D8L12U2BR12L12U2BR12L12U2BR12L12U2BR12L12BR14BD7" '[ Prime$(93) = "BU5R10D6L10U6BD5BR14" '] graphic Prime$(94) = "E6F6L12BR15" '^ graphic Prime$(97) = "U2E1R3U1H1L2G1E1R2F1D4G1L2H1F1BR2E1U2D3BR4BU1" Prime$(98) = "BD1U8D8R3E1U4H1L2G1D4BR8" Prime$(99) = "BR0U4E1R2F1BD4G1L2H1F1R2E1BR4" Prime$(100) = "U4E1R2F1H1L2G1D4F1R2E1U7D7D1BU1BR4" Prime$(101) = "U4E1R2F1D2L4D2F1R2E1BR4" Prime$(102) = "BR1BD1U7E1R2F1H1L2G1D3L1R3BD3BR5" Prime$(103) = "U4E1R2F1D4G1L2H1BD3F1R2E1U3BR4" Prime$(104) = "BU7D8U5E1R2F1D5BU1BR4" Prime$(105) = "BR0BD1U6BU1U1BD7BR4" ' "BR3BD1U6BU2BD7BR4" Prime$(106) = "BR1BD1U6BU2BD7D3G1L2BU4BR8" Prime$(107) = "BD1BU8D8U3E3G3F3BU1BR3" Prime$(108) = "BR1BD1U8L1R1D8L1R2BR4BU1" Prime$(109) = "BD1U6D1E1R1F1D5U5E1R1F1D5BU1BR4" Prime$(110) = "BD1U6D1E1R2F1D5U4BD3BR4" Prime$(111) = "U4E1R2F1D4G1L2H1BR8" Prime$(112) = "U4E1R2F1D4G1L2H1D4U4BR8" Prime$(113) = "U4E1R2F1D4G1L2H1BR4D4L1R2L1U4BR5" Prime$(114) = "BD1U6D1E1R2F1H1L2G1U1D6BU1BR7" Prime$(115) = "BU3U1E1R2F1H1L2G1D1F1R2F1D1G1L2H1BR8" Prime$(116) = "BR1BU7D2L2R4L2D5F1R1E1BR4" Prime$(117) = "U5D5F1R2E1U5D5BR4" Prime$(118) = "BD1BU6D3F2D1U1E2U3D3BD2BR4" Prime$(119) = "BD1BU6D5F1R1E1U4D4F1R1E1U5D5BR4" Prime$(120) = "BD1BU6D1F2E2U1D1G4D1U1E2F2D1BU1BR4" Prime$(121) = "BU5D5F1R2E1U5D8G1L2H1BU3BR8" Prime$(122) = "BU5R4D1G4D1R4BU1BR4" END SUB SUB FONT1 ' Glass Tube Font/Neon Sign ' creates letters that appear to be made up of shiney (glassey) ' colored tubes. ' in the input line: C1$ = "C6": C2$ = "C0": C3$ = "C0": C4$ = "C15" ' C1$ is the primary letter color. C2$ and C3$ are outline colors ' C4$ would allways be used as "C15" since it is a light highlight spot. ' ' For a 3-D glass-look, mix C1$ as a light variation of the primary ' screen color and C2$ as the screen color. C3$ is 0, C4$ is 15. The ' C2$ AND C1$ value can be set the same to produce a beautiful font. ' following line would be used on a red screen:(looks great on any screen) ' C1$ = "C4": C2$ = "C4": C3$ = "C0": C4$ = "C15" "C15" THEN c4$ = "C15" PSET (pfl + 2, pft + 5), bgc: DRAW C3$ + Prime$ PSET (pfl + 0, pft + 5), bgc: DRAW C3$ + Prime$ PSET (pfl + 1, pft + 5), bgc: DRAW C3$ + Prime$ PSET (pfl + 0, pft + 4), bgc: DRAW C3$ + Prime$ PSET (pfl + 1, pft + 2), bgc: DRAW C2$ + Prime$ PSET (pfl + 2, pft + 4), bgc: DRAW C1$ + Prime$ PSET (pfl + 3, pft + 3), bgc: DRAW c4$ + Prime$ PSET (pfl + 3, pft + 2), bgc: DRAW C2$ + Prime$ PSET (pfl + 4, pft + 4), bgc: DRAW C2$ + Prime$ PSET (pfl + 5, pft + 2), bgc: DRAW C3$ + Prime$ PSET (pfl + 5, pft + 3), bgc: DRAW C2$ + Prime$ PSET (pfl + 4, pft + 3), bgc: DRAW C1$ + Prime$ END SUB SUB FONT2 ' Fat 3-D Font 'in the input line: C1$ = "C7": C2$ = "C8": C3$ = "C0": c4$ = "C15" 'C1$ is the primary letter color. C2$ is a shadow of the main color. 'C3$ is an outline color "C0" and C4$ is a shade of the main color. ' other possible colors you could use: _C1$_____C2$_____C4$_ ' mint 2 10 9 ' green 2 8 10 ' green glow 2 14 10 ' try these and more! pastel blue 3 1 9 ' pastel blue 9 1 3 ' pastel pink 12 6 4 ' pink 4 6 5 ' pale red 6 4 5 'This font looks best when used as a white letter. (use input line above) 'Any font of this complexity is effected by the background screen color. 'Try this font on a black, white, red or blue screen. 'Smallest recommended size (8) ' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com) ' PSET (pfl + 0, pft + 5), bgc: DRAW c4$ + Prime$ PSET (pfl + 0, pft + 3), bgc: DRAW c4$ + Prime$ PSET (pfl + 2, pft + 3), bgc: DRAW C1$ + Prime$ PSET (pfl + 1, pft + 2), bgc: DRAW C1$ + Prime$ PSET (pfl + 2, pft + 4), bgc: DRAW c4$ + Prime$ PSET (pfl + 3, pft + 3), bgc: DRAW C3$ + Prime$ PSET (pfl + 3, pft + 2), bgc: DRAW C1$ + Prime$ PSET (pfl + 4, pft + 4), bgc: DRAW C1$ + Prime$ PSET (pfl + 5, pft + 2), bgc: DRAW C1$ + Prime$ PSET (pfl + 5, pft + 3), bgc: DRAW C2$ + Prime$ PSET (pfl + 4, pft + 3), bgc: DRAW C1$ + Prime$ END SUB SUB FONT3 (Bold%) ' Standard print Font. ' bold% = 0, 1 or 2 ' 0 = Normal text 1 = Bold 2 = Xtra-Heavy Bold ' in the feed line: c1$ = "C0": C2$ = "C4": C3$ = "C5": C4$ = "C15" ' for this font, the only one that is used is C1$. That will be the ' color of this basic small font. ~~~ ' Smallest recommended size (4) with increments of 4. 4,8,12,16,20 + ' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com) PSET (pfl + 0, pft + 5), bgc: DRAW C1$ + Prime$ IF Bold% = 1 THEN PSET (pfl + 1, pft + 5), bgc: DRAW C1$ + Prime$ IF Bold% = 2 THEN PSET (pfl + 1, pft + 5), bgc: DRAW C1$ + Prime$ IF Bold% = 2 THEN PSET (pfl + 2, pft + 5), bgc: DRAW C1$ + Prime$ IF Bold% = 3 THEN PSET (pfl + 1, pft + 6), bgc: DRAW C1$ + Prime$ END SUB SUB FONT4 (Bold%) ' Fancy Small print Font. ' bold% = 0 or 1 ' 0 = Normal text 1 = Bold ' in the feed line: C1$ = "C0": C2$ = "C4": C3$ = "C5": C4$ = "C15" ' C1$,C2$ and C3$ are used to layer colors. (If Bold% = 1) If this ' font is used without Bold on (bold% = 0) then only C1$ and C2$ are ' used as the mixing colors. ' Smallest recommended size (4) with increments of 4. 4,8,12,16,20 + ' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com) ' PSET (pfl + 0, pft + 5), bgc: DRAW C1$ + Prime$ IF Bold% = 0 THEN PSET (pfl + 1, pft + 6), bgc: DRAW C2$ + Prime$ IF Bold% = 1 THEN PSET (pfl + 0, pft + 6), bgc: DRAW C3$ + Prime$ IF Bold% = 1 THEN PSET (pfl + 1, pft + 6), bgc: DRAW C1$ + Prime$ IF Bold% = 1 THEN PSET (pfl + 1, pft + 7), bgc: DRAW C2$ + Prime$ END SUB SUB FONT5 ' Outlined Font/Stamped Font/Wax Font ' in the feed line: C1$ = "C0": C2$ = "C4": C3$ = "C5": C4$ = "C15" ' C1$,C2$ C3$, and C4$ are all used. C1$ is the outline color. ' C2$ is a highlight color. C3$ is a shadow color and C4$ is the ' primary color of the letter. ' For the Stamped Font look, use C1$ as a background shade color, ' C2$ and C3$ are (0) and used to give a 3-D outline/shadow for ' the main letter. C3$ is the main stamp color. This color should ' be a lighter shade of the screen's color. ' Examples: primary screen color / lt.shade / Shadow ' __|________(C4$)___(C1$) ' 4 (red) 12 6 ' use these or try others... 1 (blue) 3 9 ' 7 (white) 15 8 ' 8 (grey) 7 0 ' ÚÄÄÄ 2 (green) 10 3 ' orÄÄ 2 14 10 ' The following line would be used with a white screen. ' C1$ = "C8": C2$ = "C0": C3$ = "C0": C4$ = "C15" ' This font is designed for use as size 4,8,12 + increments of 4. ' For a Wax letter look, try the following input line at size 8... ' C1$ = "C 8": C2$ = "c15": C3$ = "c 0": c4$ = "c 9" ' ' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com) PSET (pfl + 0, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 1, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 2, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 3, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 0, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 0, pft + 1), bgc: DRAW C1$ + Prime$ PSET (pfl + 0, pft + 2), bgc: DRAW C1$ + Prime$ PSET (pfl + 0, pft + 3), bgc: DRAW C1$ + Prime$ PSET (pfl + 1, pft + 1), bgc: DRAW C2$ + Prime$ PSET (pfl + 1, pft + 2), bgc: DRAW C3$ + Prime$ PSET (pfl + 2, pft + 1), bgc: DRAW c4$ + Prime$ END SUB SUB FONT6 ' Bold Statement Font 'This font creates a multi-colored letter outlined with a bold black line. 'A metallic foil colored letter is produced 'In the input line: C1$ = "C0": C2$ = "C2": C3$ = "C0": C4$ = "C9" 'C1$ will equal "C0" every time. This is an outline of black. 'C2$ is the main letter color C3$ will blend with C4$ 'C4$ is the light from top of screen (blended with similar/same color C3$) IF C1$ <> "C0" THEN C1$ = "C0"'Try these examples of multi-colored letters: ' ____C2$_____C3$_____C4$____ ' 5 1 4 = plum ' 14 2 10 = lime For use on colored screens, ' 4 12 5 = purple foil letters are thinner on a ' 5 6 9 = neon light black screen. ' 2 3 9 = teal 'The blending done with this font will create new colors. Standard colors ' can only be used if you make C2,C3 and C4$ the same color. ' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com) PSET (pfl + 1, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 2, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 3, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 4, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 5, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 0, pft + 1), bgc: DRAW C1$ + Prime$ PSET (pfl + 0, pft + 2), bgc: DRAW C1$ + Prime$ PSET (pfl + 0, pft + 3), bgc: DRAW C1$ + Prime$ PSET (pfl + 0, pft + 4), bgc: DRAW C1$ + Prime$ PSET (pfl + 0, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 1, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 2, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 3, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 4, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 5, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 5, pft + 4), bgc: DRAW C1$ + Prime$ PSET (pfl + 5, pft + 3), bgc: DRAW C1$ + Prime$ PSET (pfl + 5, pft + 2), bgc: DRAW C1$ + Prime$ PSET (pfl + 3, pft + 3), bgc: DRAW c4$ + Prime$ PSET (pfl + 3, pft + 2), bgc: DRAW c4$ + Prime$ PSET (pfl + 2, pft + 2), bgc: DRAW C3$ + Prime$ PSET (pfl + 2, pft + 3), bgc: DRAW C2$ + Prime$ END SUB SUB FONT7 ' Heavy Base Font / upright shadow ' This font is designed for use as size "4" or "8" only (small font) ' It looks best on colored screens and using dark colors. For best ' results try the following line. C1$ is always equal to "C0". ' C1$ = "C 0": C2$ = "C1": C3$ = "C6": C4$ = "C9" SIZE$ (8 or 4) ' For a nice seperated effect, make C4$ equal to the screen color. ' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com) ' IF C1$ <> "C0" THEN C1$ = "C0" IF size$ = "4" THEN PSET (pfl + 0, pft + 3), bgc: DRAW C1$ + Prime$ IF size$ = "4" THEN PSET (pfl + 1, pft + 3), bgc: DRAW C1$ + Prime$ IF size$ = "4" THEN PSET (pfl + 2, pft + 3), bgc: DRAW C1$ + Prime$ IF size$ = "4" THEN PSET (pfl + 3, pft + 3), bgc: DRAW C1$ + Prime$ IF size$ = "4" THEN PSET (pfl + 4, pft + 3), bgc: DRAW C1$ + Prime$ IF size$ = "4" THEN PSET (pfl + 0, pft + 4), bgc: DRAW C1$ + Prime$ IF size$ = "4" THEN PSET (pfl + 1, pft + 4), bgc: DRAW C1$ + Prime$ IF size$ = "4" THEN PSET (pfl + 2, pft + 4), bgc: DRAW C1$ + Prime$ IF size$ = "4" THEN PSET (pfl + 3, pft + 4), bgc: DRAW C1$ + Prime$ IF size$ = "4" THEN PSET (pfl + 4, pft + 4), bgc: DRAW C1$ + Prime$ PSET (pfl + 0, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 1, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 2, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 3, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 4, pft + 5), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 0, pft + 6), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 1, pft + 6), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 2, pft + 6), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 3, pft + 6), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 4, pft + 6), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 2, pft + 7), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 3, pft + 7), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 4, pft + 7), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 5, pft + 7), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 6, pft + 7), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 7, pft + 8), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 8, pft + 8), bgc: DRAW C1$ + Prime$ IF size$ = "8" THEN PSET (pfl + 9, pft + 8), bgc: DRAW C1$ + Prime$ PSET (pfl + 0, pft + 0), bgc: DRAW C2$ + Prime$ PSET (pfl + 0, pft + 1), bgc: DRAW C3$ + Prime$ PSET (pfl + 1, pft + 2), bgc: DRAW c4$ + Prime$ IF size$ = "8" THEN PSET (pfl + 1, pft + 3), bgc: DRAW c4$ + Prime$ IF size$ = "8" THEN PSET (pfl + 2, pft + 4), bgc: DRAW C3$ + Prime$ END SUB SUB FONT8 ' Marquee Feature Font ' In this font, C1$ (background shadow) must equal "C8" or "C0". ' A simple blend of 3 colors makes up these letters. C2,C3 and C4$ ' can be the same colors or colors that blend well together. For an ' example, try the following input line: ' C1$ = "C0": C2$ = "C5": C3$ = "C6": C4$ = "C9" ' + try C4$ as "C4" or "C5" ' This font will work from size 4,8,12 + (increments of 4) although ' size (4) is very dark. For best results try sizes 8+. The Marquee ' Feature Font looks great on colored screens. It is not for use on ' black screens. (loses design structure) ~~~ ' (c)1998 Abacus WebDesigns (abacus@pathwaynet.com) IF C1$ <> "C0" AND C1$ <> "C8" THEN C1$ = "C0" PSET (pfl + 0, pft + 0), bgc: DRAW c4$ + Prime$ PSET (pfl + 1, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 2, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 3, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 4, pft + 0), bgc: DRAW C1$ + Prime$ PSET (pfl + 1, pft + 1), bgc: DRAW C1$ + Prime$ PSET (pfl + 5, pft + 1), bgc: DRAW C1$ + Prime$ PSET (pfl + 2, pft + 2), bgc: DRAW C1$ + Prime$ PSET (pfl + 6, pft + 2), bgc: DRAW C1$ + Prime$ PSET (pfl + 3, pft + 3), bgc: DRAW C1$ + Prime$ PSET (pfl + 7, pft + 3), bgc: DRAW C1$ + Prime$ PSET (pfl + 4, pft + 4), bgc: DRAW C1$ + Prime$ PSET (pfl + 8, pft + 4), bgc: DRAW C1$ + Prime$ PSET (pfl + 5, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 9, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 9, pft + 5), bgc: DRAW C1$ + Prime$ PSET (pfl + 10, pft + 4), bgc: DRAW C1$ + Prime$ PSET (pfl + 6, pft + 6), bgc: DRAW C2$ + Prime$ PSET (pfl + 7, pft + 6), bgc: DRAW C3$ + Prime$ PSET (pfl + 8, pft + 6), bgc: DRAW c4$ + Prime$ END SUB SUB translate ' This translates user input in the following manner: ' ' "B" Added to the spacing$ below moves the plot point without drawing. ' "S" in size$ is the SCALE factor. This number is divided by four to ' derive the scale factor (Basic interpreter does this) That scale ' factor is then multiplied by the distances given in the directional ' draw command code. INPUT may range 1-255 The default is 4. ' "A" is the angle of the text you wish to print. 0 = normal/default ' control range codes are ( 1=90ø 2=180ø 3=270ø) "A + angle$" ' word$ is the user defined text to be translate (0)d. ' the looped line below (FOR-NEXT J) reads the defined text and ' scales, draws and adds the appropriate spacing to each letter. ' (c)1995/98 Abacus WebDesigns (abacus@pathwaynet.com) IF angle$ = "" THEN angle$ = "0" IF angle$ <> "1" AND angle$ <> "2" AND angle$ <> "3" THEN angle$ = "0" spacing$ = "B" + UCASE$(spacing$) size$ = "S" + UCASE$(size$) angle$ = "A" + UCASE$(angle$) Prime$ = size$ FOR J = 1 TO LEN(word$) Prime$ = angle$ + (Prime$ + Prime$(ASC(MID$(word$, J, 1))) + spacing$) NEXT J END SUB