ASCII images - Printable Version +- Qbasicnews.com (http://qbasicnews.com/newforum) +-- Forum: QbasicNews.Com (http://qbasicnews.com/newforum/forum-3.html) +--- Forum: Challenges (http://qbasicnews.com/newforum/forum-10.html) +--- Thread: ASCII images (/thread-9832.html) ASCII images - Nixon - 12-28-2006 I got bored and made imags look worse by using ASCII graphics to replace the pixels. Doesn't make much sense but anyway, I want to see who can make the best picture to ASCII converter, you can use what every colors on the ASCII characters(unless you want more of a challenge), but you can use only ASCII characters. So um, go code. heres my simple example Code:```'ASCII blockiness screen 19,32 filename\$ = "" bload filename\$ sleep for x = 1 to 800 step 8     for y = 1 to 560 step 16         col = 0         red1 = 0         green1 = 0         blue1 = 0         red2 = 0         green2 = 0         blue2 = 0         for a = 1 to 8             for b = 1 to 16                 col = point(a+x-1,b+y-1)                 if b < 9 then                     red1 = red1 + ((col SHR 16) AND &hFF)                     green1 = green1 + ((col SHR 8) AND &hFF)                     blue1 = blue1 + (col SHR 32 AND &hFF)                 elseif b > 8 then                     red2 = red2 + ((col SHR 16) AND &hFF)                     green2 = green2 + ((col SHR 8) AND &hFF)                     blue2 = blue2 + (col SHR 32 AND &hFF)                 end if             next         next                  col1 = rgb(red1/(8*8),green1/(8*8),blue1/(8*8))         col2 = rgb(red2/(8*8),green2/(8*8),blue2/(8*8))         locate (y/8+1)/2,x/8+1         if col1 <> col2 then             color col2,col1             print chr\$(220)         else             color col1             print chr\$(219)         end if              next next sleep``` ASCII images - E.K.Virtanen - 12-31-2006 I wana try this some day when i have time. But i love the idea.