home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2002 April / maximum-cd-2002-04.iso / Software / Apps / gmax / gmaxinst.exe / gmaxsetup11.cab / controllerfunctions.ms < prev    next >
Encoding:
Text File  |  2001-09-12  |  3.5 KB  |  95 lines
  1. -- Functions for Controller Access, MacroScript File
  2. --
  3. -- Created:          May 17 2000
  4. -- Last Updated:     Jan 4 2000
  5. --
  6. -- Author :   Frank DeLise
  7. -- Version:  3D Studio Max Version 4.0
  8. --
  9. -- 
  10. -- Functions for accessing Controllers
  11. --***********************************************************************************************
  12. -- MODIFY THIS AT YOUR OWN RISK
  13. -- Removed IsPosXYZ() filters, moved them into FilterFunctions.ms
  14. -- Removed Prompting to the listner window Aug 15, 2000 -FD
  15. -- Updated Target additions for the new constraint function publishing October 6 2000
  16. -- Jan 4 Added support for HI and HD IK
  17.  
  18. fn AddListController OBJ Trans ListType = 
  19. (
  20.     Try
  21.     (
  22.         local xformC
  23.         -------------------------------------------------------------------------------------------
  24.         -- If object has IK assigned apply to subController, if it's an IK goal apply to Ik goal  if not, apply to controller
  25.         -------------------------------------------------------------------------------------------
  26.         if classof OBJ.controller == IKControl then  xformC = OBJ.controller.fk_sub_control.controller
  27.             else if classof OBJ.controller == IKChainControl then  xformC = OBJ.controller.IK_goal.controller
  28.                 else xformC = OBJ.controller
  29.         
  30.         if classof xformC == IK_ControllerMatrix3Controller do
  31.         (    if (substring (Trans as string) 1 3) as name == #pos then Trans = getsubanimname xformC 1
  32.             else if (substring (Trans as string) 1 3) as name == #rot then Trans = getsubanimname xformC 2
  33.         )
  34.  
  35.         if classof xformC == Link_Constraint do xformC = xformC.link_params
  36.  
  37.         local oldC = getPropertyController xformC trans
  38.         if classof oldC != ListType then
  39.         (    local newC = execute (ListType as string + "()")
  40.             if (setPropertyController xformC trans newC) == undefined do throw 0
  41.             newC
  42.         )
  43.         else
  44.             oldC
  45.     )
  46.     Catch (MessageBox "List Controller Error!" Title:"Controller Functions";throw())
  47. ) 
  48.  
  49. fn AddConstraint OBJ Trans Constraint List =
  50. (
  51.     Try
  52.     (    
  53.         local xformC
  54.         -------------------------------------------------------------------------------------------
  55.         -- If object has IK assigned apply to subController, if not, apply to controller
  56.         -------------------------------------------------------------------------------------------
  57.         if classof OBJ.controller == IKControl then xformC = OBJ.controller.fk_sub_control.controller
  58.             else if classof OBJ.controller == IKChainControl then xformC = OBJ.controller.IK_goal.controller
  59.                 else xformC = OBJ.controller
  60.         
  61.         if classof xformC == IK_ControllerMatrix3Controller do
  62.         (    if (substring (Trans as string) 1 3) as name == #pos then Trans = getsubanimname xformC 1
  63.             else if (substring (Trans as string) 1 3) as name == #rot then Trans = getsubanimname xformC 2
  64.         )
  65.  
  66.         if classof xformC == Link_Constraint do xformC = xformC.link_params
  67.         
  68.         local newC = execute (constraint as string + "()")
  69.         If List == True then
  70.         (    local oldC = getPropertyController xformC  trans
  71.             oldC.available.controller = newC
  72.         )
  73.         Else 
  74.             if (setPropertyController xformC trans newC) == undefined do throw 0
  75.         newC
  76.     )
  77.     Catch (MessageBox "Constraint Error!" Title:"Controller Functions";throw())
  78. )
  79.  
  80. fn SetActiveController Controller subController =
  81. (
  82.     Try
  83.     (    local index
  84.         for i = 1 to (Controller.numsubs-1) do
  85.             if controller[i].controller == subController do index = i
  86.         if index != undefined do
  87.         (    listCtrl.setActive controller index
  88.             format "Setting % as active controller\n" (listCtrl.getName controller index)
  89.         )
  90.     )
  91.     Catch ( MessageBox "Set Active Controller Error" Title:"Controller Functions")
  92. )
  93.  
  94.  
  95.