Compare commits
No commits in common. "214d504311005cbd1acf202b5370c96f8e8d624a" and "ee12c520d9cacc0ce0505f9ff71432eba8d7d3f4" have entirely different histories.
214d504311
...
ee12c520d9
|
|
@ -98,7 +98,7 @@ emu_resize(int width, int height)
|
||||||
if(window) {
|
if(window) {
|
||||||
visual = DefaultVisual(display, 0);
|
visual = DefaultVisual(display, 0);
|
||||||
ximage = XCreateImage(display, visual, DefaultDepth(display, DefaultScreen(display)), ZPixmap, 0, (char *)uxn_screen.pixels, uxn_screen.width * s, uxn_screen.height * s, 32, 0);
|
ximage = XCreateImage(display, visual, DefaultDepth(display, DefaultScreen(display)), ZPixmap, 0, (char *)uxn_screen.pixels, uxn_screen.width * s, uxn_screen.height * s, 32, 0);
|
||||||
XResizeWindow(display, window, w * s + 2 * PAD, h * s + 2 * PAD);
|
XResizeWindow(display, window, w * s, h * s);
|
||||||
XMapWindow(display, window);
|
XMapWindow(display, window);
|
||||||
}
|
}
|
||||||
return 1;
|
return 1;
|
||||||
|
|
|
||||||
116
test/mpg123.tal
116
test/mpg123.tal
|
|
@ -1,116 +0,0 @@
|
||||||
( mpg123.tal )
|
|
||||||
( )
|
|
||||||
( runs mpg123 in a pipe, using -R to enable remote mode )
|
|
||||||
( )
|
|
||||||
( )
|
|
||||||
( basic protocol: )
|
|
||||||
( )
|
|
||||||
( < @R ... ; startup banner )
|
|
||||||
( > L path/to/track.mp3 ; starts playing )
|
|
||||||
( < @I ... ; ID3 metadata )
|
|
||||||
( < @P ... ; playing state )
|
|
||||||
( < @S ... ; sound info )
|
|
||||||
( < @F ... ; frame/position info )
|
|
||||||
( )
|
|
||||||
( example session: )
|
|
||||||
( )
|
|
||||||
( < @R MPG123 (ThOr) v10 ; startup banner )
|
|
||||||
( > L spectra.mp3 ; load command )
|
|
||||||
( > @I { ; start id3 )
|
|
||||||
( > @I ID3v2.title:Spectra ; song title )
|
|
||||||
( > @I ID3v2.artist:Chipzel ; artist name )
|
|
||||||
( > @I ID3v2.album:Spectra ; album title )
|
|
||||||
( > @I ID3v2.year:2013 ; song year )
|
|
||||||
( > @I ID3v2.comment:Visit https://chipzelmusic.bandcamp.com ; comment )
|
|
||||||
( > @I ... ; other info possible )
|
|
||||||
( > @I } ; end id3 )
|
|
||||||
( > @P 2 ; song playing )
|
|
||||||
( > @S 1.0 3 44100 Joint-Stereo 2 1044 2 0 0 0 320 0 1 ; sound info )
|
|
||||||
( > @F 0 9052 0.00 236.46 ; first frame output )
|
|
||||||
( > @F ... ; lots of frames of output )
|
|
||||||
( > @F 9051 1 236.43 0.03 ; last frame output )
|
|
||||||
( > @P 3 ; song ended )
|
|
||||||
( > @P 0 ; stopped )
|
|
||||||
( )
|
|
||||||
( @S <mpeg-version> <layer> <freq> _ _ <frame-size> <stereo> _ _ _ <bitrate> _ <vbr> )
|
|
||||||
( )
|
|
||||||
( other commands: )
|
|
||||||
( )
|
|
||||||
( > LP ; load paused, without playing )
|
|
||||||
( ... )
|
|
||||||
( < @P 1 ; paused )
|
|
||||||
( )
|
|
||||||
( > pause ; pause playback )
|
|
||||||
( < @P 1 ; paused )
|
|
||||||
( > pause ; unpause playback )
|
|
||||||
( < @P 1 ; playing )
|
|
||||||
( )
|
|
||||||
( > stop ; stop playback )
|
|
||||||
( < @P 0 ; stopped )
|
|
||||||
( )
|
|
||||||
( > V 10 ; set volume to 10% )
|
|
||||||
( < @V 10.000000% ; current volume )
|
|
||||||
( > V 100 ; set volume to 100% )
|
|
||||||
( < @V 100.000000% ; current volume )
|
|
||||||
|
|
||||||
|10 @Console [
|
|
||||||
&vector $2 &stdin $1 &pad1 $4 &type $1
|
|
||||||
&stdout $1 &stderr $1 &proc-put $1 &pad2 $1 ¶m $2 &opts $1 &host-put $1
|
|
||||||
]
|
|
||||||
|
|
||||||
|0000
|
|
||||||
|
|
||||||
|0100 ( -> BRK )
|
|
||||||
;on-console .Console/vector DEO2 ( ; set up console vector callback )
|
|
||||||
#31 .Console/opts DEO ( ; child 1: write child.in, read child.out )
|
|
||||||
;mpg123-cmd .Console/param DEO2 ( ; set up `ispell -a` to run )
|
|
||||||
#01 .Console/host-put DEO BRK ( ; run the command now and return )
|
|
||||||
|
|
||||||
@on-console ( -> BRK )
|
|
||||||
.Console/type DEI #01 EQU ?on-stdin
|
|
||||||
.Console/type DEI #21 EQU ?on-mpg123
|
|
||||||
BRK
|
|
||||||
|
|
||||||
@reset ( buf* addr* -> )
|
|
||||||
OVR2 #0000 SWP2 STA2 ( ; buf<-0000 )
|
|
||||||
STA2 JMP2r ( ; addr<-buf )
|
|
||||||
|
|
||||||
@save ( c^ addr* -> )
|
|
||||||
STH2k LDA2 STH2k ( c^ pos* [addr* pos*] )
|
|
||||||
STA INC2r #00 STH2kr STA ( [addr* pos+1*] ; pos<-c, pos+1<-00 )
|
|
||||||
STH2r STH2r STA2 JMP2r ( ; addr<-pos+1 )
|
|
||||||
|
|
||||||
( exec should have type [->] )
|
|
||||||
@save-or-exec ( exec* addr* -> BRK )
|
|
||||||
,&addr STR2 ,&exec STR2
|
|
||||||
.Console/stdin DEI #0a EQU LIT2 [ &exec $2 ] JCN2
|
|
||||||
.Console/stdin DEI LIT2 [ &addr $2 ] !save
|
|
||||||
|
|
||||||
@on-stdin ( -> BRK )
|
|
||||||
;exec-stdin ;input/pos save-or-exec BRK
|
|
||||||
|
|
||||||
@exec-stdin ( -> )
|
|
||||||
;input ;input/pos !reset
|
|
||||||
|
|
||||||
@on-mpg123 ( -> BRK )
|
|
||||||
;exec-mpg123 ;buffer/pos save-or-exec BRK
|
|
||||||
|
|
||||||
@exec-mpg123 ( -> )
|
|
||||||
JMP2r
|
|
||||||
|
|
||||||
@print ( c^ -> )
|
|
||||||
.Console/stdout DEO JMP2r ( ; print character to stdout )
|
|
||||||
|
|
||||||
@println ( c^ -> )
|
|
||||||
print #0a .Console/stdout DEO JMP2r ( ; print character and newline to stdout )
|
|
||||||
|
|
||||||
@input [ $80 &pos $2 ]
|
|
||||||
@buffer [ $80 &pos $2 ]
|
|
||||||
|
|
||||||
@mpg123-cmd "mpg123 20 "-R 00 ( ; "mpg123 -R" )
|
|
||||||
|
|
||||||
@frames-past $2
|
|
||||||
@frames-togo $2
|
|
||||||
|
|
||||||
@time-past $9
|
|
||||||
@time-togo $9
|
|
||||||
Loading…
Reference in New Issue