~rabbits/turye

3dacec0b997d64a602acc6b056477fffe564cf7b — Devine Lu Linvega 5 months ago 0125365
Match filepath tab to width of string
1 files changed, 11 insertions(+), 9 deletions(-)

M src/turye.tal
M src/turye.tal => src/turye.tal +11 -9
@@ 48,7 48,7 @@
	;untitled-txt ;src #000c mcpy
	#0b .guide STZ
	LIT "A select-glyph
	

	draw-menu
	redraw-all
	( vectors )


@@ 164,7 164,7 @@ BRK

	.state/timer LDZk
	DUP #07 AND ?&no-blink
		DUP #03 SFT #01 AND #30 SFT INC draw-filepath
		DUP #03 SFT #01 AND STH #0a05 STHr JMP SWP POP draw-filepath
		&no-blink
	INC SWP STZ



@@ 419,13 419,13 @@ JMP2r

	.Screen/x DEI2 ROT
	#15 .Screen/auto DEO
	;tab-icn/a .Screen/addr DEO2
	#85 .Screen/sprite DEO
	;tab-chr/a .Screen/addr DEO2
	#81 .Screen/sprite DEO
	&l
		;tab-icn/b .Screen/addr DEO2
		;tab-chr/b .Screen/addr DEO2
		#85 .Screen/sprite DEO
		INC DUP ?&l POP
	#85 .Screen/sprite DEO
	#81 .Screen/sprite DEOk DEO
	#0008 ADD2 .Screen/x DEO2

JMP2r


@@ 450,7 450,7 @@ JMP2r

	.collection-view/x LDZ2 #0002 SUB2 .Screen/x DEO2
	.collection-view/y LDZ2 #0011 SUB2 .Screen/y DEO2
	#f0 draw-tab
	#00 ;src get-strw NIP #03 SFT #02 ADD SUB draw-tab
	;draw-chr/color STA
	;src draw-str POP2



@@ 1001,7 1001,7 @@ JMP2r
	0100 0100 0100 0100
	0000 0000 0000 00aa
	0100 0100 0100 01aa ]
@tab-icn
@tab-chr
	&a [
	003f 7f7f 7f7f 7f7f 3f7f ffff ffff ffff
	7f7f 7f7f 7f7f 7f7f ffff ffff ffff ffff ]


@@ 1010,7 1010,9 @@ JMP2r
	ffff ffff ffff ffff ffff ffff ffff ffff ]
	&c [
	0000 8080 8080 8080 0080 c0c0 c0c0 c0c0
	8080 8080 8080 80c0 c0c0 c0c0 c0c0 c0e0 ]
	8080 8080 8080 80c0 c0c0 c0c0 c0c0 c0ff
	0000 0000 0000 0000 0000 0000 0000 0000
	0000 0000 0000 0000 0000 0000 0000 00ff ]
@appicon [
003f 7f7f 7f7e 7d7a 3f7f ffff ffff ffff 00ff ffff ffa8 50a0 ffff ffff ffff ffff
00fc fefe fe3e 1e0e fcfe ffff ffff ffff 757f 7f7c 7870 7071 ffff ffff ffff ffff