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

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Linear Mode
Fonts from String Patterns
grymmjack Offline
a friendly old nerd
*******
Posts: 476
Threads: 25
Joined: Nov 2022
Reputation: 45
#14
08-29-2023, 10:54 PM
@bplus also a challenge if you want it (don't feel obligated).

Make the letters draw as if they are written. Using the numbers draw strokes from lowest to highest for each glyph. 1 first stroke, 2 second stroke, etc.

Put a delay in between each stroke.

I was playing with your code and added a `SLEEP` under the `LINE` so I could see what it was doing, and it looked cool while I just held down space. Smile

```
Sub LoadPatterns9x9 (SPattern() As String)
Dim As Integer a
a = Asc("S")
SPattern(a) = SPattern(a) + "..111111."
SPattern(a) = SPattern(a) + ".2......."
SPattern(a) = SPattern(a) + ".2......."
SPattern(a) = SPattern(a) + "..3......"
SPattern(a) = SPattern(a) + "...333..."
SPattern(a) = SPattern(a) + "......4.."
SPattern(a) = SPattern(a) + ".......4."
SPattern(a) = SPattern(a) + ".......4."
SPattern(a) = SPattern(a) + "5555555.."
a = Asc("T")
SPattern(a) = SPattern(a) + "111111111"
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
a = Asc("A")
SPattern(a) = SPattern(a) + "...122..."
SPattern(a) = SPattern(a) + "..1...2.."
SPattern(a) = SPattern(a) + "..1...2.."
SPattern(a) = SPattern(a) + ".1.....2."
SPattern(a) = SPattern(a) + ".1333332."
SPattern(a) = SPattern(a) + ".1.....2."
SPattern(a) = SPattern(a) + "1.......2"
SPattern(a) = SPattern(a) + "1.......2"
SPattern(a) = SPattern(a) + "1.......2"
a = Asc("F")
SPattern(a) = SPattern(a) + "111111111"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2333333.."
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2........"
a = Asc("I")
SPattern(a) = SPattern(a) + ".1111111."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + "....2...."
SPattern(a) = SPattern(a) + ".3333333."
a = Asc("G")
SPattern(a) = SPattern(a) + ".11111111"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2....4444"
SPattern(a) = SPattern(a) + "2.......5"
SPattern(a) = SPattern(a) + "2......35"
SPattern(a) = SPattern(a) + "2.....3.5"
SPattern(a) = SPattern(a) + ".33333..5"
a = Asc("H")
SPattern(a) = SPattern(a) + "1.......1"
SPattern(a) = SPattern(a) + "1.......1"
SPattern(a) = SPattern(a) + "1.......1"
SPattern(a) = SPattern(a) + "1.......1"
SPattern(a) = SPattern(a) + "122222221"
SPattern(a) = SPattern(a) + "1.......1"
SPattern(a) = SPattern(a) + "1.......1"
SPattern(a) = SPattern(a) + "1.......1"
SPattern(a) = SPattern(a) + "1.......1"
a = Asc("E")
SPattern(a) = SPattern(a) + "111111111"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2444444.."
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "2........"
SPattern(a) = SPattern(a) + "233333333"
a = Asc("N")
SPattern(a) = SPattern(a) + "1.......3"
SPattern(a) = SPattern(a) + "12......3"
SPattern(a) = SPattern(a) + "1.2.....3"
SPattern(a) = SPattern(a) + "1..2....3"
SPattern(a) = SPattern(a) + "1...2...3"
SPattern(a) = SPattern(a) + "1....2..3"
SPattern(a) = SPattern(a) + "1.....2.3"
SPattern(a) = SPattern(a) + "1......23"
SPattern(a) = SPattern(a) + "1.......3"
a = Asc("B")
SPattern(a) = SPattern(a) + "1111111.."
SPattern(a) = SPattern(a) + "2......1."
SPattern(a) = SPattern(a) + "2.......1"
SPattern(a) = SPattern(a) + "2......1."
SPattern(a) = SPattern(a) + "2111111.."
SPattern(a) = SPattern(a) + "2......3."
SPattern(a) = SPattern(a) + "2.......3"
SPattern(a) = SPattern(a) + "2......3."
SPattern(a) = SPattern(a) + "2333333.."
a = Asc("L")
SPattern(a) = SPattern(a) + "1........"
SPattern(a) = SPattern(a) + "1........"
SPattern(a) = SPattern(a) + "1........"
SPattern(a) = SPattern(a) + "1........"
SPattern(a) = SPattern(a) + "1........"
SPattern(a) = SPattern(a) + "1........"
SPattern(a) = SPattern(a) + "1........"
SPattern(a) = SPattern(a) + "1........"
SPattern(a) = SPattern(a) + "122222222"
a = Asc("U")
SPattern(a) = SPattern(a) + "1.......3"
SPattern(a) = SPattern(a) + "1.......3"
SPattern(a) = SPattern(a) + "1.......3"
SPattern(a) = SPattern(a) + "1.......3"
SPattern(a) = SPattern(a) + "1.......3"
SPattern(a) = SPattern(a) + "1.......3"
SPattern(a) = SPattern(a) + "1.......3"
SPattern(a) = SPattern(a) + "1.......3"
SPattern(a) = SPattern(a) + ".2222222."
a = Asc("P")
SPattern(a) = SPattern(a) + "1222222.."
SPattern(a) = SPattern(a) + "1......2."
SPattern(a) = SPattern(a) + "1.......2"
SPattern(a) = SPattern(a) + "1......2."
SPattern(a) = SPattern(a) + "1333332.."
SPattern(a) = SPattern(a) + "1........"
SPattern(a) = SPattern(a) + "1........"
SPattern(a) = SPattern(a) + "1........"
SPattern(a) = SPattern(a) + "1........"
a = Asc("R")
SPattern(a) = SPattern(a) + "1222222.."
SPattern(a) = SPattern(a) + "1......2."
SPattern(a) = SPattern(a) + "1.......2"
SPattern(a) = SPattern(a) + "1......2."
SPattern(a) = SPattern(a) + "1333332.."
SPattern(a) = SPattern(a) + "1.....4.."
SPattern(a) = SPattern(a) + "1......4."
SPattern(a) = SPattern(a) + "1.......4"
SPattern(a) = SPattern(a) + "1.......4"
End Sub

Sub LoadPatterns5x5 (SPattern() As String)
Dim As Integer a
a = Asc("b")
SPattern(a) = SPattern(a) + "1...."
SPattern(a) = SPattern(a) + "1...."
SPattern(a) = SPattern(a) + "1.22."
SPattern(a) = SPattern(a) + "12..2"
SPattern(a) = SPattern(a) + "1.22."
a = Asc("+")
SPattern(a) = SPattern(a) + "....."
SPattern(a) = SPattern(a) + "..1.."
SPattern(a) = SPattern(a) + ".212."
SPattern(a) = SPattern(a) + "..1.."
SPattern(a) = SPattern(a) + "....."
End Sub
```
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: 3 Guest(s)