Maxscript:Add_Skew_To_Camera

Add_Skew_To_Camera_v20131113.ms

/*
Add Skew To Camera

・選択カメラに対し　縦横のスキュー適応、コントロール用のアトリビュート追加
・ワイヤパラメータを使用してるので、日本語版のみ
・アトリビュートを削除したい場合は"custAttributes.delete $ 1"

*/


Temp = selection as array
if Temp.count == 1	and	superclassof Temp[1] == Camera then
(
Cam	=	Temp[1]
addModifier Cam (skew name:"Skew_Y"	amount:0	direction:90	axis:3)
addModifier Cam (skew name:"Skew_X"	amount:0	direction:0		axis:3)


CamOffsetCA	=	 attributes CA_Offset	(
	parameters	main	rollout:Roll_Offset	(
		SkewX	ui:spn_SkewX	type:#float	default:0
		SkewY	ui:spn_SkewY	type:#float	default:0
	)
	rollout	Roll_Offset	"オフセット量"	(
		spinner	spn_SkewY	"縦"	range:[-30,30,0]	fieldWidth:50	align:#center
		spinner	spn_SkewX	"横"	range:[-30,30,0]	fieldWidth:50	align:#center
	)
)

custAttributes.add	Cam.baseObject	CamOffsetCA

paramWire.connect2Way	$.CA_Offset[#skewX]	$.Skew_X[3]	"'量'"	"SkewX"
paramWire.connect2Way	$.CA_Offset[#skewY]	$.Skew_Y[3]	"'量'"	"SkewY"
)
free	Temp
free	Cam