Just a ridiculous code sample: PUT (graphics statement)

[CharlieJV]

I was just playing around to firm up in my head the results of the various "color action" options.

Silly code to share, but I figured what the heck:

Code: QB64: [Select]

1. screen 12
2. dim array(1000) as integer
3. print "HOWDY"
4. get (0,0)-(50, 12), array()
5. for x = 0 to 100 step 4
6.     _delay 0.125
7.     put (10 + x,30 + x), array(), pset
8.     put (100 + x,30 + x), array(), preset
9.     put (190 + x,30 + x), array(), and
10.     put (280 + x,30 + x), array(), or
11.     put (370 + x,30 + x), array(), xor
12. next x
13. locate 13,1
14. print "  pset", "preset", "and", "or", "xor"
15.  

[CharlieJV]

Some more "exploratory" code to experience those color actions with actual color.

Code: QB64: [Select]

1. screen 12
2. dim array(10000) as integer
3. line (0,0)-(640,0), 10
4. line (0,1)-(640,1), 10
5. line (0,3)-(640,3), 11
6. line (0,4)-(640,4), 11
7. line (0,6)-(640,6), 12
8. line (0,7)-(640,7), 12
9. line (0,9)-(640,9), 13
10. line (0,10)-(640,10), 13
11. line (0,12)-(640,12), 14
12. line (0,13)-(640,13), 14
13. line (0,15)-(640,15), 15
14. line (0,16)-(640,16), 15
15. get (0,0)-(639,16), array
16. locate 4,1
17. print "PSET, PRESET, AND, OR, XOR"
18. circle (320, 240), 150, 14
19. paint (320, 240), 14
20. put (0, 150), array, PSET
21. put (0, 180), array, PRESET
22. put (0, 210), array, AND
23. put (0, 240), array, OR
24. put (0, 270), array, XOR
25.  
26.  

[_vince]

Pretty cool,  reminds me of something similar Steve did with PUTIMAGE https://qb64forum.alephc.xyz/index.php?topic=4591.0