~rabbits/nasu

04c88b1036154f38e802f3f3a6c95c8978322884 — neauoire 1 year, 7 months ago c228aa9
Optimized zoomview
1 files changed, 7 insertions(+), 7 deletions(-)

M src/main.tal
M src/main.tal => src/main.tal +7 -7
@@ 729,18 729,18 @@ RTN

	( find focus ) GET-POSITION STH2 STH2
	;pixel-icn .Screen/addr DEO2
	#00 VER
	VER #00
	&ver
		OVR #08 * TOS .tileview/y1 LDZ2 ++ .Screen/y DEO2
		#00 HOR
		DUP #08 * TOS .tileview/y1 LDZ2 ++ .Screen/y DEO2
		HOR #00
		&hor
			OVR #08 * TOS .tileview/x1 LDZ2 ++ .Screen/x DEO2
			( get pixel offset ) GET-ITERATORS SWP TOS ROT TOS
			DUP #08 * TOS .tileview/x1 LDZ2 ++ .Screen/x DEO2
			( get pixel offset ) GET-ITER SWP TOS ROT TOS
			( add focus ) STH2kr SWP2r STH2kr SWP2r ADD-POSITIONS
			;get-pixel JSR2 #00 + .Screen/sprite DEO
			INCR LTHk ,&hor JCN
			#01 + GTHk ,&hor JCN
		POP2
		INCR LTHk ,&ver JCN
		#01 + GTHk ,&ver JCN
	POP2
	POP2r POP2r