1
0
mirror of https://github.com/KarolS/millfork.git synced 2024-10-31 14:04:58 +00:00
millfork/examples/atari_lynx/atari_lynx_demo.mfk
2019-09-20 18:33:41 +02:00

222 lines
7.4 KiB
Plaintext

// BUILD with millfork demo.mfk -t atari_lynx -o lynx
// the lynx.o file will have the correct header to load into Handy Emulator
// highly recommended to use compressed atari bitmap formats for art via
// https://github.com/Wookie/sprpck
// sprpck.exe -a080014 -v logo.pcx logo
// from CC64 suzy.h
// this is the suzy sprite format
// this is the largest type supported
// see atari lynx hardware documents found here
// https://atarilynxdeveloper.wordpress.com/documentation/
struct SCB_REHVST_PAL {
byte spctrl0
byte spctrl1
byte spcollision
word next
word image
word xpos
word ypos
word width
word height
word stretch
word tilt
byte remap01
byte remap23
byte remap45
byte remap67
byte remap89
byte remapAB
byte remapCD
byte remapEF
}
SCB_REHVST_PAL demosp @$5000
void initDemoSprite() {
// set Bits per pixel and type of sprite SEE atari_lynx.mfk for options
demosp.spctrl0 = BPP_4 | TYPE_BACKNONCOLL
// set the sprite format, here we use the most complex one.
demosp.spctrl1 = REHVST
demosp.spcollision = 0
// set location
demosp.xpos = 80
demosp.ypos = 51
// atari sprites are a chain so to draw more you add them to the prior sprite's next
demosp.next = 0
// width is defined as 8:8 fixed point , where $100 = 1.00,$200 = 2.0,$80=0.5 etc
demosp.width = $100
demosp.height = $100
demosp.tilt = 0
demosp.stretch = 0
// image to use
demosp.image = background_sprite.addr
// you can remap any pen per sprite if you wish
// more useful for BPP_1-BPP_3
demosp.remap01 = $01
demosp.remap23 = $23
demosp.remap45 = $45
demosp.remap67 = $67
demosp.remap89 = $89
demosp.remapAB = $ab
demosp.remapCD = $cd
demosp.remapEF = $ef
}
void main() {
byte i
byte t
pointer dest
pointer source
// see atari_lynx_hardware.mfk
// we set suzy to $dc00 for display address
// 60hz display as recommended
lynx_init()
initDemoSprite()
// copy the palette
i = 0
for t,0,until,16 {
palette_ram_green[t]=palette[i]
palette_ram_blue_red[t]=palette[i+1]
i+=2
}
while true {
// wait for the "raster" to hit 60
// while we wait set the blue + red to the current raster pos
while RASTER!=60 {
palette_ram_blue_red[0]=RASTER
}
read_joy()
// tell suzy to process our commands
VIDBASE = $dc00
SPRGO = 1
SCBNEXT=demosp.addr
SUZYDONEACK = 1
// wait until finished
lynx_wait_suzy()
SUZYDONEACK = 0
// check for button held
// if so , we scale the sprite
if input_btn!=0 {
demosp.width += input_dx
demosp.height += input_dy
}
else {
// or just move it
demosp.ypos -= input_dy
demosp.xpos += input_dx
}
}
}
// image encoded with sprpack
array background_sprite=[
$18, $15, $10, $23, $BC, $7A, $80, $8C, $0B, $49, $08, $8C,
$8B, $89, $52, $91, $01, $88, $74, $20, $98, $80, $A0, $00,
$1A, $15, $14, $24, $35, $C4, $A9, $75, $68, $80, $B4, $B0,
$9E, $CD, $71, $68, $5B, $0E, $15, $46, $44, $20, $88, $80,
$9C, $00, $15, $15, $1C, $23, $BC, $7A, $88, $81, $69, $A1,
$11, $90, $D4, $38, $75, $0E, $3D, $43, $5E, $01, $00, $12,
$15, $24, $03, $C5, $A8, $F4, $96, $9E, $10, $10, $D4, $39,
$74, $1E, $78, $40, $00, $12, $15, $24, $20, $21, $E2, $D4,
$38, $B4, $F0, $08, $40, $43, $CC, $A8, $F6, $B8, $00, $11,
$15, $2C, $21, $A1, $E5, $53, $80, $42, $10, $86, $B6, $A1,
$C1, $A8, $0A, $C0, $12, $15, $30, $22, $3A, $AA, $58, $40,
$4B, $10, $10, $84, $35, $B5, $3E, $AD, $14, $80, $13, $15,
$38, $24, $35, $C7, $A4, $04, $05, $70, $20, $86, $87, $97,
$41, $E8, $C8, $98, $00, $12, $15, $3C, $24, $13, $C6, $A2,
$84, $05, $B0, $50, $86, $87, $97, $41, $E8, $69, $40, $11,
$15, $3C, $02, $10, $D3, $51, $01, $B0, $80, $80, $87, $99,
$41, $E8, $08, $C0, $0E, $78, $38, $20, $2D, $88, $0A, $C2,
$5B, $D4, $DE, $86, $88, $00, $07, $78, $3C, $1E, $0F, $07,
$80, $07, $78, $3C, $1E, $0F, $07, $80, $07, $78, $3C, $1E,
$0F, $07, $80, $01, $17, $85, $07, $84, $10, $10, $F1, $28,
$3D, $0D, $28, $16, $90, $10, $D3, $54, $64, $42, $05, $80,
$8A, $61, $60, $13, $97, $50, $84, $21, $A1, $E2, $54, $BA,
$84, $C0, $5A, $78, $08, $20, $2F, $88, $43, $40, $11, $86,
$88, $23, $3C, $4A, $0F, $43, $50, $05, $A7, $84, $01, $F0,
$18, $78, $00, $11, $08, $40, $43, $C5, $A8, $F4, $A4, $0B,
$4E, $08, $0B, $E2, $30, $2F, $08, $00, $14, $84, $87, $89,
$52, $EA, $15, $81, $69, $61, $01, $7C, $46, $04, $21, $01,
$0F, $40, $5A, $00, $10, $3D, $43, $5A, $05, $A5, $03, $E0,
$30, $10, $8E, $D1, $3A, $12, $B0, $00, $12, $35, $42, $5C,
$05, $A4, $03, $E0, $30, $10, $86, $8B, $89, $41, $E8, $C8,
$A0, $00, $13, $1D, $07, $A1, $AF, $02, $D1, $81, $F0, $18,
$20, $47, $68, $3C, $5A, $0F, $46, $B4, $C0, $14, $15, $07,
$A0, $2F, $08, $01, $68, $81, $01, $7C, $46, $04, $E1, $0D,
$0F, $26, $A1, $24, $00, $0E, $16, $BC, $06, $05, $D1, $84,
$05, $D1, $01, $60, $38, $42, $00, $07, $78, $3C, $1E, $0F,
$07, $80, $07, $78, $3C, $1E, $0F, $07, $80, $07, $78, $3C,
$1E, $0F, $07, $80, $07, $78, $3C, $1E, $0F, $07, $80, $01,
$16, $35, $47, $B5, $A1, $0D, $0F, $1A, $A1, $22, $00, $F1,
$6A, $3D, $AF, $00, $84, $25, $35, $0E, $10, $00, $15, $35,
$47, $B5, $81, $19, $E3, $54, $78, $44, $11, $AE, $3D, $47,
$B5, $E1, $10, $94, $D4, $38, $40, $16, $0F, $12, $A3, $DA,
$B0, $8D, $71, $AA, $3D, $A2, $08, $8F, $2E, $A0, $2E, $08,
$4A, $6A, $1C, $20, $00, $14, $88, $F1, $2A, $3D, $A9, $08,
$09, $E8, $3C, $50, $88, $F2, $E9, $C1, $09, $4D, $43, $84,
$00, $18, $10, $47, $78, $35, $1E, $D3, $84, $24, $3C, $6A,
$80, $A4, $23, $BC, $9A, $8F, $53, $02, $12, $9A, $87, $08,
$00, $19, $86, $88, $28, $3D, $5D, $A5, $08, $8F, $1A, $83,
$D0, $D5, $84, $77, $93, $41, $E8, $0A, $82, $12, $9A, $87,
$08, $00, $19, $97, $50, $84, $26, $35, $DA, $40, $80, $87,
$8B, $52, $EA, $16, $84, $35, $54, $1E, $86, $A4, $21, $29,
$A8, $70, $80, $17, $15, $43, $44, $11, $D1, $18, $43, $4D,
$41, $E8, $6B, $C2, $40, $3C, $AA, $87, $24, $21, $29, $A8,
$70, $80, $17, $0D, $07, $A1, $25, $09, $0D, $71, $AA, $3C,
$2F, $01, $04, $77, $97, $50, $13, $84, $25, $35, $0E, $10,
$00, $0F, $2E, $C0, $44, $09, $D7, $81, $C2, $02, $CD, $30,
$40, $55, $A2, $00, $07, $78, $3C, $1E, $0F, $07, $80, $07,
$78, $3C, $1E, $0F, $07, $80, $07, $78, $3C, $1E, $0F, $07,
$80, $07, $78, $3C, $1E, $0F, $07, $80, $01, $14, $35, $47,
$B5, $E1, $01, $45, $4E, $44, $34, $75, $2E, $A1, $78, $08,
$21, $29, $A8, $70, $80, $16, $35, $47, $B5, $E1, $30, $1A,
$E2, $D0, $7A, $62, $03, $21, $A8, $C8, $BC, $06, $10, $94,
$D4, $38, $40, $13, $35, $47, $B5, $E0, $10, $90, $EF, $1E,
$A1, $A1, $00, $EB, $C0, $A0, $9A, $0F, $08, $00, $11, $35,
$47, $B5, $E0, $40, $8D, $71, $EA, $1A, $F0, $38, $42, $53,
$50, $E1, $00, $0E, $35, $47, $B5, $E0, $40, $8E, $F1, $EA,
$1C, $F0, $78, $18, $00, $0F, $35, $47, $B5, $E0, $40, $8E,
$F1, $EA, $1C, $60, $78, $B0, $44, $00, $11, $35, $47, $B5,
$E0, $40, $8E, $F1, $EA, $1C, $50, $86, $BE, $97, $50, $E1,
$00, $12, $35, $47, $B5, $E0, $40, $8E, $F1, $EA, $1C, $50,
$8E, $F3, $E9, $55, $0E, $10, $00, $11, $35, $47, $B5, $E0,
$40, $8E, $F2, $28, $A1, $1D, $E7, $D2, $AA, $1C, $20, $00,
$10, $35, $47, $B5, $E0, $40, $86, $A6, $8A, $11, $DE, $7D,
$2A, $A1, $C2, $00, $07, $78, $3C, $1E, $0F, $07, $80, $07,
$78, $3C, $1E, $0F, $07, $80, $07, $78, $3C, $1E, $0F, $07,
$80, $07, $78, $3C, $1E, $0F, $07, $80, $00
]
// colors are 0000GGGG,BBBBRRRR
array palette = [
$00,$10,
$02,$33,
$04,$65,
$03,$77,
$08,$A8,
$0C,$C7,
$08,$93,
$04,$41,
$03,$39,
$06,$49,
$09,$3E,
$06,$7D,
$09,$7D,
$07,$36,
$0C,$4C,
$0E,$BF
]