-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
`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
I like long walks, especially when they are taken by people who annoy me. -Noel Coward
.....:::<>-<K0shi>-<>:::.....
