・EFFECTS PROJECTS ・CUSTOM EFFECTS ・EXPRESSION ・SCRIPT
SCRIPT MEMO
現在、スクリプトファイルのダウンロードに、制限を設けております。
(To download the project files, we set limits.)
（カスタムランチャー）
var panelName = “hoge”;
function createUI(thisObj) {
var myPanel = ( thisObj instanceof Panel) ? thisObj : new Window(”palette”, “toolPallet”,[100, 100, 300, 300]);
//WINDOW情報
BTN_MARGIN =0 ;
BTN_WIDTH = 58;
BTN_HEIGHT =20;
BTN_STARTWIDTH = 0;
BTN_STARTHEIGHT = 20;
//スクリプトとアイコンのパス
folderObj = Folder (”../”+panelName+”/”);//フォルダを指定
jsxFileList = folderObj.getFiles(”*.jsx”);//フォルダ内をJSXでフィルタ
pngFileList = folderObj.getFiles(”*.png”);//フォルダ内をPNGでフィルタ
var jsxNum = jsxFileList.length;
btn=0;
//ファイルの数だけボタンを作成
for (var i =0; i< =jsxNum-1; i++)
{
if(pngFileList[i].exists)
btn[i]=myPanel.add("iconbutton", [BTN_STARTWIDTH, BTN_STARTHEIGHT*(i+1), BTN_STARTWIDTH+BTN_WIDTH, BTN_STARTHEIGHT+BTN_HEIGHT*(i+1)],pngFileList[i], {style:"toolbutton"});};
return myPanel;
};
createUI(this);
（AE To Backburner Render）
Dim strRun
Dim arrPath
Set objDialog = CreateObject("UserAccounts.CommonDialog")
Set objWshShell = WScript.CreateObject("WScript.Shell")
objDialog.Filter = "Adobe After Effects プロジェクト (*.aep) | *.aep"
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
If intResult = 0 Then
Wscript.Quit
Else
Dim i
Dim strPath
Dim strFile
strPath = objDialog.FileName
arrPath = split(strPath,"\")
i = UBound(arrPath)
strFile = arrPath(i) & "-" & Timer
objWshShell.Run """C:\Program Files\Autodesk\Backburner\cmdjob"" -jobname " & strFile & " -numTasks 3 -serverCount 3 ""C:\Program Files\Adobe\Adobe After Effects 7.0\Support Files\aerender"" -project " & strPath, 1, False
End If
Backburner Submit UI
http://www.leapfrog-productions.com/Scripts/BackburnerSubmit/backburnersubmit.html
Backburner Web Server
http://gofar2.iobb.net/~htaka/wordpress/archives/1074