Oznámení

Sbalit
Aktuálně žádná oznámení.

MPlayer a mencoder

Sbalit
X
 
  • Filtr
  • Čas
  • Zobrazit
Clear All
new posts

    MPlayer a mencoder

    O vikendu jsem si dost pohraval s MPlayerem/mencoderem.
    Rad si vysrihuju ruzny sceny a zvuky apod. Pote co jsem zjistil jak se to dela, chtel jsem to nejak zjednodusit.
    Metodou "Cybersite" jsem se postupne dopracoval k tomuhle skriptu.
    Code:
    ; Grunt rc1
    ;
    ;  Skript pro vystrihovani sekvenci a konverzi
    ;
    ;  ghh 2008
    ;
    ;  Ted uz snad tochu vic z gruntu
    
    requestchoicemui >Env:Answer  title "Grunt" body "Muzes menit format videa*n nebo rozdelit na frames" gadgets "_Frames|Conver_t|_Cancel"
    
      IF $Answer EQ "0"
    
        echo "The End"
    
      ENDIF
    
      IF $Answer EQ "1"
    
        REQUESTFILE >ENV:file TITLE "Load video..." DRAWER ram:
    
        ;echo "Zkoumam soubor"
    
        ;mplayer:mplayer -vo null -ao null -identify -frames 0 $file
    
        muirequeststring >ENV:pfmat TITLE "Frames format" BODY "*ecVyber format...*n Zvuk bude v pcm*n jpeg*n png*n tga*n pnm*n md5sum"
    
        muirequeststring >ENV:start TITLE "Start" BODY "*ecNapis cas zacatku*n ve formatu 00:00:00" ACCEPT="1234567890:" MAXLEN=8
    
        muirequeststring >ENV:konec TITLE "End" BODY "*ecNapis kolik h:m:s chces enkodovat*n *eipozn. od pozice start viz vyse*n *enve formatu 00:00:00" ACCEPT="1234567890:" MAXLEN=8
    
        REQUESTFILE >ENV:opath TITLE "Save..." DRAWER "(Vyber/stvor pouze adresar)" DRAWERSONLY
    
        cd $opath
    
        mplayer:mplayer -vo $pfmat -ao pcm -ss $start -endpos $konec $file
    
      ENDIF
    
      IF $Answer EQ "2"
    
        REQUESTFILE >ENV:file TITLE "Load video..." DRAWER ram:
    
        muirequeststring >ENV:start TITLE "Start" BODY "*ecNapis cas zacatku*n ve formatu 00:00:00" ACCEPT="1234567890:" MAXLEN=8
    
        muirequeststring >ENV:konec TITLE "End" BODY "*ecNapis kolik h:m:s chces enkodovat*n *eipozn. od pozice start viz vyse*n *enve formatu 00:00:00" ACCEPT="1234567890:" MAXLEN=8
    
        muirequeststring >ENV:video TITLE "Video" BODY "*ecVyber vystupni format pro video*n*elcopy - *eiwithout re-encoding*n *enframeno - *eispecial audio only*n *enraw - *eiuncompressed video*n *ennuv - *einuppel video*n *enlavc - *ei*eblibavcodec best quality!*n *enx264 - *eiH.264 encoding*n *ebZa format muzete pridat jeste dalsi parametry"
    
        muirequeststring >ENV:audio TITLE "Audio" BODY "*ecVyber vystupni format pro zvuk*n*elcopy - *eiwithout re-encoding*n *enpcm - *eiuncompressed PCM audio*n *enmp3lame - *eiMP3 using libmp3lame*n *enlavc - *eiFFmpeg audio encoder (MP2, AC3,...)*n *enfaac - *eiFAAC AAC audio encoder*n *ebZa format muzete pridat jeste dalsi parametry"
    
        REQUESTFILE >ENV:output TITLE "Save" DRAWER ram:
    
        echo "Ted by se mel s Kromovou pomoci spustit mencoder podle zadani"
    
    
        mplayer:mencoder $file -ss $start -endpos $konec -ovc $video -oac $audio -o $output
    
      ENDIF
    
    ;konec
    Aby to chodilo je potreba mit muirequeststring a requestchoicemui (Aminet). Oboji v C:

    Nekdo zkuste jestli to bude fungovat.

    BTW: Metoda "Cybersite" je fakt dobra. Hezky langsam, netlacit na pilu, cist dokumentaci a zkouset...
    Amiga DraCo DaMi PegasosII G4 G5
Zpracovávám...
X