~rabbits/oekaki

4479f3d9154029811c7b886ed3e6947546478066 — neauoire 1 year, 1 month ago e4707bd
Do not write pixel if unchanged on inc
1 files changed, 4 insertions(+), 3 deletions(-)

M src/oekaki.tal
M src/oekaki.tal => src/oekaki.tal +4 -3
@@ 351,10 351,11 @@
@blend-pixel ( x* y* a b -- color )
	DUP #04 NEQ ?{ POP #03 }
	DUP INC ?{ POP #00 }
	NEQk ?{
		POP2 POP2 POP2 JMP2r }
	.brush/color LDZ LTHk [ JMP SWP ] POP NIP <set-pixel>
	EQUk ?&skip
	.brush/color LDZ LTHk [ JMP SWP ] POP EQUk ?&skip
	NIP <set-pixel>
	!<redraw-tile>
	&skip POP2 POP2 POP2 JMP2r

@<do-line> ( x1* y1* x2* y2* fn* -- )
	,&fn STR2