[IButton,???,"Extract Then Array -X",

[IKeyPress,SHIFT,[IPress,Tool:SubTool:MoveUp]]

//Extract 1
	[ISet,"Tool:SubTool:Double",0]
	[ISet,Tool:SubTool:Thick,-.025]
	[IPress,Tool:SubTool:Extract]
	[IPress,Tool:SubTool:Accept]

//Extract 2
	[IPress,Tool:SubTool:Extract]
	[IPress,Tool:SubTool:Accept]
	
//Extract 3
	[IPress,Tool:SubTool:Extract]
	[IPress,Tool:SubTool:Accept]

//Clear Mask
	[IPress,Tool:Masking:Clear]
	
//Select Down 1
	[IPress,Tool:SubTool:SelectDown]
	
//Clear Mask
	[IPress,Tool:Masking:Clear]
	
//Inflate 25 +Dynamesh
	[ISet,Tool:Deformation:Inflate, 25]
	
//Set to Subtract
	[IPress,Tool:Masking:MaskAll]
	[IPress,Tool:SubTool:SelectUp]
	[IPress,Tool:SubTool:MergeDown]
	[IPress,Tool:Polygroups:Group As Dynamesh Sub]
	[IKeyPress,512,[CanvasClick,-4096,-4096,-4000,-4000]]
	[IKeyPress,512,[CanvasClick,-4096,-4096,-4000,-4000]]
	[IPress,Tool:Geometry:Mirror And Weld]

//Select Down and Unmask
	[IPress,Tool:SubTool:SelectDown]
	[IPress,Tool:Masking:Clear]
	
//Mask and Delete Half
	[TransformSet,,,,,,,0,0,0]
	[IKeyPress, 'f']
	[IKeyPress,512,[CanvasClick,(Document:Width*.9),(Document:Height*.9),(Document:Width*.5),(Document:Height*.1)]]
	[IKeyPress, CTRL+'w']
	[IPress,Tool:Masking:Inverse]
	[IKeyPress, CTRL+'w']
	[IPress,Tool:SubTool:Split To Parts]
	[IPress,Tool:SubTool:Delete]
	
//Select Down And Cube
	[IPress,Tool:SubTool:SelectDown]
	[ISet,Tool:Initialize:X Res,1]
	[ISet,Tool:Initialize:Y Res,1]
	[ISet,Tool:Initialize:Z Res,1]
	[IPress,Tool:Initialize:QCube]
	[IModSet,Tool:Deformation:Size,1]
	[ISet,Tool:Deformation:Size,-100]
	[ISet,Tool:Deformation:Size,-100]
	[ISet,Tool:Deformation:Size,-100]
	[ISet,Tool:Deformation:Size,-100]
	[ISet,Tool:Deformation:Size,-100]
	[ISet,Tool:Deformation:Size,-100]
	[ISet,Tool:Deformation:Size,-100]
	[ISet,Tool:Deformation:Size,-100]
	[ISet,Tool:Deformation:Size,-100]
	[ISet,Tool:Deformation:Size,-100]
	[IPress,Tool:SubTool:MoveUp]
	[IPress,Tool:SubTool:MergeDown]
	
//Setup Array - Lock Pos/Sizew

	[IPress,Tool:ArrayMesh:a.Array Mesh]
	[IPress,Tool:ArrayMesh:a.X Mirror]
	[ISet,Tool:ArrayMesh:a.X Amount,0]
	[ISet,Tool:ArrayMesh:a.X Amount,-2]
	[IPress,Tool:ArrayMesh:a.Lock Pos]
	[IPress,Tool:ArrayMesh:a.Lock Size]

//Delete Centered Square

//	[IKeyPress,512,[CanvasClick,(Document:Width*.495),(Document:Height*.05),(Document:Width*.55),(Document:Height*.95)]]
//	[IKeyPress, CTRL+'w']
//	[CanvasClick, 768,(Document:Width*.5),(Document:Height*.5)]
//	[CanvasClick, 768,(Document:Width*.5),(Document:Height*.5)]
//	[IPress,Tool:Geometry:Del Hidden]

]