smallbasic.github.io/samples/node/106.bas at master · smallbasic/smallbasic.github.io · GitHub

36 lines (32 loc) · 1008 Bytes

''**********************************************

'' choose color nro

''by keijo Koskinen 20.08,2004

locate 1,1

?"********* COLOUR CHART BY VALUE ***********"

label looppi

n=0

k=inkey

''note: all values have to be negative

if k="e" then r=r+1:if r>0 then r=0 ''red less

if k="r" then r=r-1:if r<-255 then r=-255 ''red more

if k="f" then g=g+1:if g>0 then g=0 ''green less

if k="g" then g=g-1 :if g<-255 then g=-255 ''green more

if k="v" then b=b+1:if b>0 then b=0 ''blue less

if k="b" then b=b-1:if b<-255 then b=-255 ''blue more

rect 10,20,300,100 color b+(256*g)+(256*256*r) filled

locate 10,1:?"e/r=red"

locate 10,11:?"f/g=green"

locate 10,22:?"v/b=blue"

locate 10,33:?"color ="

locate 11,1

?"0-(-256) 0-(-256) 0-(-256) 0-(16777215)"

locate 12,1

?" "

locate 12,1:?r

locate 12,11:?g

locate 12,22:?b

locate 12,33:?r+(256*g)+(256*256*b)

if asc(k)<>27: goto looppi

endif

end'

Expand file tree