Colour pinstripe/Display: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Changed to Wren S/H) |
(→Uxntal: Added image output.) |
||
Line 2,181: | Line 2,181: | ||
=={{header|Uxntal}}== |
=={{header|Uxntal}}== |
||
<syntaxhighlight lang=" |
<syntaxhighlight lang="uxntal">( uxnasm color-pinstripe.tal color-pinstripe.rom && uxnemu color-pinstripe.rom ) |
||
|00 @System &vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1 |
|||
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |
|20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 |
||
|0100 @reset |
|0100 @reset |
||
( set theme ) |
|||
#0f00 .System/r DEO2 |
#0f00 .System/r DEO2 |
||
#00f0 .System/g DEO2 |
#00f0 .System/g DEO2 |
||
#000f .System/b DEO2 |
#000f .System/b DEO2 |
||
( store screen width ) |
|||
.Screen/width DEI2 ,&width STR2 |
.Screen/width DEI2 ,&width STR2 |
||
( set initial position ) |
|||
#0000 .Screen/y DEO2 |
#0000 .Screen/y DEO2 |
||
( draw stripes ) |
|||
#0000 |
#0000 |
||
&loop |
&loop |
||
Line 2,199: | Line 2,204: | ||
INC2 DUP2 [ LIT2 &width $2 ] NEQ2 ?&loop |
INC2 DUP2 [ LIT2 &width $2 ] NEQ2 ?&loop |
||
BRK</syntaxhighlight> |
BRK</syntaxhighlight> |
||
[[File:Color-pinstripe.png|alt=Color pinstripe implemented in Uxntal.|none|thumb|Color pinstripe implemented in Uxntal.]] |
|||
=={{header|Visual Basic .NET}}== |
=={{header|Visual Basic .NET}}== |