This thread contains a patchset. You're looking at the original emails,
but you may wish to use the patch review UI.
Review patch
[PATCH uxn 1/3] adding ctrl and alt for disabling and enabling sound
From: farvardin <eforgeot@gmail.com>
---
projects/software/calc.tal | 11 +++++++++--
1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/projects/software/calc.tal b/projects/software/calc.tal
index bed24f4..2eaf856 100644
--- a/projects/software/calc.tal
+++ b/projects/software/calc.tal
@@ -88,7 +88,7 @@
#0010 .Audio0/adsr DEO2
;sin-pcm .Audio0/addr DEO2
#0100 .Audio0/length DEO2
- #dd .Audio0/volume DEO
+ #55 .Audio0/volume DEO
( center )
.Screen/width DEI2 2// .center/x STZ2
@@ -140,6 +140,13 @@ BRK
LIT '~ !~ ,&no-not JCN ;do-not JSR2 POP BRK &no-not
( value )
;key-value JSR2 ;push-input JSR2
+
+ ( turn off sound with ctrl and turn on with alt )
+ .Controller/button DEI
+ #01 !~ ,&no-ctrl JCN #00 .Audio0/volume DEO &no-ctrl
+ #02 !~ ,&no-alt JCN #55 .Audio0/volume DEO &no-alt
+
+
BRK
@@ -768,4 +775,4 @@ JMP2r
@pointer-icn
80c0 e0f0 f8e0 1000
-@blank-icn
\ No newline at end of file
+@blank-icn
--
2.32.0
[PATCH uxn 2/3] change sound volume with up and down arrows
From: farvardin <eforgeot@gmail.com>
---
projects/software/calc.tal | 25 +++++++++++++++++++------
1 file changed, 19 insertions(+), 6 deletions(-)
diff --git a/projects/software/calc.tal b/projects/software/calc.tal
index 2eaf856..60abd07 100644
--- a/projects/software/calc.tal
+++ b/projects/software/calc.tal
@@ -120,7 +120,26 @@
BRK
@on-button ( -> )
+
+ .Controller/button DEI
+ ( turn off sound with ctrl and turn it on with alt )
+ #01 !~ ,&no-ctrl JCN #00 .Audio0/volume DEO &no-ctrl
+ #02 !~ ,&no-alt JCN #55 .Audio0/volume DEO #30 .Audio0/pitch DEO &no-alt
+
+ ( change sound volume with up and down arrows )
+ #10 !~ ,&no-up JCN
+ ( emit sound ) #30 .Audio0/pitch DEO
+ ( if value > ee ) .Audio0/volume DEI #ee > ,&fullsound JCN
+ .Audio0/volume DEI ( debug DUP STH ) #11 + .Audio0/volume DEO ,&no-up JMP
+ &fullsound #ff .Audio0/volume DEO &no-up
+ #20 !~ ,&no-down JCN
+ ( emit sound ) #30 .Audio0/pitch DEO
+ ( if value < 22 ) .Audio0/volume DEI #22 < ,&nosound JCN
+ .Audio0/volume DEI ( debug DUP STH ) #11 - .Audio0/volume DEO ,&no-down JMP
+ &nosound #00 .Audio0/volume DEO &no-down
+ POP
+
.Controller/key DEI
( generics )
#00 !~ ,&no-empty JCN ;redraw JSR2 POP BRK &no-empty
@@ -140,12 +159,6 @@ BRK
LIT '~ !~ ,&no-not JCN ;do-not JSR2 POP BRK &no-not
( value )
;key-value JSR2 ;push-input JSR2
-
- ( turn off sound with ctrl and turn on with alt )
- .Controller/button DEI
- #01 !~ ,&no-ctrl JCN #00 .Audio0/volume DEO &no-ctrl
- #02 !~ ,&no-alt JCN #55 .Audio0/volume DEO &no-alt
-
BRK
--
2.32.0
[PATCH uxn 3/3] remove extra lines
From: farvardin <eforgeot@gmail.com>
---
projects/software/calc.tal | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/projects/software/calc.tal b/projects/software/calc.tal
index 60abd07..a574634 100644
--- a/projects/software/calc.tal
+++ b/projects/software/calc.tal
@@ -139,7 +139,7 @@ BRK
&nosound #00 .Audio0/volume DEO &no-down
POP
-
+
.Controller/key DEI
( generics )
#00 !~ ,&no-empty JCN ;redraw JSR2 POP BRK &no-empty
@@ -160,7 +160,6 @@ BRK
( value )
;key-value JSR2 ;push-input JSR2
-
BRK
@on-mouse ( -> )
--
2.32.0
[uxn/patches/.build.yml] build success