uxnwithrosia

some uxn practice with friends :)
Log | Files | Refs

hello-screen.tal (2185B)

      1 |00 @System &vector $2 &pad $6 &r $2 &g $2 &b $2
      2 |20 @Screen &vector $2 &width $2 &height $2 &auto $1 &pad $1 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
      3 
      4 %PIXEL { 
      5 	.Screen/y DEO2
      6 	.Screen/x DEO2
      7 	.Screen/pixel DEO
      8  } ( p x y  -- )
      9 %DRAW-PIXEL { #41 .Screen/pixel DEO } ( -- )
     10 
     11 %INC-X { .Screen/x DEI2 INC2 .Screen/x DEO2 } ( -- )
     12 
     13 %ADD-X { .Screen/x DEI2 ADD2 .Screen/x DEO2 } ( INC -- )
     14 
     15 %DRAW-LINE { DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X DRAW-PIXEL INC-X }
     16 
     17 
     18 
     19 |0100
     20 
     21 	#2ce9 .System/r DEO2
     22 	#01c0 .System/g DEO2
     23 	#2ce5 .System/b DEO2
     24 
     25 	#00a4 .Screen/x DEO2
     26 	#00a4 .Screen/y DEO2
     27 
     28 	#f7 .Screen/auto DEO
     29 	#0100 .Screen/addr DEO2
     30 
     31 	#42 .Screen/sprite DEO
     32 BRK
     33 
     34 @arrow [ 0102 0488 d0e0 f0f8 ]
     35 @rock [ 3c4e 9ffd f962 3c00 ]
     36 @character [ 3c7e 5a7f 1b3c 5a18 ]
     37 
     38 @lil-guy
     39 [
     40 00 00 00 00 01 03 06 04
     41 00 00 00 00 00 00 00 00
     42 00 00 00 00 80 80 e0 30
     43 00 00 00 00 00 00 00 00
     44 00 00 00 00 00 07 04 0c
     45 00 00 00 00 00 00 00 00
     46 00 00 00 00 00 c0 40 60
     47 00 00 00 00 00 00 00 00
     48 0c 18 10 10 30 20 60 47
     49 00 00 00 00 00 00 00 00
     50 10 1f 00 00 00 00 03 02
     51 00 00 00 00 00 00 00 01
     52 18 f0 30 00 00 00 00 40
     53 00 00 00 00 00 00 00 80
     54 20 30 10 10 18 08 08 08
     55 00 00 00 00 00 00 00 00
     56 00 00 01 03 06 04 04 0c
     57 00 00 00 00 00 00 00 00
     58 00 00 00 80 80 c0 60 30
     59 00 00 00 00 00 00 00 00
     60 c5 85 87 80 80 c0 40 40
     61 02 02 00 00 00 00 00 00
     62 02 02 01 00 00 7e 03 00
     63 01 01 00 00 00 00 00 00
     64 60 60 80 00 08 38 e0 00
     65 80 80 00 00 00 00 00 00
     66 08 08 08 08 09 0f 04 04
     67 00 00 00 00 00 00 00 00
     68 08 18 30 e1 83 02 06 04
     69 00 00 00 00 00 00 00 00
     70 30 60 c0 80 00 00 00 00
     71 00 00 00 00 00 00 00 00
     72 40 40 60 20 20 20 20 30
     73 00 00 00 00 00 00 00 00
     74 00 00 00 00 00 7c 47 40
     75 1d 15 04 00 00 00 00 00
     76 00 00 00 00 00 78 c8 08
     77 80 c0 40 20 00 00 00 00
     78 04 04 04 0f 04 0c 08 08
     79 00 00 00 00 00 00 00 00
     80 0c 18 70 c0 00 00 00 00
     81 00 00 00 00 00 00 00 00
     82 18 0f 00 00 00 00 00 00
     83 00 00 00 00 00 00 00 00
     84 c0 80 00 00 00 00 00 00
     85 00 00 00 00 00 00 00 00
     86 08 0f 00 00 00 00 00 00
     87 00 00 00 00 00 00 00 00
     88 08 f8 60 00 00 00 00 00
     89 00 00 00 00 00 00 00 00
     90 ]