 | CON .... gxt=32 '# graphics tiles in x direction (was 16)
gyt=4 '# graphics tiles in y direction (was 8) w_x = 15'40 'left tile# of graphics window
w_y = 3'30 'top tile# of graphics windows
w_left = w_x * 16
w_right = w_left + gxt*16 '256
w_top = (48 - w_y) * 16
w_bottom = w_top - gyt*16'128
PUB start | i, j, k ... 'start and setup graphics
gr.start
gr.setup(gxt, gyt, gxt*8, gyt*8, bitmap_base)'(16, 8, 16*8, 8*8, bitmap_base) ... 'make some graphics tiles on the screen
repeat i from 0 to (gyt-1) '7
repeat j from 0 to (gxt-1) '15
array.word[cols * (w_y + i) + j + w_x] := display_base + i*64 + j*gyt*64 + 21 'RJA
|