Colour pinstripe/Display: Difference between revisions
Improve Uxntal version with suggestions from #uxn IRC channel
(Update Uxntal implementation to show four stripe sizes) |
(Improve Uxntal version with suggestions from #uxn IRC channel) |
||
Line 2,198:
( draw the four stripe layers )
#
&loop ( -- )
( update y coordinate )
( draw a layer )
( do it four times )
@draw-layer ( step -: )
( extend step to short, create counter )
#00 SWP #0000
&loop ( -- )
( update x coordinate )
MUL2k .Screen/x DEO2
| |||