~rabbits/dexe

48ba65a21dc9344372e89fa4bee1ee8c5e89b0de — neauoire 10 months ago 6184b74
Faster filepath drawing
1 files changed, 30 insertions(+), 31 deletions(-)

M src/dexe.tal
M src/dexe.tal => src/dexe.tal +30 -31
@@ 101,35 101,34 @@
BRK

@manifest
	&menu
		05 "File $1
			01 "n =file-new "New $1
			01 "r =file-rename "Rename $1
			01 "o =file-open "Open $1
			01 "s =file-save "Save $1
			01 "q =exit "Exit $1
		03 "Edit $1
			01 "c =edit-copy "Copy $1
			01 "C =edit-copy-string "CopyText $1
			01 "v =edit-paste "Paste $1
		09 "Move $1
			10 00 =move-up "Up $1
			20 00 =move-down "Down $1
			40 00 =move-left "Left $1
			80 00 =move-right "Right $1
			14 00 =move-dech "Decr.H $1
			24 00 =move-inch "Incr.H $1
			44 00 =move-decw "Decr.W $1
			84 00 =move-incw "Incr.W $1
			00 1b =move-reset "Reset $1
		06 "Options $1
			00 0d =option-insert "Insert $1
			00 08 =option-erase "Erase $1
			00 ". =option-incr "ValIncr $1
			00 ", =option-decr "ValDecr $1
			04 "< =option-roll "RollLeft $1
			04 "> =option-rolr "RollRight $1
		$1
	05 "File $1
		01 "n =file-new "New $1
		01 "r =file-rename "Rename $1
		01 "o =file-open "Open $1
		01 "s =file-save "Save $1
		01 "q =exit "Exit $1
	03 "Edit $1
		01 "c =edit-copy "Copy $1
		01 "C =edit-copy-string "CopyText $1
		01 "v =edit-paste "Paste $1
	09 "Move $1
		10 00 =move-up "Up $1
		20 00 =move-down "Down $1
		40 00 =move-left "Left $1
		80 00 =move-right "Right $1
		14 00 =move-dech "Decr.H $1
		24 00 =move-inch "Incr.H $1
		44 00 =move-decw "Decr.W $1
		84 00 =move-incw "Incr.W $1
		00 1b =move-reset "Reset $1
	06 "Options $1
		00 0d =option-insert "Insert $1
		00 08 =option-erase "Erase $1
		00 ". =option-incr "ValIncr $1
		00 ", =option-decr "ValDecr $1
		04 "< =option-roll "RollLeft $1
		04 "> =option-rolr "RollRight $1
	$1

(
@|vectors )


@@ 779,8 778,8 @@ JMP2r
	.options-frame/x LDZ2 #0028 ADD2 .Screen/x DEO2
	.options-frame/y LDZ2 .Screen/y DEO2
	;filepath ( scroll )
		DUP2 ;slen JSR2 #0014 GTH2 #00 SWP
		;filepath ;slen JSR2 #0014 SUB2 MUL2 ADD2
		DUP2 ;slen JSR2 #0014 GTH2k STH
		SUB2 #00 STHr MUL2 ADD2
	ROT
		;draw-string ( .. )