PatternCanvas.FlipArea method - Developer Area

API Documentation > CorelDRAW > 2019 > PatternCanvas > IVGPatternCanvas

PatternCanvas.FlipArea method

Flips the Area

Syntax:

Sub FlipArea(ByVal x1 As Long, ByVal y1 As Long, ByVal x2 As Long, ByVal y2 As Long, ByVal Axes As cdrFlipAxes)

Parameters:

Name	Type	Description
x1	Long	Specifies the x-coordinate of the first point that defines the area to flip on the pattern canvas. This value is measured in document units.
y1	Long	Specifies the y-coordinate of the first point that defines the area to flip on the pattern canvas. This value is measured in document units.
x2	Long	Specifies the x-coordinate of the second point that defines the area to flip on the pattern canvas. This value is measured in document units.
y2	Long	Specifies the y-coordinate of the second point that defines the area to flip on the pattern canvas. This value is measured in document units.
Axes	cdrFlipAxes	Specifies how the area of the pattern canvas is flipped. An area can be flipped horizontally or vertically, or both.

Remarks:

The FlipArea method repositions an area of a pattern canvas, as defined by two coordinates. You can flip the area horizontally or vertically, or both.

Examples:

The following VBA example creates a pattern that uses the Mandelbrot set. The set is built only in the upper half of the complex plane, while the other half is a flipped duplicate.

Sub Test()
  Dim c As New PatternCanvas
  Dim nx As Long, ny As Long
  Dim cx As Double, cy As Double
  Dim zx As Double, zy As Double, zz As Double
  Dim n As Long
  c.Height = 256
  c.Width = 256
  For nx = 0 To 255
    cx = nx / 100 - 2
    For ny = 0 To 127
      cy = 1.27 - ny / 100
      zx = 0: zy = 0: n = 0
      While n < 10 And zx * zx + zy * zx < 4
        zz = zx * zx - zy * zy + cx
        zy = 2 * zx * zy + cy
        zx = zz
        n = n + 1
      Wend
      c.PSet (nx, ny), (n < 10)
    Next ny
  Next nx
  c.CopyArea 0, 0, 255, 127, 0, 128
  ' Since the axes are mixed up,
  ' as a workaround, the following
  ' command should be called with
  ' cdrFlipVertical as the last parameter:
  c.FlipArea 0, 128, 255, 255, cdrFlipHorizontal
  With ActiveLayer.CreateRectangle(0, 0, 2, 2)
    .Fill.ApplyPatternFill cdrTwoColorPattern
    .Fill.Pattern.Canvas = c
  End With
End Sub

Version Information:

CorelDRAW:	X7.4, X7, X7.6, X8, 2017, 2018, 2019, 2019.2, 2020, 2021, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25
Corel DESIGNER:	X7, 2017.1, 20.1, 2019.2, 2020.1, 2021.5, 2022-v24, 2022-v24.1, 2022-v24.2, 2023-v24.3, 2023-v24.5, 2024-v25