all repos — xrxs @ ad433236001195e8449c430a14ffe0855f133aef

experimental networked application/game server with 9p 

can clear screen and push logo to corner
Iris Lightshard nilix@nilfm.cc
PGP Signature 
-----BEGIN PGP SIGNATURE-----

iQIzBAABCAAdFiEEkFh6dA+k/6CXFXU4O3+8IhROY5gFAmEXaF0ACgkQO3+8IhRO
Y5igJg//VeNXylWkAACJ74NL+Qvu54Dt+Qgsy5UWuxusPREBf9Ch0X6SkNCGa1Sb
xBVqoYXHW44zmS8X8JPjbtg+qnWuTzjdU50JgYJ33HF2oD9qyW9GD0P0HnCKU4+X
HhwDh0v5wdHRBNwSRAwvzEpkbHowVJeNtIGe8FbWBs4RHe/QCiVJ8cdD82at5qpM
j0vShBFXmplRstLS3cuYJqOH15i3cdItY0Z7TvSoebR/bKN6lTo9qkVDvP+BZr9l
nOwF4sgMa+JtOm+ifg6+hbqpJs7pP8MS0zXDBJVtNZH8O5NP3KW2b9T2VUJI9YRu
60PIaoawJpPnh3k7E0PyPLsfegdMfTJeInus9mnOnmz2IW88w4xHGC+2KynaHNmi
VS0zn4m8YzNqbaf4UPZw4BN6U8ch6hlhjjeilNC6HBd9rlfiEqRQdxHxTTFXzgS8
Sxq2Hp9rua8bmGfYIK68fjg0KEUUM3anvjPPuC9Uva/xH/UeRiTIQbqnyQmE349g
VLf1IdjK5ddoHTIR7fuo76A6KQQ+VzPhHWVHjv9yy8h0rEY01DELy3xxfkHjnrau
KQ7wz5nFXmgHgl0n0/9KtafTemepPr6BH2fGr8s16ouSopSj6YNgvbfXZ6Lc8Kyf
ruXZc6IZn7U0yR+xLFchVSuFNSQ3qfHYm/DJex8g49s8H5pvyrI=
=I3r2
-----END PGP SIGNATURE-----
commit

ad433236001195e8449c430a14ffe0855f133aef

parent

932e2e9c3559020a200b6b24f62ff5b1d0301521

1 files changed, 60 insertions(+), 3 deletions(-)

jump to
M uxn-client/xrxs.tal → uxn-client/xrxs.tal 
@@ -33,6 +33,7 @@ |0000
 
 @state $1
 @ticker $1
+@anim-speed $1
 
 @logo-coords [
   &x $2

@@ -63,6 +64,7 @@ ;xrxslogo .File/load DEO2
 
   #00 .ticker STZ
   #00 .state STZ
+  #20 .anim-speed STZ
   
   CENTER-X .logo-coords/x STZ2
   CENTER-Y .logo-coords/y STZ2

@@ -76,12 +78,16 @@
   ( draw a piece of the logos ~ every half second )
   
   .ticker LDZ #01 ADD
-  DUP #20 EQU ,&next-render JCN
+  DUP .anim-speed LDZ EQU ,&next-render JCN
   .ticker STZ
   BRK
   
-  &next-render .state LDZ
-  #00 .ticker STZ
+  
+  
+  &next-render
+  POP #00 .ticker STZ
+  .state LDZ
+  
   DUP #00 NEQ ,&state1 JCN
     ;draw-uxn-logo JSR2
     #01 ADD .state STZ

@@ -92,11 +98,61 @@ #01 ADD .state STZ
   BRK
   &state2 DUP #02 NEQ ,&state3 JCN
     ;draw-xrxs-logo-xs JSR2
+    
     #01 ADD .state STZ
   BRK
   &state3
+    ;clear-screen JSR2
+    DUP #03 NEQ ,&state4 JCN
+    #04 .anim-speed STZ
+    ;scoot-logos JSR2
+    ;draw-uxn-logo JSR2
+    ;draw-xrxs-logo-xr JSR2
+    ;draw-xrxs-logo-xs JSR2
+    .logo-coords/x LDZ2 #0020 GTH2 ,&keep-state JCN
+      #01 ADD .state STZ BRK
+    &keep-state POP
+  BRK
+  &state4 DUP #04 NEQ ,&state5 JCN
+    ;draw-uxn-logo JSR2
+    ;draw-xrxs-logo-xr JSR2
+    ;draw-xrxs-logo-xs JSR2
+    POP
+  BRK
+  &state5 POP
 BRK
 
+@clear-screen ( -> )
+  ( fix this to clear the animation AND fix the overflow! )
+  
+  .Screen/width DEI2 #0000 &whilex EQU2k ,&endx JCN
+    DUP2 ,&x STR2
+    .Screen/height DEI2 #0000 &whiley EQU2k ,&endy JCN
+      DUP2 ,&y STR2
+      ,&x LDR2 .Screen/x DEO2
+      ,&y LDR2 .Screen/y DEO2
+      ;blank .Screen/addr DEO2
+      #80 .Screen/sprite DEO
+    #0008 ADD2 ,&whiley JMP &endy POP2 POP2
+  #0008 ADD2 ,&whilex JMP &endx POP2 POP2
+  RTN
+  
+  &x $2
+  &y $2 
+RTN
+      
+@scoot-logos ( -> )
+  .logo-coords/x LDZ2 #0021 LTH2 ,&no-scoot-x JCN
+    .logo-coords/x LDZ2 #01 SFT2
+    .logo-coords/x STZ2
+  &no-scoot-x
+  
+  .logo-coords/y LDZ2 #0021 LTH2 ,&no-scoot-y JCN
+    .logo-coords/y LDZ2 #01 SFT2
+    .logo-coords/y STZ2
+  &no-scoot-y
+RTN
+
 @draw-uxn-logo ( -> )
 
   .logo-coords/x LDZ2 #0020 SUB2 .Screen/x DEO2

@@ -152,5 +208,6 @@ ( constants )
 @spritesheet "xrxs.chr 00
 
 ( sprites )
+@blank $16
 @uxnlogo $128
 @xrxslogo $128