home *** CD-ROM | disk | FTP | other *** search
/ GameStar Special 2002 April / GSSH42002.iso / EDITOREN / DS / gmax / gmaxinst_1-1.exe / gmaxsetup11.cab / Macro_InitalPose.ms < prev    next >
Text File  |  2002-02-13  |  3KB  |  99 lines
  1. macroScript FreezeRotation
  2.  
  3.     ButtonText:"Freeze Rotation"      
  4.     Category:"Animation Tools"      
  5.     Tooltip:"Freeze Rotation"  
  6. (     
  7.     fn FreezeRotation =     
  8.     (         
  9.         local Obj = Selection as array         
  10.         for i = 1 to Obj.count do         
  11.         (             
  12.             local CurObj = Obj[i]             
  13.             CurObj.rotation.controller = Euler_Xyz()         
  14.             CurObj.rotation.controller = Rotation_list()         
  15.             CurObj.rotation.controller.setname 1 "Inital Pose"         
  16.             CurObj.rotation.controller.available.controller = Euler_xyz()         
  17.             CurObj.rotation.controller.setname 1 "Inital Pose"         
  18.             CurObj.rotation.controller.setname 2 "Keyframe XYZ"         
  19.             CurObj.rotation.controller.SetActive 2         
  20.         )         
  21.         select Obj 
  22.     ) 
  23.     FreezeRotation()
  24.  )
  25. macroScript FreezePosition
  26.  
  27.     ButtonText:"Freeze Position"      
  28.     Category:"Animation Tools"      
  29.     Tooltip:"Freeze Position"  
  30. (     
  31.         fn PositionToZero =
  32.     (
  33.         local Obj = Selection as array
  34.         for i = 1 to Obj.count do
  35.         (
  36.             local CurObj = Obj[i]
  37.             CurObj.Position.controller[2].x_Position = 0
  38.             CurObj.Position.controller[2].y_Position = 0
  39.             CurObj.Position.controller[2].z_Position = 0        
  40.         )
  41.         select Obj
  42.     )
  43.     
  44.     fn FreezePosition =     
  45.     (         
  46.         local Obj = Selection as array         
  47.         for i = 1 to Obj.count do         
  48.         (             
  49.             local CurObj = Obj[i]             
  50.             CurObj.position.controller = Bezier_Position()             
  51.             CurObj.position.controller = position_list()             
  52.             CurObj.position.controller.setname 1 "Inital Pose"             
  53.             CurObj.position.controller.available.controller = Position_XYZ()                         
  54.             CurObj.position.controller.setname 2 "Keyframe XYZ"             
  55.             CurObj.position.controller.SetActive 2         
  56.         )         
  57.         select Obj     
  58.     )     
  59.     FreezePosition()
  60.     PositionToZero() 
  61. ) 
  62. MacroScript RotationToZero
  63.     ButtonText:"Rotation To Zero" 
  64.     Category:"Animation Tools" 
  65.     Tooltip:"Rotation To Zero" 
  66. (
  67.     fn RotationToZero =
  68.     (
  69.         local Obj = Selection as array
  70.         for i = 1 to Obj.count do
  71.         (
  72.             local CurObj = Obj[i]
  73.             CurObj.rotation.controller[2].x_rotation = 0
  74.             CurObj.rotation.controller[2].y_rotation = 0
  75.             CurObj.rotation.controller[2].z_rotation = 0        
  76.         )
  77.         select Obj
  78.     )
  79.     RotationToZero()
  80. )
  81. MacroScript PositionToZero
  82.     ButtonText:"Position To Zero" 
  83.     Category:"Animation Tools" 
  84.     Tooltip:"Position To Zero" 
  85. (
  86.     fn PositionToZero =
  87.     (
  88.         local Obj = Selection as array
  89.         for i = 1 to Obj.count do
  90.         (
  91.             local CurObj = Obj[i]
  92.             CurObj.Position.controller[2].x_Position = 0
  93.             CurObj.Position.controller[2].y_Position = 0
  94.             CurObj.Position.controller[2].z_Position = 0        
  95.         )
  96.         select Obj
  97.     )
  98.     PositionToZero()
  99. )