home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 91 / af091a.adf / af91a3.lzx / prgs / Gfx / pattern2.b < prev    next >
Text File  |  2018-05-22  |  551b  |  32 lines
  1. {* 
  2. ** Another pattern example.
  3. ** Shows dithered effect used
  4. ** by some requesters.
  5. **
  6. ** D Benn, December 1995
  7. *}
  8.  
  9. Window 1,,(0,0)-(150,100),14
  10.  
  11. Dim areaPat%(2)
  12.  
  13. areaPat%(0) = &HCCCC    '1100110011001100
  14. areaPat%(1) = &H3333    '0011001100110011
  15.  
  16. {** Try this instead...
  17. areaPat%(0) = &HAAAA    '1010101010101010
  18. areaPat%(1) = &H5555    '0101010101010101  **}
  19.  
  20.  
  21. {** And this...
  22. areaPat%(0) = &H9249    '1001001001001001
  23. areaPat%(1) = &H4924    '0100100100100100 **}
  24.  
  25. Pattern ,areaPat%    'affects polygon-fills
  26.             'of any kind
  27. Paint (0,0)
  28.  
  29. Gadget Wait 0
  30.  
  31. Window Close 1
  32.