NewScene ,False
CreatePrim "Sphere", "MeshSurface"
ApplyShader , , , , siLetLocalMaterialsOverlap
BlendInPresetsInsp , , , True, siReplaceNoBlend
CreateProjection "sphere", siTxtSpherical, siTxtDefaultSpherical, "Texture_Support", "Texture_Projection"
SetInstanceDataValue , "sphere.Material.Phong.Image.tspace_id", "Texture_Projection"
SetDisplayMode "Camera", "texturedecal"
SetValue "sphere.polymsh.cls.Texture_Coordinates_AUTO.Texture_Projection.Texture_Projection_Def.projsclu", 0.4
SetValue "sphere.polymsh.cls.Texture_Coordinates_AUTO.Texture_Projection.Texture_Projection_Def.projsclv", 0.4
SetValue "sphere.polymsh.cls.Texture_Coordinates_AUTO.Texture_Projection.Texture_Projection_Def.projtrsu", 0.4
SetValue "sphere.polymsh.cls.Texture_Coordinates_AUTO.Texture_Projection.Texture_Projection_Def.projtrsv", 0.4
'Selecting the texture projection definition
SelectObj "sphere.polymsh.cls.Texture_Coordinates_AUTO.Texture_Projection.Texture_Projection_Def"
FreezeUVWTransformation Selection(0)
InspectObj Selection(0)