LB Booster
Programming >> BASIC code examples >> Exclamation point art for LBB/LB version BMPTOCODE
http://lbb.conforums.com/index.cgi?board=code&action=display&num=1461297729
Exclamation point art for LBB/LB version BMPTOCODE
Post by michael on Apr 22nd, 2016, 04:02am

This version works on LBB and Liberty Basic.. The blitter would be needed if you plotted a lot of these draws though..
Code:
nomainwin
open "Compressed BMP Data to Image project " for graphics_nsb_fs 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 :if a>x  then c=c+1:a=0
next u
wend
wait
[quit]
close #1
end
DATA 51,51
DATA 0,303,4,2,0,45,4,6,0,42,4,8,0,39,4,11,0,37,4,13,0,34,4,16,0,32,4,12,b,0,4,4,0,29,4,13,5,1,b,0,4
DATA 4,0,27,4,12,5,4,b,0,4,4,0,24,4,13,5,6,b,0,4,4,0,21,4,13,5,9,b,0,4,4,0,19,4,13,5,11,b,0,4,4
DATA 0,16,4,13,5,14,b,0,4,4,0,14,4,13,5,16,b,0,4,4,0,11,4,13,5,19,b,0,4,4,0,9,4,12,5,22,b,0,4,4,0
DATA 6,4,13,5,18,4,2,5,2,b,0,4,4,0,4,4,12,5,20,4,4,5,1,b,0,4,4,0,3,4,11,5,4,4,15,5,1,4,4,5,1
DATA b,0,4,4,0,3,4,8,5,6,4,17,5,0,4,4,5,1,b,0,4,4,0,3,4,6,5,8,4,17,5,0,4,4,5,1,b,0,4,4,0
DATA 3,4,6,b,1,5,6,4,17,5,0,4,4,5,1,b,0,4,4,0,3,4,8,b,2,5,4,4,15,5,1,4,4,5,1,b,0,4,4,0,3
DATA 4,11,b,1,5,20,4,4,5,1,b,0,4,4,0,3,4,13,b,2,5,18,4,2,5,2,b,0,4,4,0,6,4,13,b,1,5,22,b,0,4
DATA 4,0,9,4,12,b,2,5,19,b,0,4,4,0,11,4,13,b,1,5,17,b,0,4,4,0,14,4,12,b,1,5,15,b,0,4,4,0,16,4,13
DATA b,1,5,12,b,0,4,4,0,19,4,12,b,1,5,10,b,0,4,4,0,21,4,13,b,1,5,7,b,0,4,4,0,24,4,13,b,0,5,5,b
DATA 0,4,4,0,26,4,13,b,1,5,2,b,0,4,4,0,29,4,13,b,0,5,0,b,0,4,4,0,31,4,13,b,0,4,4,0,34,4,16,0,37
DATA 4,13,0,39,4,11,0,42,4,8,0,44,4,6,0,47,4,2,100000,0