« previous next »
Pages: [1]   Go Down

Author Topic: going back in the time : a starter ASCII art  (Read 3923 times)

0 Members and 1 Guest are viewing this topic.

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
going back in the time : a starter ASCII art
« on: July 29, 2019, 04:49:52 pm »
Hi fantastic QB64 coders

Here a first version of an ASCII art library

Code: QB64: [Select]
  1. 'ASCII ART ALPHABET 5 columns X 7 rows
  2. 'A  " AAA ", "A   A","AAAAA","A   A","A   A","A   A","A   A"
  3. 'B  "BBBB ","B   B", "BBBB ","B   B","B   B","B   B","BBBB "
  4. 'c  " CCC ", "C   C","C    ","C    ","C    ","C   C"," CCC "
  5. 'D  "DDDD ", "D   D", "D   D", "D   D", "D   D", "D   D", "DDDD "
  6. 'E  "EEEEE","E    ","EEE  ","E    ","E    ","E    ","EEEEE"
  7. 'F  "FFFFF","F    ","FFF  ","F    ","F    ","F    ","F    "
  8. 'G  " GGGG", "G    ","G  GG","G   G","G   G","G   G"," GGG "
  9. 'H  "H   H","H   H", "HHHHH","H   H","H   H", "H   H", "H   H"
  10. 'I  " III ", "  I  ", "  I  ", "  I  ", "  I  ", "  I  "," III "
  11. 'J  "    J","    J","    J","    J","    J","J   J", " JJJ "
  12. 'K  "K   K","K  K ", "KKK  ","K  K ","K   K","K   K","K   K"
  13. 'L  "L    ","L    ","L    ","L    ","L    ","L    ","LLLLL"
  14. 'M  "M   M","MM MM", "M M M","M   M","M   M","M   M","M   M"
  15. 'N  "N   N","NN  N","N N N","N   N","N   N","N   N" ,"N   N"
  16. 'O  " OOO ","O   O","O   O","O   O","O   O","O   O"," OOO "
  17. 'P  "PPPP ","P   P","PPPP ","P    ","P    ","P    ","P    "
  18. 'Q  " QQQ ","Q   Q","Q   Q","Q   Q","Q   Q","Q  Q "," QQ Q"
  19. 'R  "RRRR ","R   R","RRRR ","R   R","R   R","R   R","R   R"
  20. 'S  " SSSS","S    "," SSS ","    S","    S","S   S"," SSS "
  21. 'T  "TTTTT","  T  ","  T  ","  T  ","  T  ","  T  ","  T  "
  22. 'U  "U   U","U   U","U   U","U   U","U   U","U   U"," UUU "
  23. 'V  "V   V","V   V","V   V","V   V"," V V "," V V ","  V  "
  24. 'W  "W   W","W   W","W   W","W   W","W W W","WW WW","W   W"
  25. 'X  "X   X"," X X ","  X  "," X X ","X   X","X   X","X   X"
  26. 'Y  "Y   Y"," Y Y ","  Y  ","  Y  ","  Y  ","  Y  ","  Y  "
  27. 'Z  "ZZZZ ","    Z","   Z ","  Z  "," Z   ", "Z    ","ZZZZZ"
  28. _TITLE "ASCII ART FONT"
  29. DIM SHARED AsciiF(1 TO 26, 1 TO 7) AS STRING * 5
  30.  
  31.  
  32. LoadingFont 2
  33. 'ShowingFont 10, 20
  34.  
  35. CLS , 5
  36.  
  37. WriteText 8, 10, "QBasic", 1, 6
  39. CLS , 0
  40. LoadingFont 1
  41. WriteText 8, 2, "QUICKBASIC", 14, 3
  43. CLS , 10
  44. LoadingFont 3
  45. WriteText 2, 1, "TURBOBASIC", 1, 4
  46. COLOR 7, 0
  48.  
  49. Block:
  50. DATA " ÛÛÛ ","Û   Û","ÛÛÛÛÛ","Û   Û","Û   Û","Û   Û","Û   Û"
  51. DATA "ÛÛÛÛ ","Û   Û","ÛÛÛÛ ","Û   Û","Û   Û","Û   Û","ÛÛÛÛ "
  52. DATA " ÛÛÛ ","Û   Û","Û    ","Û    ","Û    ","Û   Û"," ÛÛÛ "
  53. DATA "ÛÛÛÛ ","Û   Û","Û   Û","Û   Û","Û   Û","Û   Û","ÛÛÛÛ "
  54. DATA "ÛÛÛÛÛ","Û    ","ÛÛÛ  ","Û    ","Û    ","Û    ","ÛÛÛÛÛ"
  55. DATA "ÛÛÛÛÛ","Û    ","ÛÛÛ  ","Û    ","Û    ","Û    ","Û    "
  56. DATA " ÛÛÛÛ","Û    ","Û  ÛÛ","Û   Û","Û   Û","Û   Û"," ÛÛÛ "
  57. DATA "Û   Û","Û   Û","ÛÛÛÛÛ","Û   Û","Û   Û","Û   Û","Û   Û"
  58. DATA " ÛÛÛ ","  Û  ","  Û  ","  Û  ","  Û  ","  Û  "," ÛÛÛ "
  59. DATA "    Û","    Û","    Û","    Û","    Û","Û   Û"," ÛÛÛ "
  60. DATA "Û   Û","Û  Û ","ÛÛÛ  ","Û  Û ","Û   Û","Û   Û","Û   Û"
  61. DATA "Û    ","Û    ","Û    ","Û    ","Û    ","Û    ","ÛÛÛÛÛ"
  62. DATA "Û   Û","ÛÛ ÛÛ","Û Û Û","Û   Û","Û   Û","Û   Û","Û   Û"
  63. DATA "Û   Û","ÛÛ  Û","Û Û Û","Û   Û","Û   Û","Û   Û","Û   Û"
  64. DATA " ÛÛÛ ","Û   Û","Û   Û","Û   Û","Û   Û","Û   Û"," ÛÛÛ "
  65. DATA "ÛÛÛÛ ","Û   Û","ÛÛÛÛ ","Û    ","Û    ","Û    ","Û    "
  66. DATA " ÛÛÛ ","Û   Û","Û   Û","Û   Û","Û   Û","Û  Û "," ÛÛ Û"
  67. DATA "ÛÛÛÛ ","Û   Û","ÛÛÛÛ ","Û   Û","Û   Û","Û   Û","Û   Û"
  68. DATA " ÛÛÛÛ","Û    "," ÛÛÛ ","    Û","    Û","Û   Û"," ÛÛÛ "
  69. DATA "ÛÛÛÛÛ","  Û  ","  Û  ","  Û  ","  Û  ","  Û  ","  Û  "
  70. DATA "Û   Û","Û   Û","Û   Û","Û   Û","Û   Û","Û   Û"," ÛÛÛ "
  71. DATA "Û   Û","Û   Û","Û   Û","Û   Û"," Û Û "," Û Û ","  Û  "
  72. DATA "Û   Û","Û   Û","Û   Û","Û   Û","Û Û Û","ÛÛ ÛÛ","Û   Û"
  73. DATA "Û   Û"," Û Û ","  Û  "," Û Û ","Û   Û","Û   Û","Û   Û"
  74. DATA "Û   Û"," Û Û ","  Û  ","  Û  ","  Û  ","  Û  ","  Û  "
  75. DATA "ÛÛÛÛ ","    Û","   Û ","  Û  "," Û   ","Û    ","ÛÛÛÛÛ"
  76.  
  77.  
  78.  
  79. Block2:
  80. DATA " ²²² ","²   ²","²²²²²","²   ²","²   ²","²   ²","²   ²"
  81. DATA "²²²² ","²   ²","²²²² ","²   ²","²   ²","²   ²","²²²² "
  82. DATA " ²²² ","²   ²","²    ","²    ","²    ","²   ²"," ²²² "
  83. DATA "²²²² ","²   ²","²   ²","²   ²","²   ²","²   ²","²²²² "
  84. DATA "²²²²²","²    ","²²²  ","²    ","²    ","²    ","²²²²²"
  85. DATA "²²²²²","²    ","²²²  ","²    ","²    ","²    ","²    "
  86. DATA " ²²²²","²    ","²  ²²","²   ²","²   ²","²   ²"," ²²² "
  87. DATA "²   ²","²   ²","²²²²²","²   ²","²   ²","²   ²","²   ²"
  88. DATA " ²²² ","  ²  ","  ²  ","  ²  ","  ²  ","  ²  "," ²²² "
  89. DATA "    ²","    ²","    ²","    ²","    ²","²   ²"," ²²² "
  90. DATA "²   ²","²  ² ","²²²  ","²  ² ","²   ²","²   ²","²   ²"
  91. DATA "²    ","²    ","²    ","²    ","²    ","²    ","²²²²²"
  92. DATA "²   ²","²² ²²","² ² ²","²   ²","²   ²","²   ²","²   ²"
  93. DATA "²   ²","²²  ²","² ² ²","²   ²","²   ²","²   ²","²   ²"
  94. DATA " ²²² ","²   ²","²   ²","²   ²","²   ²","²   ²"," ²²² "
  95. DATA "²²²² ","²   ²","²²²² ","²    ","²    ","²    ","²    "
  96. DATA " ²²² ","²   ²","²   ²","²   ²","²   ²","²  ² "," ²² ²"
  97. DATA "²²²² ","²   ²","²²²² ","²   ²","²   ²","²   ²","²   ²"
  98. DATA " ²²²²","²    "," ²²² ","    ²","    ²","²   ²"," ²²² "
  99. DATA "²²²²²","  ²  ","  ²  ","  ²  ","  ²  ","  ²  ","  ²  "
  100. DATA "²   ²","²   ²","²   ²","²   ²","²   ²","²   ²"," ²²² "
  101. DATA "²   ²","²   ²","²   ²","²   ²"," ² ² "," ² ² ","  ²  "
  102. DATA "²   ²","²   ²","²   ²","²   ²","² ² ²","²² ²²","²   ²"
  103. DATA "²   ²"," ² ² ","  ²  "," ² ² ","²   ²","²   ²","²   ²"
  104. DATA "²   ²"," ² ² ","  ²  ","  ²  ","  ²  ","  ²  ","  ²  "
  105. DATA "²²²² ","    ²","   ² ","  ²  "," ²   ","²    ","²²²²²"
  106.  
  107.  
  108. Letter:
  109. DATA " AAA ","A   A","AAAAA","A   A","A   A","A   A","A   A"
  110. DATA "BBBB ","B   B","BBBB ","B   B","B   B","B   B","BBBB "
  111. DATA " CCC ","C   C","C    ","C    ","C    ","C   C"," CCC "
  112. DATA "DDDD ","D   D","D   D","D   D","D   D","D   D","DDDD "
  113. DATA "EEEEE","E    ","EEE  ","E    ","E    ","E    ","EEEEE"
  114. DATA "FFFFF","F    ","FFF  ","F    ","F    ","F    ","F    "
  115. DATA " GGGG","G    ","G  GG","G   G","G   G","G   G"," GGG "
  116. DATA "H   H","H   H","HHHHH","H   H","H   H","H   H","H   H"
  117. DATA " III ","  I  ","  I  ","  I  ","  I  ","  I  "," III "
  118. DATA "    J","    J","    J","    J","    J","J   J"," JJJ "
  119. DATA "K   K","K  K ","KKK  ","K  K ","K   K","K   K","K   K"
  120. DATA "L    ","L    ","L    ","L    ","L    ","L    ","LLLLL"
  121. DATA "M   M","MM MM","M M M","M   M","M   M","M   M","M   M"
  122. DATA "N   N","NN  N","N N N","N   N","N   N","N   N","N   N"
  123. DATA " OOO ","O   O","O   O","O   O","O   O","O   O"," OOO "
  124. DATA "PPPP ","P   P","PPPP ","P    ","P    ","P    ","P    "
  125. DATA " QQQ ","Q   Q","Q   Q","Q   Q","Q   Q","Q  Q "," QQ Q"
  126. DATA "RRRR ","R   R","RRRR ","R   R","R   R","R   R","R   R"
  127. DATA " SSSS","S    "," SSS ","    S","    S","S   S"," SSS "
  128. DATA "TTTTT","  T  ","  T  ","  T  ","  T  ","  T  ","  T  "
  129. DATA "U   U","U   U","U   U","U   U","U   U","U   U"," UUU "
  130. DATA "V   V","V   V","V   V","V   V"," V V "," V V ","  V  "
  131. DATA "W   W","W   W","W   W","W   W","W W W","WW WW","W   W"
  132. DATA "X   X"," X X ","  X  "," X X ","X   X","X   X","X   X"
  133. DATA "Y   Y"," Y Y ","  Y  ","  Y  ","  Y  ","  Y  ","  Y  "
  134. DATA "ZZZZ ","    Z","   Z ","  Z  "," Z   ","Z    ","ZZZZZ"
  135.  
  136.  
  137. 'SUBs
  138. SUB LoadingFont (mode AS INTEGER)
  139.     DIM Loadfont AS INTEGER, Numstring AS INTEGER
  140.     ' selector of FONT
  141.     IF mode = 1 THEN
  142.         RESTORE Block
  143.     ELSEIF mode = 2 THEN
  144.         RESTORE Block2
  145.     ELSEIF mode = 3 THEN
  146.         RESTORE Letter
  147.     END IF
  148.     ' loader of FONT
  149.     FOR Loadfont = 1 TO 26
  150.         FOR Numstring = 1 TO 7
  151.             READ AsciiF(Loadfont, Numstring)
  152.         NEXT Numstring
  153.     NEXT Loadfont
  155.  
  156. SUB ShowingFont (Row AS INTEGER, Column AS INTEGER)
  157.     DIM Loadfont AS INTEGER, Numstring AS INTEGER
  158.     FOR Loadfont = 1 TO 26
  159.         CLS
  160.         FOR Numstring = 1 TO 7
  161.             LOCATE (Row - 1) + Numstring, Column
  162.             PRINT AsciiF(Loadfont, Numstring);
  163.         NEXT Numstring
  164.         SLEEP 1
  165.     NEXT Loadfont
  167.  
  168. SUB WriteText (Row AS INTEGER, Column AS INTEGER, Stringa AS STRING, Forecolor AS _UNSIGNED LONG, Backcolor AS _UNSIGNED LONG)
  169.     DIM ActualCol AS INTEGER, CountLetter AS INTEGER, Counter AS INTEGER, counterRow AS INTEGER
  170.     DIM Letter AS INTEGER
  171.     CountLetter = LEN(Stringa)
  172.     IF Column > 80 THEN EXIT SUB
  173.     IF Row > 18 THEN EXIT SUB
  174.     IF (CountLetter * 7) + Column > 80 THEN EXIT SUB
  175.     ActualCol = Column
  176.     COLOR Forecolor, Backcolor
  177.     FOR Counter = 1 TO CountLetter
  178.         Letter = ASC(UCASE$(MID$(Stringa, Counter, 1))) - 64
  179.         FOR counterRow = 1 TO 7
  180.             LOCATE (Row - 1) + counterRow, ActualCol
  181.             PRINT AsciiF(Letter, counterRow);
  182.         NEXT
  183.         ActualCol = ActualCol + 7
  184.     NEXT

you can have max 11 letters on a row of 80 column in screen 0
for now you can write text with international alphabeth and roman numbers...
soon coming arabic number the point and the comma

Thanks to read and to try

Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: going back in the time : a starter ASCII art
« Reply #1 on: July 29, 2019, 05:25:29 pm »
Hi TempodiBasic,

Neato, but for me it is easier to read text if back color of letter matches background of screen:
Code: QB64: [Select]
  1. LoadingFont 2
  2. 'ShowingFont 10, 20
  3.  
  4. CLS , 5
  5.  
  6. WriteText 8, 10, "QBasic", 1, 5
  8. CLS , 0
  9. LoadingFont 1
  10. WriteText 8, 2, "QUICKBASIC", 14, 0
  12. CLS , 10
  13. LoadingFont 3
  14. WriteText 2, 1, "TURBOBASIC", 1, 10
  15. COLOR 7, 0
  17.  
Logged

Offline euklides

  • Forum Regular
  • Posts: 128
    • View Profile
Re: going back in the time : a starter ASCII art
« Reply #2 on: July 30, 2019, 04:32:14 am »

xx   xx   xx                      xx        xxx         xx 
xxx  xx                                      xx        xxxx
xxxx xx  xxx   xxxx   xxxx        xx  xxxx   xx        xxxx
xx xxxx   xx  xx  xx xx  xx       xx xx  xx  xxxxx      xx 
xx  xxx   xx  xx     xxxxxx       xx xx  xx  xx  xx     xx 
xx   xx   xx  xx  xx xx       xx  xx xx  xx  xx  xx         
xx   xx  xxxx  xxxx   xxxx    xx  xx  xxxx  xx xxx      xx 
                               xxxx                         
                                               
Logged
Why not yes ?

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: going back in the time : a starter ASCII art
« Reply #3 on: August 01, 2019, 03:22:43 pm »
Cool program. :) I like how people make their own ASCII art. :)
Logged
Pages: [1]   Go Up
« previous next »