newscene
' Get primitive '
	CreatePrim "Cylinder", "MeshSurface"
	
' sets the Subdivision level '
	SetValue "cylinder.polymsh.geom.subdivv", 3
	SetValue "cylinder.polymsh.geom.subdivbase", 1
	SetValue "cylinder.polymsh.geom.subdivu", 4

' scales down the cylinder '
	Scale "cylinder", 0.559, 4.899, 0.571, siRelative, siLocal, siObj, siXYZ
	
' Moves points to shape the cylinder '
	ActivateVertexSelTool
	AddToSelection "cylinder.pnt[1,5,9,13,LAST]", , True
	Translate , 0.000, 0.356, -1.514, siRelative, siView, siObj, siXYZ
	ToggleSelection "cylinder.pnt[1,4,5,8,9,12,13,16,LAST]", , True
	Translate , 0.000, 0.000, -0.267, siRelative, siView, siObj, siXYZ
	RemoveFromSelection "cylinder.pnt[3,4,7,8,11,12,15,16]"
	AddToSelection "cylinder.pnt[3,7,11,15]", , True
	Translate , 0.000, -0.089, -0.178, siRelative, siView, siObj, siXYZ
	ToggleSelection "cylinder.pnt[3,4,7,8,11,12,15,16]", , True
	Translate , 0.000, 0.000, -0.267, siRelative, siView, siObj, siXYZ
	ActivateObjectSelTool
	

' Get primitive '
	CreatePrim "Grid", "NurbsSurface"
	
' Setting the subdivision values '
	SetValue "grid.surfmsh.geom.subdivu", 1
	SetValue "grid.surfmsh.geom.subdivv", 4
	
' Getting the right look (shape and size) '
	Scale , 0.058, 1.000, 1.000, siRelative, siLocal, siObj, siXYZ
	ActivateVertexSelTool
	AddToSelection "grid.pnt[(0,6),(1,6),(2,6),(3,6)]", , True
	Scale , 0.174, 1.000, 1.000, siRelative, siLocal, siObj, siXYZ
	ToggleSelection "grid.pnt[(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)]", , True
	Scale , 0.674, 1.000, 1.000, siRelative, siLocal, siObj, siXYZ
	ToggleSelection "grid.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5)]", , True
	Scale , 0.895, 1.000, 1.000, siRelative, siLocal, siObj, siXYZ
	RemoveFromSelection "grid.pnt[(0,3),(1,3),(2,3),(3,3),(0,4),(1,4),(2,4),(3,4)]"
	ActivateObjectSelTool
	
' Moving the Center to the bottom of the leaf '
	Translate , 0.000, -0.000, 4.010, siRelative, siView, siCtr, siXYZ
	Translate , 0.000, 0.000, 0.000, siAbsolute, siView, siObj, siZ
	
' selecting points for future use '
	ActivateVertexSelTool
	AddToSelection "grid.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)]", , True

' Duplicating 59 times (to get 60 leaves) '
	Duplicate "grid", 59, 2, 1, 1, 0, 0, 1, 0, 1, 1.000, 1.000, 1.000, 0.000, 0.000, 0.000, 0.000, 0.000, 0.000, True
	
' Getting the bouquet ready '
	SelectObj "grid,grid1,grid2,grid3,grid4,grid5,grid6,grid7,grid8,grid9,grid10,grid11,grid12,grid13,grid14,grid15,grid16,grid17,grid18,grid19,grid20,grid21,grid22,grid23,grid24,grid25,grid26,grid27,grid28,grid29,grid30,grid31,grid32,grid33,grid34,grid35,grid36,grid37,grid38,grid39,grid40,grid41,grid42,grid43,grid44,grid45,grid46,grid47,grid48,grid49,grid50,grid51,grid52,grid53,grid54,grid55,grid56,grid57,grid58,grid59", , True

msgbox "Please run this script in 2, after this message it should be the second part because the resulting scripting commands are long"	
' ******* At this point, its better to type the numbers manually because the resulting scripting commands are long '
' -	Type in the Rotation Y field : R(-90,90)
' -	Type in the Rotation X field : R(0,180)




' Parenting to a null '
	GetPrim "Null"
	ParentObj "null", "grid,grid1,grid2,grid3,grid4,grid5,grid6,grid7,grid8,grid9,grid10,grid11,grid12,grid13,grid14,grid15,grid16,grid17,grid18,grid19,grid20,grid21,grid22,grid23,grid24,grid25,grid26,grid27,grid28,grid29,grid30,grid31,grid32,grid33,grid34,grid35,grid36,grid37,grid38,grid39,grid40,grid41,grid42,grid43,grid44,grid45,grid46,grid47,grid48,grid49,grid50,grid51,grid52,grid53,grid54,grid55,grid56,grid57,grid58,grid59"

' Making all the leaves amount to something '
	SelectObj "null", "BRANCH"
	Translate , 0.000, 9.775, 0.000, siRelative, siView, siObj, siXYZ
	Scale , 2.041, 2.041, 2.041, siRelative, siLocal, siObj, siXYZ
	Translate , 0.000, 0.000, -1.545, siRelative, siView, siObj, siXYZ
	ParentObj "cylinder", "null"
	SelectObj "cylinder", "BRANCH", True
	Duplicate , , 2, 1, 1, 0, 0, 1, 0, 1
	Scale , 0.640, 0.640, 0.640, siRelative, siLocal, siObj, siXYZ
	Translate , -0.000, -3.246, 1.909, siRelative, siView, siObj, siXYZ
	Translate , -0.699, 0.000, 0.447, siRelative, siView, siObj, siXYZ
	Rotate , 0.000, 90.000, 0.000, siRelative, siLocal, siObj, siXYZ
	Duplicate , , 2, 1, 1, 0, 0, 1, 0, 1
	Rotate  , 0.000, 99.000, 0.000, siRelative, siLocal, siObj, siXYZ
	Translate , 0.000, 0.764, -8.017, siRelative, siView, siObj, siXYZ
	Rotate , 0.000, 0.000, 13.500, siRelative, siLocal, siObj, siXYZ
	SelectObj "cylinder1", "BRANCH", True
	Rotate , 0.000, 0.000, 16.875, siRelative, siLocal, siObj, siXYZ
	DeselectAll
	
' Creating the flower pot '
' Creating the curve '
	SICreateCurve "crvlist", 3, 0
	SIAddPointOnCurveAtEnd "crvlist", 3.023, -9.857, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 2.580, -8.860, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 3.688, -7.862, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 5.737, -7.862, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 6.568, -9.248, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 6.347, -11.188, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 5.904, -11.409, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 4.851, -11.188, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 4.740, -11.409, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 4.131, -15.511, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 3.078, -18.891, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 2.580, -20.055, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 2.524, -20.111, 0.000, False
	SIAddPointOnCurveAtEnd "crvlist", 0.197, -20.111, 0.000, False
	
' creating the revolution '
	ApplyOp "RevolutionAlongAxis", "crvlist", 3, siPersistentOperation
	SetValue "surfmsh.surfmsh.revolution.revy", True
	
' Parenting the stems to the pot '
	SelectObj "cylinder1", "BRANCH", True
	ToggleSelection "cylinder", "BRANCH", True
	ToggleSelection "cylinder2", "BRANCH", True
	ParentObj "surfmsh", "cylinder1,cylinder,cylinder2"

' Animating the pot for the Cloth below '
	SelectObj "crvlist,surfmsh", "BRANCH", True
	SaveKey "crvlist.kine.local.posx,crvlist.kine.local.posy,crvlist.kine.local.posz,surfmsh.kine.local.posx,surfmsh.kine.local.posy,surfmsh.kine.local.posz", 1.000
	SetValue "PlayControl.Key", 10.000
	SetValue "PlayControl.Current", 10.000
	Translate , 0.000, 15, 0.000, siRelative, siView, siObj, siXYZ
	SaveKey "crvlist.kine.local.posx,crvlist.kine.local.posy,crvlist.kine.local.posz,surfmsh.kine.local.posx,surfmsh.kine.local.posy,surfmsh.kine.local.posz", 10.000

' Reselect all the Grids '
	SelectObj "grid,grid1,grid2,grid3,grid4,grid5,grid6,grid7,grid8,grid9,grid10,grid11,grid12,grid13,grid14,grid15,grid16,grid17,grid18,grid19,grid20,grid21,grid22,grid23,grid24,grid25,grid26,grid27,grid28,grid29,grid30,grid31,grid32,grid33,grid34,grid35,grid36,grid37,grid38,grid39,grid40,grid41,grid42,grid43,grid44,grid45,grid46,grid47,grid48,grid49,grid50,grid51,grid52,grid53,grid54,grid55,grid56,grid57,grid58,grid59,grid60,grid61,grid62,grid63,grid64,grid65,grid66,grid67,grid68,grid69,grid70,grid71,grid72,grid73,grid74,grid75,grid76,grid77,grid78,grid79,grid80,grid81,grid82,grid83,grid84,grid85,grid86,grid87,grid88,grid89,grid90,grid91,grid92,grid93,grid94,grid95,grid96,grid97,grid98,grid99,grid100,grid101,grid102,grid103,grid104,grid105,grid106,grid107,grid108,grid109,grid110,grid111,grid112,grid113,grid114,grid115,grid116,grid117,grid118,grid119,grid120,grid121,grid122,grid123,grid124,grid125,grid126,grid127,grid128,grid129,grid130,grid131,grid132,grid133,grid134,grid135,grid136,grid137,grid138,grid139,grid140,grid141,grid142,grid143,grid144,grid145,grid146,grid147,grid148,grid149,grid150,grid151,grid152,grid153,grid154,grid155,grid156,grid157,grid158,grid159,grid160,grid161,grid162,grid163,grid164,grid165,grid166,grid167,grid168,grid169,grid170,grid171,grid172,grid173,grid174,grid175,grid176,grid177,grid178,grid179", , True
	SetSelFilter "Point"
	
	
' Applying Cloth to selected points '
	ApplyCloth "grid.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid1.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid2.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid3.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid4.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid5.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid6.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid7.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid8.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid9.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid10.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid11.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid12.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid13.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid14.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid15.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid16.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid17.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid18.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid19.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid20.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid21.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid22.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid23.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid24.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid25.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid26.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid27.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid28.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid29.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid30.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid31.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid32.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid33.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid34.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid35.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid36.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid37.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid38.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid39.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid40.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid41.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid42.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid43.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid44.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid45.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid46.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid47.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid48.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid49.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid50.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid51.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid52.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid53.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid54.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid55.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid56.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid57.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid58.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid59.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid60.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid61.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid62.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid63.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid64.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid65.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid66.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid67.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid68.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid69.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid70.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid71.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid72.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid73.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid74.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid75.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid76.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid77.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid78.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid79.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid80.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid81.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid82.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid83.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid84.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid85.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid86.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid87.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid88.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid89.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid90.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid91.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid92.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid93.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid94.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid95.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid96.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid97.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid98.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid99.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid100.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid101.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid102.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid103.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid104.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid105.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid106.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid107.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid108.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid109.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid110.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid111.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid112.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid113.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid114.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid115.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid116.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid117.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid118.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid119.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid120.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid121.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid122.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid123.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid124.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid125.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid126.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid127.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid128.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid129.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid130.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid131.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid132.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid133.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid134.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid135.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid136.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid137.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid138.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid139.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid140.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid141.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid142.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid143.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid144.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid145.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid146.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid147.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid148.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid149.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid150.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid151.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid152.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid153.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid154.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid155.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid156.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid157.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid158.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid159.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid160.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid161.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid162.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid163.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid164.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid165.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid166.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid167.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid168.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid169.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid170.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid171.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid172.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid173.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid174.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid175.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid176.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid177.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid178.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)],grid179.pnt[(0,4),(1,4),(2,4),(3,4),(0,5),(1,5),(2,5),(3,5),(0,6),(1,6),(2,6),(3,6)]"
	
' Applying gravity to the cloth '
	CreateForce "Gravity"
	SetValue "gravity.gravity.ampl", 20.000
	
' Getting the right look to the leaves '
	SetValue "PlayControl.Key", 34.000
	SetValue "PlayControl.Current", 34.000
	FreezeObj "grid60,grid61,grid62,grid63,grid64,grid65,grid66,grid67,grid68,grid69,grid70,grid71,grid72,grid73,grid74,grid75,grid76,grid77,grid78,grid79,grid80,grid81,grid82,grid83,grid84,grid85,grid86,grid87,grid88,grid89,grid90,grid91,grid92,grid93,grid94,grid95,grid96,grid97,grid98,grid99,grid100,grid101,grid102,grid103,grid104,grid105,grid106,grid107,grid108,grid109,grid110,grid111,grid112,grid113,grid114,grid115,grid116,grid117,grid118,grid119,grid,grid1,grid2,grid3,grid4,grid5,grid6,grid7,grid8,grid9,grid10,grid11,grid12,grid13,grid14,grid15,grid16,grid17,grid18,grid19,grid20,grid21,grid22,grid23,grid24,grid25,grid26,grid27,grid28,grid29,grid30,grid31,grid32,grid33,grid34,grid35,grid36,grid37,grid38,grid39,grid40,grid41,grid42,grid43,grid44,grid45,grid46,grid47,grid48,grid49,grid50,grid51,grid52,grid53,grid54,grid55,grid56,grid57,grid58,grid59,grid120,grid121,grid122,grid123,grid124,grid125,grid126,grid127,grid128,grid129,grid130,grid131,grid132,grid133,grid134,grid135,grid136,grid137,grid138,grid139,grid140,grid141,grid142,grid143,grid144,grid145,grid146,grid147,grid148,grid149,grid150,grid151,grid152,grid153,grid154,grid155,grid156,grid157,grid158,grid159,grid160,grid161,grid162,grid163,grid164,grid165,grid166,grid167,grid168,grid169,grid170,grid171,grid172,grid173,grid174,grid175,grid176,grid177,grid178,grid179", , True
	DeleteObj "gravity"