Conversion script for Jlime videos

kyak bas at bmail.ru
Tue Aug 23 13:24:27 EDT 2011


Hi,

Since you've mentioned mplayer in your last two e-mails, but you are still 
using a _very_ old release, i can't help mentioning that mplayer from 
openwrt-packages is now hardware accelerated, thanks to David. So you 
really should consider upgrading.

On Tue, 23 Aug 2011, Hans Bezemer wrote:

> Hi!
>
> If someone is interested, I hacked together a small 4tH script that you feed a
> filename and the display resolution (width, height) of a movie and it figures
> out which FFMPEG command you have to give to get an Jlime MPlayer compatible
> movie.
>
> MPEG2 streams allow for anamorphic display, that means the display on the
> screen is different from the actual resolution. Of couse, you get a letterbox
> that way, but it won't be distorted.
>
> If I'm courageous I can feed the resulting string to 4tHs SYSTEM library which
> means it starts and executes FFMPEG as well. If we get that far it won't be
> difficult to make a native executable out of it, so you don't even have to
> install 4tH.
>
> Hans Bezemer
>
> ---8<---
> \ ffmpeg -i Bladerunner.m4v -ac 1 -ar 22050 -s 320x132
> \ -padbottom 54 -padtop 54 -aspect 4:3 Bladerunner.mpg
>
> char . constant '.'                    \ a dot character
> 512 constant /command                  \ size of command line
> /command string command                \ allocate command line
>
> : number? args number error? ;         ( n1 -- n2 f)
> : odd? dup 1 and ;                     ( n -- n f)
> : +one? if 1+ then ;                   ( n f -- n+1)
> : -one? if 1- then ;                   ( n f -- n-1)
> : +string command +place ;             ( a n --)
> : +number <# #s #> +string ;           ( n -- )
> : basename begin dup while 2dup 1- chars + c@ '.' <> while 1- repeat ;
> : usage argn 4 < abort" Usage: nanocalc filename width height" ;
>
> : margins                              ( n --)
>  dup odd? >r
>  s"  -padbottom " +string r@ -one? +number
>  s"  -padtop "    +string r> +one? +number
> ;
>                                       ( n --)
> : padding? dup if margins else drop then ;
>
> : calculate                            ( -- n1 n2)
>  240 3200000
>  2 number? abort" Invalid width" /
>  3 number? abort" Invalid height" * 10000 /
> ;
>
> : compose                              ( n1 n2 -- a n3)
>  command >r s" ffmpeg -i " r@ place
>  1 args +string s"  -ac 1 -ar 22050 -s 320x" +string
>  odd? +one? dup +number - 2/ padding? s"  -aspect 4:3 " +string
>  1 args basename +string s" mpg" +string r> count
> ;
>
> : nanocalc usage calculate compose ;
>
> nanocalc type cr
> ---8<---
>
> -- 
> Absolutely no trees were killed to produce this sig. Well, OK, we had to tie
> one up and torture it. That's it.
>
> Visit our website! http://thebeez.home.xs4all.nl/4tH/
>
> *** Home of the 4tH compiler! ***
>
> _______________________________________________
> Qi Hardware Discussion List
> Mail to list (members only): discussion at lists.en.qi-hardware.com
> Subscribe or Unsubscribe: http://lists.en.qi-hardware.com/mailman/listinfo/discussion
>




More information about the discussion mailing list


interactive