贵港北京网站建设,江苏建设机械网站,龙岩做网站公司有哪些,拼多多 wordpress请大家先看右边的动画演示。这个动画就是由 jimbob 制作的#xff0c;您可以到这里来下载这个动画的原始文件。下面请看他的详细解释#xff1a; If Frame Is Loaded (end)Go to and Play (start)End Frame Loaded initalise:Comment: Comment: 初始… 请大家先看右边的动画演示。这个动画就是由 jimbob 制作的您可以到这里来下载这个动画的原始文件。下面请看他的详细解释 If Frame Is Loaded (end)Go to and Play (start)End Frame Loaded initalise:Comment: Comment: 初始化全局变量Set Variable: pi 3 .1415Set Variable: worldRotX .496 //初始化旋转度Set Variable: worldRotY 5 .267Set Variable: centerx 160 //3D中心的X,Y位置Set Variable: centery 180// 设置点的3D坐标值 用 分割XYZ R分割各个点Set Variable: ptsetstringA 40,40,-40R-40,40,-40R-40,-40,-40R40,-40,-40R40,40,40R-40,40,40R-40,-40,40R40,-40,40RSet Variable: numberofpts 8 //点数Start Drag (/drag, lockcenter)Comment: Comment: 设置点位置Set Variable: inptsetstring ptsetstringASet Variable: inshapename cubeSet Variable: innumberofpts numberofptsCall (make matrix) //返回各个点的3D坐标如 cobe_01_x50// cobe_01_y50// cobe_01_z-50 Comment: Comment: 生成其余的光球Set Variable: counter 1Loop While (counter numberofpts)Set Variable: counter counter 1Duplicate Movie Clip (light1, light counter, counter 10)End Loop display stars:Comment: Comment: 获取当前鼠标位置Set Variable: Xm GetProperty (/drag,_x)Set Variable: Ym GetProperty (/drag,_y)Comment: 获取当前跟踪位置Set Variable: Xf centerxSet Variable: Yf centeryComment: 计算间隔并由加速度计算当前位置Set Variable: Sx Xm-XfSet Variable: Sy Ym-YfSet Variable: Xnew Xf(Sx/50)Set Variable: Ynew Yf(Sy/50)Comment: Comment: 设置旋转度Comment: Set Variable: worldRotX worldRotX (((Ym - Yf) /300)*0 .5)// 根据鼠标位移来改变旋转度If (worldRotX(2*pi))Set Variable: worldRotX worldRotX-(2*pi)End IfIf (worldRotX0)Set Variable: worldRotX worldRotX(2*pi)End IfSet Variable: worldRotY worldRotY - (((Xm-Xf)/400)*0 .5)// 根据鼠标位移来改变旋转度If (worldRotY(2*pi))Set Variable: worldRotY worldRotY-(2*pi)End IfIf (worldRotY0)Set Variable: worldRotY worldRotY(2*pi)End IfCall (spinXY) //获取转换后新点的3D坐标// ? 如 cube_01_tx; cube_01_ty; cube_01_tzComment: Comment: 画光球Comment: Set Variable: counter 0Loop While (counter numberofpts)Set Variable: counter counter 1Set Variable: lightnum 0counterSet Variable: WhichLight light counterCall (display light) //画出光球End LoopSet Variable: centerx XnewSet Variable: centery Ynew loop back:Go to and Play (display stars) spinXY:If (worldRotX0)Set Variable: tmpX worldRotXSet Variable: tmpX Substring(tmpX,1,1) Substring(tmpX,3,2)Set Variable: sinX eval(/sin:sintmpX)ElseSet Variable: tmpX worldRotXSet Variable: tmpX Substring(tmpX,2,1) Substring(tmpX,4,2)Set Variable: sinX 0 - eval(/sin:sintmpX)End IfIf (worldRotY0)Set Variable: tmpY (worldRotY 10 .0001)Set Variable: tmpY Substring(tmpY,2,1) Substring(tmpY,4,2)Set Variable: sinY eval(/sin:sintmpY)ElseSet Variable: tmpY (worldRotY -10 .0001)Set Variable: tmpY Substring(tmpY,3,1) Substring(tmpY,5,2)Set Variable: sinY 0 - eval(/sin:sintmpY)End IfSet Variable: cosX eval(/cos:costmpX)Set Variable: cosY eval(/cos:costmpY)Set Variable: counter 0Loop While (counter numberofpts)Set Variable: counter counter 1Set Variable: in counterIf (length(in) 1)Set Variable: in 0 inEnd If// 根据旋转角度算出新的3D坐标Set Variable: tmp_zpos eval(cube_in_z) * cosY - eval(cube_in_x) * sinYSet Variable: cube_in_tx eval(cube_in_z) * sinY eval(cube_in_x) * cosYSet Variable: cube_in_tz eval(cube_in_y) * sinX tmp_zpos * cosXSet Variable: cube_in_ty eval(cube_in_y) * cosX - tmp_zpos * sinXEnd Loop display line:Call (make 2d pointset) //根据3D坐标算出2D的x,y位置Set Variable: tmpAlpha eval(cube_eval(lightnum)_fa) //获得点的透明度If (tmpAlpha 12)Set Property (WhichLight, Alpha) tmpAlpha Set Property (WhichLight, X Scale) tmpAlpha //光球的放大倍数透明度Set Property (WhichLight, Y Scale) tmpAlphaSet Property (WhichLight, X Position) eval(cube_eval(lightnum)_fx)Set Property (WhichLight, Y Position) eval(cube_eval(lightnum)_fy)Set Property (WhichLight, Visibility) 1ElseSet Property (WhichLight, Visibility) 0End If make 2d pointset:Set Variable: scalar (1 / (eval( cube_lightnum_tz ) / 300 1))// z坐标影响线的深度Set Variable: xp scalar * eval(cube_lightnum_tx)Set Variable: yp scalar * eval(cube_lightnum_ty)Set Variable: cube_lightnum_fx xp XnewSet Variable: cube_lightnum_fy yp YnewSet Variable: cube_lightnum_fa ((scalar - .7 ) * 133)20// 由深度取得透明度 make matrix:Comment: Comment: 设置点的3D坐标Comment: 用 分割XYZ R分割各个点Set Variable: whichOne 1Set Variable: whichchar 0Set Variable: tmpstring Loop While (whichOne (innumberofpts1))Set Variable: letter whichOneIf (Length ( letter ) 1)Set Variable: letter 0 letterEnd IfSet Variable: whichXYZ xSet Variable: loopy 0Loop While (loopy 1)Set Variable: whichchar whichchar 1If (Ord(substring(inptsetstring,whichchar,1)) 82)Set Variable: loopy 1Set Variable: whichOne whichOne 1Else If (Ord(substring(inptsetstring,whichchar,1)) 44)Set Variable: tmpstring If (whichXYZ eq x)Set Variable: whichXYZ yElse If (whichXYZ eq y)Set Variable: whichXYZ zEnd IfElseSet Variable: tmpstring whichXYZ eval(tmpstringwhichXYZ) substring(inptsetstring,whichchar,1)End IfEnd LoopSet Variable: inshapename_letter_x tmpstringxSet Variable: inshapename_letter_y tmpstringySet Variable: inshapename_letter_z tmpstringzSet Variable: tmpstringx Set Variable: tmpstringy Set Variable: tmpstringz End Loop MC sin: //从字符串中取出sin值Set Variable: thetext 0 .0000 .0100 ... 中间数据略 ....01-0 .00Set Variable: counter -1Loop While (counter 629)Set Variable: counter counter 1If (length(counter)1)Set Variable: tmpName sin00counterElse If (length(counter)2)Set Variable: tmpName sin0counterElse If (length(counter)3)Set Variable: tmpName sincounterEnd IfSet Variable: tmpName substring(thetext,(counter*5)1,5)End Loop MC cos: //从字符串中取出cos值Set Variable: thetext 1 .0001 .0000 ... 中间数据略 ... .9991 .000Set Variable: counter -1Loop While (counter 629)Set Variable: counter counter 1If (length(counter)1)Set Variable: tmpName cos00counterElse If (length(counter)2)Set Variable: tmpName cos0counterElse If (length(counter)3)Set Variable: tmpName coscounterEnd IfSet Variable: tmpName substring(thetext,(counter*5)1,5)End Loop 有什么问题请联系我们。 下载原始代码转载于:https://www.cnblogs.com/savageworld/archive/2006/07/29/462702.html
