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