TextureFill.MirrorFill

Property MirrorFill As Boolean

Member of TextureFill

The MirrorFill property returns or sets whether pattern tiles should be mirrored to conceal seams.

The following code example applies a symmetrical texture fill to a rectangle:

Sub Test() 
 Dim s As Shape 
 Dim tf As TextureFill 
 Set s = ActiveLayer.CreateRectangle(0, 0, 4, 4) 
 Set tf = s.Fill.ApplyTextureFill("CMYK", "Samples 9") 
 tf.TileWidth = 2 
 tf.TileHeight = 2 
 tf.MirrorFill = True 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.