Apple-2-SW/prog8
1
0
Fork 0
mirror of https://github.com/irmen/prog8.git synced 2024-12-23 09:32:43 +00:00
Code Issues Projects Releases Wiki Activity

tweaks to the cx16 sprite example

Browse Source
This commit is contained in:
Irmen de Jong 2023-08-31 23:24:46 +02:00
parent 83d4592526
commit 2dc2429735
3 changed files with 61 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/res/prog8lib/cx16/syslib.p8
View File

@ -515,7 +515,8 @@ asmsub vpeek(ubyte bank @A, uword address @XY) -> ubyte @A {
; note: inefficient when reading multiple sequential bytes!
%asm {{
pha
lda #1
lda cx16.VERA_CTRL
ora #1
sta cx16.VERA_CTRL
pla
and #1

77
examples/cx16/sprites/dragon.p8
View File

@ -1,23 +1,25 @@
%import diskio
%import textio
%zeropage basicsafe
%option no_sysinit
main {
; we choose arbitrary unused vram location for sprite data: $12000
const ubyte SPRITE_DATA_BANK = 1
const uword SPRITE_DATA_ADDR = $2000
sub start() {
void diskio.vload_raw("dragonsprite.bin", SPRITE_DATA_BANK, SPRITE_DATA_ADDR)
void diskio.vload_raw("dragonsprite.pal", 1, $fa00 + sprites.PALETTE_OFFSET*2) ; load directly into vera color palette
sprites.init(1, SPRITE_DATA_BANK, SPRITE_DATA_ADDR) ; top half of dragon
sprites.init(2, SPRITE_DATA_BANK, SPRITE_DATA_ADDR + 64*64/2) ; bottom half of dragon
txt.plot(32,30)
txt.print("there be dragons!")
; load the sprite data and color palette directly into Vera ram
void diskio.vload_raw("dragonsprite.bin", sprites.DATA_BANK, sprites.DATA_ADDR)
void diskio.vload_raw("dragonsprite.pal", 1, $fa00 + sprites.PALETTE_OFFSET*2)
; initialize the dragon sprites
sprites.init(1, sprites.DATA_BANK, sprites.DATA_ADDR, sprites.SIZE_64, sprites.SIZE_64) ; top half of dragon
sprites.init(2, sprites.DATA_BANK, sprites.DATA_ADDR + 64*64/2, sprites.SIZE_64, sprites.SIZE_64) ; bottom half of dragon
word xpos = -64
word ypos = 100
ubyte tt = 0
bool flippedx
word xpos = -64
word ypos
bool flippedx = false
repeat {
if flippedx
@ -31,6 +33,13 @@ main {
ypos = (240-64 as word) + math.sin8(tt)
tt++
txt.plot(32, 32)
txt.print("at: ")
txt.print_w(sprites.getx(1))
txt.chrout(',')
txt.print_w(sprites.gety(1))
txt.print(" ")
sys.waitvsync()
sprites.pos(1, xpos, ypos)
sprites.pos(2, xpos, ypos+64)
@ -40,6 +49,7 @@ main {
}
}
sprites {
; sprite registers base in VRAM: $1fc00
; Sprite 0: $1FC00 - $1FC07 ; used by the kernal for mouse pointer
@ -49,10 +59,17 @@ sprites {
; Sprite 127: $1FFF8 - $1FFFF
const uword VERA_SPRITEREGS = $fc00 ; $1fc00
const ubyte PALETTE_OFFSET = 16 ; color palette indices 16-31
const ubyte SIZE_8 = 0
const ubyte SIZE_16 = 1
const ubyte SIZE_32 = 2
const ubyte SIZE_64 = 3
; we choose arbitrary unused vram location for sprite data: $12000
const ubyte DATA_BANK = 1
const uword DATA_ADDR = $2000
uword @zp sprite_reg
sub init(ubyte sprite_num, ubyte data_bank, uword data_addr) {
sub init(ubyte sprite_num, ubyte data_bank, uword data_addr, ubyte width_flag, ubyte height_flag) {
hide(sprite_num)
cx16.VERA_DC_VIDEO |= %01000000 ; enable sprites globally
data_addr >>= 5
@ -61,7 +78,7 @@ sprites {
cx16.vpoke(1, sprite_reg, lsb(data_addr)) ; address 12:5
cx16.vpoke(1, sprite_reg+1, %00000000 | msb(data_addr)) ; 4 bpp + address 16:13
cx16.vpoke(1, sprite_reg+6, %00001100) ; z depth %11 = in front of both layers, no flips
cx16.vpoke(1, sprite_reg+7, %11110000 | PALETTE_OFFSET>>4) ; 64x64 pixels, palette offset
cx16.vpoke(1, sprite_reg+7, height_flag<<6 | width_flag<<4 | PALETTE_OFFSET>>4) ; 64x64 pixels, palette offset
}
sub hide(ubyte sprite_num) {
@ -76,11 +93,33 @@ sprites {
cx16.vpoke_mask(1, VERA_SPRITEREGS + 6 + sprite_num*$0008, %11111101, flipped<<1)
}
sub pos(ubyte sprite_num, word x, word y) {
sub pos(ubyte sprite_num, word xpos, word ypos) {
sprite_reg = VERA_SPRITEREGS + 2 + sprite_num*$0008
cx16.vpoke(1, sprite_reg, lsb(x))
cx16.vpoke(1, sprite_reg+1, msb(x))
cx16.vpoke(1, sprite_reg+2, lsb(y))
cx16.vpoke(1, sprite_reg+3, msb(y))
cx16.vpoke(1, sprite_reg, lsb(xpos))
cx16.vpoke(1, sprite_reg+1, msb(xpos))
cx16.vpoke(1, sprite_reg+2, lsb(ypos))
cx16.vpoke(1, sprite_reg+3, msb(ypos))
}
sub setx(ubyte sprite_num, word xpos) {
sprite_reg = VERA_SPRITEREGS + 2 + sprite_num*$0008
cx16.vpoke(1, sprite_reg, lsb(xpos))
cx16.vpoke(1, sprite_reg+1, msb(xpos))
}
sub sety(ubyte sprite_num, word ypos) {
sprite_reg = VERA_SPRITEREGS + 4 + sprite_num*$0008
cx16.vpoke(1, sprite_reg, lsb(ypos))
cx16.vpoke(1, sprite_reg+1, msb(ypos))
}
sub getx(ubyte sprite_num) -> word {
sprite_reg = VERA_SPRITEREGS + 2 + sprite_num*$0008
return mkword(cx16.vpeek(1, sprite_reg+1), cx16.vpeek(1, sprite_reg)) as word
}
sub gety(ubyte sprite_num) -> word {
sprite_reg = VERA_SPRITEREGS + 4 + sprite_num*$0008
return mkword(cx16.vpeek(1, sprite_reg+1), cx16.vpeek(1, sprite_reg)) as word
}
}

2
gradle.properties
View File

@ -5,4 +5,4 @@ org.gradle.daemon=true
kotlin.code.style=official
javaVersion=11
kotlinVersion=1.9.10
version=9.4
version=9.5-SNAPSHOT