« previous next »
Pages: [1] 2   Go Down

Author Topic: JPG Graphic To Text Artwork Maker  (Read 5194 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
JPG Graphic To Text Artwork Maker
« on: July 31, 2019, 01:19:18 am »
I've wanted to make something like this for awhile. It loads any JPG picture and converts it to some text symbols and letters. It also uses spaces in certain area where the color is light or a shade of gray, black, or white. This program cannot use camera pictures or anything detailed like that, because it shrinks the picture down in memory (don't worry it doesn't change the original file) so the text file will be small enough to see it good on a computer screen. So, it's for simple graphics like stuff you make with Windows Paint or another paint program. But it does use 32 bit pictures in case you were wondering. I don't know if anybody else has made something like this on this forum before, but it's just something to play with mostly. Unless of course you have some other reason you need a program to convert graphics to text. It doesn't make the usual "ASCII Art" that people design themselves for forums, email, etc. unless you want a pretty large sized text graphic like this makes. Since it does shrink it down in memory, you will find some narrow lines that it won't display, but it works best, I think, with filled in colors.  Tonight I learned all about the _RED32, _GREEN32, and _BLUE32 to get what was needed from the POINT command. :) Check it out. :) Just make sure and make a graphic first before you run this and put it in the same directory as the program. The output file will be the same name as your graphic file was, except with a .txt instead of a .jpg ending.

Lastly: You can laugh at the outcomes of this program, because it's very rough and scattered, it was just made for fun and I don't really know how to make it cleaner looking unless I spend a lot more time on it adding more lines of converting colors to text.


(Note: I have a better one below on this page, without the bottom or side lines it makes on the text file.)

Code: QB64: [Select]
  1. _TITLE "JPG Picture To Text File Artwork Maker"
  2. start:
  3. DIM red&(16000)
  4. DIM green&(16000)
  5. DIM blue&(16000)
  6. DIM l$(16000)
  7. t = 0
  10. PRINT "                    JPG Picture To Text File Artwork Maker"
  12. PRINT "                                 By Ken G."
  14. PRINT "         This program loads 1 JPG picture file that's in the"
  15. PRINT "         same directory as this program and creates a text"
  16. PRINT "         file (.txt) of the same name as your JPG picture and"
  17. PRINT "         as a text file instead that can load in Notepad."
  18. PRINT "         This program only works with non-detailed graphics,"
  19. PRINT "         so a camera picture will not come out."
  20. PRINT "         For example, you can draw something with Microsoft"
  21. PRINT "         Paint and save it as a JPG and load it in this"
  22. PRINT "         to make a text graphic. Because this program has to"
  23. PRINT "         shrink the graphic down (without saving it or"
  24. PRINT "         overwriting any part of the original JPG file),"
  25. PRINT "         the detail of the text file will be very minimal."
  26. PRINT "         Which means it will look funny and non-detailed,"
  27. PRINT "         but I like it and I hope you have some fun with it too."
  29. INPUT "         Press Enter to begin.", st$
  31.  
  32. 'This section loads your picture from your computer.
  33.  
  34. loading:
  35. PRINT "                               Loading"
  37. PRINT "                     Do not add .jpg at the end."
  38. PRINT "                     The jpg picture must be in the same"
  39. PRINT "                     directory as this program is."
  40. PRINT "                     Type the name of your picture file"
  41. PRINT "                     here and press the Enter key."
  42. PRINT "                     Example: MyPic"
  43. PRINT "                     Q and Enter key ends program here."
  45. INPUT "->"; nm2$
  46. IF nm2$ = "Quit" OR nm2$ = "quit" OR nm2$ = "QUIT" OR nm2$ = "Q" OR nm2$ = "q" THEN END
  47. nm$ = nm2$ + ".jpg"
  48. theFileExists = _FILEEXISTS(nm$)
  49. IF theFileExists = 0 THEN
  50.     PRINT "File Does Not Exist."
  51.     PRINT "Would you like to try again (Y/N)"
  52.     PRINT "Esc ends program."
  53.     _LIMIT 10
  54.     llloop2:
  55.     ag$ = INKEY$
  56.     IF ag$ = "" THEN GOTO llloop2:
  57.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
  58.     IF ag$ = CHR$(27) THEN END
  59.     GOTO start:
  62.  
  63. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
  64.  
  65. SCREEN _NEWIMAGE(128, 120, 32)
  66. i& = _LOADIMAGE(nm$, 32)
  67. _PUTIMAGE (0, 0)-(128, 120), i&
  68.  
  69. FOR y = 0 TO 120
  70.     FOR x = 0 TO 128
  71.         t = t + 1
  72.         c& = POINT(x, y)
  73.         red&(t) = _RED32(c&)
  74.         green&(t) = _GREEN32(c&)
  75.         blue&(t) = _BLUE32(c&)
  76.     NEXT x
  80. SCREEN _NEWIMAGE(640, 480, 32)
  81. nm3$ = nm2$ + ".txt"
  82. OPEN nm3$ FOR OUTPUT AS #1
  83.  
  84. 'This section tries to match your pixel colors to certain text or spaces.
  85.  
  86. FOR tt = 1 TO t
  87.     FOR grays& = 0 TO 255
  88.         IF red&(tt) = grays& AND blue&(tt) = grays& AND green&(tt) = grays& THEN l$(tt) = "O": GOTO nex:
  89.     NEXT grays&
  90.     FOR reds& = 0 TO 255
  91.         IF red&(tt) = reds& AND blue&(tt) < 24 AND green&(tt) < 24 THEN l$(tt) = "#": GOTO nex:
  92.     NEXT reds&
  93.     FOR greens& = 0 TO 255
  94.         IF green&(tt) = greens& AND blue&(tt) < 24 AND red&(tt) < 24 THEN l$(tt) = "@": GOTO nex:
  95.     NEXT greens&
  96.     FOR blues& = 0 TO 255
  97.         IF blue&(tt) = blues& AND red&(tt) < 24 AND green&(tt) < 24 THEN l$(tt) = "*": GOTO nex:
  98.     NEXT blues&
  99.     FOR reds& = 24 TO 255
  100.         IF red&(tt) = reds& AND blue&(tt) > 23 AND green&(tt) < 24 THEN l$(tt) = "$": GOTO nex:
  101.     NEXT reds&
  102.     FOR greens& = 0 TO 255
  103.         IF green&(tt) = greens& AND blue&(tt) > 23 AND red&(tt) < 24 THEN l$(tt) = "%": GOTO nex:
  104.     NEXT greens&
  105.     FOR blues& = 0 TO 255
  106.         IF blue&(tt) = blues& AND red&(tt) > 23 AND green&(tt) < 24 THEN l$(tt) = "^": GOTO nex:
  107.     NEXT blues&
  108.     FOR reds& = 24 TO 255
  109.         IF red&(tt) = reds& AND blue&(tt) < 24 AND green&(tt) > 23 THEN l$(tt) = "&": GOTO nex:
  110.     NEXT reds&
  111.     FOR greens& = 0 TO 255
  112.         IF green&(tt) = greens& AND blue&(tt) < 24 AND red&(tt) > 23 THEN l$(tt) = "(": GOTO nex:
  113.     NEXT greens&
  114.     FOR blues& = 0 TO 255
  115.         IF blue&(tt) = blues& AND red&(tt) < 24 AND green&(tt) > 23 THEN l$(tt) = ")": GOTO nex:
  116.     NEXT blues&
  117.     FOR reds& = 0 TO 255
  118.         IF red&(tt) = reds& AND blue&(tt) < 48 AND green&(tt) < 24 THEN l$(tt) = "A": GOTO nex:
  119.     NEXT reds&
  120.     FOR greens& = 0 TO 255
  121.         IF green&(tt) = greens& AND blue&(tt) < 48 AND red&(tt) < 24 THEN l$(tt) = "B": GOTO nex:
  122.     NEXT greens&
  123.     FOR blues& = 0 TO 255
  124.         IF blue&(tt) = blues& AND red&(tt) < 48 AND green&(tt) < 24 THEN l$(tt) = "C": GOTO nex:
  125.     NEXT blues&
  126.     FOR reds& = 24 TO 255
  127.         IF red&(tt) = reds& AND blue&(tt) > 47 AND green&(tt) < 48 THEN l$(tt) = "D": GOTO nex:
  128.     NEXT reds&
  129.     FOR greens& = 0 TO 255
  130.         IF green&(tt) = greens& AND blue&(tt) > 47 AND red&(tt) < 48 THEN l$(tt) = "E": GOTO nex:
  131.     NEXT greens&
  132.     FOR blues& = 0 TO 255
  133.         IF blue&(tt) = blues& AND red&(tt) > 47 AND green&(tt) < 48 THEN l$(tt) = "F": GOTO nex:
  134.     NEXT blues&
  135.     FOR reds& = 24 TO 255
  136.         IF red&(tt) = reds& AND blue&(tt) < 48 AND green&(tt) > 47 THEN l$(tt) = "G": GOTO nex:
  137.     NEXT reds&
  138.     FOR greens& = 0 TO 255
  139.         IF green&(tt) = greens& AND blue&(tt) < 48 AND red&(tt) > 47 THEN l$(tt) = "H": GOTO nex:
  140.     NEXT greens&
  141.     FOR blues& = 0 TO 255
  142.         IF blue&(tt) = blues& AND red&(tt) < 48 AND green&(tt) > 47 THEN l$(tt) = "I": GOTO nex:
  143.     NEXT blues&
  144.     FOR reds& = 24 TO 255
  145.         IF red&(tt) = reds& AND blue&(tt) < 96 AND green&(tt) > 95 THEN l$(tt) = "J": GOTO nex:
  146.     NEXT reds&
  147.     FOR greens& = 0 TO 255
  148.         IF green&(tt) = greens& AND blue&(tt) < 96 AND red&(tt) > 95 THEN l$(tt) = "K": GOTO nex:
  149.     NEXT greens&
  150.     FOR blues& = 0 TO 255
  151.         IF blue&(tt) = blues& AND red&(tt) < 96 AND green&(tt) > 95 THEN l$(tt) = "L": GOTO nex:
  152.     NEXT blues&
  153.     FOR reds& = 24 TO 255
  154.         IF red&(tt) = reds& AND blue&(tt) > 95 AND green&(tt) < 96 THEN l$(tt) = "M": GOTO nex:
  155.     NEXT reds&
  156.     FOR greens& = 0 TO 255
  157.         IF green&(tt) = greens& AND blue&(tt) > 95 AND red&(tt) < 96 THEN l$(tt) = "N": GOTO nex:
  158.     NEXT greens&
  159.     FOR blues& = 0 TO 255
  160.         IF blue&(tt) = blues& AND red&(tt) > 95 AND green&(tt) < 96 THEN l$(tt) = "T": GOTO nex:
  161.     NEXT blues&
  162.     FOR reds& = 24 TO 255
  163.         IF red&(tt) = reds& AND blue&(tt) > 95 AND green&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
  164.     NEXT reds&
  165.     FOR greens& = 0 TO 255
  166.         IF green&(tt) = greens& AND blue&(tt) > 95 AND red&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
  167.     NEXT greens&
  168.     FOR blues& = 0 TO 255
  169.         IF blue&(tt) = blues& AND red&(tt) > 95 AND green&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
  170.     NEXT blues&
  171.  
  172.     'Now it puts the text or spaces onto your text file and then ends program.
  173.  
  174.     nex:
  175.     PRINT #1, l$(tt);
  176.     IF tt / 129 = INT(tt / 129) THEN PRINT #1, " "
  177.  
  178. NEXT tt
  181. PRINT nm3$; " has been saved to your computer."
  183.  
  184.  
« Last Edit: July 31, 2019, 02:18:48 am by SierraKen »
Logged

Offline RhoSigma

  • QB64 Developer
  • Forum Resident
  • Posts: 565
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #1 on: July 31, 2019, 01:36:29 am »
FYI - Here is discussion on another one, follow the given link to get the code.
https://qb64forum.alephc.xyz/index.php?topic=978.msg101819#msg101819

It handles the picture using _MEM commands instead of POINT.
« Last Edit: January 31, 2022, 06:32:53 pm by RhoSigma »
Logged
My Projects:   https://qb64forum.alephc.xyz/index.php?topic=809
GuiTools - A graphic UI framework (can do multiple UI forms/windows in one program)
Libraries - ImageProcess, StringBuffers (virt. files), MD5/SHA2-Hash, LZW etc.
Bonus - Blankers, QB64/Notepad++ setup pack

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #2 on: July 31, 2019, 02:09:07 am »
Thanks RhoSigma, I'll check it out.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #3 on: July 31, 2019, 02:17:02 am »
I'm not sure what to get on that thread Rho. It's probably kinda buried with all of the things you have there. I think for now at least, I will try to clean mine up a little bit.

In this update I just changed it so it doesn't have the bottom or side lines.

(Note, look down toward the bottom of the page for a much better one.)

Code: QB64: [Select]
  1. _TITLE "JPG Picture To Text File Artwork Maker"
  2. start:
  3. DIM red&(16000)
  4. DIM green&(16000)
  5. DIM blue&(16000)
  6. DIM l$(16000)
  7. t = 0
  10. PRINT "                    JPG Picture To Text File Artwork Maker"
  12. PRINT "                                 By Ken G."
  14. PRINT "         This program loads 1 JPG picture file that's in the"
  15. PRINT "         same directory as this program and creates a text"
  16. PRINT "         file (.txt) of the same name as your JPG picture and"
  17. PRINT "         as a text file instead that can load in Notepad."
  18. PRINT "         This program only works with non-detailed graphics,"
  19. PRINT "         so a camera picture will not come out."
  20. PRINT "         For example, you can draw something with Microsoft"
  21. PRINT "         Paint and save it as a JPG and load it in this"
  22. PRINT "         to make a text graphic. Because this program has to"
  23. PRINT "         shrink the graphic down (without saving it or"
  24. PRINT "         overwriting any part of the original JPG file),"
  25. PRINT "         the detail of the text file will be very minimal."
  26. PRINT "         Which means it will look funny and non-detailed,"
  27. PRINT "         but I like it and I hope you have some fun with it too."
  29. INPUT "         Press Enter to begin.", st$
  31.  
  32. 'This section loads your picture from your computer.
  33.  
  34. loading:
  35. PRINT "                               Loading"
  37. PRINT "                     Do not add .jpg at the end."
  38. PRINT "                     The jpg picture must be in the same"
  39. PRINT "                     directory as this program is."
  40. PRINT "                     Type the name of your picture file"
  41. PRINT "                     here and press the Enter key."
  42. PRINT "                     Example: MyPic"
  43. PRINT "                     Q and Enter key ends program here."
  45. INPUT "->"; nm2$
  46. IF nm2$ = "Quit" OR nm2$ = "quit" OR nm2$ = "QUIT" OR nm2$ = "Q" OR nm2$ = "q" THEN END
  47. nm$ = nm2$ + ".jpg"
  48. theFileExists = _FILEEXISTS(nm$)
  49. IF theFileExists = 0 THEN
  50.     PRINT "File Does Not Exist."
  51.     PRINT "Would you like to try again (Y/N)"
  52.     PRINT "Esc ends program."
  53.     _LIMIT 10
  54.     llloop2:
  55.     ag$ = INKEY$
  56.     IF ag$ = "" THEN GOTO llloop2:
  57.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
  58.     IF ag$ = CHR$(27) THEN END
  59.     GOTO start:
  62.  
  63. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
  64.  
  65. SCREEN _NEWIMAGE(128, 120, 32)
  66. i& = _LOADIMAGE(nm$, 32)
  67. _PUTIMAGE (0, 0)-(128, 120), i&
  68.  
  69. FOR y = 1 TO 120
  70.     FOR x = 1 TO 128
  71.         t = t + 1
  72.         c& = POINT(x, y)
  73.         red&(t) = _RED32(c&)
  74.         green&(t) = _GREEN32(c&)
  75.         blue&(t) = _BLUE32(c&)
  76.     NEXT x
  80. SCREEN _NEWIMAGE(640, 480, 32)
  81. nm3$ = nm2$ + ".txt"
  82. OPEN nm3$ FOR OUTPUT AS #1
  83.  
  84. 'This section tries to match your pixel colors to certain text or spaces.
  85.  
  86. FOR tt = 1 TO t
  87.     FOR grays& = 0 TO 255
  88.         IF red&(tt) = grays& AND blue&(tt) = grays& AND green&(tt) = grays& THEN l$(tt) = "O": GOTO nex:
  89.     NEXT grays&
  90.     FOR reds& = 0 TO 255
  91.         IF red&(tt) = reds& AND blue&(tt) < 24 AND green&(tt) < 24 THEN l$(tt) = "#": GOTO nex:
  92.     NEXT reds&
  93.     FOR greens& = 0 TO 255
  94.         IF green&(tt) = greens& AND blue&(tt) < 24 AND red&(tt) < 24 THEN l$(tt) = "@": GOTO nex:
  95.     NEXT greens&
  96.     FOR blues& = 0 TO 255
  97.         IF blue&(tt) = blues& AND red&(tt) < 24 AND green&(tt) < 24 THEN l$(tt) = "*": GOTO nex:
  98.     NEXT blues&
  99.     FOR reds& = 24 TO 255
  100.         IF red&(tt) = reds& AND blue&(tt) > 23 AND green&(tt) < 24 THEN l$(tt) = "$": GOTO nex:
  101.     NEXT reds&
  102.     FOR greens& = 0 TO 255
  103.         IF green&(tt) = greens& AND blue&(tt) > 23 AND red&(tt) < 24 THEN l$(tt) = "%": GOTO nex:
  104.     NEXT greens&
  105.     FOR blues& = 0 TO 255
  106.         IF blue&(tt) = blues& AND red&(tt) > 23 AND green&(tt) < 24 THEN l$(tt) = "^": GOTO nex:
  107.     NEXT blues&
  108.     FOR reds& = 24 TO 255
  109.         IF red&(tt) = reds& AND blue&(tt) < 24 AND green&(tt) > 23 THEN l$(tt) = "&": GOTO nex:
  110.     NEXT reds&
  111.     FOR greens& = 0 TO 255
  112.         IF green&(tt) = greens& AND blue&(tt) < 24 AND red&(tt) > 23 THEN l$(tt) = "(": GOTO nex:
  113.     NEXT greens&
  114.     FOR blues& = 0 TO 255
  115.         IF blue&(tt) = blues& AND red&(tt) < 24 AND green&(tt) > 23 THEN l$(tt) = ")": GOTO nex:
  116.     NEXT blues&
  117.     FOR reds& = 0 TO 255
  118.         IF red&(tt) = reds& AND blue&(tt) < 48 AND green&(tt) < 24 THEN l$(tt) = "A": GOTO nex:
  119.     NEXT reds&
  120.     FOR greens& = 0 TO 255
  121.         IF green&(tt) = greens& AND blue&(tt) < 48 AND red&(tt) < 24 THEN l$(tt) = "B": GOTO nex:
  122.     NEXT greens&
  123.     FOR blues& = 0 TO 255
  124.         IF blue&(tt) = blues& AND red&(tt) < 48 AND green&(tt) < 24 THEN l$(tt) = "C": GOTO nex:
  125.     NEXT blues&
  126.     FOR reds& = 24 TO 255
  127.         IF red&(tt) = reds& AND blue&(tt) > 47 AND green&(tt) < 48 THEN l$(tt) = "D": GOTO nex:
  128.     NEXT reds&
  129.     FOR greens& = 0 TO 255
  130.         IF green&(tt) = greens& AND blue&(tt) > 47 AND red&(tt) < 48 THEN l$(tt) = "E": GOTO nex:
  131.     NEXT greens&
  132.     FOR blues& = 0 TO 255
  133.         IF blue&(tt) = blues& AND red&(tt) > 47 AND green&(tt) < 48 THEN l$(tt) = "F": GOTO nex:
  134.     NEXT blues&
  135.     FOR reds& = 24 TO 255
  136.         IF red&(tt) = reds& AND blue&(tt) < 48 AND green&(tt) > 47 THEN l$(tt) = "G": GOTO nex:
  137.     NEXT reds&
  138.     FOR greens& = 0 TO 255
  139.         IF green&(tt) = greens& AND blue&(tt) < 48 AND red&(tt) > 47 THEN l$(tt) = "H": GOTO nex:
  140.     NEXT greens&
  141.     FOR blues& = 0 TO 255
  142.         IF blue&(tt) = blues& AND red&(tt) < 48 AND green&(tt) > 47 THEN l$(tt) = "I": GOTO nex:
  143.     NEXT blues&
  144.     FOR reds& = 24 TO 255
  145.         IF red&(tt) = reds& AND blue&(tt) < 96 AND green&(tt) > 95 THEN l$(tt) = "J": GOTO nex:
  146.     NEXT reds&
  147.     FOR greens& = 0 TO 255
  148.         IF green&(tt) = greens& AND blue&(tt) < 96 AND red&(tt) > 95 THEN l$(tt) = "K": GOTO nex:
  149.     NEXT greens&
  150.     FOR blues& = 0 TO 255
  151.         IF blue&(tt) = blues& AND red&(tt) < 96 AND green&(tt) > 95 THEN l$(tt) = "L": GOTO nex:
  152.     NEXT blues&
  153.     FOR reds& = 24 TO 255
  154.         IF red&(tt) = reds& AND blue&(tt) > 95 AND green&(tt) < 96 THEN l$(tt) = "M": GOTO nex:
  155.     NEXT reds&
  156.     FOR greens& = 0 TO 255
  157.         IF green&(tt) = greens& AND blue&(tt) > 95 AND red&(tt) < 96 THEN l$(tt) = "N": GOTO nex:
  158.     NEXT greens&
  159.     FOR blues& = 0 TO 255
  160.         IF blue&(tt) = blues& AND red&(tt) > 95 AND green&(tt) < 96 THEN l$(tt) = "T": GOTO nex:
  161.     NEXT blues&
  162.     FOR reds& = 24 TO 255
  163.         IF red&(tt) = reds& AND blue&(tt) > 95 AND green&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
  164.     NEXT reds&
  165.     FOR greens& = 0 TO 255
  166.         IF green&(tt) = greens& AND blue&(tt) > 95 AND red&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
  167.     NEXT greens&
  168.     FOR blues& = 0 TO 255
  169.         IF blue&(tt) = blues& AND red&(tt) > 95 AND green&(tt) > 95 THEN l$(tt) = " ": GOTO nex:
  170.     NEXT blues&
  171.  
  172.     'Now it puts the text or spaces onto your text file and then ends program.
  173.  
  174.     nex:
  175.     IF tt / 128 = INT(tt / 128) OR lines > 118 THEN PRINT #1, " ": lines = lines + 1: GOTO nex2:
  176.     PRINT #1, l$(tt);
  177.     nex2:
  178. NEXT tt
  179. nex3:
  182. PRINT nm3$; " has been saved to your computer."
  184.  
« Last Edit: July 31, 2019, 08:27:34 pm by SierraKen »
Logged

Offline RhoSigma

  • QB64 Developer
  • Forum Resident
  • Posts: 565
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #4 on: July 31, 2019, 03:29:32 am »
Quote from: SierraKen on July 31, 2019, 02:17:02 am
I'm not sure what to get on that thread Rho. It's probably kinda buried with all of the things you have there.

Easy way :)
Follow the link in my signature, from that post download the QB64Library.7z, extract it into your QB64 folder.
Now look into folder QB64Library\IMG-Support\example, there is a file called AsciiArtDemo.bas...
« Last Edit: August 01, 2019, 01:45:10 pm by RhoSigma »
Logged
My Projects:   https://qb64forum.alephc.xyz/index.php?topic=809
GuiTools - A graphic UI framework (can do multiple UI forms/windows in one program)
Libraries - ImageProcess, StringBuffers (virt. files), MD5/SHA2-Hash, LZW etc.
Bonus - Blankers, QB64/Notepad++ setup pack

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #5 on: July 31, 2019, 04:58:35 am »
Hi SierraKen

 Must we we must open the .txt file with a text editor to see the result ?
Logged
Programming isn't difficult, only it's  consuming time and coffee

Offline euklides

  • Forum Regular
  • Posts: 128
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #6 on: July 31, 2019, 05:15:27 am »
I think you must use a fixed size police to see the result. (courier, mslinedraw...)

Good program of course, and usefull to see how you do this.

But for this job, I use a little programme named "img2ascii.exe" (needs no installation under Win) who gives good results...



Logged
Why not yes ?

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #7 on: July 31, 2019, 01:19:04 pm »
Very nice work, SierraKen.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #8 on: July 31, 2019, 03:19:00 pm »
Woah Rho! That's incredible! It's a bit past my experience in programming though, I would have to study each line carefully if I want to make something as good as that. And many of those commands are ones I don't know of, so it would take awhile. And you have already made it, so I really don't have a will to copy it. But Great Job!
I think I will try to make mine a little better if I can.

TempodiBasic, I guess I can make a view screen, or open it with a SHELL command, will see what I can do, thanks!

Euklides, if I understand you right, do you mean the vertical is too much in the output? Yeah I noticed that too, will look into that to see what I can do, if anything.

Thanks Petr! Like the rest of my programs, this is just something to play around with.

« Last Edit: July 31, 2019, 03:23:03 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #9 on: July 31, 2019, 04:56:03 pm »
I decided to change it by using semi-random text characters, just adding the red, blue, and green (dividing each by 3 first to get 255 total) and then making THAT number the CHR$ number. I had to check the chart to remove the first 32 non-characters and 1 more so they would show up. I also changed the size of the output to pretty much the same width now as the original picture. It will show the original picture twice as wide in the tiny picture at first, but that only happens because text is twice as high as width, which I had forgotten, so the output is the normal size on the text file. I also added a SHELL command at the end to view the picture with Notepad (or whatever you use for .txt files) automatically without having to hunt for it. I'm guessing Windows computers are the only ones that can use the SHELL command? I really don't know. Anyway, using CHR$ makes the picture show up a lot when there's a lot of white or filled in areas. But on the other hand, I'm sure it will make a mess out of graphics with many different details. Check it out and tell me what you think. Thanks.

(Note: I made an even better one below on this page, than this one.)

Code: QB64: [Select]
  1. _TITLE "JPG Picture To Text File Artwork Maker"
  2. start:
  3. DIM red&(31000)
  4. DIM green&(31000)
  5. DIM blue&(31000)
  6. DIM l$(31000)
  7. t = 0
  10. PRINT "                    JPG Picture To Text File Artwork Maker"
  12. PRINT "                                 By Ken G."
  14. PRINT "         This program loads 1 JPG picture file that's in the"
  15. PRINT "         same directory as this program and creates a text"
  16. PRINT "         file (.txt) of the same name as your JPG picture and"
  17. PRINT "         as a text file instead that can load in Notepad."
  18. PRINT "         This program only works with non-detailed graphics,"
  19. PRINT "         so a camera picture will not come out."
  20. PRINT "         For example, you can draw something with Microsoft"
  21. PRINT "         Paint and save it as a JPG and load it in this"
  22. PRINT "         to make a text graphic. Because this program has to"
  23. PRINT "         shrink the graphic down (without saving it or"
  24. PRINT "         overwriting any part of the original JPG file),"
  25. PRINT "         the detail of the text file will be very minimal."
  26. PRINT "         Which means it will look funny and non-detailed,"
  27. PRINT "         but I like it and I hope you have some fun with it too."
  29. INPUT "         Press Enter to begin.", st$
  31.  
  32. 'This section loads your picture from your computer.
  33.  
  34. loading:
  35. PRINT "                               Loading"
  37. PRINT "                     Do not add .jpg at the end."
  38. PRINT "                     The jpg picture must be in the same"
  39. PRINT "                     directory as this program is."
  40. PRINT "                     Type the name of your picture file"
  41. PRINT "                     here and press the Enter key."
  42. PRINT "                     Example: MyPic"
  43. PRINT "                     Q and Enter key ends program here."
  45. INPUT "->"; nm2$
  46. IF nm2$ = "Quit" OR nm2$ = "quit" OR nm2$ = "QUIT" OR nm2$ = "Q" OR nm2$ = "q" THEN END
  47. nm$ = nm2$ + ".jpg"
  48. theFileExists = _FILEEXISTS(nm$)
  49. IF theFileExists = 0 THEN
  50.     PRINT "File Does Not Exist."
  51.     PRINT "Would you like to try again (Y/N)"
  52.     PRINT "Esc ends program."
  53.     _LIMIT 10
  54.     llloop2:
  55.     ag$ = INKEY$
  56.     IF ag$ = "" THEN GOTO llloop2:
  57.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
  58.     IF ag$ = CHR$(27) THEN END
  59.     GOTO start:
  62.  
  63. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
  64.  
  65. SCREEN _NEWIMAGE(256, 120, 32)
  66. i& = _LOADIMAGE(nm$, 32)
  67. _PUTIMAGE (0, 0)-(256, 120), i&
  68.  
  69. FOR y = 1 TO 120
  70.     FOR x = 1 TO 256
  71.         t = t + 1
  72.         c& = POINT(x, y)
  73.         red&(t) = _RED32(c&)
  74.         green&(t) = _GREEN32(c&)
  75.         blue&(t) = _BLUE32(c&)
  76.     NEXT x
  80. SCREEN _NEWIMAGE(640, 480, 32)
  81. nm3$ = nm2$ + ".txt"
  82. OPEN nm3$ FOR OUTPUT AS #1
  83.  
  84. 'This section tries to match your pixel colors to certain text or spaces.
  85.  
  86. FOR tt = 1 TO t
  87.  
  88.     'Now it puts the text or spaces onto your text file and then ends program.
  89.     IF red&(tt) = 255 AND green&(tt) = 255 AND blue&(tt) = 255 THEN l$(tt) = " ": GOTO nex:
  90.     rr = INT(red&(tt) / 3)
  91.     gg = INT(green&(tt) / 3)
  92.     bb = INT(blue&(tt) / 3)
  93.     colors = (rr + gg + bb)
  94.     IF colors < 33 THEN colors = 33
  95.     IF colors = 127 THEN colors = 128
  96.     IF colors = 255 THEN colors = 254
  97.     l$(tt) = CHR$(colors)
  98.     nex:
  99.     IF tt / 256 = INT(tt / 256) THEN PRINT #1, " ": GOTO nex2:
  100.     PRINT #1, l$(tt);
  101.     nex2:
  102. NEXT tt
  103. nex3:
  106. PRINT nm3$; " has been saved to your computer."
  108. INPUT "Press Enter to see your new text on your .txt viewing program.", aa$
  109. SHELL nm3$
  112.  
  113.  
« Last Edit: July 31, 2019, 08:28:16 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #10 on: July 31, 2019, 08:26:43 pm »
And like usual... I MADE IT BETTER!!! LOL I studied RhoSigma's ASCIIART program, and found 2 little things that I could use in my program. First, I changed it so it doesn't use colors, it uses shades, which made it really simple to just add _RED32, _GREEN32, and _BLUE32 together and the highest number is the brightest shade. I still use the POINT command, so that part is the same. But then I found a web page of a list of the lightest to darkest ASCII characters, so I ended up using 68 characters, from lightest to darkest on 1 string. Which made it incredibly simple to just use MID$, like RhoSigma did on his, to pick out which character is needed from the string. And it comes out pretty good with simple graphics. It still doesn't work with camera pictures, so it's not as good as Rho's, but I like mine a lot. What mine does do, which Rho didn't add, is make the .txt file and lets you see it in Notepad, or whatever .txt program you use that the SHELL command can find. You still don't see the outcome in the program itself, that got too hard because my outcome texts are very large. So at least with Notepad, etc. you can use the slide bars to see it all.  Tell me what you think all. I been working on this off and on all day and I think I got it wrapped.

(And below this one, on this forum page, I have one that includes seeing the output on the program itself before you make a text file of it, so scroll down.)

Code: QB64: [Select]
  1. _TITLE "JPG Graphics To Text File Artwork Maker"
  2. start:
  3. DIM red&(31000)
  4. DIM green&(31000)
  5. DIM blue&(31000)
  6. DIM l$(31000)
  7. t = 0
  10. PRINT "                    JPG Graphics To Text File Artwork Maker"
  12. PRINT "                                 By Ken G."
  14. PRINT "         This program loads 1 JPG graphic file that's in the"
  15. PRINT "         same directory as this program and creates a text"
  16. PRINT "         file (.txt) of the same name as your JPG file and"
  17. PRINT "         as a text file instead that can load in Notepad."
  18. PRINT "         This program only works with non-detailed graphics,"
  19. PRINT "         so a camera picture will not come out."
  20. PRINT "         For example, you can draw something with Microsoft"
  21. PRINT "         Paint and save it as a JPG and load it in this"
  22. PRINT "         to make a text graphic. Because this program has to"
  23. PRINT "         shrink the graphic down (without saving it or"
  24. PRINT "         overwriting any part of the original JPG file),"
  25. PRINT "         the detail of the text file will be very minimal."
  26. PRINT "         Which means it will look funny and non-detailed,"
  27. PRINT "         but I like it and I hope you have some fun with it too."
  29. INPUT "         Press Enter to begin.", st$
  31.  
  32. 'This section loads your picture from your computer.
  33.  
  34. loading:
  35. PRINT "                               Loading"
  37. PRINT "                     Do not add .jpg at the end."
  38. PRINT "                     The jpg picture must be in the same"
  39. PRINT "                     directory as this program is."
  40. PRINT "                     Type the name of your picture file"
  41. PRINT "                     here and press the Enter key."
  42. PRINT "                     Example: MyPic"
  43. PRINT "                     Q and Enter key ends program here."
  45. INPUT "->"; nm2$
  46. IF nm2$ = "Q" OR nm2$ = "q" THEN END
  47. nm$ = nm2$ + ".jpg"
  48. theFileExists = _FILEEXISTS(nm$)
  49. IF theFileExists = 0 THEN
  50.     PRINT "File Does Not Exist."
  51.     PRINT "Would you like to try again (Y/N)"
  52.     PRINT "Esc ends program."
  53.     _LIMIT 10
  54.     llloop2:
  55.     ag$ = INKEY$
  56.     IF ag$ = "" THEN GOTO llloop2:
  57.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
  58.     IF ag$ = CHR$(27) THEN END
  59.     GOTO start:
  62.  
  63. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
  64.  
  65. SCREEN _NEWIMAGE(256, 120, 32)
  66. i& = _LOADIMAGE(nm$, 32)
  67. _PUTIMAGE (0, 0)-(256, 120), i&
  68.  
  69. FOR y = 1 TO 120
  70.     FOR x = 1 TO 256
  71.         t = t + 1
  72.         c& = POINT(x, y)
  73.         red&(t) = _RED32(c&)
  74.         green&(t) = _GREEN32(c&)
  75.         blue&(t) = _BLUE32(c&)
  76.     NEXT x
  80. SCREEN _NEWIMAGE(640, 480, 32)
  81. nm3$ = nm2$ + ".txt"
  82. OPEN nm3$ FOR OUTPUT AS #1
  83.  
  84. 'This section matches your pixel shades to certain text or spaces.
  85.  
  86. text$ = " .'`^,:;Il!i<>~+_-?[]{}1()|\/tfjrxnuvczXYUJCLQ0OZmwqpdbkhao*#MW&8%B@$"
  87.  
  88. FOR tt = 1 TO t
  89.     shade = red&(tt) + green&(tt) + blue&(tt)
  90.     shade = INT(shade / 11)
  91.     l$(tt) = MID$(text$, shade, 1)
  92.     IF tt / 256 = INT(tt / 256) THEN PRINT #1, " ": GOTO nex2:
  93.     PRINT #1, l$(tt);
  94.     nex2:
  95. NEXT tt
  98. PRINT nm3$; " has been saved to your computer."
  100. INPUT "Press Enter to see your new text on your .txt viewing program such as Notepad.", aa$
  101. SHELL nm3$
  104.  
« Last Edit: July 31, 2019, 09:53:22 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #11 on: July 31, 2019, 09:52:04 pm »
Well, because someone asked, and I thought it was a cool idea, I added the feature to see the output inside the program before it makes the .txt file. So now, after you type in the name of the picture, you see the text version on the screen in the program. Then it asks if you want to make a .txt file of it. If you don't say yes (or anything that starts with y), then it will end.
Also, I figured out that the largest graphic you can use with this is 800 x 600. Any larger and it messes up.

(Another one after this makes it easier to see on Notepad without using the horizontal bar... so keep scrolling please.)

Code: QB64: [Select]
  1. _TITLE "JPG Graphics To Text File Artwork Maker"
  2. start:
  3. DIM red&(31000)
  4. DIM green&(31000)
  5. DIM blue&(31000)
  6. DIM l$(31000)
  7. t = 0
  10. PRINT "                    JPG Graphics To Text File Artwork Maker"
  12. PRINT "                                 By Ken G."
  14. PRINT "         This program loads 1 JPG graphics file that's in the"
  15. PRINT "         same directory as this program and creates a text"
  16. PRINT "         file (.txt) of the same name as your JPG file and"
  17. PRINT "         as a text file instead that can load in Notepad."
  18. PRINT "         This program only works with non-detailed graphics,"
  19. PRINT "         so a camera picture will not come out."
  20. PRINT "         For example, you can draw something with Microsoft"
  21. PRINT "         Paint and save it as a JPG and load it in this"
  22. PRINT "         to make a text graphic. Because this program has to"
  23. PRINT "         shrink the graphic down (without saving it or"
  24. PRINT "         overwriting any part of the original JPG file),"
  25. PRINT "         the detail of the text file will be very minimal."
  26. PRINT "         Which means it will look funny and non-detailed,"
  27. PRINT "         but I like it and I hope you have some fun with it too."
  29. INPUT "         Press Enter to begin.", st$
  31.  
  32. 'This section loads your picture from your computer.
  33.  
  34. loading:
  35. PRINT "                               Loading"
  37. PRINT "                     Do not add .jpg at the end."
  38. PRINT "                     The jpg picture must be in the same"
  39. PRINT "                     directory as this program is."
  40. PRINT "                     Type the name of your picture file"
  41. PRINT "                     here and press the Enter key."
  42. PRINT "                     Only use a graphic no larger than"
  43. PRINT "                     800 x 600 pixels."
  45. PRINT "                     Example: MyPic"
  46. PRINT "                     Q and Enter key ends program here."
  48. INPUT "->"; nm2$
  49. IF nm2$ = "Q" OR nm2$ = "q" THEN END
  50. nm$ = nm2$ + ".jpg"
  51. theFileExists = _FILEEXISTS(nm$)
  52. IF theFileExists = 0 THEN
  53.     PRINT "File Does Not Exist."
  54.     PRINT "Would you like to try again (Y/N)"
  55.     PRINT "Esc ends program."
  56.     _LIMIT 10
  57.     llloop2:
  58.     ag$ = INKEY$
  59.     IF ag$ = "" THEN GOTO llloop2:
  60.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
  61.     IF ag$ = CHR$(27) THEN END
  62.     GOTO start:
  65.  
  66. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
  67.  
  68. SCREEN _NEWIMAGE(64, 40, 32)
  69. i& = _LOADIMAGE(nm$, 32)
  70. _PUTIMAGE (0, 0)-(64, 40), i&
  71. FOR y = 1 TO 40
  72.     FOR x = 1 TO 64
  73.         a = a + 1
  74.         c& = POINT(x, y)
  75.         red&(a) = _RED32(c&)
  76.         green&(a) = _GREEN32(c&)
  77.         blue&(a) = _BLUE32(c&)
  78.     NEXT x
  82. SCREEN _NEWIMAGE(1000, 800, 32)
  83. text$ = " .'`^,:;Il!i<>~+_-?[]{}1()|\/tfjrxnuvczXYUJCLQ0OZmwqpdbkhao*#MW&8%B@$"
  84.  
  85. FOR ttt = 1 TO a
  86.     shade = red&(ttt) + green&(ttt) + blue&(ttt)
  87.     shade = INT(shade / 11)
  88.     l$(ttt) = MID$(text$, shade, 1)
  89.     IF ttt / 64 = INT(ttt / 64) THEN PRINT: GOTO nex1:
  90.     PRINT l$(ttt);
  91.     nex1:
  92. NEXT ttt
  93. LOCATE 49, 1: INPUT "Do you want to make a .txt file of this (Y/N)"; cc$
  94. IF LEFT$(cc$, 1) = "y" OR LEFT$(cc$, 1) = "Y" THEN GOTO more:
  96. more:
  97.  
  98. 'This section has to do with making the text file.
  99.  
  101. SCREEN _NEWIMAGE(256, 120, 32)
  102. i& = _LOADIMAGE(nm$, 32)
  103. _PUTIMAGE (0, 0)-(256, 120), i&
  104. FOR y = 1 TO 120
  105.     FOR x = 1 TO 256
  106.         t = t + 1
  107.         c& = POINT(x, y)
  108.         red&(t) = _RED32(c&)
  109.         green&(t) = _GREEN32(c&)
  110.         blue&(t) = _BLUE32(c&)
  111.     NEXT x
  115. SCREEN _NEWIMAGE(640, 480, 32)
  116.  
  117. nm3$ = nm2$ + ".txt"
  118. OPEN nm3$ FOR OUTPUT AS #1
  119.  
  120. FOR tt = 1 TO t
  121.     shade = red&(tt) + green&(tt) + blue&(tt)
  122.     shade = INT(shade / 11)
  123.     l$(tt) = MID$(text$, shade, 1)
  124.     IF tt / 256 = INT(tt / 256) THEN PRINT #1, " ": GOTO nex2:
  125.     PRINT #1, l$(tt);
  126.     nex2:
  127. NEXT tt
  130. PRINT nm3$; " has been saved to your computer."
  132. INPUT "Press Enter to see your new text on your .txt viewing program such as Notepad.", aa$
  133. SHELL nm3$
  136.  
  137.  
« Last Edit: July 31, 2019, 10:12:30 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #12 on: July 31, 2019, 10:10:47 pm »
Sorry for so many postings. This time I made it so it's easier to see on Notepad without scrolling the horizontal bar. I tried to print it like that but it's still too wide of text for that, just so you know. But you might be able to change the Font in Notepad to much smaller to print and it might fit all on 1 page, I haven't tried it yet. This one also uses a lot less memory than the others.

(Note: Yep, yet another better one after this one on this forum page, keep scrolling.)

Code: QB64: [Select]
  1. _TITLE "JPG Graphics To Text File Artwork Maker"
  2. start:
  3. DIM red&(8000)
  4. DIM green&(8000)
  5. DIM blue&(8000)
  6. DIM l$(8000)
  7. t = 0
  10. PRINT "                    JPG Graphics To Text File Artwork Maker"
  12. PRINT "                                 By Ken G."
  14. PRINT "         This program loads 1 JPG graphics file that's in the"
  15. PRINT "         same directory as this program and creates a text"
  16. PRINT "         file (.txt) of the same name as your JPG file and"
  17. PRINT "         as a text file instead that can load in Notepad."
  18. PRINT "         This program only works with non-detailed graphics,"
  19. PRINT "         so a camera picture will not come out."
  20. PRINT "         For example, you can draw something with Microsoft"
  21. PRINT "         Paint and save it as a JPG and load it in this"
  22. PRINT "         to make a text graphic. Because this program has to"
  23. PRINT "         shrink the graphic down (without saving it or"
  24. PRINT "         overwriting any part of the original JPG file),"
  25. PRINT "         the detail of the text file will be very minimal."
  26. PRINT "         Which means it will look funny and non-detailed,"
  27. PRINT "         but I like it and I hope you have some fun with it too."
  29. INPUT "         Press Enter to begin.", st$
  31.  
  32. 'This section loads your picture from your computer.
  33.  
  34. loading:
  35. PRINT "                               Loading"
  37. PRINT "                     Do not add .jpg at the end."
  38. PRINT "                     The jpg picture must be in the same"
  39. PRINT "                     directory as this program is."
  40. PRINT "                     Type the name of your picture file"
  41. PRINT "                     here and press the Enter key."
  42. PRINT "                     Only use a graphic no larger than"
  43. PRINT "                     800 x 600 pixels."
  45. PRINT "                     Example: MyPic"
  46. PRINT "                     Q and Enter key ends program here."
  48. INPUT "->"; nm2$
  49. IF nm2$ = "Q" OR nm2$ = "q" THEN END
  50. nm$ = nm2$ + ".jpg"
  51. theFileExists = _FILEEXISTS(nm$)
  52. IF theFileExists = 0 THEN
  53.     PRINT "File Does Not Exist."
  54.     PRINT "Would you like to try again (Y/N)"
  55.     PRINT "Esc ends program."
  56.     _LIMIT 10
  57.     llloop2:
  58.     ag$ = INKEY$
  59.     IF ag$ = "" THEN GOTO llloop2:
  60.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
  61.     IF ag$ = CHR$(27) THEN END
  62.     GOTO start:
  65.  
  66. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
  67.  
  68. SCREEN _NEWIMAGE(64, 40, 32)
  69. i& = _LOADIMAGE(nm$, 32)
  70. _PUTIMAGE (0, 0)-(64, 40), i&
  71. FOR y = 1 TO 40
  72.     FOR x = 1 TO 64
  73.         a = a + 1
  74.         c& = POINT(x, y)
  75.         red&(a) = _RED32(c&)
  76.         green&(a) = _GREEN32(c&)
  77.         blue&(a) = _BLUE32(c&)
  78.     NEXT x
  82. SCREEN _NEWIMAGE(1000, 800, 32)
  83. text$ = " .'`^,:;Il!i<>~+_-?[]{}1()|\/tfjrxnuvczXYUJCLQ0OZmwqpdbkhao*#MW&8%B@$"
  84.  
  85. FOR ttt = 1 TO a
  86.     shade = red&(ttt) + green&(ttt) + blue&(ttt)
  87.     shade = INT(shade / 11)
  88.     l$(ttt) = MID$(text$, shade, 1)
  89.     IF ttt / 64 = INT(ttt / 64) THEN PRINT: GOTO nex1:
  90.     PRINT l$(ttt);
  91.     nex1:
  92. NEXT ttt
  93. LOCATE 49, 1: INPUT "Do you want to make a .txt file of this (Y/N)"; cc$
  94. IF LEFT$(cc$, 1) = "y" OR LEFT$(cc$, 1) = "Y" THEN GOTO more:
  96. more:
  97.  
  98. 'This section has to do with making the text file.
  99.  
  101. SCREEN _NEWIMAGE(128, 60, 32)
  102. i& = _LOADIMAGE(nm$, 32)
  103. _PUTIMAGE (0, 0)-(128, 60), i&
  104. FOR y = 1 TO 60
  105.     FOR x = 1 TO 128
  106.         t = t + 1
  107.         c& = POINT(x, y)
  108.         red&(t) = _RED32(c&)
  109.         green&(t) = _GREEN32(c&)
  110.         blue&(t) = _BLUE32(c&)
  111.     NEXT x
  115. SCREEN _NEWIMAGE(640, 480, 32)
  116.  
  117. nm3$ = nm2$ + ".txt"
  118. OPEN nm3$ FOR OUTPUT AS #1
  119.  
  120. FOR tt = 1 TO t
  121.     shade = red&(tt) + green&(tt) + blue&(tt)
  122.     shade = INT(shade / 11)
  123.     l$(tt) = MID$(text$, shade, 1)
  124.     IF tt / 128 = INT(tt / 128) THEN PRINT #1, " ": GOTO nex2:
  125.     PRINT #1, l$(tt);
  126.     nex2:
  127. NEXT tt
  130. PRINT nm3$; " has been saved to your computer."
  132. INPUT "Press Enter to see your new text on your .txt viewing program such as Notepad.", aa$
  133. SHELL nm3$
  136.  

« Last Edit: August 01, 2019, 01:34:31 am by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #13 on: August 01, 2019, 01:32:54 am »
OK, I'm not going for a World Record on postings here.. lol.. but tonight I spruced this puppy up as much as possible. I changed the font size to make the text picture look better in the program and reduced the size of the .txt file so that if people want to, they can change Notepad (or whatever they use for .txt files) to font size 8 or so and be able to print it good with their printer. I tried it and it works great. I hope some of you aren't tired of all these postings yet. Most likely this will be the last version. There's nothing more I need with it. So, here you go. :) Enjoy.

Code: QB64: [Select]
  1. _TITLE "JPG Graphics To Text Artwork Maker"
  2. start:
  3. DIM red&(4000)
  4. DIM green&(4000)
  5. DIM blue&(4000)
  6. DIM l$(4000)
  7. t = 0
  8. a = 0
  14. PRINT "                     JPG Graphics To Text Artwork Maker"
  16. PRINT "                                By Ken G."
  18. PRINT "     This program loads JPG graphics files that are the same directory"
  19. PRINT "     as this program and creates a text file (.txt) of the same name"
  20. PRINT "     as your JPG file as a text file instead that can load in Notepad."
  21. PRINT "     This program will not change your original JPG file in any way."
  22. PRINT "     This program only works with non-detailed graphics, a camera"
  23. PRINT "     picture will not come out."
  25. PRINT "     For example, you can draw something with Microsoft Paint and save"
  26. PRINT "     it as a JPG and load it in this to make a text graphic. Because"
  27. PRINT "     this program has to shrink the graphic down (in memory only) the"
  28. PRINT "     detail of the text file will be very minimal."
  30. PRINT "     Which means it will look funny and non-detailed, but I like it"
  31. PRINT "     and I hope you have some fun with it too."
  33. INPUT "                         Press Enter to begin.", st$
  35.  
  36. 'This section loads your picture from your computer.
  37.  
  38. loading:
  41. PRINT "                               Loading"
  43. PRINT "                     Do not add .jpg at the end."
  44. PRINT "                     The jpg picture must be in the same"
  45. PRINT "                     directory as this program is."
  46. PRINT "                     Type the name of your picture file"
  47. PRINT "                     here and press the Enter key."
  48. PRINT "                     Only use a graphic no larger than"
  49. PRINT "                     800 x 600 pixels."
  51. PRINT "                     Example: MyPic"
  52. PRINT "                     Q and Enter key ends program here."
  54. INPUT "->"; nm2$
  55. IF nm2$ = "Q" OR nm2$ = "q" THEN PRINT "Goodbye.": END
  56. nm$ = nm2$ + ".jpg"
  57. theFileExists = _FILEEXISTS(nm$)
  58. IF theFileExists = 0 THEN
  59.     PRINT "File Does Not Exist."
  60.     PRINT "Would you like to try again (Y/N)"
  61.     PRINT "Esc ends program."
  62.     _LIMIT 10
  63.     llloop2:
  64.     ag$ = INKEY$
  65.     IF ag$ = "" THEN GOTO llloop2:
  66.     IF ag$ = "y" OR ag$ = "Y" THEN GOTO loading:
  67.     IF ag$ = CHR$(27) THEN PRINT "Goodbye.": END
  68.     GOTO start:
  71.  
  72. 'This section reads your picture file and puts the red, green, and blue numbers into memory.
  73.  
  74. SCREEN _NEWIMAGE(64, 60, 32)
  75. i& = _LOADIMAGE(nm$, 32)
  76. _PUTIMAGE (0, 0)-(64, 60), i&
  77. FOR y = 1 TO 60
  78.     FOR x = 1 TO 64
  79.         a = a + 1
  80.         c& = POINT(x, y)
  81.         red&(a) = _RED32(c&)
  82.         green&(a) = _GREEN32(c&)
  83.         blue&(a) = _BLUE32(c&)
  84.     NEXT x
  88. SCREEN _NEWIMAGE(1000, 800, 32)
  89. text$ = " .'`^,:;Il!i<>~+_-?[]{}1()|\/tfjrxnuvczXYUJCLQ0OZmwqpdbkhao*#MW&8%B@$"
  91. WIDTH 63, 80
  92. FOR ttt = 1 TO a
  93.     shade = red&(ttt) + green&(ttt) + blue&(ttt)
  94.     shade = INT(shade / 11)
  95.     l$(ttt) = MID$(text$, shade, 1)
  96.     IF ttt / 64 = INT(ttt / 64) THEN PRINT: GOTO nex1:
  97.     PRINT l$(ttt);
  98.     nex1:
  99. NEXT ttt
  101. LOCATE 39, 1: INPUT "Do you want to make a .txt file of this (Y/N)"; cc$
  102. IF LEFT$(cc$, 1) = "y" OR LEFT$(cc$, 1) = "Y" THEN GOTO more:
  103. PRINT "Goodbye."
  105. more:
  106.  
  107. 'This section has to do with making the text file.
  108.  
  110. SCREEN _NEWIMAGE(85, 40, 32)
  111. i& = _LOADIMAGE(nm$, 32)
  112. _PUTIMAGE (0, 0)-(85, 40), i&
  113. FOR y = 1 TO 40
  114.     FOR x = 1 TO 85
  115.         t = t + 1
  116.         c& = POINT(x, y)
  117.         red&(t) = _RED32(c&)
  118.         green&(t) = _GREEN32(c&)
  119.         blue&(t) = _BLUE32(c&)
  120.     NEXT x
  124. SCREEN _NEWIMAGE(640, 480, 32)
  125.  
  126. nm3$ = nm2$ + ".txt"
  127. OPEN nm3$ FOR OUTPUT AS #1
  128.  
  129. FOR tt = 1 TO t
  130.     shade = red&(tt) + green&(tt) + blue&(tt)
  131.     shade = INT(shade / 11)
  132.     l$(tt) = MID$(text$, shade, 1)
  133.     IF tt / 85 = INT(tt / 85) THEN PRINT #1, " ": GOTO nex2:
  134.     PRINT #1, l$(tt);
  135.     nex2:
  136. NEXT tt
  139. PRINT nm3$; " has been saved to your computer."
  141. PRINT "Feel free to change the font size on your .txt viewer (like Notepad)"
  142. PRINT "to font size 8 or so to be able to print on your printer."
  144. INPUT "Press Enter to see your new text on your .txt viewer (like Notepad).", aa$
  147. PRINT "Goodbye."
  149.  
Logged

Offline TempodiBasic

  • Forum Resident
  • Posts: 1792
    • View Profile
Re: JPG Graphic To Text Artwork Maker
« Reply #14 on: August 01, 2019, 07:29:22 am »
Cool
It works fine!
Logged
Programming isn't difficult, only it's  consuming time and coffee
Pages: [1] 2   Go Up
« previous next »