TopoColors-DuplicateSurfaces

PickObject "Material", "Material", BaseMaterial

set oNull = GetPrim( "Null", "TopoColorParam" )
AddProp "Custom_parameter_list", , , "TopoColors"
SIAddCustomParameter oNull & ".TopoColors", "TriBlue", siDouble, 1, , , , 2053, , 1
SIAddCustomParameter oNull & ".TopoColors", "QuadGreen", siDouble, 1, , , , 2053, , 1
SIAddCustomParameter oNull & ".TopoColors", "NGonRed", siDouble, 1, , , , 2053, , 1
SIAddCustomParameter oNull & ".TopoColors", "Ambience", siDouble, , , , , 2053, , 1

SetValue "Sources.Materials.TopoColors.Tri.Name", "Tri-Original"
SetValue "Sources.Materials.TopoColors.NGon.Name", "NGon-Original"
SetValue "Sources.Materials.TopoColors.Quad.Name", "Quad-Original"

'Triangles - red

Duplicate BaseMaterial , , 2, 1, 1, 0, 0, 1, 0, 1, , , , , , , , , , , 0
SetExpr BaseMaterial & "1.Phong.diffuse.blue", oNull & ".TopoColors.TriBlue"
SetExpr BaseMaterial & "1.Phong.ambient.blue", oNull & ".TopoColors.Ambience"
SetValue BaseMaterial + "1.Name", "Tri"
CopyPaste "Sources.Materials.DefaultLib.Tri", , "Sources.Materials.TopoColors", 1

'Quads - Green

Duplicate BaseMaterial , , 2, 1, 1, 0, 0, 1, 0, 1, , , , , , , , , , , 0
SetExpr BaseMaterial & "1.Phong.diffuse.green", oNull & ".TopoColors.QuadGreen"
SetExpr BaseMaterial & "1.Phong.ambient.green", oNull & ".TopoColors.Ambience"
SetValue BaseMaterial + "1.Name", "Quad"
CopyPaste "Sources.Materials.DefaultLib.Quad", , "Sources.Materials.TopoColors", 1

'NGons - Blue

Duplicate BaseMaterial , , 2, 1, 1, 0, 0, 1, 0, 1, , , , , , , , , , , 0
SetExpr BaseMaterial & "1.Phong.diffuse.red", oNull & ".TopoColors.NGonRed"
SetExpr BaseMaterial & "1.Phong.ambient.red", oNull & ".TopoColors.Ambience"
SetValue BaseMaterial + "1.Name", "NGon"
CopyPaste "Sources.Materials.DefaultLib.NGon", , "Sources.Materials.TopoColors", 1

InspectObj oNull & ".TopoColors"