Rosetta Code

Colour pinstripe/Display: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Soxfox42 (talk | contribs)
57 edits
Update Uxntal implementation to show four stripe sizes
Soxfox42 (talk | contribs)
57 edits
Improve Uxntal version with suggestions from #uxn IRC channel
Line 2,198:
 
( draw the four stripe layers )
#0100
&loop ( -- )
&loop
( update y coordinate )
DUP #01 SUB #00 SWPOVR [ LIT2 &quarter-height $2 ] MUL2 .Screen/y DEO2
( draw a layer )
DUP INCk draw-layer
( do it four times )
INC DUP #0504 LTH ?&loop
POP BRK
 
@draw-layer ( step -: )
( extend step to short, create counter )
#00 SWP #0000
&loop ( -- )
( update x coordinate )
MUL2k .Screen/x DEO2
Retrieved from "https://rosettacode.org/wiki/Colour_pinstripe/Display"