commit 0bd8a3066ecdfff0ec2cae4f01b8dd79afeef408 parent 253c2b89063e5f84164d937907f938e13642d513 Author: Andrew Alderwick <andrew@alderwick.co.uk> Date: Tue, 13 Apr 2021 22:47:46 +0100 Added procedurally generated wallpaper example Diffstat:
| A | projects/examples/gui.wallpaper.usm | | | 65 | +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ |
1 file changed, 65 insertions(+), 0 deletions(-)
diff --git a/projects/examples/gui.wallpaper.usm b/projects/examples/gui.wallpaper.usm @@ -0,0 +1,65 @@ +;scroll { x 2 y 2 wait 1 } + +( devices ) + +|0100 ;System { vector 2 pad 6 r 2 g 2 b 2 } +|0110 ;Console { vector 2 pad 6 char 1 byte 1 short 2 string 2 } +|0120 ;Screen { vector 2 width 2 height 2 pad 2 x 2 y 2 addr 2 color 1 } +|0130 ;Audio { wave 2 envelope 2 pad 4 volume 1 pitch 1 play 1 value 2 delay 2 finish 1 } +|0140 ;Controller { vector 2 button 1 key 1 } +|0160 ;Mouse { vector 2 x 2 y 2 state 1 chord 1 } +|0170 ;File { vector 2 pad 6 name 2 length 2 load 2 save 2 } +|01a0 ;DateTime { year 2 month 1 day 1 hour 1 minute 1 second 1 dotw 1 doty 2 isdst 1 refresh 1 } + +|0200 @RESET + #90ff =System.r #9000 =System.g #900f =System.b + #08e0 ~Screen.width #0001 SFT2 SUB2 =scroll.x + #09b0 =scroll.y + ,frame =Screen.vector + #30 =scroll.wait + BRK + +@frame + #ffff + $loop + DUP2 ^row JSR + #0001 ADD2 + DUP2 ~Screen.height LTH2 ^$loop JNZ + POP2 + ~scroll.wait ^$noscroll JNZ + ~scroll.y #0001 ADD2 =scroll.y + BRK + + $noscroll + ~scroll.wait #01 SUB =scroll.wait + BRK + +@row ( y* -- ) + DUP2 =Screen.y + ~scroll.y ADD2 + + ~Screen.width + $loop + #0001 SUB2 + OVR2 OVR2 ~scroll.x ADD2 EOR2 DUP2 #0013 DIV2 #0013 MUL2 SUB2 + DUP #00 EQU ^$draw JNZ + DUP #05 EQU ^$draw JNZ + POP2 + $rest + DUP2 ORA ^$loop JNZ + POP2 POP2 + JMP2r + + #15 =Screen.color + JMP2r + + $draw + OVR2 =Screen.x + #05 ADD =Screen.color + ~Screen.y + DUP2 #0001 ADD2 =Screen.y + #00 =Screen.color + =Screen.y + POP + ^$rest JMP +