[ISubPalette, ZPlugin:Crease Divide] 

[ISlider,
	"ZPlugin:Crease Divide:Divide Level",
	5,
	1,
	2,
	10,
	"Divide level",
	,,120
]

[ISlider,
	"ZPlugin:Crease Divide:Iterations",
	4,	
	1,
	1,
	10,
	"iterations",
	,,120
]


[ISlider,
	"ZPlugin:Crease Divide:Strenght",
	100,	
	5,
	0,
	100,
	"Strenght",
	,,120
]


[IButton,
	"ZPlugin:Crease Divide:Crease Divide",
	"Divide Mesh",
	[If, 	[IGet,Transform:Edit Object] = 1,
			[If, [IGet,Tool:Geometry:SDiv] = 1,
				[IFreeze,
					[IPress,Tool:Morph Target:StoreMT]
					[IPress,Tool:Geometry:Crease]
					[Loop,
						[IGet,ZPlugin:Crease Divide:Divide Level] - 1,
						[IPress,Tool:Geometry:Divide]
					]
					[IPress, Tool:Layers:New]
					[Loop,
						[IGet,ZPlugin:Crease Divide:Iterations],
						[ISet,Tool:Geometry:SDiv,1]
						[ISet,Tool:Morph Target:Morph,[IGet,ZPlugin:Crease Divide:Strenght]]
						[ISet,Tool:Geometry:SDiv,[IGet,ZPlugin:Crease Divide:Divide Level]]
					]
				],
			[MessageOk, Go_To_First_Divivde_Level]
		],
	[MessageOk, Go_To_Edit_Mode]
	]
	,,118
]