uxn

commit 786fd90a630f78750c2b68aae6c8dd6e4f2fcdc6
parent 324e72a7fc4496c11974a15973c4e77637bd3d1c
Author: neauoire <aliceffekt@gmail.com>
Date:   Sat, 21 Aug 2021 12:35:28 -0700

Added Ctrl to Bifurcan

Diffstat:
M
projects/examples/demos/bifurcan.tal
 | 
13
+++++++++++++

1 file changed, 13 insertions(+), 0 deletions(-)
diff --git a/projects/examples/demos/bifurcan.tal b/projects/examples/demos/bifurcan.tal
@@ -15,6 +15,7 @@
 |20 @Screen     [ &vector $2 &width    $2 &height $2 &pad   $2 &x      $2 &y      $2 &addr $2 &pixel $1 &sprite $1 ]
 |90 @Mouse      [ &vector $2 &x        $2 &y      $2 &state $1 &wheel  $1 ]
 |b0 @DateTime   [ &year   $2 &month    $1 &day    $1 &hour  $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
+|80 @Controller [ &vector $2 &button   $1 &key    $1 ] 
 
 ( variables )
 
@@ -38,6 +39,7 @@
 	( vectors )
 	;on-frame .Screen/vector DEO2
 	;on-mouse .Mouse/vector DEO2
+	;on-button .Controller/vector DEO2
 
 	( find center )
 	.Screen/width DEI2 2// .center/x STZ2
@@ -72,6 +74,17 @@ BRK
 
 BRK 
 
+@on-button ( -> )
+	
+	.Controller/button DEI #00 EQU ,&no-touch JCN
+		( incr ) .style LDZ #01 ADD #03 MOD .style STZ
+		( bg ) ;tiles .style LDZ #40 SFT TOS ADD2 ;cover-pattern JSR2
+		( fg ) ;redraw JSR2
+		( release ) #00 .Mouse/state DEO
+	&no-touch
+	
+BRK
+
 @redraw ( -- )
 	
 	( hrs )