prog8/examples/test.p8

34 lines
696 B
Plaintext
Raw Normal View History

%import textio
2021-10-27 23:48:02 +02:00
2021-10-30 15:15:11 +02:00
main {
2021-11-06 19:09:33 +01:00
sub start() {
2021-11-13 12:56:59 +01:00
repeat 100 {
random_rgb12()
txt.print_ubhex(target_red,false)
txt.print_ubhex(target_green,false)
txt.print_ubhex(target_blue,false)
txt.nl()
}
repeat {
}
}
ubyte target_red
ubyte target_green
ubyte target_blue
sub random_rgb12() {
do {
uword rr = rndw()
target_red = msb(rr) & 15
target_green = lsb(rr)
target_blue = target_green & 15
target_green >>= 4
} until target_red+target_green+target_blue >= 12
}
}