QB64 Phoenix Edition › QB64 Rising › Code and Stuff › Utilities v
Fonts from String Patterns

Linear Mode
Fonts from String Patterns
grymmjack Offline
a friendly old nerd
*******
Posts: 304
Threads: 19
Joined: Nov 2022
Reputation: 17
#13
08-29-2023, 10:44 PM
@bplus I made it so the characters line up.

Code: (Select All)


_Title "Font From String Patterns" ' b+ 2023-08-27

' Inspired by grymmjack post here https://staging.qb64phoenix.com/showthre...0#pid18990

' I used his font patterns to get my version started



' 2023-08-29 fixed with -1's in steps



Screen _NewImage(800, 600, 32)

_ScreenMove 200, 60

Dim spattern$(0 To 255)

Dim pattern5$(0 To 255)

LoadPatterns9x9 spattern$()

LoadPatterns5x5 pattern5$()

FPrint "TESTING", spattern$(), 323, 50, 2, 3, &HFF0000FF

FPrint "STARFIGHTER", spattern$(), 218, 180, 3, 3, &HFFFF0000

FPrint "STARFISHING", spattern$(), 70, 300, 5, 3, &HFFFFFF00

FPrint "BPLUS", spattern$(), 376, 550, 1, 2, &HFF008800

FPrint "b+", pattern5$(), 435, 547, 1, 1, &HFFFFFFFF

Sleep





Sub FPrint (s$, PA$(), x%, y%, scale%, spacing%, colr~&)

    ' s$ is string to "print" out

    ' PA$() is the array of string holding the font THE SQUARE pattern (must be NxN pattern)

    ' x, y top, left corner of print just like _PrintString

    ' scale is multiplier of pixeled font at NxN so now is Scale * N x Scale * N

    ' spacing is amount of pixels * scale between letters

    ' color~& type allows up to _RGB32() colors

    Dim As Integer ls, a, sq, r, c, i

    ls = Len(s$)

    For l = 1 To ls

        a = Asc(s$, l)

        If Len(PA$(a)) Then ' do we have a pattern

            sq = Sqr(Len(PA$(a)))

            'Print Chr$(a), sq  'debug

            For r = 0 To sq - 1 ' row and col of letter block

                For c = 0 To sq - 1

                    i = r * sq + c + 1

                    If Asc(PA$(a), i) <> Asc(".") Then

                        Line (x% + ((l - 1) * (sq + spacing%) + c) * scale%, y% + r * scale%)-Step(scale% - 1, scale% - 1), colr~&, BF

                    End If

                Next

            Next

        End If

    Next

End Sub



Sub LoadPatterns9x9 (SPattern() As String)

    Dim As Integer a

    a = Asc("S")

    SPattern(a) = SPattern(a) + "..XXXXXX."

    SPattern(a) = SPattern(a) + ".X......."

    SPattern(a) = SPattern(a) + ".X......."

    SPattern(a) = SPattern(a) + "..S......"

    SPattern(a) = SPattern(a) + "...SXS..."

    SPattern(a) = SPattern(a) + "......S.."

    SPattern(a) = SPattern(a) + ".......S."

    SPattern(a) = SPattern(a) + ".......S."

    SPattern(a) = SPattern(a) + "SXXXXXX.."

    a = Asc("T")

    SPattern(a) = SPattern(a) + "XXXXXXXXX"

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    a = Asc("A")

    SPattern(a) = SPattern(a) + "...aXA..."

    SPattern(a) = SPattern(a) + "..X...X.."

    SPattern(a) = SPattern(a) + "..X...X.."

    SPattern(a) = SPattern(a) + ".X.....X."

    SPattern(a) = SPattern(a) + ".XXXXXXX."

    SPattern(a) = SPattern(a) + ".X.....X."

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "X.......X"

    a = Asc("F")

    SPattern(a) = SPattern(a) + "XXXXXXXXX"

    SPattern(a) = SPattern(a) + "F........"

    SPattern(a) = SPattern(a) + "F........"

    SPattern(a) = SPattern(a) + "F........"

    SPattern(a) = SPattern(a) + "FFFXXXX.."

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    a = Asc("I")

    SPattern(a) = SPattern(a) + ".XXXXXXX."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + "....X...."

    SPattern(a) = SPattern(a) + ".XXXXXXX."

    a = Asc("G")

    SPattern(a) = SPattern(a) + ".XXXXXXXX"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X....GGGX"

    SPattern(a) = SPattern(a) + "X.......G"

    SPattern(a) = SPattern(a) + "X......gG"

    SPattern(a) = SPattern(a) + "X.....G.X"

    SPattern(a) = SPattern(a) + ".XXXXX..G"

    a = Asc("H")

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "XXXXXXXXX"

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "X.......X"

    a = Asc("E")

    SPattern(a) = SPattern(a) + "XXXXXXXXX"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "XXXXXXX.."

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "XXXXXXXXX"

    a = Asc("N")

    SPattern(a) = SPattern(a) + "X.......N"

    SPattern(a) = SPattern(a) + "XX......N"

    SPattern(a) = SPattern(a) + "X.X.....N"

    SPattern(a) = SPattern(a) + "N..X....N"

    SPattern(a) = SPattern(a) + "N...X...N"

    SPattern(a) = SPattern(a) + "N....X..N"

    SPattern(a) = SPattern(a) + "N.....X.N"

    SPattern(a) = SPattern(a) + "N......XN"

    SPattern(a) = SPattern(a) + "N.......N"

    a = Asc("B")

    SPattern(a) = SPattern(a) + "BBBBBBB.."

    SPattern(a) = SPattern(a) + "X......B."

    SPattern(a) = SPattern(a) + "X.......N"

    SPattern(a) = SPattern(a) + "N......N."

    SPattern(a) = SPattern(a) + "NBBBBBN.."

    SPattern(a) = SPattern(a) + "N......b."

    SPattern(a) = SPattern(a) + "N.......B"

    SPattern(a) = SPattern(a) + "N......X."

    SPattern(a) = SPattern(a) + "NBBBBBB.."

    a = Asc("L")

    SPattern(a) = SPattern(a) + "B........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "N........"

    SPattern(a) = SPattern(a) + "N........"

    SPattern(a) = SPattern(a) + "N........"

    SPattern(a) = SPattern(a) + "N........"

    SPattern(a) = SPattern(a) + "N........"

    SPattern(a) = SPattern(a) + "NBBBBBBLL"

    a = Asc("U")

    SPattern(a) = SPattern(a) + "B.......U"

    SPattern(a) = SPattern(a) + "X.......U"

    SPattern(a) = SPattern(a) + "X.......U"

    SPattern(a) = SPattern(a) + "N.......U"

    SPattern(a) = SPattern(a) + "N.......U"

    SPattern(a) = SPattern(a) + "N.......U"

    SPattern(a) = SPattern(a) + "N.......U"

    SPattern(a) = SPattern(a) + "N.......U"

    SPattern(a) = SPattern(a) + ".BBBBBBL."

    a = Asc("P")

    SPattern(a) = SPattern(a) + "XPPPPPP.."

    SPattern(a) = SPattern(a) + "X......X."

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "X......P."

    SPattern(a) = SPattern(a) + "XXXXXXP.."

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    SPattern(a) = SPattern(a) + "X........"

    a = Asc("R")

    SPattern(a) = SPattern(a) + "XPPPPPP.."

    SPattern(a) = SPattern(a) + "X......X."

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "X......P."

    SPattern(a) = SPattern(a) + "XXXXXXR.."

    SPattern(a) = SPattern(a) + "X.....R.."

    SPattern(a) = SPattern(a) + "X......R."

    SPattern(a) = SPattern(a) + "X.......X"

    SPattern(a) = SPattern(a) + "X.......X"

End Sub



Sub LoadPatterns5x5 (SPattern() As String)

    Dim As Integer a

    a = Asc("b")

    SPattern(a) = SPattern(a) + "b...."

    SPattern(a) = SPattern(a) + "b...."

    SPattern(a) = SPattern(a) + "b.bb."

    SPattern(a) = SPattern(a) + "bb..b"

    SPattern(a) = SPattern(a) + "b.bb."

    a = Asc("+")

    SPattern(a) = SPattern(a) + "....."

    SPattern(a) = SPattern(a) + "..+.."

    SPattern(a) = SPattern(a) + ".+++."

    SPattern(a) = SPattern(a) + "..+.."

    SPattern(a) = SPattern(a) + "....."

End Sub

You can see these a LOT easier for design purposes this way.
grymmjack (gj!)
GitHub | YouTube | Soundcloud | 16colo.rs
Website Find
Reply


Messages In This Thread
Fonts from String Patterns - by bplus - 08-27-2023, 02:49 PM
RE: Fonts from String Patterns - by grymmjack - 08-27-2023, 05:24 PM
RE: Fonts from String Patterns - by CharlieJV - 08-27-2023, 06:14 PM
RE: Fonts from String Patterns - by CharlieJV - 08-27-2023, 06:18 PM
RE: Fonts from String Patterns - by Dav - 08-27-2023, 06:37 PM
RE: Fonts from String Patterns - by bplus - 08-27-2023, 06:39 PM
RE: Fonts from String Patterns - by jcm - 08-27-2023, 11:27 PM
RE: Fonts from String Patterns - by mnrvovrfc - 08-28-2023, 12:45 PM
RE: Fonts from String Patterns - by bplus - 08-28-2023, 01:54 AM
RE: Fonts from String Patterns - by vince - 08-28-2023, 12:41 PM
RE: Fonts from String Patterns - by bplus - 08-29-2023, 03:14 PM
RE: Fonts from String Patterns - by grymmjack - 08-29-2023, 10:40 PM
RE: Fonts from String Patterns - by grymmjack - 08-29-2023, 10:44 PM
RE: Fonts from String Patterns - by grymmjack - 08-29-2023, 10:54 PM
RE: Fonts from String Patterns - by bplus - 08-30-2023, 12:36 AM
RE: Fonts from String Patterns - by grymmjack - 08-30-2023, 03:01 PM



Users browsing this thread: 8 Guest(s)