rotate3DPoint

始めにAnimation Engineを開いて、start using stack "animationEngine"
サンプルスタックは、下記をメッセージボックスにコピペしてリターンキーを
go stack \
    url "http://kenjikojima.com/livecode/ae/rotate3DPoint.livecode"
    
3D 座標の立体が、平面上で回転しているようにポリゴンを描く値を返します。図参照。
基本形体の XYZ座標は、右の表のようにae3dConvertToScreenで変換した立体を描く
ポリゴンのグループです。
基本形体に回転のアングルをパラメータで与えて、それぞれのポイントを得ます。


基本構文：

rotate3DPoint(基本形体のX座標, 基本形体のY座標, 基本形体のZ座標, \ 
 Xの回転アングル,Yの回転アングル,Zの回転アングル[, 焦点距離])

rotate3DPoint(x,y,z,XRotation,Yrotation,Zrotation[,pFocalLength])


サンプル：
X軸だけの回転、 Y軸だけの回転、 Z軸だけの回転、その他複合の回転ができるように
rX, rY, rZ のチェックボックスを作ります。



-- まず、ボタン「tStart」に、カスタムプロパティにフィールド「tPoints」にある、
-- 基本形体の XYZ座標をセットします。
 set the cPoints of btn "tStart" to field "tPoints" 


-- ボタン「スタート」のスクリプト
local lPoints,lAngleX,lAngleY,lAngleZ

on mouseUp
 put the cPoints of me into lPoints
 -- カスタムプロパティのcPoints を基本形体のポイントリストにする

 if the flag of me is empty then set the flag of me to false
 set the flag of me to not the flag of me

 if the flag of me then 
 -- XYZ の回転アングルを 0 に
 	put 0 into lAngleX
 	put 0 into lAngleY
 	put 0 into lAngleZ
 	set the label of me to "stop"
 	rotateMe
 else
 	set the label of me to "start"
 end if
end mouseUp

-- send rotate to me があるので、 Rev 3.0 では private command は使えません
on rotateMe
 lock screen
 -- チェックボックスがハイライトになっていたら、アングルを 1 づつ加える
 if the hilite of btn "rX" then
 	put lAngleX+1 into lAngleX
 end if
 if the hilite of btn "rY" then
 	put lAngleY+1 into lAngleY
 end if
 if the hilite of btn "rZ" then
	 put lAngleZ+1 into lAngleZ
 end if

 -- 基本形体のポイント数だけリピート
 repeat for each line theLine in lPoints
 	if theLine is not empty then
	 -- 回転アングルの数値の 3D ポイントを得て theLine2に入れる
 		put rotate3DPoint(item 1 of theLine,item 2 of theLine,item 3 of theLine,\
 		lAngleX,lAngleY,lAngleZ) into theLine2

 	-- 上の 3D ポイントを平面上のポイントに変換する
 		put ae3DConvertToScreen(item 1 of theLine2,item 2 of theLine2,item 3 of theLine2,\
 		the loc of this cd,800)&cr after screenPoints
 	else 
	 -- ひと筆描きのポリゴンのブレーク
	 put cr&cr after screenPoints
 	end if
 end repeat

 -- 得られた screenPointsでポリゴンを描く
 set the points of grc "threeD" to screenPoints
 wait 0 milliseconds with messages
 unlock screen

 if the flag of me then send rotateMe to me in 5 milliseconds
end rotateMe