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: |
05fbc5d044ac858da1bf1f69490157bc |
| User & Date: | bernd 2020-06-28 14:26:49 |
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
Changes to gui.fs.
1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 .... 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 .... 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 .... 1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 |
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]
................................................................................
: 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
................................................................................
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
................................................................................
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
|
> > > > > > > > > > > |
1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 .... 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 .... 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 .... 1878 1879 1880 1881 1882 1883 1884 1885 1886 1887 1888 1889 1890 1891 1892 |
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]
................................................................................
: 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
................................................................................
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
................................................................................
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
|