~rabbits/bicycle

c1e854ba86a10c8c6c7bfcd68e72614b1206055f — neauoire 6 months ago 8eacb70
Fixed redraw issue
1 files changed, 18 insertions(+), 6 deletions(-)

M src/bicycle.tal
M src/bicycle.tal => src/bicycle.tal +18 -6
@@ 17,6 17,8 @@
|0100

@on-reset ( -> )
	( | meta )
	;meta #06 DEO2
	( | theme )
	#8a0f .System/r DEO2
	#da0f .System/g DEO2


@@ 34,6 36,17 @@
	;on-frame .Screen/vector DEO2
	press-mode BRK

@meta $1
	( name ) "Bicycle 0a
	( details ) "A 20 "Uxn 20 "Emulator 0a
	( author ) "By 20 "Hundred 20 "Rabbits 0a
	( date ) "14 20 "Nov 20 "2023 $1
	( ) 01
	( > icon ) 83 =appicon

@appicon ( TODO )


@on-frame ( -> )
	( | press timer )
	[ LIT &press $1 ] DUP #00 EQU ?&>no-press


@@ 200,20 213,19 @@
	JMP2r

@press-run ( -- )
	#01 <draw-run-btn>
	repl-run <redraw>/state
	#01 <draw-run-btn>
	!press-timer

@press-step ( -- )
	#01 <draw-step-btn>
	repl-step <redraw>/both
	#01 <draw-step-btn>
	!press-timer

@press-reset ( -- )
	#01 <draw-reset-btn>
	restart <redraw>/state
	;console-buf <sclr>
	<redraw>/both
	restart <redraw>/both
	#01 <draw-reset-btn>
	!press-timer

@press-mode ( -- )


@@ 225,11 237,11 @@

@<redraw> ( -- )
	[ LIT2 15 -Screen/auto ] DEO
	<draw-controls>
	&both ( -- )
		<draw-bg-above>
		<draw-src>
		<draw-asm>
		<draw-controls>
	&state ( -- )
		<draw-bg-below>
		<draw-console>