Posted to tcl by no one at Tue Apr 27 17:02:16 GMT 2021view raw

  1. #########################################################
  2. # #
  3. # DATA_INIT #
  4. # #
  5. #########################################################
  6.  
  7. # Write some vert lines to the screen
  8. # Starting at address 0x20000000, Ending at address 0x2002A300.
  9.  
  10. for {set i 0} {$i < 720} {incr i} {
  11.  
  12. set [format %x k] [ expr {0x20000000 + $i*4*3840} ]
  13.  
  14. for {set j 0} {$j < 3840} {incr j} {
  15. if {$j/3 < 1280} { master_write_16 $mpath $k 0xFF000000
  16. } elseif {$j/3 < 2560} { master_write_16 $mpath $k 0x00FF0000
  17. } else { master_write_16 $mpath $k 0x0000FF00 }
  18. }
  19. }