Faster draw-line
This commit is contained in:
parent
df9c33f075
commit
4edea23083
|
@ -253,8 +253,8 @@
|
|||
( dx ) #0001 #ffff ,&x2 LDR2 STH2kr SUB2k abs2 ,&dx STR2
|
||||
( sx ) SWP2 lts2 [ JMP SWP2 POP2 ] ,&sx STR2
|
||||
( y x -> x y ) SWP2r
|
||||
( dy ) #0000 ,&y2 LDR2 STH2kr SUB2 abs2 SUB2 ,&dy STR2
|
||||
( sy ) #0001 #ffff STH2kr ,&y2 LDR2 lts2 [ JMP SWP2 POP2 ] ,&sy STR2
|
||||
( dy ) #0001 #ffff ,&y2 LDR2 STH2kr SUB2k abs2 #0000 SWP2 SUB2 ,&dy STR2
|
||||
( sy ) SWP2 lts2 [ JMP SWP2 POP2 ] ,&sy STR2
|
||||
,&dx LDR2 ,&dy LDR2 ADD2
|
||||
&>while ( -- )
|
||||
( draw ) OVR2r STH2r STH2kr [ LIT &color $1 ] <set-pixel>
|
||||
|
|
Loading…
Reference in New Issue