動画その他 | Macの手書き説明書

動画その他のINDEX

ビデオチャットに様々なエフェクトをかけることができる『CamTwist』（2009年09月26日）
フォルダに入れたWMV動画を連続再生できるように連結するAppleScript （2009年08月02日）
ストップモーションムービーを簡単作成『FrameByFrame』（2008年05月11日）
Webカメラの映像をそのまま録画しYouTubeに投稿『Vidnik』（2008年05月11日）
Flashビデオに対応したメディアプレーヤー『Adobe Media Player』（2008年04月10日）

| PAGE-SELECT | NEXT ≫

≫ EDIT

2009年09月26日

ビデオチャットに様々なエフェクトをかけることができる『CamTwist』

Webカメラから入力された動画を色々弄くり倒すことができるアプリです。

ビデオチャットに様々なエフェクトをかけたり、デスクトップ配信、動画再生、画像スライドショーなどUSTREAMなどの動画配信のお供にけして欠かせない存在。

Quartz Composerファイルを用意すれば独自のエフェクトをかけられそうですね。

ビデオチャットや動画配信サイトのソースにWebカメラの替わりにCamTwistを指定して使います(iChatだけには未対応)。

白黒、ぼかし、歪み、反転、時計を表示させたり、指定した時間をカウントダウンさせたり、RSSを表示させたり、地震みたいに画面を揺らしたり、iTunesで再生している曲を表示させたり、やれることが多過ぎてとても書ききれないほど。

またエフェクトにホットキーを設定しておくことにより、任意のタイミングでエフェクトをかけられてプレゼンなどにも利用できそうです。

ダウンロードする

Tag : 動画エフェクト QuartzComposer

≫ EDIT

2009年08月02日

フォルダに入れたWMV動画を連続再生できるように連結するAppleScript

AddMovieの記事へのコメントで教えていただいたAppleScriptです。

むふふなサンプル動画の連結などに大変重宝します。

要 Flip4Mac

(* 
指定フォルダ内のwmv/wmaファイルから、.asxメタファイルまたはQuickTimeムービーを作成して連続再生できるようにします。 
（QuickTimeムービーの作成には、Flip4Mac WMV Componentが必要です） 
*)
--ダブルクリックで（又，メニューから）起動したとき，"ムービーファイル" を含むフォルダを選択させる 
on run
	
	choose folder with prompt "連結するムービーファイルのみを含むフォルダを指定"
	set target_Folder to result
	generate(target_Folder)
end run

--フォルダをドラッグ＆ドロップしたとき 
on generate(target_Folder)
	try
		tell application "Finder"
			set target_File_List to every file of folder target_Folder whose name extension is in {"mov", "mp4", "m4v", "wmv", "wma"}
		end tell
		display dialog "連結 ムービーを作成します" buttons {"Cancel", "OK"} default button 2 giving up after 2 --& return & "( Flip4Mac WMV コンポーネントが必要です)" 
		join_Movie(target_File_List)
	end try
end generate

on join_Movie(target_File_List)
	tell application "QuickTime Player"
		activate
		try
			set show movie info window to false --情報ウィンドを閉じる--誤作動防止 
		end try
		
		make new document --新規ムービー（書類）を作成 
		set new_Movie to name of document 1 ----新規ムービーの仮の名前--通常「名称未設定」になっている 
		repeat with Chop_Movie in target_File_List
			with timeout of 600 seconds
				open Chop_Movie as alias
				set Chop_Movie_Name to name of Chop_Movie
				tell document Chop_Movie_Name
					select all
					copy
				end tell
				close document Chop_Movie_Name
				tell document new_Movie
					paste
					select none
				end tell
			end timeout
		end repeat
		
		tell document new_Movie
			rewind
		end tell
		set show movie info window to true --情報ウィンドを開く 
		beep 2
		display dialog "できあがったムービーを保存しますか？" buttons {"キャンセル", "保存"} default button 2
		if button returned of result is "保存" then save document 1
		
	end tell
end join_Movie