Check-in [05fbc5d044]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Audio player volume
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 05fbc5d044ac858da1bf1f69490157bc7f923adf
User & Date: bernd 2020-06-28 14:26:49.010
Context
2020-06-28
22:32
jni-based volume control only on Android check-in: 2a562578fe user: bernd tags: trunk
14:26
Audio player volume check-in: 05fbc5d044 user: bernd tags: trunk
2020-06-25
15:30
GUI for android play and recording check-in: 528d240a4a user: bernd tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to gui.fs.
1150
1151
1152
1153
1154
1155
1156

1157
1158
1159
1160
1161
1162
1163
    ELSE
	128 128 glue*thumb dummy-thumb }}thumb >r
	r@ [n:h update-thumb ;] { w^ xt } xt cell hash key| fetch-finish# #+!
	hash key| ?fetch
    THEN  {{ glue*ll }}glue r> }}v 40%bv box[] ;

Hash: audio#


[IFDEF] linux
    also require minos2/pulse-audio.fs pulse-init
    require minos2/opus-codec.fs
    previous
    ' bye is net2o-bye
[ELSE]







>







1150
1151
1152
1153
1154
1155
1156
1157
1158
1159
1160
1161
1162
1163
1164
    ELSE
	128 128 glue*thumb dummy-thumb }}thumb >r
	r@ [n:h update-thumb ;] { w^ xt } xt cell hash key| fetch-finish# #+!
	hash key| ?fetch
    THEN  {{ glue*ll }}glue r> }}v 40%bv box[] ;

Hash: audio#
0 Value audio-playing

[IFDEF] linux
    also require minos2/pulse-audio.fs pulse-init
    require minos2/opus-codec.fs
    previous
    ' bye is net2o-bye
[ELSE]
1321
1322
1323
1324
1325
1326
1327

1328
1329
1330
1331
1332
1333
1334
: audio-play[] ( addr u o -- o )
    [:  current-player @ ?dup-IF
	    caller-w <> IF
		play$ $@ current-player @ >o to text$ o> +sync
	    THEN
	THEN
	caller-w .text$ play$ $@ str=

	IF
	    addr data $@ ['] >msg-audio-player catch 0= IF
		pause$ $@ caller-w >o to text$ o> +sync
	    ELSE  2drop  THEN
	ELSE
	    [IFDEF] android opensles:pause-play [ELSE] pause-play [THEN]
	    play$ $@ caller-w >o to text$ o> +sync







>







1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333
1334
1335
1336
: audio-play[] ( addr u o -- o )
    [:  current-player @ ?dup-IF
	    caller-w <> IF
		play$ $@ current-player @ >o to text$ o> +sync
	    THEN
	THEN
	caller-w .text$ play$ $@ str=
	dup to audio-playing
	IF
	    addr data $@ ['] >msg-audio-player catch 0= IF
		pause$ $@ caller-w >o to text$ o> +sync
	    ELSE  2drop  THEN
	ELSE
	    [IFDEF] android opensles:pause-play [ELSE] pause-play [THEN]
	    play$ $@ caller-w >o to text$ o> +sync
1748
1749
1750
1751
1752
1753
1754


1755
1756
1757




1758
1759
1760
1761
1762
1763
1764
1765
1766
1767


1768
1769
1770
1771
1772
1773
1774

text-chat-cmd-o to chat-cmd-o

\ top box

box-actor class
end-class net2o-actor



:noname ( ekey -- )
    case




	k-f5 of  color-theme 0=  IF  anim-end 0.25e o
		[:             fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;]
		>animate  THEN   endof
	k-f6 of  color-theme 0<> IF  anim-end 0.25e o
		[: 1e fswap f- fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;]
		>animate  THEN   endof
	k-f7 of  >normalscreen   endof
	k-f8 of  >fullscreen     endof
	[ box-actor :: ekeyed ]  EXIT
    endcase ; net2o-actor to ekeyed



: net2o[] ( o -- o )
    >o net2o-actor new !act o o> ;

0 Value invitations
0 Value invitations-list
0 Value invitations-notify







>
>



>
>
>
>










>
>







1750
1751
1752
1753
1754
1755
1756
1757
1758
1759
1760
1761
1762
1763
1764
1765
1766
1767
1768
1769
1770
1771
1772
1773
1774
1775
1776
1777
1778
1779
1780
1781
1782
1783
1784

text-chat-cmd-o to chat-cmd-o

\ top box

box-actor class
end-class net2o-actor

also jni

:noname ( ekey -- )
    case
	k-volup of  audio-playing IF  1 1 clazz .audioManager .adjustVolume
	    ELSE  k-up [ box-actor :: ekeyed ]  THEN  endof
	k-voldown of  audio-playing IF  -1 1 clazz .audioManager .adjustVolume
	    ELSE  k-down [ box-actor :: ekeyed ]  THEN  endof
	k-f5 of  color-theme 0=  IF  anim-end 0.25e o
		[:             fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;]
		>animate  THEN   endof
	k-f6 of  color-theme 0<> IF  anim-end 0.25e o
		[: 1e fswap f- fdup f>s to color-theme 0.5e f+ ColorMode! +sync +vpsync ;]
		>animate  THEN   endof
	k-f7 of  >normalscreen   endof
	k-f8 of  >fullscreen     endof
	[ box-actor :: ekeyed ]  EXIT
    endcase ; net2o-actor to ekeyed

previous

: net2o[] ( o -- o )
    >o net2o-actor new !act o o> ;

0 Value invitations
0 Value invitations-list
0 Value invitations-notify
1868
1869
1870
1871
1872
1873
1874

1875
1876
1877
1878
1879
1880
1881
    THEN
    secret-keys# IF  show-nicks  ELSE
	lacks-key?  IF
	    0e 0 [: drop k-enter id-toggler .act .ekeyed ;] >animate
	THEN
    THEN
    1config  !widgets

    get-order n>r ['] /chat >body 1 set-order
    ['] widgets-loop catch
    text-chat-cmd-o to chat-cmd-o
    nr> set-order throw ;

' net2o-gui is run-gui








>







1878
1879
1880
1881
1882
1883
1884
1885
1886
1887
1888
1889
1890
1891
1892
    THEN
    secret-keys# IF  show-nicks  ELSE
	lacks-key?  IF
	    0e 0 [: drop k-enter id-toggler .act .ekeyed ;] >animate
	THEN
    THEN
    1config  !widgets
    color-theme 0.5e f+ ColorMode! +sync
    get-order n>r ['] /chat >body 1 set-order
    ['] widgets-loop catch
    text-chat-cmd-o to chat-cmd-o
    nr> set-order throw ;

' net2o-gui is run-gui