'

' This example demonstrates how to link the deformation of a bicep 

' to the orientation of the forearm

'

NewScene , false

SetValue "Context.constructionmode", siConstructionModeModeling

' First we create a cylinder which will serve as our arm for this example

CreatePrim "Cylinder", "MeshSurface"

SetValue "cylinder.cylinder.height", 10

SetValue "cylinder.polymsh.geom.subdivu", 16

SetValue "cylinder.polymsh.geom.subdivv", 20

' We create a skeleton for the arm bones

Create2DSkeleton -3.89906576296024E-02, 4.97990543735225, 0, -0.896785125480857, 0.897163120567376, 0, 0, 0, 0, 4

AppendBone "eff", -3.89906576296024E-02, -4.92789598108747, 0

ApplyFlexEnv "cylinder;bone,bone1,eff", False

' We create the cluster of points that will model the muscle deformation

CreateCluster "cylinder.pnt[107-114,130-137,153-160,176-183,199-206,222-229,245-252,268-275,291-298]"

SetValue "cylinder.polymsh.cls.Point.Name", "Bicep"

' Next we will link the shape of the muscle to the orientation of the forearm bone

LinkDeformWithOri "cylinder.polymsh.cls.Bicep", "bone1"

' Finally we save a couple of deform keys to define the shape of the muscle at a different arm rotation

' One can repeat this process for other bone orientations

Translate "eff", 3.53515295841729, 4.31678486997636, 0, siRelative, siView, siObj, siXYZ

SetUserPref "3D_TRANSFO_PROPORTIONAL_CHANGED", 1

SetValue "Context.constructionmode", siConstructionModePrimaryShape

Translate "cylinder.pnt[157,158,180,181,203,204,226,227,249,250]", 0.727825609085912, -0.156028368794326, 0, _

	siRelative, siView, siObj, siXYZ

SetValue "cylinder.polymsh.movecomponentproportional.distlimit", 1

SaveDeformKey "cylinder.pnt[157,158,180,181,203,204,226,227,249,250]"

SetValue "Context.constructionmode", siConstructionModeModeling

SetValue "PlayControl.Key", 50

SetValue "PlayControl.Current", 50

SaveKey "eff.kine.local.posx,eff.kine.local.posy,eff.kine.local.posz", 50

FirstFrame

Translate "eff", -4.93881663308298, -3.66666666666667, 0, siRelative, siView, siObj, siXYZ

SaveKey "eff.kine.local.posx,eff.kine.local.posy,eff.kine.local.posz", 1

PlayForwardsFromStart

' The result is a deformation that is interpolated in the quaternion orientation space of the lower bone.

' One can also link the deformation to the orientation of more than one object.

' 

' The goal of the example is to show the script command

' "LinkDeformOri". 

' Two objects are created; the sphere will be deformed according

' to the orientation of the cone (rotation around Z axis).

' First, an animation will be created on the cone (rotation

' of 90 degrees around Z axis) for playback purpose. 

' A cluster is created with some points of the sphere. 

' The cluster is "linked" for deform with the cone, such that 

' changing the orientation of the cone will deform the sphere.

' Two deformation (i.e. moves) of the points of the cluster are 

' performed at different frames, and each of the deformation acts

' as DeformKey.

' 

NewScene

SetValue "Context.constructionmode", siConstructionModeModeling

SetValue "PlayControl.Out", 40

CreatePrim "Sphere", "NurbsSurface", "MySphere"

CreatePrim "Cone", "NurbsSurface", "MyCone"

' 

' Set key at different frames with different angle

' to create an animation of the cone.

'

SaveKey "MyCone.kine.local.rotz", 1, -90

SaveKey "MyCone.kine.local.rotz", 30, -40

SaveKey "MyCone.kine.local.rotz", 40, 0

' 

' Translate the objects to see clearly the cone and the

' effect on the sphere

'

SelectObj "MySphere", , True

Translate , -3, 0, 0, siAbsolute, siParent, siObj, siX

SelectObj "MyCone", , True

Translate , 6, 0, 0, siAbsolute, siParent, siObj, siX

'

' Create a cluster in the sphere, and create a LinkDeformOri

' with the cone.

'

SetSelFilter "Point"

AddToSelection "MySphere.pnt[(0,6),(7,6),(6,6),(5,6),(4,6),(3,6),(6,5),(1,6),(1,5),(2,6),(7,5),(0,5),(2,5),(5,4),(5,5),(4,5)]" 

CreateCluster 

LinkDeformWithOri "MySphere.surfmsh.cls.Point", "MyCone"

'

' Create the first Deform key at frame 1, with translation of

' points of the cluster

'

SetValue "Context.constructionmode", siConstructionModePrimaryShape

SetValue "PlayControl.Current", 1

Translate "MySphere.pnt[(0,6)]", -1.74522900164809, 0.27627214396616, -0.027627214396616, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(0,5)]", -1.63879153625736, 7.95443183208384E-02, -7.95443183208383E-03, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(4,6)]", 2.5, 0.5, 0, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(4,5)]", 2.5, -0.3, 0, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(3,5)]", 2, -1.5, 0, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(1,5)]", -1.5, -0.4, 0, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(7,6)]", -1.2, 1.26649251503908, -0.2, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(5,6)]", 1.5, 1.53788376826177, -0.2, siRelative, siView, siObj, siXYZ

SelectObj "MySphere.surfmsh.cls.Point"

SaveDeformKey

' Create the second Deform key at frame 30, with translation of

' points of the cluster

SetValue "PlayControl.Current", 30

Translate "MySphere.pnt[(0,6)]", 6.0, -0.5, 0, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(0,5)]", 5.4, 0, 0, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(1,5)]", 4.0, 1.3, -0.13, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(4,5)]", -5.5, 0.12, 0, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(4,6)]", -6.0, -0.5, 0, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(5,4)]", -1.7, 0.5, 0, siRelative, siView, siObj, siXYZ

Translate "MySphere.pnt[(3,6)]", -2.0, 0, 0, siRelative, siView, siObj, siXYZ

SaveDeformKey "MySphere.surfmsh.cls.Point"

SetValue "Context.constructionmode", siConstructionModeModeling

'

' Playback the animation and see the effect of the rotation

' of the cone on the sphere

'

SetDisplayMode "Camera", "textured"

PlayForwardsFromStart