uxn/projects/examples/gui/wallpaper.usm

( devices )

|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ]

( variables )

|0000

@scroll [ &x $2 &y $2 &wait $1 ]

|0100 ( -> )
	#90ff .System/r DEO2 #9000 .System/g DEO2 #900f .System/b DEO2
	#08e0 .Screen/width DEI2 #0001 SFT2 SUB2 .scroll/x STZ2
	#09b0 .scroll/y STZ2
	;frame .Screen/vector DEO2
	#30 .scroll/wait STZ
	BRK

@frame ( -> )
	#ffff
	&loop
	DUP2 ,row JSR
	#0001 ADD2
	DUP2 .Screen/height DEI2 LTH2 ,&loop JCN
	POP2
	.scroll/wait LDZ ,&noscroll JCN
	.scroll/y LDZ2 #0001 ADD2 .scroll/y STZ2
	BRK

	&noscroll
	.scroll/wait LDZ #01 SUB .scroll/wait STZ
	BRK

@row ( y* -- )
	DUP2 .Screen/y DEO2
	.scroll/y LDZ2 ADD2

	.Screen/width DEI2
	&loop
	#0001 SUB2
	OVR2 OVR2 .scroll/x LDZ2 ADD2 EOR2 DUP2 #0013 DIV2 #0013 MUL2 SUB2
	DUP #00 EQU ,&draw JCN
	DUP #05 EQU ,&draw JCN
	POP2
	&rest
	DUP2 ORA ,&loop JCN
	POP2 POP2
	JMP2r

	#15 .Screen/color DEO
	JMP2r

	&draw
	OVR2 .Screen/x DEO2
	#05 ADD .Screen/color DEO
	.Screen/y DEI2
	DUP2 #0001 ADD2 .Screen/y DEO2
	#00 .Screen/color DEO
	.Screen/y DEO2
	POP
	,&rest JMP
Added procedurally generated wallpaper example 2021-04-13 17:47:46 -04:00			`( devices )`

Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`\|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]`
			`\|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ]`

			`( variables )`

			`\|0000`

			`@scroll [ &x $2 &y $2 &wait $1 ]`
Added procedurally generated wallpaper example 2021-04-13 17:47:46 -04:00
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`\|0100 ( -> )`
			`#90ff .System/r DEO2 #9000 .System/g DEO2 #900f .System/b DEO2`
Renamed PEK/POK to LDZ/STZ 2021-05-11 14:14:52 -04:00			`#08e0 .Screen/width DEI2 #0001 SFT2 SUB2 .scroll/x STZ2`
			`#09b0 .scroll/y STZ2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`;frame .Screen/vector DEO2`
Renamed PEK/POK to LDZ/STZ 2021-05-11 14:14:52 -04:00			`#30 .scroll/wait STZ`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`BRK`
Added procedurally generated wallpaper example 2021-04-13 17:47:46 -04:00
Trying to optimize drawing routines 2021-04-14 01:50:01 -04:00			`@frame ( -> )`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`#ffff`
			`&loop`
			`DUP2 ,row JSR`
			`#0001 ADD2`
JNZ is now JCN 2021-05-11 14:12:07 -04:00			`DUP2 .Screen/height DEI2 LTH2 ,&loop JCN`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`POP2`
Renamed PEK/POK to LDZ/STZ 2021-05-11 14:14:52 -04:00			`.scroll/wait LDZ ,&noscroll JCN`
			`.scroll/y LDZ2 #0001 ADD2 .scroll/y STZ2`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`BRK`
Added procedurally generated wallpaper example 2021-04-13 17:47:46 -04:00
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`&noscroll`
Renamed PEK/POK to LDZ/STZ 2021-05-11 14:14:52 -04:00			`.scroll/wait LDZ #01 SUB .scroll/wait STZ`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`BRK`
Added procedurally generated wallpaper example 2021-04-13 17:47:46 -04:00
			`@row ( y* -- )`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`DUP2 .Screen/y DEO2`
Renamed PEK/POK to LDZ/STZ 2021-05-11 14:14:52 -04:00			`.scroll/y LDZ2 ADD2`
Added procedurally generated wallpaper example 2021-04-13 17:47:46 -04:00
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`.Screen/width DEI2`
			`&loop`
			`#0001 SUB2`
Renamed PEK/POK to LDZ/STZ 2021-05-11 14:14:52 -04:00			`OVR2 OVR2 .scroll/x LDZ2 ADD2 EOR2 DUP2 #0013 DIV2 #0013 MUL2 SUB2`
JNZ is now JCN 2021-05-11 14:12:07 -04:00			`DUP #00 EQU ,&draw JCN`
			`DUP #05 EQU ,&draw JCN`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`POP2`
			`&rest`
JNZ is now JCN 2021-05-11 14:12:07 -04:00			`DUP2 ORA ,&loop JCN`
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`POP2 POP2`
			`JMP2r`
Added procedurally generated wallpaper example 2021-04-13 17:47:46 -04:00
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`#15 .Screen/color DEO`
			`JMP2r`
Added procedurally generated wallpaper example 2021-04-13 17:47:46 -04:00
Ported projects to new assembler syntax All these programs tested working, except for left, which compiles but doesn't run properly. 2021-04-23 10:34:03 -04:00			`&draw`
			`OVR2 .Screen/x DEO2`
			`#05 ADD .Screen/color DEO`
			`.Screen/y DEI2`
			`DUP2 #0001 ADD2 .Screen/y DEO2`
			`#00 .Screen/color DEO`
			`.Screen/y DEO2`
			`POP`
			`,&rest JMP`
Added procedurally generated wallpaper example 2021-04-13 17:47:46 -04:00