Posted: 23rd Feb 2003 0:28
-This converts pixels into text-
i was trying to make a scanner for an art program i was creating that would convert the image and color into DB code, until i found out string$ could only hold so much text, then i played around with it and created this
+ Code Snippet
`converts pixels to text
`try it before u change anything here to c an example, 
`it takes a while to complete the text image

`below u can alter the text and color or pace a small image here
ink rgb(0,200,0),0
print "Yoshix18@aol.com"


hide mouse
print
sync rate 0
sync on

repeat
if scan_newx=>130
scan_oldy=scan_newy
scan_newy=scan_newy+1
if scan_newy=>20 then exit
scan_newx=0
print " "
else
scan_oldx=scan_newx
scan_newx=scan_newx+1

if color_old=0
ink rgb(0,0,100),0
print ".";
else
ink color_vld,0
print "|";
endif

endif

color_old=point(scan_oldx,scan_oldy)
color_new=point(scan_newx,scan_newy)
if color_newcolor_vld and color_new0
color_vld=color_new
endif

ink rgb(0,0,0),0:dot scan_newx-1,scan_oldy
skip:
sync
until scan_newy>20
end
Posted: 23rd Feb 2003 0:30
didnt work, here it is again:
+ Code Snippet
`converts pixels to text
`try it before u change anything here to c an example, 
`it takes a while to complete the text image

`below u can alter the text and color or pace a small image here
ink rgb(0,200,0),0
print "Yoshix18@aol.com"


hide mouse
print
sync rate 0
sync on

repeat
if scan_newx=>130
scan_oldy=scan_newy
scan_newy=scan_newy+1
if scan_newy=>20 then exit
scan_newx=0
print " "
else
scan_oldx=scan_newx
scan_newx=scan_newx+1

if color_old=0
ink rgb(0,0,100),0
print ".";
else
ink color_vld,0
print "|";
endif

endif

color_old=point(scan_oldx,scan_oldy)
color_new=point(scan_newx,scan_newy)
if color_new<>color_vld and color_new<>0
color_vld=color_new
endif

ink rgb(0,0,0),0:dot scan_newx-1,scan_oldy
skip:
sync
until scan_newy>20
end
Posted: 23rd Feb 2003 0:34
here it is again:
+ Code Snippet
`converts pixels to text
`try it before u change anything here to c an example, 
`it takes a while to complete the text image

`below u can alter the text and color or pace a small image here
ink rgb(0,200,0),0
print "Yoshix18@aol.com"


hide mouse
print
sync rate 0
sync on

repeat
if scan_newx=>130
scan_oldy=scan_newy
scan_newy=scan_newy+1
if scan_newy=>20 then exit
scan_newx=0
print " "
else
scan_oldx=scan_newx
scan_newx=scan_newx+1

if color_old=0
ink rgb(0,0,100),0
print ".";
else
ink color_vld,0
print "|";
endif

endif

color_old=point(scan_oldx,scan_oldy)
color_new=point(scan_newx,scan_newy)
if color_new<>color_vld and color_new<>0
color_vld=color_new
endif

ink rgb(0,0,0),0:dot scan_newx-1,scan_oldy
skip:
sync
until scan_newy>20
wait key
end
Posted: 23rd Feb 2003 1:15
yay! it worked
Posted: 23rd Feb 2003 6:15
Hey,

reminds me of some old times.

Shure sere is someone out there who use it for his retrogame intro (not me =) )