mirror of
https://github.com/dschmenk/PLASMA.git
synced 2026-03-15 23:16:44 +00:00
61 lines
1.3 KiB
Plaintext
61 lines
1.3 KiB
Plaintext
include "inc/dgr.plh"
|
|
|
|
byte[] sprite1 = $80,$80,$00,$00,$00,$00,$80,$80
|
|
byte[] = $80,$00,$0A,$0A,$0A,$0A,$00,$80
|
|
byte[] = $00,$0A,$0F,$0F,$0F,$0F,$0A,$00
|
|
byte[] = $00,$0A,$0F,$80,$80,$0F,$0A,$00
|
|
byte[] = $00,$0A,$0F,$80,$80,$0F,$0A,$00
|
|
byte[] = $00,$0A,$0F,$0F,$0F,$0F,$0A,$00
|
|
byte[] = $80,$00,$0A,$0A,$0A,$0A,$00,$80
|
|
byte[] = $80,$80,$00,$00,$00,$00,$80,$80
|
|
|
|
byte[] tile1 = $88,$11,$88,$11,$88,$11,$AA,$00
|
|
byte[] = $88,$11,$88,$11,$88,$11,$AA,$00
|
|
byte[] = $88,$11,$88,$11,$88,$11,$AA,$00
|
|
byte[] = $0A,$05,$0A,$05,$0A,$05,$0A,$00
|
|
|
|
//
|
|
// Test routine
|
|
//
|
|
def dgrTest#0
|
|
byte b, l, k
|
|
word i, j, ii, ij
|
|
|
|
b = dgrMode()
|
|
for k = 15 downto 0
|
|
dgrClear(dgrbuff[0], k)
|
|
next
|
|
for l = 0 to 79
|
|
dgrColor(l)
|
|
dgrLine(dgrbuff[0], 0, 0, l, 47)
|
|
next
|
|
for l = 47 downto 0
|
|
dgrColor(l)
|
|
dgrLine(dgrbuff[0], 0, 0, 79, l)
|
|
next
|
|
ii = 2
|
|
ij = -1
|
|
i = 40
|
|
j = 10
|
|
^$C010
|
|
while ^$C000 < 128
|
|
dgrFill(dgrbuff[b], k, k, @tile1)
|
|
dgrBLT(dgrbuff[b], i, j, 8, 8, @sprite1)
|
|
b = dgrShow(b)
|
|
k++
|
|
i = i + ii
|
|
if i < -3 or i > 75
|
|
ii = -ii
|
|
fin
|
|
j = j + ij
|
|
if j < -3 or j > 43
|
|
ij = -ij
|
|
fin
|
|
loop
|
|
^$C010
|
|
txtMode
|
|
end
|
|
|
|
dgrTest
|
|
done
|