I can live with that cost. What I have trouble with is not having access to the pre-defined characters in the ROM which are also bit-maps. Too bad we can't use pointers for that.
Thanks.
Here is a nice beveled OK button. Using 4 instead of 5 for button face could be useful. I suppose one could do a byte replacement as needed at run-time.
Code:
{
'--------------------------------------------
' Draw an 8 tile beveled OK button.
' Looks good at 120+ width screen
TEXT.SetTile(0,1,8)
TEXT.SetTile(1,1,10)
TEXT.SetTile(2,1,12)
TEXT.SetTile(3,1,14)
TEXT.SetTile(0,2,9)
TEXT.SetTile(1,2,11)
TEXT.SetTile(2,2,13)
TEXT.SetTile(3,2,15)
}
long $06060606 '00_08 upper left
long $06060606
long $06050505
long $06050505
long $06050503
long $06050502
long $06050502
long $06050502
long $06050502 '00_09 lower left
long $06050502
long $06050502
long $06050503
long $06050505
long $06050505
long $05040404
long $04040404
long $06060606 '00_10 upper mid1
long $06060606
long $05050505
long $02020205
long $04050403
long $05050502
long $05050502
long $05050502
long $05050502 '00_11 lower mid1
long $05050502
long $05050502
long $04050403
long $02020205
long $05050505
long $04040404
long $04040404
long $06060606 '00_12 upper mid2
long $06060606
long $05050505
long $05020505
long $05020504
long $05020502
long $05020204
long $05020204
long $05020402 '00_13 lower mid2
long $05020402
long $05020503
long $05020505
long $05020505
long $05050505
long $04040404
long $04040404
long $06060606 '00_14 upper right
long $06060604
long $05050504
long $02050504
long $02050504
long $04050504
long $05050504
long $05050504
long $05050504 '00_15 lower right
long $04050504
long $03050504
long $02050504
long $02050504
long $05050504
long $04040404
long $04040404
{
'--------------------------------------------
}
Bookmarks