EffectExtrude.LightPresent

Property LightPresent(Index As Long) As Boolean

The LightPresent property returns or sets whether light is present at a given index for an extrusion. You can specify up to three light sources.

See also the SetLight method.


Parameters	Description
Index	Specifies the light source used. You can apply as many as three light sources. You can also remove applied light sources.

The following code example creates an extrusion and adds two light sources to it:

Sub Test() 
 Dim s As Shape 
 Set s = ActiveLayer.CreateArtisticText(2.75, 5, "Text") 
 With s.Text.FontProperties 
  .Name = "Arial Black" 
  .Size = 150 
 End With 
 s.Fill.UniformColor.RGBAssign 0, 0, 255 
 With s.CreateExtrude(cdrExtrudeSmallBack, cdrVPLockedToShape, 4, _ 
   8, , cdrExtrudeSolidFill, CreateRGBColor(255, 0, 0)).Extrude 
  .LightPresent(1) = True 
  .LightPosition(1) = cdrLightBackTopRight 
  .LightIntensity(1) = 100 
  .LightPresent(2) = True 
  .LightPosition(2) = cdrLightFrontCenter 
  .LightIntensity(2) = 50 
  .LightPresent(3) = False 
  .UseFullColorRange = True 
 End With 
End Sub