Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: CharlieJV on February 15, 2022, 09:03:02 pm

Title: Just a ridiculous code sample: PUT (graphics statement)
Post by: CharlieJV on February 15, 2022, 09:03:02 pm
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]
  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
  13. locate 13,1
  14. print "  pset", "preset", "and", "or", "xor"
  15.  

Title: Re: Just a ridiculous code sample: PUT (graphics statement)
Post by: CharlieJV on February 15, 2022, 11:54:04 pm
Some more "exploratory" code to experience those color actions with actual color.

Code: QB64: [Select]
  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.  
Title: Re: Just a ridiculous code sample: PUT (graphics statement)
Post by: _vince on February 16, 2022, 08:01:54 am
Pretty cool,  reminds me of something similar Steve did with PUTIMAGE https://qb64forum.alephc.xyz/index.php?topic=4591.0 (https://qb64forum.alephc.xyz/index.php?topic=4591.0)
Text Only | Text with Attachments