Going through some old archives I found this.

BASKET.BAS

'Fixed for qb64 by Rick Christy <grymmjack@gmail.com>

'Added multiple delays 

'DELAY = speed of ball in range controls

'DELAY2 = animation speed of shot

'Added more sound effects



DECLARE SUB PRINTSTATS (AT, MK, PLYR, HPS, P) 'WRITES STATISTICS

DECLARE SUB ACCBOARD ()                       'DRAWS ACCURACY BOARDS

DECLARE SUB DRAWHOOP ()                       'DRAWS HOOP

DECLARE SUB INTRO ()                          'FIRST SCREEN

PLYRS = 1                                     '-DO NOT CHANGE THESE

HPS = 20                                      '/

INTR:

INTRO

INTROS:

 P = 0

 COLOR 2: LOCATE 10, 11: PRINT "1) START"

 COLOR 4: LOCATE 11, 11: PRINT "2) PRACTICE"

 COLOR 14: LOCATE 12, 11: PRINT "3) PLAYERS"; PLYRS

 COLOR 5: LOCATE 13, 11: PRINT "4) SHOTS/PLAYER"; HPS

 COLOR 1: LOCATE 14, 11: PRINT "5) EXIT"

 CH$ = ""

 DO UNTIL CH$ = "1" OR CH$ = "2" OR CH$ = "3" OR CH$ = "4" OR CH$ = "5"

 CH$ = INPUT$(1)

 LOOP

 IF CH$ = "1" THEN GOTO START

 IF CH$ = "2" THEN PLYRS = 1: P = 1: HPS = 0: GOTO START

 IF CH$ = "3" THEN

  PLYRS = PLYRS + 1

  IF PLYRS > 8 THEN PLYRS = 1

  GOTO INTROS

 END IF

 IF CH$ = "4" THEN

  HPS = HPS + 5

  IF HPS > 40 THEN HPS = 5

  GOTO INTROS

 END IF

 COLOR 7: SCREEN 12

 SYSTEM

START:

DIM SHARED BALL(1 TO 190)

SND = 1                                 'SOUND(0=OFF 1=ON)

DELAY = 50*10000                              'COMPUTER SPEED

DELAY2 = 40*100000

FR = 2                                  'SKILL LEVEL

AT = 0                                  'STARTING # OF ATTEMPTS

MK = 0                                  'STARTING # OF SHOTS MADE

KEY(9) ON

ON KEY(9) GOSUB EXT

KEY(1) ON

ON KEY(1) GOSUB SNDS

SCREEN 12: CLS

CIRCLE (16, 16), 15, 15: DRAW "P15,15 C9 TA2 D15 U30 TA0 BR10 BD3 TA3 D22 U22 TA0 BL20 BD2 TA3 D22 TA0"

GET (1, 1)-(31, 31), BALL

CLS

PLYR = 1

DRAWHOOP

ACCBOARD

STARTOVER:

X = 135: Y = 400

PRINTSTATS AT, MK, PLYR, HPS, P

AX = 400: AY = 58

AAX = 558: AAY = 151

PUT (AAX, AAY), BALL

DO

_LIMIT 5

 FOR AX = 301 TO 519 STEP 8

 PUT (AX, AY), BALL

 FOR I = 1 TO 8000

 NEXT

 FOR I = 1 TO DELAY / FR: D$ = INKEY$: IF D$ = CHR$(32) THEN EXIT DO: EXIT FOR: GOTO DONE

 NEXT I

 PUT (AX, AY), BALL, XOR

 NEXT AX

 IF SND=1 THEN DRIBBLE

 FOR AX = 519 TO 301 STEP -8

 PUT (AX, AY), BALL

 FOR I = 1 TO 8000

 NEXT

 FOR I = 1 TO DELAY / FR: D$ = INKEY$: IF D$ = CHR$(32) THEN EXIT DO: EXIT FOR: GOTO DONE

 NEXT I

 PUT (AX, AY), BALL, XOR

 NEXT AX

 IF SND=1 THEN DRIBBLE

LOOP

DONE:

PUT (AAX, AAY), BALL, XOR

D$ = ""

DO

_LIMIT 5

 FOR AAY = 151 TO 269 STEP 8

 PUT (AAX, AAY), BALL

 FOR I = 1 TO 8000

 NEXT

 FOR I = 1 TO DELAY / FR: D$ = INKEY$: IF D$ = CHR$(32) THEN EXIT DO: EXIT FOR: GOTO DONE2

 NEXT I

 PUT (AAX, AAY), BALL

 NEXT AAY

 IF SND=1 THEN DRIBBLE

 FOR AAY = 269 TO 151 STEP -8

 PUT (AAX, AAY), BALL

 FOR I = 1 TO 8000

 NEXT

 FOR I = 1 TO DELAY / FR: D$ = INKEY$: IF D$ = CHR$(32) THEN EXIT DO: EXIT FOR: GOTO DONE2

 NEXT I

 PUT (AAX, AAY), BALL

 NEXT AAY

 IF SND=1 THEN DRIBBLE

LOOP

DONE2:

D$ = ""

GOSUB ANIM

PUT (AX, AY), BALL, XOR

PUT (AAX, AAY), BALL, XOR

GOTO STARTOVER



SYSTEM

ANIM:

 IF AX < 400 THEN X = 105

 IF AX > 420 THEN X = 165

 IF AX > 400 AND AX < 420 THEN X = 135

 FOR Y = 300 TO 70 STEP -4

 PUT (X, Y), BALL

 FOR I = 1 TO DELAY2: NEXT I

 PUT (X, Y), BALL, XOR

 NEXT Y

 IF SND=1 THEN SOUND 5000,0.5

 PUT (X, Y), BALL

 IF SND = 1 THEN SOUND 60, 1

 FOR I = 1 TO DELAY2 * 1.5: NEXT I

 PUT (X, Y), BALL, XOR

 FOR Y = 70 TO 85 STEP 4

 PUT (X, Y), BALL

 FOR I = 1 TO DELAY2: NEXT I

 PUT (X, Y), BALL, XOR

 NEXT Y

 IF SND=1 THEN SOUND 5000,0.5

 IF X = 135 AND AAY > 248 THEN GOSUB SWOOSH: GOTO DONE3

 IF X = 105 THEN GOSUB LEFT1: GOTO DONE3

 IF X = 165 THEN GOSUB RIGHT1: GOTO DONE3

 IF AAY < 249 THEN GOSUB HARD: GOTO DONE3

DONE3:

 IF AT = HPS THEN

  PL(PLYR) = MK

  IF PLYR = PLYRS THEN GOTO ENDOFGAME

  IF PLYR <> PLYRS THEN

   IF SND = 1 THEN SOUND 500, 6

   PLYR = PLYR + 1

  END IF

  AT = 0

  MK = 0

 END IF

 RETURN



RIGHT1:

_LIMIT 5

 IF SND = 1 THEN SOUND 200, 1

 FOR Y = 85 TO 1 STEP -4

 X = X + 2

 PUT (X, Y), BALL

 FOR I = 1 TO DELAY: NEXT I

 PUT (X, Y), BALL, XOR

 NEXT Y

 AT = AT + 1

 RETURN



LEFT1:

_LIMIT 5

 IF SND = 1 THEN SOUND 200, 1

 FOR Y = 85 TO 1 STEP -4

 X = X - 2

 PUT (X, Y), BALL

 FOR I = 1 TO DELAY: NEXT I

 PUT (X, Y), BALL, XOR

 NEXT Y

 AT = AT + 1

 RETURN



HARD:

_LIMIT 5

 IF SND = 1 THEN SOUND 200, 1

 FOR Y = 85 TO 1 STEP -4

 PUT (X, Y), BALL

 FOR I = 1 TO DELAY: NEXT I

 PUT (X, Y), BALL, XOR

 NEXT Y

 AT = AT + 1

 RETURN



SWOOSH:

_LIMIT 5

SOUND 500, 2

 FOR Y = 85 TO 130 STEP 4

 PUT (X, Y), BALL

 FOR I = 1 TO DELAY: NEXT I

 PUT (X, Y), BALL, XOR

 NEXT Y

 MK = MK + 1: AT = AT + 1

 RETURN



EXT:

 GOTO INTR



SNDS:

 IF SND = 1 THEN SND = 0: GOTO HAHA

 IF SND = 0 THEN SND = 1

HAHA:

 RETURN



ENDOFGAME:

 SCREEN 12: CLS

 IF SND = 1 THEN SOUND 300, 2

 IF PLYRS = 1 THEN PRINT "YOU MADE"; PL(1); "SHOTS"

 IF PLYRS > 1 THEN PRINT "PLAYER 1 MADE"; PL(1); "SHOTS"

 IF PLYRS > 1 THEN PRINT "PLAYER 2 MADE"; PL(2); "SHOTS"

 IF PLYRS > 2 THEN PRINT "PLAYER 3 MADE"; PL(3); "SHOTS"

 IF PLYRS > 3 THEN PRINT "PLAYER 4 MADE"; PL(4); "SHOTS"

 IF PLYRS > 4 THEN PRINT "PLAYER 5 MADE"; PL(5); "SHOTS"

 IF PLYRS > 5 THEN PRINT "PLAYER 6 MADE"; PL(6); "SHOTS"

 IF PLYRS > 6 THEN PRINT "PLAYER 7 MADE"; PL(7); "SHOTS"

 IF PLYRS > 7 THEN PRINT "PLAYER 8 MADE"; PL(8); "SHOTS"

 GH$ = INPUT$(1)

 GOTO INTR



SUB ACCBOARD

 LOCATE 3, 50: PRINT "ACCURACY"

 LOCATE 12, 68: PRINT "P"

 LOCATE , 68: PRINT "O"

 LOCATE , 68: PRINT "W"

 LOCATE , 68: PRINT "E"

 LOCATE , 68: PRINT "R"

 LINE (300, 50)-(550, 100), 15, B: DRAW "BM 301,51 P9,15"

 LINE (400, 50)-(450, 100), 4, B

 LINE (300, 50)-(550, 100), 15, B

 LINE (550, 150)-(600, 300), 15, B: DRAW "BLBU P9,15"

 LINE (550, 250)-(600, 300), 4, B

 LINE (550, 150)-(600, 300), 15, B

END SUB



SUB DRAWHOOP

DRAW "BM 275,0 C5 D480"

PAINT (1, 1), 5

DRAW "BM 75,160 C15 U150 R155 D150 L155 BUBR P9,15"

DRAW "BM 120,50 C15 G25 D39 R110 U39 H25 L60 BR1BD1 P15,15"

FOR D = 4 TO 1 STEP -1

LINE (135 - D, 70 - D)-(165 + D, 90 + D), 4, B

NEXT D

DRAW "BM 120,110 C15 TA-20 F30 TA0 BR24 TA20 E30"

DRAW "BM 132,115 C15 TA-28 F26 TA0 BR14 TA28 E26"

DRAW "BM 142,116 C15 TA-36 F25 TA0 BR04 TA36 E25"

DRAW "BM 150,116 C15 TA0 D35"

FOR D = 11 TO 17 STEP 2

CIRCLE (150, 150 - (5 * (D - 11))), 11 + (D - 11) * (D / 7), 15, , , .2

NEXT D

FOR D = 30 TO 26 STEP -1

CIRCLE (150, 110), D, 4, , , .2

NEXT D

DRAW "BM 75,160 C9 TA5 D200 TA0 R120 TA-5 U200 TA0 L154 BR10BD1 P9,9"

CIRCLE (140, 340), 15, 6: DRAW "P6,6 C0 TA2 D15 U30 TA0 BR10 BD3 TA3 D25 U25 TA0 BL20 BD2 TA3 D20 TA0"

DRAW "BM 93,350 C0 R119 D10 L119 U10 BD1BR1 P0,0"

DRAW "BM 75,160 C9 U150 R155 D150 L155"

END SUB



SUB INTRO

 SCREEN 13: CLS

 COLOR 6

 LOCATE 9, 9: PRINT "**********************"

 FOR Y = 10 TO 14

 LOCATE Y, 9: PRINT "*                    *"

 NEXT Y

 LOCATE 15, 9: PRINT "**********************"

END SUB



SUB PRINTSTATS (AT, MK, PLYR, HPS, P)

LOCATE 10, 40: PRINT "ATTEMPTS:"; AT; "  "

LOCATE 12, 40: PRINT "SHOTS MADE:"; MK; "  "

IF MK = 0 THEN LOCATE 14, 40: PRINT "PERCENTAGE: 0 % "

IF MK > 0 THEN LOCATE 14, 40: PRINT "PERCENTAGE:"; INT((MK / AT) * 100); "%  "

LOCATE 17, 40: PRINT "F1-TOGGLE SOUND(ON/OFF)"

LOCATE 19, 40: PRINT "F9-MAIN MENU"

IF P = 0 THEN

 LOCATE 22, 40: PRINT "PLAYER"; PLYR

 LOCATE 22, 48: PRINT "'S TURN"

 LOCATE 24, 40: PRINT HPS - AT; "SHOTS LEFT "

END IF

END SUB



SUB DRIBBLE

    SOUND 200,0.025

    SOUND 200,0.05

    SOUND 300,0.1

    SOUND 200,0.05

    SOUND 200,0.025

END SUB

The discussion forum schlurst so to himself. When programming, sometimes you need the right . . . a kick. And suddenly everything is clear: That was the problem! A joke! A programming tech joke.

That is a joke! 

LOL. This article must have been rewritten slightly from the one I remembered. But it gave me a warm feeling when I first read it. "But how is it possible? I had to boot Ubuntu from a DVD!" I said way back in 2010, or I don't remember when it was when I first got ahold of this.

Of course, for today, this information has to be updated. It has been left entirely to the Puppy Linux community to have 32-bit editions of the Linux OS, because otherwise they produce 64-bit only. IINM the distribution doesn't carry "g++" because it's a fat SFS file, not good for people who have 2GB RAM or less. Otherwise it's going to be pensive using QB64 on the 32-bit Puppy because it sticks to one "savefile" limited to 2GiB for some reason. (Should be maximum of 4GiB on "fat32" partition.)

Anyway, behold the article by DSMan195276!

This is the beginning of it:

Quote:Puppy Linux Installation

From QB64 Wiki

Article by Matt Kilgore

The big advantage to Puppy linux is that it doesn't require it's own partition, and will even run off of a NTFS or FAT partition with windows installed on it. In addition to that, the most recent version of puppy (5.2.8) I have running on a computer that used to run win98SE, with 127MB of RAM and a 400Mhz processor. Now obviously it's pretty slow, but it still runs Qb64, which is pretty amazing. It could be used to bring some life into some old computers, possibly to run server programs written in Qb64, etc.

BASFONT is a tool for showing different font types in your programs without needing the external font files.  This program will load a font file, print letters on the screen, creating a image of the screen to save, and encode that screen data of all the letters into a callable .BAS SUB which you can easily put in your programs.  The Font itself is not in the program, but an output example image is.  The saved SUB simply uses _PUTIMAGE to show letters on the screen.  NOTE: Only use Monospaced fonts.  

This program is kind of hard to explain, so I will post the BASFONT program AND an example of what BASFONT program can do.

- Dav

BASFONT.BAS

Thought I'd join in too sharing FONT printing routines being posted recently.  Here's one I don't think I ever shared here.  It's a single SUB that generates/uses a fontsheet image, then grabs and _PUTIMAGE each letter on the screen.  Not very fast, but the font looks fairly smooth even in large sizes.

- Dav 

EDIT: Hey @gyrmmjack, this code wouldn't paste/show right for some reason under the qb tag (had messed up colors too), had to use the older code tag for this one. 

I've been wanting to do this since i saw Charlie's in BAM.

grymmjack's call for Help got me fired up all over again last night, so here is my version:
New and improved code is here: 
https://staging.qb64phoenix.com/showthre...6#pid19096

Compare that image of b+ with the one here:
   

What the hell is wrong with this. I can't figure out why the kerning and x position is messed up.

I can't figure out why the scale of 1 is showing crunchy as if it's out of proportion on x or y.
I can't figure out why I need to kludge the x position to start it with a negative offset in

F0NT.print

OPTION _EXPLICIT

OPTION _EXPLICITARRAY



CONST CHARS = 8

CONST COLS  = 9

CONST ROWS  = 9

CONST BPP   = 32



' screen setup

DIM CANVAS AS LONG

CANVAS& = _NEWIMAGE(COLS * 150, ROWS * 100, BPP)

SCREEN CANVAS&

_DEST CANVAS&



' glyph data

DIM GD(CHARS) AS STRING

         GD$(0) = "XXXXXXXXX"

GD$(0) = GD$(0) + ".X......."

GD$(0) = GD$(0) + "..X......"

GD$(0) = GD$(0) + "...X....."

GD$(0) = GD$(0) + "....X...."

GD$(0) = GD$(0) + ".....X..."

GD$(0) = GD$(0) + "......X.."

GD$(0) = GD$(0) + ".......X."

GD$(0) = GD$(0) + "XXXXXXXXX"



         GD$(1) = "XXXXXXXXX"

GD$(1) = GD$(1) + "....X...."

GD$(1) = GD$(1) + "....X...."

GD$(1) = GD$(1) + "....X...."

GD$(1) = GD$(1) + "....X...."

GD$(1) = GD$(1) + "....X...."

GD$(1) = GD$(1) + "....X...."

GD$(1) = GD$(1) + "....X...."

GD$(1) = GD$(1) + "....X...."



         GD$(2) = "....X...."

GD$(2) = GD$(2) + "...X.X..."

GD$(2) = GD$(2) + "..X...X.."

GD$(2) = GD$(2) + ".X.....X."

GD$(2) = GD$(2) + "XXXXXXXXX"

GD$(2) = GD$(2) + "X.......X"

GD$(2) = GD$(2) + "X.......X"

GD$(2) = GD$(2) + "X.......X"

GD$(2) = GD$(2) + "X.......X"



         GD$(3) = "XXXXXXXXX"

GD$(3) = GD$(3) + "X......X."

GD$(3) = GD$(3) + "X.....X.."

GD$(3) = GD$(3) + "X....X..."

GD$(3) = GD$(3) + "X...X...."

GD$(3) = GD$(3) + "X..X....."

GD$(3) = GD$(3) + "X.X......"

GD$(3) = GD$(3) + "XX......."

GD$(3) = GD$(3) + "XXXXXXXXX"



         GD$(4) = "XXXXXXXXX"

GD$(4) = GD$(4) + ".X......."

GD$(4) = GD$(4) + "..X......"

GD$(4) = GD$(4) + "...XXXXXX"

GD$(4) = GD$(4) + "..X......"

GD$(4) = GD$(4) + ".X......."

GD$(4) = GD$(4) + "X........"

GD$(4) = GD$(4) + "X........"

GD$(4) = GD$(4) + "X........"



         GD$(5) = "XXXXXXXXX"

GD$(5) = GD$(5) + "....X...."

GD$(5) = GD$(5) + "....X...."

GD$(5) = GD$(5) + "....X...."

GD$(5) = GD$(5) + "....X...."

GD$(5) = GD$(5) + "....X...."

GD$(5) = GD$(5) + "....X...."

GD$(5) = GD$(5) + "....X...."

GD$(5) = GD$(5) + "XXXXXXXXX"



         GD$(6) = "XXXXXXXXX"

GD$(6) = GD$(6) + "X........"

GD$(6) = GD$(6) + "X........"

GD$(6) = GD$(6) + "X..XXXXXX"

GD$(6) = GD$(6) + "X...X...."

GD$(6) = GD$(6) + "X....X..."

GD$(6) = GD$(6) + "X.....X.."

GD$(6) = GD$(6) + "X......X."

GD$(6) = GD$(6) + "XXXXXXXXX"



         GD$(7) = "X.......X"

GD$(7) = GD$(7) + "X.......X"

GD$(7) = GD$(7) + "X.......X"

GD$(7) = GD$(7) + "X.......X"

GD$(7) = GD$(7) + "XXXXXXXXX"

GD$(7) = GD$(7) + "X.......X"

GD$(7) = GD$(7) + "X.......X"

GD$(7) = GD$(7) + "X.......X"

GD$(7) = GD$(7) + "X.......X"



         GD$(8) = "XXXXXXXXX"

GD$(8) = GD$(8) + ".X......."

GD$(8) = GD$(8) + "..X......"

GD$(8) = GD$(8) + "...X....."

GD$(8) = GD$(8) + "....XXXXX"

GD$(8) = GD$(8) + "...X....."

GD$(8) = GD$(8) + "..X......"

GD$(8) = GD$(8) + ".X......."

GD$(8) = GD$(8) + "XXXXXXXXX"



' F0NT UDT

TYPE F0NT

    glyph_width AS INTEGER

    glyph_height AS INTEGER

    char AS STRING

    img AS LONG

END TYPE

DIM STARFIGHTER_FONT(CHARS) AS F0NT



' create the glyph images from the glyph data

DIM kolor AS LONG

kolor& = _RGB32(&HFF, &HFF, &HFF)

CALL F0NT.make_glyph("S", STARFIGHTER_FONT(0), GD$(0), kolor&)

CALL F0NT.make_glyph("T", STARFIGHTER_FONT(1), GD$(1), kolor&)

CALL F0NT.make_glyph("A", STARFIGHTER_FONT(2), GD$(2), kolor&)

CALL F0NT.make_glyph("R", STARFIGHTER_FONT(3), GD$(3), kolor&)

CALL F0NT.make_glyph("F", STARFIGHTER_FONT(4), GD$(4), kolor&)

CALL F0NT.make_glyph("I", STARFIGHTER_FONT(5), GD$(5), kolor&)

CALL F0NT.make_glyph("G", STARFIGHTER_FONT(6), GD$(6), kolor&)

CALL F0NT.make_glyph("H", STARFIGHTER_FONT(7), GD$(7), kolor&)

CALL F0NT.make_glyph("E", STARFIGHTER_FONT(8), GD$(8), kolor&)



' prepare for output

_DEST CANVAS&

COLOR 0, _RGB32(&H00, &H00, &HAA)

CLS



' test 1

DIM AS INTEGER x, y, scale, kerning, spacing

x% = 50 : y% = 50 : scale% = 1 : kerning% = 2 : spacing% = 0

CALL F0NT.print("STARFIGHTER", STARFIGHTER_FONT(), x%, y%, scale%, kerning%, spacing%)



' test 2

x% = 50 : y% = 150 : scale% = 4 : kerning% = 0 : spacing% = 4

CALL F0NT.print("STARFIGHTER", STARFIGHTER_FONT(), x%, y%, scale%, kerning%, spacing%)



' test 3

x% = 0 : y% = 450 : scale% = 7 : kerning% = 0 : spacing% = 1

CALL F0NT.print("STARFIGHTER", STARFIGHTER_FONT(), x%, y%, scale%, kerning%, spacing%)



' test 4

x% = 0 : y% = 600 : scale% = 8 : kerning% = -5 : spacing% = 0

CALL F0NT.print("STARFIGHTER", STARFIGHTER_FONT(), x%, y%, scale%, kerning%, spacing%)

CALL F0NT.free(STARFIGHTER_FONT())







''

' Free the font glyph images from memory

'

' @param F0NT ARRAY f()

' 

SUB F0NT.free(f() AS F0NT)

    DIM AS INTEGER i, lb, ub

    lb% = LBOUND(f) : ub% = UBOUND(f)

    FOR i% = lb% TO ub%

        _FREEIMAGE f(i%).img&

    NEXT i%

END SUB





''

' Make a glyph from glyph data and store it in F0NT

'

' @param STRING c$ glyph character identifier

' @param F0NT ARRAY f() 

' @param STRING ARRAY glyph_data$() 

' @param LONG kolor& to make glyphs

' 

SUB F0NT.make_glyph(c$, f AS F0NT, glyph_data$, kolor&)

    DIM AS INTEGER y, x, p, dbg

    DIM s AS STRING

    DIM old_dest AS LONG

    ' dbg% = -1

    f.char$ = c$

    IF dbg% THEN PRINT c$

    f.img&  = _NEWIMAGE(COLS, ROWS, BPP)

    old_dest& = _DEST : _DEST f.img&

    _CLEARCOLOR _RGB32(&H00, &H00, &H00)

    FOR y% = 0 TO ROWS

        FOR x% = 0 TO COLS

            p% = (y% * COLS) + x% + 1

            s$ = MID$(glyph_data$, p%, 1)

            IF dbg% THEN

                _DEST old_dest& : PRINT s$; : _DEST f.img&

            END IF

            IF s$ <> "." THEN

                CALL PSET((x%, y%), kolor&)

            END IF            

        NEXT x%

        IF dbg% THEN

            _DEST old_dest& : PRINT : _DEST f.img&

        END IF

    NEXT y%

    IF dbg% THEN SLEEP

    _DEST old_dest&

END SUB





''

' Get a glyph image from a F0NT by character identifier

'

' @param STRING c$ character identifier of glyph to get

' @param F0NT ARRAY f()

' @return LONG image handle for glyph image of F0NT

'

FUNCTION F0NT.get_glyph&(c$, f() AS F0NT)

    DIM AS INTEGER i, lb, ub

    lb% = LBOUND(f) : ub% = UBOUND(f)

    FOR i% = lb% TO ub%

        IF f(i%).char$ = c$ THEN

            F0NT.get_glyph& = f(i%).img&

            EXIT FUNCTION

        END IF

    NEXT i%

END FUNCTION





''

' Print something using a F0NT

'

' @param STRING s$ what to print

' @param F0NT ARRAY f()

' @param INTEGER x% position

' @param INTEGER y% position

' @param INTEGER scale% size multiplier

' @param INTEGER kerning% scaling space between characters

' @param INTEGER spacing% spaces between characters

'

SUB F0NT.print(s$, f() AS F0NT, x%, y%, scale%, kerning%, spacing%)

    DIM AS INTEGER i, l, dx1, dy1, dx2, dy2, orig_x

    DIM c AS STRING

    DIM g AS LONG

    l% = LEN(s$)

    orig_x% = x%

    x% = -scale% * (COLS + 1) + orig_x%

    PSET (x%, y%)

    FOR i% = 0 TO l%

        c$ = MID$(s$, i%, 1)

        g& = F0NT.get_glyph(c$, f()) 

        _SOURCE g&

        dx1%  = x% + ((i% * (COLS + kerning%) * scale%)) + (i% * (spacing% * COLS))

        dy1%  = y%

        dx2%  = (COLS * scale%) + dx1%

        dy2%  = (ROWS * scale%) + dy1%

        _PUTIMAGE (dx1%, dy1%)-(dx2%, dy2%)

    NEXT i%

END SUB

Attached Files

Thumbnail(s)
   

https://www.reddit.com/r/BASICAnywhereMa..._bamified/

https://www.reddit.com/r/BASICAnywhereMa...r_palette/

Greetings QB64 PE fam!

Since the rest of the universe uses

CODE

_NEWIMAGE(800, 600, 32)

" and "

PRINT "HELLO QB64 PE Fam!"