QuickTime

[AppleScript]ffmpeg用のコマンドを整形する(ムービーから選択範囲を切り出す)

Website_image00290115_194738

QuickTime(もう終わった技術なのね…)プレーヤーで
選択範囲を切り出します。

ffmpeg用のコマンドを整形だけのスクリプト
コマンドはターミナルで実行します。

QuickTimeで切り出したい選択範囲を作ったら
スクリプトを実行します

Website_image00290115_200334


ここにコマンドがログとして出力されます
これをコピーして
ターミナルにペーストします

Website_image00290115_200403


終了すると


Website_image00290115_201250


選択部分のみ書出されます。

(*
QuickTimeプレーヤー上での選択範囲を
ffmpegで切り出すコマンドに整形します。
ffmpegが必須
QuickTime Player 7用なのでOS的には10.9までか?
*)



tell application "QuickTime Player 7"
tell document 1
properties
---選択部スタート部を取得
set numSelectStart to get selection start
---選択部の長さを取得
set numSelectDura to get selection duration
---開いているファイルのパスを取得
set aliasCurentMovie to original file as alias
---開いているファイルの縦横サイズを取得
set listNatDimension to natural dimensions as list
end tell
end tell


--------ここから切り取りはじめる時間+秒数の小数点以下を取得
set theTime to "0"
set theTimeDec to "00"
set theTimeDecNo to "00"
set theTimeInt to "00"

set theTime to numSelectStart as number
set theTime to theTime / 600 as number
set theTimeDec to (theTime mod 1) as text
set theTimeDecNo to doReplace(theTimeDec, "0.", "")
set theTimeInt to theTime - theTimeDec as integer
set theTimeInt to FormatSeconds(theTimeInt)
set theStartTime to "" & theTimeInt & "." & theTimeDecNo & ""
log theStartTime

--------ここから、切り取る時間+秒数の小数点以下を取得
set theTime to "0"
set theTimeDec to "00"
set theTimeDecNo to "00"
set theTimeInt to "00"

set theTime to numSelectDura as number
set theTime to theTime / 600 as number
set theTimeDec to (theTime mod 1) as text
set theTimeDecNo to doReplace(theTimeDec, "0.", "")
set theTimeIntNo to theTime - theTimeDec as integer
set theTimeInt to FormatSeconds(theTimeIntNo)
set theDuraTime to "" & theTimeInt & "." & theTimeDecNo & ""
log theDuraTime

--------
---ひらいているファイルのエイリアスをUNIXパスに変換
set theOriginalMovie to POSIX path of aliasCurentMovie as text
---横サイズを取得
set theImageWidth to item 1 of listNatDimension as text
---縦サイズを取得
set theImageHeight to item 2 of listNatDimension as text
---新しいファイル名を定義
set theExpFile to (theOriginalMovie & "_" & theImageWidth & "X" & theImageHeight & "_" & theTimeIntNo & "sec.mp4") as text
---コマンドまでのパスを定義
set theffmpegPath to "'/usr/local/bin/ffmpeg'"
---コマンドラインを生成
set theCommandCom to (theffmpegPath & " -i \"" & theOriginalMovie & "\" -ss " & theStartTime & " -t " & theDuraTime & " -strict -2 \"" & theExpFile & "\"") as text
---コマンドラインをログとして書出す
log "\n" & theCommandCom & "\n"
return theCommandCom

------------------#ゼロサプレス
to doZeroSupp(n)
if n < 10 then
return "0" & n
else
return n as text
end if
end doZeroSupp

-----#文字の置き換え
to doReplace(theText, orgStr, newStr)
set oldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to orgStr
set tmpList to every text item of theText
set AppleScript's text item delimiters to newStr
set tmpStr to tmpList as text
set AppleScript's text item delimiters to oldDelim
return tmpStr
end doReplace

-------時間表示整形
(*
www.jesseweb.comから転記
数値としての秒数を HH:mm:ss 形式に変換します。
*)
on FormatSeconds(totalSeconds)
set theHours to (totalSeconds div hours)
set theRemainderSeconds to (totalSeconds mod hours)
set theMinutes to (theRemainderSeconds div minutes)
set theRemainderSeconds to (theRemainderSeconds mod minutes)
if length of (theHours as text) = 1 then
set theHours to "0" & (theHours as text)
end if
if length of (theMinutes as text) = 1 then
set theMinutes to "0" & (theMinutes as text)
end if
if length of (theRemainderSeconds as text) = 1 then
set theRemainderSeconds to "0" & (theRemainderSeconds as text)
end if
set theTimeString to theHours & ":" & theMinutes & ":" & theRemainderSeconds as text
return theTimeString
end FormatSeconds

「Movie2Cut_qt7.scpt」をダウンロード


|

[QuickTime]フルスクリーン+リピート再生

自分用


(*
QuickTimeでムービーをフルスクリーン表示する


事前設定として
スクリーンセーバー設定 しない
省エネルギー設定 画面スリープしない

*)



set theUnixPath to "/System/Library/CoreServices/Setup Assistant.app/Contents/Resources/TransitionSection.bundle/Contents/Resources/intro.mov" as text
set aliasOpenPath to (POSIX file theUnixPath) as alias


tell application "QuickTime Player"

open aliasOpenPath

tell window 1
activate
set the zoomed to true as boolean
set the visible to true as boolean
set the miniaturized to false as boolean
set the index to 1 as integer
end tell

tell document 1
activate
set the audio volume to 0.8
set the looping to true as boolean
set the presenting to true as boolean
play
end tell
activate

end tell


「QuickTimePlayerFullScreen.scpt.zip」をダウンロード


(*
VLCでムービーをフルスクリーン表示する
リピート設定でエンドレス
メニュー→再生→一曲リピート

事前設定として
スクリーンセーバー設定 しない
省エネルギー設定 画面スリープしない

*)


set theUnixPath to "/System/Library/CoreServices/Setup Assistant.app/Contents/Resources/TransitionSection.bundle/Contents/Resources/intro.mov" as text

set aliasOpenPath to (POSIX file theUnixPath) as alias

tell application "VLC"
activate
(open aliasOpenPath) fullscreen
end tell

「VlcFullScreen.scpt.zip」をダウンロード


|

XviD codec for Mac


Website_image00281008_220537


http://www.xvidmovies.com/mac/

|

[QuickTime]ムービーが保存出来ない(ムービーに不正な時間情報が含まれています。)

QuickTimeで『ムービーに不正な時間情報が含まれています。』のエラーが出て
ムービーファイルを保存出来ない場面は色々あります。
今回の例はあくまでも「ケース」ですので…

Website_image00270411_235517

こんなメッセージで保存出来ない場面です

今回のケースで共通しているのは
インスペクタでの「データ容量」が0バイト

Website_image00270411_235545


データ内にメタデータが書き込まれている


Website_image00270411_235614

ムービーのプロパティで
同じように
『データレート』が0になっている

Website_image00270411_235754

これは
ffmpegのMetadataで
major_brand : mp42 で発生する(と、私は勝手に思っている)
(QuickTimeが解釈できないんじゃないか?と…でも…
MS-MPEG4 v1 & v2はPerianが対応している…どうなんだろう…)
(PerianのMS-MPEG4 v1 & v2は再生は出来るが保存出来ない…って事かも…)


Website_image00270412_00244


解決策は、先日記載した
[MPEG-DASH]YouTubeビデオをダウンロードする。(2014-15版)
http://force4u.cocolog-nifty.com/skywalker/2015/04/mpeg-dashyoutub.html

でも
記載しましたが、「私の場合は」
ffmpegを通して解決しています。
構文は以下
ffmpeg -i ビデオファイル  -strict -2  出力ファイル 

/usr/local/bin/ffmpeg -i /Users/Shared/Downloads/input.mp4 -strict -2 /Users/Shared/Downloads/output.mp4


|

[Component]Flip4Mac WMVComponent 有料化かぁ

Website_image00260614_233255

もう、数年前から友人の古い携帯ムービー以外では
使う事は無くなっていたが
いつのまにか?
「無料」のオプションが無くなったのね

まだ
ダウンロードファイルはあるようなので
使う事があるかも?な人はダウンロードしておくと良いでしょう
http://force4u.cocolog-nifty.com/skywalker/windowsmedia/index.html

自分的には
以下のバージョンを一応保存したが
使わないだろうなぁ…もう

http://www.telestream.net/download-files/flip4mac-wmv/Flip4Mac-WMV-2.2.3.7.dmg

http://www.telestream.net/download-files/flip4mac-wmv/Flip4Mac-WMV-2.1.3.10.dmg

http://www.telestream.net/download-files/flip4mac-wmv/Flip4Mac-WMV-2.3.8.1.dmg

http://www.telestream.net/download-files/flip4mac-wmv/Flip4Mac-WMV-2.3.4.1.dmg

http://www.telestream.net/download-files/flip4mac-wmv/Flip4Mac-WMV-2.2.1.11.dmg

http://www.telestream.net/download-files/flip4mac-wmv/Flip4Mac-WMV-2.3.4.1.dmg

http://www.telestream.net/download-files/flip4mac-wmv/Flip4Mac-WMV-2.4.0.11.dmg

http://www.telestream.net/download-files/flip4mac-wmv/Flip4Mac-WMV-2.4.4.2.dmg

http://www.telestream.net/download-files/flip4mac/3-3/Flip4Mac-3.3.dmg


http://www.telestream.net/download-files/flip4mac/3-3/Flip4Mac-3.3.4.dmg

|

[AVCHD]AVCHD QuickTime Plug-in component

AVCCAM Importer


【Download】


Source:【Download】

Source:Download


|

QTPluginDicom


PatiSoftware-Products-QTPluginDicom


メディカル関係の方は少し便利になるかも?しれませんね
プレゼンとかQuickTimeで軽く作れますね

|

[AppleScript]QuickTime7でのビデオトラックの削除

Website_image20110428_20558

続きを読む "[AppleScript]QuickTime7でのビデオトラックの削除"

| | トラックバック (0)

Flash Panorama Player and QTVR Converter

Image20110218_42237


Flash Panorama Player and QTVR Converter - Pano2VR - Garden Gnome SoftwareFlash Panorama Player and QTVR Converter - Pano2VR - Garden Gnome Software:新しいウィンドで開きます

| | コメント (0) | トラックバック (0)

[Component] A52Codec

Image00230107_85548

A52Codecアイコン:新しいウィンドで開きます


Image00230107_85624

Perian - The swiss-army knife of QuickTime® componentsアイコン:新しいウィンドで開きます

| | コメント (0) | トラックバック (0)

その他のカテゴリー

Accessibility | AccessibilityCheck | AccessibilityForm | AccessibilityInDesign | AccessibilityPDF | Acrobat | Acrobat Action | Acrobat Annotation | Acrobat AppleScript | Acrobat Layer | Acrobat Plug-ins | Acrobat Portfolios | Acrobat Print | AcrobatBarcode | AcrobatDialog | AcrobatForm | AcrobatJS | AcrobatMenu | AcrobatPDF | AcrobatStamp | AcrobatYouTube | AddressBook | Adobe | Adobe InDesign | AdobeAppleScript | AdobeBridge | AdobeIllustrator | AdobeJSX | aed | Alfresco | Android | AnimationGif | Apple | AppleScript | AppleScriptBasics | AppleScriptCharacter | AppleScriptColor | AppleScriptDroplet | AppleScriptErrorNum | AppleScriptFolder | AppleScriptFontBook | AppleScriptRename | AppleScriptTools | AppleSymbols | Applications | Barcode | Barcode2D | BarcodePostal | BetterHTMLExport | Book | Browser | buzz | Certificates | CharacterEntity | CharacterSets | Colors | Cool Site | CSS | Cutting | DecoMail | DecorationMail | Design | Desktop | Diff | DJ | dmg | DNS | Documents | Download | eBook | Editer | eMail | Envelopes | ExifTool | Facebook | FFmpeg | File System | Fonts | FontsTool | FontsWeb | FOOD | FormPrint | ftp | Gadget | Gif Animation | Google | HexEditor | HTML | info | iPhoto | ISBN | ISO | iTunes | iWork | iWorkNumbers | iWorkNumbersCalendar | iWorkNumbersTimecard | iWorkPages | JavaScript | JeditX | JeditX Regexp | JeditXAppleScript | JIS | jquery | Letterpress | Library | logo | Mac Admin | Mac Archiver | Mac Browser | Mac Browser Plugin | Mac QuickLook | Mac Spotlight | Mac Video | Map | Mobby | Moto | Movies | Music | Network Basic | ntp | OCR | Office | OSX | Pantone | Paper | PDFlib | Permission | Photo | Pictograms | Print | Public | QuickLook | QuickTime | QuickTimeSetting | QuickTimeSound | Real Media | ReName | ResourceFork | ruby | Screen | ScreenCast | Search | Security | SEO | Sharing | SLAResource | Spotlight | Stamp | SWF | Tutorial PSD | TV | Twitter | Typography | Unicode | Utilities | Video | WebFont | Wedding | Windows | WindowsMedia | XML | XMP | XPS | YouTube | YouTube Rss