A Simple Graphics To Text Converter

[bplus]

One thing I did notice that was strange... Scanning with point(), on the grey-scaled image, then using "color yahda", produces an almost sepia colour. Not a deal breaker. Just an observation. If I can get a colour image to happen then this won't be a problem.

Try this:

Code: QB64: [Select]

1. DIM pixel(100, 120) AS _UNSIGNED LONG

The best Type to use with color is _UNSIGNED LONG.

[SierraKen]

Great B+, it has gray scale now. I added it to my own version of Johnno's version. I also fixed a duplication problem it had from my other one, that showed the picture again a little bit on top. Plus I added the ASCII character number in the _TITLE and slowed it down to change once a second.

Code: QB64: [Select]

1. 'Made by SierraKen and Johnno56
2.  
3. SCREEN _NEWIMAGE(800, 960, 32)
4. _LIMIT 100
5. CLS
6. '---------------------------------------------------
7. 'Draw anything you want here with graphic commands.
8. 'Here are some boxes.
9.  
10. spock& = _LOADIMAGE("spock100x120.png")
11. _PUTIMAGE (0, 0), spock&
12. _DELAY 1 '   short delay to view image source
13. '---------------------------------------------------
14. DIM pixel(100, 120) AS _UNSIGNED LONG '<<<< Added AS _UNSIGNED LONG to make gray scale. Thanks B+!
15.  
16. '   Selected a small font to remove vertical "stretching"
17. _FONT 8
18.  
19. '   Separate loops for 'reading' and 'writing' - could be combined?
20.  
21. FOR y = 0 TO 119
22.     FOR x = 0 TO 99
23.         pixel(x, y) = POINT(x, y)
24.     NEXT x
25. NEXT y
26.  
27. RANDOMIZE TIMER
28. _SCREENMOVE _MIDDLE
29. DO
30.     _LIMIT 100
31.     cc = INT(RND * 2) + 1
32.     IF cc = 1 THEN ch = INT(RND * 93) + 33
33.     IF cc = 2 THEN ch = INT(RND * 126) + 128
34.     ch$ = STR$(ch): _TITLE "ASCII: " + ch$
35.     FOR y = 0 TO 119
36.         FOR x = 0 TO 99
37.             COLOR pixel(x, y)
38.             letter$ = CHR$(ch)
39.             PRINT letter$;
40.         NEXT
41.         PRINT ""
42.     NEXT
43.     _DELAY 1
44.     _DISPLAY
45. LOOP UNTIL INKEY$ <> ""
46. END
47.  

[johnno56]

... adding the "_unsigned long" has also corrected the colour version as well ...

Change ch to 219... just a suggestion... ;)

[SierraKen]

Johno, I still don't understand your code completely. I haven't used those kinds of arrays that much. How did you get it to only display black and white? To me, logic would assume that it would show color already. But it doesn't.

Edit: Duh me, I just remembered that it scans a black and white picture first. LOL

[bplus]

Here is 3 Avatarios:

bot sample:

Code: QB64: [Select]

1. 'Made by bplus 2020-07-12
2.  
3. SCREEN _NEWIMAGE(560, 328, 32)
4. _DELAY .25
5. _SCREENMOVE _MIDDLE
6. t& = _LOADIMAGE("Avatar.PNG")
7. b& = _NEWIMAGE(_WIDTH(t&), _HEIGHT(t&), 32)
8. _PUTIMAGE , t&, b&
9. _FONT 8
10. _SOURCE b&
11. FOR y = 1 TO _HEIGHT(t&) - 3
12.     FOR x = 1 TO _WIDTH(t&) - 1
13.         COLOR , POINT(x, y)
14.         PRINT " ";
15.     NEXT
16.     PRINT
17. NEXT
18. SLEEP

Ken looks like he is drinking from a glass of light!

[SierraKen]

LOL That is pretty fun to use! I replaced " " with "." and it looks like the movie Tron. Or I replaced it with "-" and it looks like I'm looking through a screen. :) Awesome.

Edit: Or even a better screen, CHR$(216)  LOL.

[bplus]

Well yeah of course I tried this:
 

And I liked this but it's using circles:
 

[bplus]

Dang I can't quit :-))
 

[SierraKen]

Or upside down...

Code: QB64: [Select]

1. 'Made by bplus 2020-07-12
2. 'Mod by SierraKen
3.  
4. SCREEN _NEWIMAGE(576, 424, 32)
5. _DELAY .25
6. _SCREENMOVE _MIDDLE
7. t& = _LOADIMAGE("Ken.PNG")
8. b& = _NEWIMAGE(_WIDTH(t&), _HEIGHT(t&), 32)
9. _PUTIMAGE , t&, b&
10. _FONT 8
11. _SOURCE b&
12. FOR y = _HEIGHT(t&) - 3 TO 0 STEP -1
13.     FOR x = _WIDTH(t&) - 1 TO 0 STEP -1
14.         COLOR , POINT(x, y)
15.         PRINT " ";
16.     NEXT
17.     PRINT
18. NEXT
19. SLEEP
20.  

[SierraKen]

I got the upside down one on accident, goofing around with the numbers. lol

[bplus]

Well see it was a glass of light otherwise you'd be soaking wet!

[SierraKen]

LOL! Yep... Very bad TV reception Mod...

Code: QB64: [Select]

1. 'Made by bplus 2020-07-12
2. 'mod by SierraKen
3.  
4. SCREEN _NEWIMAGE(576, 424, 32)
5. _DELAY .25
6. _SCREENMOVE _MIDDLE
7. t& = _LOADIMAGE("Ken.PNG")
8. b& = _NEWIMAGE(_WIDTH(t&), _HEIGHT(t&), 32)
9. _PUTIMAGE , t&, b&
10. _FONT 8
11. _SOURCE b&
12. DO
13.     FOR t = 1 TO 10 STEP .25
14.         FOR y = 0 TO _HEIGHT(t&) - 3 STEP t
15.             FOR x = 1 TO _WIDTH(t&) - 1
16.                 COLOR , POINT(x, y)
17.                 PRINT " ";
18.             NEXT
19.             PRINT
20.         NEXT
21.         _DELAY .05
22.     NEXT t
23.     FOR t = 10 TO 1 STEP -.25
24.         FOR y = 0 TO _HEIGHT(t&) - 3 STEP t
25.             FOR x = 1 TO _WIDTH(t&) - 1
26.                 COLOR , POINT(x, y)
27.                 PRINT " ";
28.             NEXT
29.             PRINT
30.         NEXT
31.         _DELAY .05
32.     NEXT t
33.     _DELAY .25
34. LOOP UNTIL INKEY$ <> ""
35.  

[johnno56]

SierraKen,

The greyscale image was created by desaturating the colour image with Gimp. I looked up a greyscale algorithm (which reduces the 'red' channel to 21%, green to 72% and blue to 7%) but all it did was produce a greenish image. Spock looked more like a Martian than a Vulcan.... lol  I was spending to much time on this so I opted for the Gimp procedure... Lazy or what? (Rhetorical. Answer not required. lol)

To be able to reproduce the colour of each pixel, the pixel(x,y) array, was used to store the point(x,y) values.

QB64 Help: Point
The POINT function returns the pixel COLOR attribute at a specified graphics coordinate or the current graphic cursor position.
color_attribute% = POINT (column%, row%)
In our case: pixel(x,y) = point(x,y)

Of course, the larger the source image, the greater the size of the array's dimensions.

[SierraKen]

Thanks Johnno, I understand it now. It was just hard to visualize 3 different items in 1 single array. But I'll get used to it someday. :)