steve
/
factor-work
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

working decoder

master
Steve Ayerhart 2022-08-22 23:20:30 -04:00
parent 3246b2c064
commit f2402fa759
No known key found for this signature in database
GPG Key ID: 4CB33EB9BB156C97
3 changed files with 61 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
flac/decoder/decoder.factor
View File

@ -200,7 +200,7 @@ SYMBOL: current-flac-output
read-flac-subframe-wasted-bits
flac-subframe-header boa ;
: calculate-sample-depth ( bps channel-assignment wasted-bits channel -- sample-depth )
: calculate-sample-depth ( bps wasted-bits channel-assignment channel -- sample-depth )
[ - ] 2dip swap
{
{ channel-assignment-left [ 1 = [ 1 ] [ 0 ] if ] }
@ -238,7 +238,7 @@ SYMBOL: current-flac-output
frame-header bits-per-sample>> :> bps
frame-header blocksize>> :> blocksize
frame-header channel-assignment>> :> channel-assignment
bps channel-assignment wasted-bits channel calculate-sample-depth :> sample-depth
bps wasted-bits channel-assignment channel calculate-sample-depth :> sample-depth
subframe-type
{

49
flac/flac.factor
View File

@ -0,0 +1,49 @@
USING: kernel audio.wav io io.files io.encodings.ascii io.encodings.binary io.encodings.string endian accessors math sequences ;
USING: flac.decoder flac.stream flac.metadata ;
USING: specialized-arrays alien.c-types prettyprint io.encodings.utf8 ;
IN: flac
:: wav-header ( stream-info -- byte-array )
RIFF-MAGIC ascii encode
stream-info samples>> stream-info channels>> stream-info bits-per-sample>> 8 /i * * 36 + 4 >le
WAVE-MAGIC ascii encode
FMT-MAGIC ascii encode
16 4 >le
1 2 >le
stream-info channels>> 2 >le
stream-info sample-rate>> 4 >le
stream-info sample-rate>> stream-info channels>> stream-info bits-per-sample>> 8 /i * * 4 >le
stream-info channels>> stream-info bits-per-sample>> 8 /i * 2 >le
stream-info bits-per-sample>> 2 >le
DATA-MAGIC ascii encode
stream-info samples>> stream-info channels>> stream-info bits-per-sample>> 8 /i * * 4 >le
'{ _ _ _ _ _ _ _ _ _ _ _ _ _ } B{ } concat-as ;
:: write-frame ( sample-depth channels blocksize samples -- )
sample-depth 8 /i :> sample-bytes
sample-depth 8 = [ 128 ] [ 0 ] if :> addend
blocksize <iota> [| block |
channels <iota> [| channel |
block channel samples nth nth addend + sample-bytes >le write
] each
] each ;
! TODO: actually write good code
: decode-file ( flac-file -- )
[
"/home/steve/FACTOR.wav" binary [
read-stream-info/seek-data
dup
[ wav-header write ]
[ samples>> ] bi
swap <repetition>
[
[ [ bits-per-sample>> ] [ channels>> ] bi ]
[ read-flac-frame ] bi
[ header>> blocksize>> ] [ samples>> ] bi
write-frame
] each
] with-file-writer
] with-flac-file-reader ;

13
flac/stream/stream.factor
View File

@ -1,14 +1,13 @@
USING: kernel namespaces accessors sequences destructors io.files io.encodings.binary math math.functions math.bitwise ;
USING: kernel namespaces accessors sequences destructors io io.files io.encodings.binary math math.functions math.bitwise ;
FROM: flac.format => FLAC-MAGIC not-a-flac-stream ;
QUALIFIED: bitstreams
QUALIFIED: io
USING: prettyprint ;
IN: flac.stream
SYMBOL: flac-input-stream
CONSTANT: default-bitreader-capacity 65536
CONSTANT: default-bitreader-capacity 6553600
TUPLE: flac-stream-reader stream bitstream ;
@ -25,6 +24,14 @@ M: flac-stream-reader dispose stream>> dispose ;
dup bytes>> swap [ prepend ] dip swap >>bytes drop
] while flac-input-stream get bitstream>> bitstreams:read ;
: flac-seek ( n -- )
[ dup flac-input-stream get bitstream>> bitstreams:enough-bits? not ]
[
flac-input-stream get
[ stream>> default-bitreader-capacity swap io:stream-read ] [ bitstream>> ] bi
dup bytes>> swap [ prepend ] dip swap >>bytes drop
] while flac-input-stream get bitstream>> bitstreams:seek ;
: flac-align-to-byte ( -- )
8 flac-input-stream get bitstream>> bitstreams:align ;