nomainwin open "Compressed BMP Data to Image project " for graphics_nsb as #1 u=0 #1 "trapclose [quit]" ost$="" read x,y #1 "down;fill black" while nst$<>"100000" read nst$,t if nst$="0" then r=0:g=0:b=0 'black 0 0 0 if nst$="1" then r=192:g=128:b=64 ' brown 192 128 64 if nst$="2" then r=64:g=64:b=192 'dark blue 64 64 192 if nst$="3" then r=128:g=128:b=128' dark grey 128 128 128 if nst$="4" then r=128:g=0:b=0'dark red 128 0 0 if nst$="5" then r=224:g=192:b=0 'dark yellow 224 192 0 if nst$="6" then r=128:g=160:b=192'flat blue 128 160 192 if nst$="7" then r=32:g=192:b=64 'green 32 192 64 if nst$="8" then r=166:g=202:b=240'light blue 166 202 240 if nst$="9" then r=192:g=192:b=192 'light gray 192 192 192 if nst$="a" then r=192:g=224:b=0 'light green 192 224 0 if nst$="b" then r=224:g=32:b=64'light red 224 32 64 if nst$="c" then r=0:g=160:b=192 'medblue 0 160 192 if nst$="d" then r=224:g=128:b=64 'orange 224 128 64 if nst$="e" then r=224:g=160:b=192'pink 224 160 192 if nst$="f" then r=160:g=64:b=192'purple 160 64 192 if nst$="g" then r=192:g=220:b=192'tan 192 220 192 if nst$="h" then r=255:g=255:b=255'white 255 255 255 if nst$="i" then r=255:g=255:b=0'yellow 255 255 0 #1 "color ";r;" ";g;" ";b for u=0 to t a=a+1: print #1, "set ";c;" ";a+y :if a>x then c=c+1:a=0 next u wend wait [quit] close #1 end data 56,56 data 3,170,9,227,h,170,4,284,1,113,b,170,e,170,d,113,5,170,i,170,g,170,7,170,a,170,c,170,8,113,2,170,6,170,f,170,100000,0
|
|