~rabbits/nasu

880b5fa1d94e04aa4e48c2720465916103183fa1 — neauoire 1 year, 7 months ago bdca96d
Optimized zoomview
1 files changed, 7 insertions(+), 7 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +7 -7
@@ 987,14 987,14 @@ RTN
@draw-zoomview ( -- )

	;bigpixel-icn .Screen/addr DEO2
	#00 #08
	#08 #00
	&ver
		OVR #04 * TOS .zoomview/y1 LDZ2 ++ .Screen/y DEO2
		#00 #08
		DUP #04 * TOS .zoomview/y1 LDZ2 ++ .Screen/y DEO2
		#08 #00
		&hor
			OVR #04 * TOS .zoomview/x1 LDZ2 ++ .Screen/x DEO2
			DUP #04 * TOS .zoomview/x1 LDZ2 ++ .Screen/x DEO2
			( get pixel )
			GET-ITERATORS
			GET-ITER
			( ch 1 )
			TOS .settings/focus LDZ2 ++ [ STH2k ] LDA
			SWP [ STHk ] #07 SWP - SFT #01 AND


@@ 1003,9 1003,9 @@ RTN
			#07 SWP - SFT #01 AND
			#02 * +
			.Screen/sprite DEO
			INCR LTHk ,&hor JCN
			#01 + GTHk ,&hor JCN
		POP2
		INCR LTHk ,&ver JCN
		#01 + GTHk ,&ver JCN
	POP2

	.zoomview/x1 LDZ2 #0002 --