path: root/drawinglayer/source/processor2d/vclmetafileprocessor2d.cxx

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
 * This file is part of the LibreOffice project.
 *
 * This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/.
 *
 * This file incorporates work covered by the following license notice:
 *
 *   Licensed to the Apache Software Foundation (ASF) under one or more
 *   contributor license agreements. See the NOTICE file distributed
 *   with this work for additional information regarding copyright
 *   ownership. The ASF licenses this file to you under the Apache
 *   License, Version 2.0 (the "License"); you may not use this file
 *   except in compliance with the License. You may obtain a copy of
 *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
 */

#include <memory>
#include "vclmetafileprocessor2d.hxx"
#include "vclpixelprocessor2d.hxx"
#include <rtl/ustring.hxx>
#include <rtl/math.hxx>
#include <tools/gen.hxx>
#include <tools/stream.hxx>
#include <tools/diagnose_ex.h>
#include <comphelper/processfactory.hxx>
#include <basegfx/polygon/b2dpolygonclipper.hxx>
#include <basegfx/polygon/b2dpolypolygontools.hxx>
#include <basegfx/polygon/b2dpolygontools.hxx>
#include <basegfx/polygon/b2dlinegeometry.hxx>
#include <vcl/virdev.hxx>
#include <vcl/gdimtf.hxx>
#include <vcl/gradient.hxx>
#include <vcl/graphictools.hxx>
#include <vcl/metaact.hxx>
#include <vcl/graph.hxx> // for PDFExtOutDevData Graphic support
#include <toolkit/helper/formpdfexport.hxx> // for PDFExtOutDevData Graphic support
#include <drawinglayer/primitive2d/drawinglayer_primitivetypes2d.hxx>
#include <drawinglayer/primitive2d/glowprimitive2d.hxx>
#include <drawinglayer/primitive2d/softedgeprimitive2d.hxx>
#include <drawinglayer/primitive2d/textprimitive2d.hxx>
#include <drawinglayer/primitive2d/PolyPolygonHairlinePrimitive2D.hxx>
#include <drawinglayer/primitive2d/PolyPolygonMarkerPrimitive2D.hxx>
#include <drawinglayer/primitive2d/PolyPolygonStrokePrimitive2D.hxx>
#include <drawinglayer/primitive2d/PolyPolygonColorPrimitive2D.hxx>
#include <drawinglayer/primitive2d/PolyPolygonGradientPrimitive2D.hxx>
#include <drawinglayer/primitive2d/PolyPolygonHatchPrimitive2D.hxx>
#include <drawinglayer/primitive2d/PolyPolygonGraphicPrimitive2D.hxx>
#include <drawinglayer/primitive2d/polygonprimitive2d.hxx>
#include <drawinglayer/primitive2d/bitmapprimitive2d.hxx>
#include <drawinglayer/primitive2d/maskprimitive2d.hxx>
#include <drawinglayer/primitive2d/modifiedcolorprimitive2d.hxx>
#include <drawinglayer/primitive2d/unifiedtransparenceprimitive2d.hxx>
#include <drawinglayer/primitive2d/transparenceprimitive2d.hxx>
#include <drawinglayer/primitive2d/fillgradientprimitive2d.hxx>
#include <drawinglayer/primitive2d/transformprimitive2d.hxx>
#include <drawinglayer/primitive2d/markerarrayprimitive2d.hxx>
#include <drawinglayer/primitive2d/pointarrayprimitive2d.hxx>
#include <drawinglayer/primitive2d/texthierarchyprimitive2d.hxx>
#include <drawinglayer/primitive2d/controlprimitive2d.hxx>
#include <drawinglayer/primitive2d/graphicprimitive2d.hxx>
#include <drawinglayer/primitive2d/pagepreviewprimitive2d.hxx>
#include <drawinglayer/primitive2d/epsprimitive2d.hxx>
#include <drawinglayer/primitive2d/structuretagprimitive2d.hxx>
#include <drawinglayer/primitive2d/objectinfoprimitive2d.hxx> // for Title/Description metadata

#include <com/sun/star/awt/XControl.hpp>
#include <com/sun/star/i18n/BreakIterator.hpp>
#include <com/sun/star/i18n/CharacterIteratorMode.hpp>
#include <com/sun/star/i18n/WordType.hpp>
#include <com/sun/star/beans/XPropertySet.hpp>

using namespace com::sun::star;

// #112245# definition for maximum allowed point count due to Metafile target.
// To be on the safe side with the old tools polygon, use slightly less than
// the theoretical maximum (bad experiences with tools polygon)

#define MAX_POLYGON_POINT_COUNT_METAFILE (0x0000fff0)

namespace
{
// #112245# helper to split line polygon in half
void splitLinePolygon(const basegfx::B2DPolygon& rBasePolygon, basegfx::B2DPolygon& o_aLeft,
                      basegfx::B2DPolygon& o_aRight)
{
    const sal_uInt32 nCount(rBasePolygon.count());

    if (nCount)
    {
        const sal_uInt32 nHalfCount((nCount - 1) >> 1);

        o_aLeft = basegfx::B2DPolygon(rBasePolygon, 0, nHalfCount + 1);
        o_aLeft.setClosed(false);

        o_aRight = basegfx::B2DPolygon(rBasePolygon, nHalfCount, nCount - nHalfCount);
        o_aRight.setClosed(false);

        if (rBasePolygon.isClosed())
        {
            o_aRight.append(rBasePolygon.getB2DPoint(0));

            if (rBasePolygon.areControlPointsUsed())
            {
                o_aRight.setControlPoints(o_aRight.count() - 1, rBasePolygon.getPrevControlPoint(0),
                                          rBasePolygon.getNextControlPoint(0));
            }
        }
    }
    else
    {
        o_aLeft.clear();
        o_aRight.clear();
    }
}

// #112245# helper to evtl. split filled polygons to maximum metafile point count
void fillPolyPolygonNeededToBeSplit(basegfx::B2DPolyPolygon& rPolyPolygon)
{
    const sal_uInt32 nPolyCount(rPolyPolygon.count());

    if (!nPolyCount)
        return;

    basegfx::B2DPolyPolygon aSplitted;

    for (sal_uInt32 a(0); a < nPolyCount; a++)
    {
        const basegfx::B2DPolygon& aCandidate(rPolyPolygon.getB2DPolygon(a));
        const sal_uInt32 nPointCount(aCandidate.count());
        bool bNeedToSplit(false);

        if (aCandidate.areControlPointsUsed())
        {
            // compare with the maximum for bezier curved polygons
            bNeedToSplit = nPointCount > ((MAX_POLYGON_POINT_COUNT_METAFILE / 3L) - 1);
        }
        else
        {
            // compare with the maximum for simple point polygons
            bNeedToSplit = nPointCount > (MAX_POLYGON_POINT_COUNT_METAFILE - 1);
        }

        if (bNeedToSplit)
        {
            // need to split the partial polygon
            const basegfx::B2DRange aRange(aCandidate.getB2DRange());
            const basegfx::B2DPoint aCenter(aRange.getCenter());

            if (aRange.getWidth() > aRange.getHeight())
            {
                // clip in left and right
                const basegfx::B2DPolyPolygon aLeft(basegfx::utils::clipPolygonOnParallelAxis(
                    aCandidate, false, true, aCenter.getX(), false));
                const basegfx::B2DPolyPolygon aRight(basegfx::utils::clipPolygonOnParallelAxis(
                    aCandidate, false, false, aCenter.getX(), false));

                aSplitted.append(aLeft);
                aSplitted.append(aRight);
            }
            else
            {
                // clip in top and bottom
                const basegfx::B2DPolyPolygon aTop(basegfx::utils::clipPolygonOnParallelAxis(
                    aCandidate, true, true, aCenter.getY(), false));
                const basegfx::B2DPolyPolygon aBottom(basegfx::utils::clipPolygonOnParallelAxis(
                    aCandidate, true, false, aCenter.getY(), false));

                aSplitted.append(aTop);
                aSplitted.append(aBottom);
            }
        }
        else
        {
            aSplitted.append(aCandidate);
        }
    }

    if (aSplitted.count() != nPolyCount)
    {
        rPolyPolygon = aSplitted;
    }
}

/** Filter input polypolygon for effectively empty sub-fills

    Needed to fix fdo#37559

    @param rPoly
    tools::PolyPolygon to filter

    @return converted tools PolyPolygon, w/o one-point fills
 */
tools::PolyPolygon getFillPolyPolygon(const ::basegfx::B2DPolyPolygon& rPoly)
{
    // filter input rPoly
    basegfx::B2DPolyPolygon aPoly;
    sal_uInt32 nCount(rPoly.count());
    for (sal_uInt32 i = 0; i < nCount; ++i)
    {
        const basegfx::B2DPolygon& aCandidate(rPoly.getB2DPolygon(i));
        if (!aCandidate.isClosed() || aCandidate.count() > 1)
            aPoly.append(aCandidate);
    }
    return tools::PolyPolygon(aPoly);
}

} // end of anonymous namespace

namespace drawinglayer::processor2d
{
tools::Rectangle
VclMetafileProcessor2D::impDumpToMetaFile(const primitive2d::Primitive2DContainer& rContent,
                                          GDIMetaFile& o_rContentMetafile)
{
    // Prepare VDev, MetaFile and connections
    OutputDevice* pLastOutputDevice = mpOutputDevice;
    GDIMetaFile* pLastMetafile = mpMetaFile;
    basegfx::B2DRange aPrimitiveRange(rContent.getB2DRange(getViewInformation2D()));

    // transform primitive range with current transformation (e.g shadow offset)
    aPrimitiveRange.transform(maCurrentTransformation);

    const tools::Rectangle aPrimitiveRectangle(
        basegfx::fround(aPrimitiveRange.getMinX()), basegfx::fround(aPrimitiveRange.getMinY()),
        basegfx::fround(aPrimitiveRange.getMaxX()), basegfx::fround(aPrimitiveRange.getMaxY()));
    ScopedVclPtrInstance<VirtualDevice> aContentVDev;
    MapMode aNewMapMode(pLastOutputDevice->GetMapMode());

    mpOutputDevice = aContentVDev.get();
    mpMetaFile = &o_rContentMetafile;
    aContentVDev->EnableOutput(false);
    aContentVDev->SetMapMode(pLastOutputDevice->GetMapMode());
    o_rContentMetafile.Record(aContentVDev.get());
    aContentVDev->SetLineColor(pLastOutputDevice->GetLineColor());
    aContentVDev->SetFillColor(pLastOutputDevice->GetFillColor());
    aContentVDev->SetFont(pLastOutputDevice->GetFont());
    aContentVDev->SetDrawMode(pLastOutputDevice->GetDrawMode());
    aContentVDev->SetSettings(pLastOutputDevice->GetSettings());
    aContentVDev->SetRefPoint(pLastOutputDevice->GetRefPoint());

    // dump to MetaFile
    process(rContent);

    // cleanups
    o_rContentMetafile.Stop();
    o_rContentMetafile.WindStart();
    aNewMapMode.SetOrigin(aPrimitiveRectangle.TopLeft());
    o_rContentMetafile.SetPrefMapMode(aNewMapMode);
    o_rContentMetafile.SetPrefSize(aPrimitiveRectangle.GetSize());
    mpOutputDevice = pLastOutputDevice;
    mpMetaFile = pLastMetafile;

    return aPrimitiveRectangle;
}

void VclMetafileProcessor2D::impConvertFillGradientAttributeToVCLGradient(
    Gradient& o_rVCLGradient, const attribute::FillGradientAttribute& rFiGrAtt,
    bool bIsTransparenceGradient) const
{
    if (bIsTransparenceGradient)
    {
        // it's about transparence channel intensities (black/white), do not use color modifier
        o_rVCLGradient.SetStartColor(Color(rFiGrAtt.getStartColor()));
        o_rVCLGradient.SetEndColor(Color(rFiGrAtt.getEndColor()));
    }
    else
    {
        // use color modifier to influence start/end color of gradient
        o_rVCLGradient.SetStartColor(
            Color(maBColorModifierStack.getModifiedColor(rFiGrAtt.getStartColor())));
        o_rVCLGradient.SetEndColor(
            Color(maBColorModifierStack.getModifiedColor(rFiGrAtt.getEndColor())));
    }

    o_rVCLGradient.SetAngle(static_cast<sal_uInt16>(rFiGrAtt.getAngle() * (1.0 / F_PI1800)));
    o_rVCLGradient.SetBorder(static_cast<sal_uInt16>(rFiGrAtt.getBorder() * 100.0));
    o_rVCLGradient.SetOfsX(static_cast<sal_uInt16>(rFiGrAtt.getOffsetX() * 100.0));
    o_rVCLGradient.SetOfsY(static_cast<sal_uInt16>(rFiGrAtt.getOffsetY() * 100.0));
    o_rVCLGradient.SetSteps(rFiGrAtt.getSteps());

    // defaults for intensity; those were computed into the start/end colors already
    o_rVCLGradient.SetStartIntensity(100);
    o_rVCLGradient.SetEndIntensity(100);

    switch (rFiGrAtt.getStyle())
    {
        default: // attribute::GradientStyle::Linear :
        {
            o_rVCLGradient.SetStyle(GradientStyle::Linear);
            break;
        }
        case attribute::GradientStyle::Axial:
        {
            o_rVCLGradient.SetStyle(GradientStyle::Axial);
            break;
        }
        case attribute::GradientStyle::Radial:
        {
            o_rVCLGradient.SetStyle(GradientStyle::Radial);
            break;
        }
        case attribute::GradientStyle::Elliptical:
        {
            o_rVCLGradient.SetStyle(GradientStyle::Elliptical);
            break;
        }
        case attribute::GradientStyle::Square:
        {
            o_rVCLGradient.SetStyle(GradientStyle::Square);
            break;
        }
        case attribute::GradientStyle::Rect:
        {
            o_rVCLGradient.SetStyle(GradientStyle::Rect);
            break;
        }
    }
}

void VclMetafileProcessor2D::impStartSvtGraphicFill(SvtGraphicFill const* pSvtGraphicFill)
{
    if (pSvtGraphicFill && !mnSvtGraphicFillCount)
    {
        SvMemoryStream aMemStm;

        WriteSvtGraphicFill(aMemStm, *pSvtGraphicFill);
        mpMetaFile->AddAction(new MetaCommentAction(
            "XPATHFILL_SEQ_BEGIN", 0, static_cast<const sal_uInt8*>(aMemStm.GetData()),
            aMemStm.TellEnd()));
        mnSvtGraphicFillCount++;
    }
}

void VclMetafileProcessor2D::impEndSvtGraphicFill(SvtGraphicFill const* pSvtGraphicFill)
{
    if (pSvtGraphicFill && mnSvtGraphicFillCount)
    {
        mnSvtGraphicFillCount--;
        mpMetaFile->AddAction(new MetaCommentAction("XPATHFILL_SEQ_END"));
    }
}

double VclMetafileProcessor2D::getTransformedLineWidth(double fWidth) const
{
    // #i113922# the LineWidth is duplicated in the MetaPolylineAction,
    // and also inside the SvtGraphicStroke and needs transforming into
    // the same space as its coordinates here cf. fdo#61789
    // This is a partial fix. When an object transformation is used which
    // e.g. contains a scaleX != scaleY, an unproportional scaling will happen.
    const basegfx::B2DVector aDiscreteUnit(maCurrentTransformation
                                           * basegfx::B2DVector(fWidth, 0.0));

    return aDiscreteUnit.getLength();
}

std::unique_ptr<SvtGraphicStroke> VclMetafileProcessor2D::impTryToCreateSvtGraphicStroke(
    const basegfx::B2DPolygon& rB2DPolygon, const basegfx::BColor* pColor,
    const attribute::LineAttribute* pLineAttribute,
    const attribute::StrokeAttribute* pStrokeAttribute,
    const attribute::LineStartEndAttribute* pStart, const attribute::LineStartEndAttribute* pEnd)
{
    std::unique_ptr<SvtGraphicStroke> pRetval;

    if (rB2DPolygon.count() && !mnSvtGraphicStrokeCount)
    {
        basegfx::B2DPolygon aLocalPolygon(rB2DPolygon);
        basegfx::BColor aStrokeColor;
        basegfx::B2DPolyPolygon aStartArrow;
        basegfx::B2DPolyPolygon aEndArrow;

        if (pColor)
        {
            aStrokeColor = *pColor;
        }
        else if (pLineAttribute)
        {
            aStrokeColor = maBColorModifierStack.getModifiedColor(pLineAttribute->getColor());
        }

        // It IS needed to record the stroke color at all in the metafile,
        // SvtGraphicStroke has NO entry for stroke color(!)
        mpOutputDevice->SetLineColor(Color(aStrokeColor));

        if (!aLocalPolygon.isClosed())
        {
            double fPolyLength(0.0);
            double fStart(0.0);
            double fEnd(0.0);

            if (pStart && pStart->isActive())
            {
                fPolyLength = basegfx::utils::getLength(aLocalPolygon);

                aStartArrow = basegfx::utils::createAreaGeometryForLineStartEnd(
                    aLocalPolygon, pStart->getB2DPolyPolygon(), true, pStart->getWidth(),
                    fPolyLength, pStart->isCentered() ? 0.5 : 0.0, &fStart);
            }

            if (pEnd && pEnd->isActive())
            {
                if (basegfx::fTools::equalZero(fPolyLength))
                {
                    fPolyLength = basegfx::utils::getLength(aLocalPolygon);
                }

                aEndArrow = basegfx::utils::createAreaGeometryForLineStartEnd(
                    aLocalPolygon, pEnd->getB2DPolyPolygon(), false, pEnd->getWidth(), fPolyLength,
                    pEnd->isCentered() ? 0.5 : 0.0, &fEnd);
            }

            if (0.0 != fStart || 0.0 != fEnd)
            {
                // build new poly, consume something from old poly
                aLocalPolygon = basegfx::utils::getSnippetAbsolute(aLocalPolygon, fStart,
                                                                   fPolyLength - fEnd, fPolyLength);
            }
        }

        SvtGraphicStroke::JoinType eJoin(SvtGraphicStroke::joinNone);
        SvtGraphicStroke::CapType eCap(SvtGraphicStroke::capButt);
        double fLineWidth(0.0);
        double fMiterLength(0.0);
        SvtGraphicStroke::DashArray aDashArray;

        if (pLineAttribute)
        {
            fLineWidth = fMiterLength = getTransformedLineWidth(pLineAttribute->getWidth());

            // get Join
            switch (pLineAttribute->getLineJoin())
            {
                case basegfx::B2DLineJoin::NONE:
                {
                    eJoin = SvtGraphicStroke::joinNone;
                    break;
                }
                case basegfx::B2DLineJoin::Bevel:
                {
                    eJoin = SvtGraphicStroke::joinBevel;
                    break;
                }
                case basegfx::B2DLineJoin::Miter:
                {
                    eJoin = SvtGraphicStroke::joinMiter;
                    // ATM 15 degrees is assumed
                    fMiterLength /= rtl::math::sin(basegfx::deg2rad(15.0));
                    break;
                }
                case basegfx::B2DLineJoin::Round:
                {
                    eJoin = SvtGraphicStroke::joinRound;
                    break;
                }
            }

            // get stroke
            switch (pLineAttribute->getLineCap())
            {
                default: /* css::drawing::LineCap_BUTT */
                {
                    eCap = SvtGraphicStroke::capButt;
                    break;
                }
                case css::drawing::LineCap_ROUND:
                {
                    eCap = SvtGraphicStroke::capRound;
                    break;
                }
                case css::drawing::LineCap_SQUARE:
                {
                    eCap = SvtGraphicStroke::capSquare;
                    break;
                }
            }
        }

        if (pStrokeAttribute)
        {
            // copy dash array
            aDashArray = pStrokeAttribute->getDotDashArray();
        }

        // #i101734# apply current object transformation to created geometry.
        // This is a partial fix. When an object transformation is used which
        // e.g. contains a scaleX != scaleY, an unproportional scaling would
        // have to be applied to the evtl. existing fat line. The current
        // concept of PDF export and SvtGraphicStroke usage does simply not
        // allow handling such definitions. The only clean way would be to
        // add the transformation to SvtGraphicStroke and to handle it there
        aLocalPolygon.transform(maCurrentTransformation);
        aStartArrow.transform(maCurrentTransformation);
        aEndArrow.transform(maCurrentTransformation);

        pRetval.reset(
            new SvtGraphicStroke(tools::Polygon(aLocalPolygon), tools::PolyPolygon(aStartArrow),
                                 tools::PolyPolygon(aEndArrow), mfCurrentUnifiedTransparence,
                                 fLineWidth, eCap, eJoin, fMiterLength, aDashArray));
    }

    return pRetval;
}

void VclMetafileProcessor2D::impStartSvtGraphicStroke(SvtGraphicStroke const* pSvtGraphicStroke)
{
    if (pSvtGraphicStroke && !mnSvtGraphicStrokeCount)
    {
        SvMemoryStream aMemStm;

        WriteSvtGraphicStroke(aMemStm, *pSvtGraphicStroke);
        mpMetaFile->AddAction(new MetaCommentAction(
            "XPATHSTROKE_SEQ_BEGIN", 0, static_cast<const sal_uInt8*>(aMemStm.GetData()),
            aMemStm.TellEnd()));
        mnSvtGraphicStrokeCount++;
    }
}

void VclMetafileProcessor2D::impEndSvtGraphicStroke(SvtGraphicStroke const* pSvtGraphicStroke)
{
    if (pSvtGraphicStroke && mnSvtGraphicStrokeCount)
    {
        mnSvtGraphicStrokeCount--;
        mpMetaFile->AddAction(new MetaCommentAction("XPATHSTROKE_SEQ_END"));
    }
}

void VclMetafileProcessor2D::popStructureElement(vcl::PDFWriter::StructElement eElem)
{
    if (!maListElements.empty() && maListElements.top() == eElem)
    {
        maListElements.pop();
        mpPDFExtOutDevData->EndStructureElement();
    }
}

void VclMetafileProcessor2D::popListItem()
{
    popStructureElement(vcl::PDFWriter::LIBody);
    popStructureElement(vcl::PDFWriter::ListItem);
}

void VclMetafileProcessor2D::popList()
{
    popListItem();
    popStructureElement(vcl::PDFWriter::List);
}

// init static break iterator
uno::Reference<css::i18n::XBreakIterator> VclMetafileProcessor2D::mxBreakIterator;

VclMetafileProcessor2D::VclMetafileProcessor2D(const geometry::ViewInformation2D& rViewInformation,
                                               OutputDevice& rOutDev)
    : VclProcessor2D(rViewInformation, rOutDev)
    , mpMetaFile(rOutDev.GetConnectMetaFile())
    , mnSvtGraphicFillCount(0)
    , mnSvtGraphicStrokeCount(0)
    , mfCurrentUnifiedTransparence(0.0)
    , mpPDFExtOutDevData(dynamic_cast<vcl::PDFExtOutDevData*>(rOutDev.GetExtOutDevData()))
    , mnCurrentOutlineLevel(-1)
    , mbInListItem(false)
    , mbBulletPresent(false)
{
    OSL_ENSURE(rOutDev.GetConnectMetaFile(),
               "VclMetafileProcessor2D: Used on OutDev which has no MetaFile Target (!)");
    // draw to logic coordinates, do not initialize maCurrentTransformation to viewTransformation
    // but only to ObjectTransformation. Do not change MapMode of destination.
    maCurrentTransformation = rViewInformation.getObjectTransformation();
}

VclMetafileProcessor2D::~VclMetafileProcessor2D()
{
    // MapMode was not changed, no restore necessary
}

/***********************************************************************************************

    Support of MetaCommentActions in the VclMetafileProcessor2D
    Found MetaCommentActions and how they are supported:

    XGRAD_SEQ_BEGIN, XGRAD_SEQ_END:

    Used inside OutputDevice::DrawGradient to mark the start and end of a MetaGradientEx action.
    It is used in various exporters/importers to have direct access to the gradient before it
    is rendered by VCL (and thus fragmented to polygon color actions and others). On that base, e.g.
    the Metafile to SdrObject import creates its gradient objects.
    Best (and safest) way to support it here is to use PRIMITIVE2D_ID_POLYPOLYGONGRADIENTPRIMITIVE2D,
    map it back to the corresponding tools tools::PolyPolygon and the Gradient and just call
    OutputDevice::DrawGradient which creates the necessary compatible actions.

    XPATHFILL_SEQ_BEGIN, XPATHFILL_SEQ_END:

    Two producers, one is vcl/source/gdi/gdimtf.cxx, line 1273. There, it is transformed
    inside GDIMetaFile::Rotate, nothing to take care of here.
    The second producer is in graphics/svx/source/svdraw/impgrfll.cxx, line 374. This is used
    with each incarnation of Imp_GraphicFill when a metafile is recorded, fillstyle is not
    XFILL_NONE and not completely transparent. It creates a SvtGraphicFill and streams it
    to the comment action. A closing end token is created in the destructor.
    Usages of Imp_GraphicFill are in Do_Paint_Object-methods of SdrCircObj, SdrPathObj and
    SdrRectObj.
    The token users pick various actions from SvtGraphicFill, so it may need to be added for all kind
    of filled objects, even simple colored polygons. It is added as extra information; the
    Metafile actions between the two tokens are interpreted as output generated from those
    fills. Thus, users have the choice to use the SvtGraphicFill info or the created output
    actions.
    Even for XFillTransparenceItem it is used, thus it may need to be supported in
    UnifiedTransparencePrimitive2D, too, when interpreted as normally filled PolyPolygon.
    Implemented for:
        PRIMITIVE2D_ID_POLYPOLYGONGRAPHICPRIMITIVE2D,
        PRIMITIVE2D_ID_POLYPOLYGONHATCHPRIMITIVE2D,
        PRIMITIVE2D_ID_POLYPOLYGONGRADIENTPRIMITIVE2D,
        PRIMITIVE2D_ID_POLYPOLYGONCOLORPRIMITIVE2D,
        and for PRIMITIVE2D_ID_UNIFIEDTRANSPARENCEPRIMITIVE2D when detected unified transparence

    XPATHSTROKE_SEQ_BEGIN, XPATHSTROKE_SEQ_END:

    Similar to pathfill, but using SvtGraphicStroke instead. It also has two producers where one
    is also the GDIMetaFile::Rotate. Another user is MetaCommentAction::Move which modifies the
    contained path accordingly.
    The other one is SdrObject::Imp_DrawLineGeometry. It's done when MetaFile is set at OutDev and
    only when geometry is a single polygon (!). I see no reason for that; in the PS exporter this
    would hinder to make use of tools::PolyPolygon strokes. I will need to add support at:
        PRIMITIVE2D_ID_POLYGONHAIRLINEPRIMITIVE2D
        PRIMITIVE2D_ID_POLYGONSTROKEPRIMITIVE2D
        PRIMITIVE2D_ID_POLYGONSTROKEARROWPRIMITIVE2D
    This can be done hierarchical, too.
    Okay, base implementation done based on those three primitives.

    FIELD_SEQ_BEGIN, FIELD_SEQ_END

    Used from slideshow for URLs, created from diverse SvxField implementations inside
    createBeginComment()/createEndComment(). createBeginComment() is used from editeng\impedit3.cxx
    inside ImpEditEngine::Paint.
    Created TextHierarchyFieldPrimitive2D and added needed infos there; it is a group primitive and wraps
    text primitives (but is not limited to that). It contains the field type if special actions for the
    support of FIELD_SEQ_BEGIN/END are needed; this is the case for Page and URL fields. If more is
    needed, it may be supported there.
    FIELD_SEQ_BEGIN;PageField
    FIELD_SEQ_END
    Okay, these are now completely supported by TextHierarchyFieldPrimitive2D. URL works, too.

    XTEXT

    XTEXT_EOC(i) end of character
    XTEXT_EOW(i) end of word
    XTEXT_EOS(i) end of sentence

    this three are with index and are created with the help of an i18n::XBreakIterator in
    ImplDrawWithComments. Simplifying, moving out text painting, reworking to create some
    data structure for holding those TEXT infos.
    Supported directly by TextSimplePortionPrimitive2D with adding a Locale to the basic text
    primitive. In the MetaFileRenderer, the creation is now done (see below). This has the advantage
    that this creations do not need to be done for all paints all the time. This would be
    expensive since the BreakIterator and it's usage is expensive and for each paint also the
    whole character stops would need to be created.
    Created only for TextDecoratedPortionPrimitive2D due to XTEXT_EOL and XTEXT_EOP (see below)

    XTEXT_EOL() end of line
    XTEXT_EOP() end of paragraph

    First try with boolean marks at TextDecoratedPortionPrimitive2D did not work too well,
    i decided to solve it with structure. I added the TextHierarchyPrimitives for this,
    namely:
    - TextHierarchyLinePrimitive2D: Encapsulates single line
    - TextHierarchyParagraphPrimitive2D: Encapsulates single paragraph
    - TextHierarchyBlockPrimitive2D: encapsulates object texts (only one ATM)
    Those are now supported in hierarchy. This means the MetaFile renderer will support them
    by using them, recursively using their content and adding MetaFile comments as needed.
    This also means that when another text layouter will be used it will be necessary to
    create/support the same HierarchyPrimitives to support users.
    To transport the information using this hierarchy is best suited to all future needs;
    the slideshow will be able to profit from it directly when using primitives; all other
    renderers not interested in the text structure will just ignore the encapsulations.

    XTEXT_PAINTSHAPE_BEGIN, XTEXT_PAINTSHAPE_END
    Supported now by the TextHierarchyBlockPrimitive2D.

    EPSReplacementGraphic:
    Only used in goodies\source\filter.vcl\ieps\ieps.cxx and svx\source\xml\xmlgrhlp.cxx to
    hold the original EPS which was imported in the same MetaFile as first 2 entries. Only
    used to export the original again (if exists).
    Not necessary to support with MetaFuleRenderer.

    XTEXT_SCROLLRECT, XTEXT_PAINTRECT
    Currently used to get extra MetaFile infos using GraphicExporter which again uses
    SdrTextObj::GetTextScrollMetaFileAndRectangle(). ATM works with primitives since
    the rectangle data is added directly by the GraphicsExporter as comment. Does not need
    to be adapted at once.
    When adapting later, the only user - the diashow - should directly use the provided
    Animation infos in the appropriate primitives (e.g. AnimatedSwitchPrimitive2D)

    PRNSPOOL_TRANSPARENTBITMAP_BEGIN, PRNSPOOL_TRANSPARENTBITMAP_END
    VCL usage when printing PL -> THB. Okay, THB confirms that it is only used as
    a fix (hack) while VCL printing. It is needed to not downscale a bitmap which
    was explicitly created for the printer already again to some default maximum
    bitmap sizes.
    Nothing to do here for the primitive renderer.

    Support for vcl::PDFExtOutDevData:
    PL knows that SJ did that stuff, it's used to hold a pointer to PDFExtOutDevData at
    the OutDev. When set, some extra data is written there. Trying simple PDF export and
    watching if I get those infos.
    Well, a PDF export does not use e.g. ImpEditEngine::Paint since the PdfFilter uses
    the SdXImpressDocument::render and thus uses the VclMetafileProcessor2D. I will check
    if I get a PDFExtOutDevData at the target output device.
    Indeed, I get one. Checking what all may be done when that extra-device-info is there.

    All in all I have to talk to SJ. I will need to emulate some of those actions, but
    i need to discuss which ones.
    In the future, all those infos would be taken from the primitive sequence anyways,
    thus these extensions would potentially be temporary, too.
    Discussed with SJ, added the necessary support and tested it. Details follow.

    - In ImpEditEngine::Paint, paragraph infos and URL stuff is added.
      Added in primitive MetaFile renderer.
      Checking URL: Indeed, current version exports it, but it is missing in primitive
      CWS version. Adding support.
      Okay, URLs work. Checked, Done.

    - UnoControlPDFExportContact is only created when PDFExtOutDevData is used at the
      target and uno control data is created in UnoControlPDFExportContact::do_PaintObject.
      This may be added in primitive MetaFile renderer.
      Adding support...
      OOps, the necessary helper stuff is in svx/source/form/formpdxexport.cxx in namespace
      svxform. Have to talk to FS if this has to be like that. Especially since
      vcl::PDFWriter::AnyWidget is filled out, which is already part of vcl.
      Wrote an eMail to FS, he is on vacation currently. I see no reason why not to move
      that stuff to somewhere else, maybe tools or svtools ?!? We will see...
      Moved to toolkit, so I have to link against it. I tried VCL first, but it did
      not work since VCLUnoHelper::CreateFont is unresolved in VCL (!). Other than the name
      may imply, it is defined in toolkit (!). Since toolkit is linked against VCL itself,
      the lowest movement plane is toolkit.
      Checked form control export, it works well. Done.

    - In goodies, in GraphicObject::Draw, when the used Graphic is linked, infos are
      generated. I will need to check what happens here with primitives.
      To support, use of GraphicPrimitive2D (PRIMITIVE2D_ID_GRAPHICPRIMITIVE2D) may be needed.
      Added support, but feature is broken in main version, so i cannot test at all.
      Writing a bug to CL (or SJ) and seeing what happens (#i80380#).
      SJ took a look and we got it working. Tested VCL MetaFile Renderer based export,
      as intended, the original file is exported. Works, Done.


    To be done:

    - Maybe there are more places to take care of for vcl::PDFExtOutDevData!


****************************************************************************************************/

void VclMetafileProcessor2D::processBasePrimitive2D(const primitive2d::BasePrimitive2D& rCandidate)
{
    switch (rCandidate.getPrimitive2DID())
    {
        case PRIMITIVE2D_ID_WRONGSPELLPRIMITIVE2D:
        {
            // directdraw of wrong spell primitive
            // Ignore for VclMetafileProcessor2D, this is for printing and MetaFile recording only
            break;
        }
        case PRIMITIVE2D_ID_GRAPHICPRIMITIVE2D:
        {
            processGraphicPrimitive2D(
                static_cast<const primitive2d::GraphicPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_CONTROLPRIMITIVE2D:
        {
            processControlPrimitive2D(
                static_cast<const primitive2d::ControlPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_TEXTHIERARCHYFIELDPRIMITIVE2D:
        {
            processTextHierarchyFieldPrimitive2D(
                static_cast<const primitive2d::TextHierarchyFieldPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_TEXTHIERARCHYLINEPRIMITIVE2D:
        {
            processTextHierarchyLinePrimitive2D(
                static_cast<const primitive2d::TextHierarchyLinePrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_TEXTHIERARCHYBULLETPRIMITIVE2D:
        {
            processTextHierarchyBulletPrimitive2D(
                static_cast<const primitive2d::TextHierarchyBulletPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_TEXTHIERARCHYPARAGRAPHPRIMITIVE2D:
        {
            processTextHierarchyParagraphPrimitive2D(
                static_cast<const primitive2d::TextHierarchyParagraphPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_TEXTHIERARCHYBLOCKPRIMITIVE2D:
        {
            processTextHierarchyBlockPrimitive2D(
                static_cast<const primitive2d::TextHierarchyBlockPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_TEXTSIMPLEPORTIONPRIMITIVE2D:
        case PRIMITIVE2D_ID_TEXTDECORATEDPORTIONPRIMITIVE2D:
        {
            // for supporting TEXT_ MetaFile actions there is more to do here; get the candidate
            processTextSimplePortionPrimitive2D(
                static_cast<const primitive2d::TextSimplePortionPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_POLYGONHAIRLINEPRIMITIVE2D:
        {
            processPolygonHairlinePrimitive2D(
                static_cast<const primitive2d::PolygonHairlinePrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_POLYGONSTROKEPRIMITIVE2D:
        {
            processPolygonStrokePrimitive2D(
                static_cast<const primitive2d::PolygonStrokePrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_POLYGONSTROKEARROWPRIMITIVE2D:
        {
            processPolygonStrokeArrowPrimitive2D(
                static_cast<const primitive2d::PolygonStrokeArrowPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_BITMAPPRIMITIVE2D:
        {
            // direct draw of transformed BitmapEx primitive; use default processing, but without
            // former testing if graphic content is inside discrete local viewport; this is not
            // setup for metafile targets (metafile renderer tries to render in logic coordinates,
            // the mapping is kept to the OutputDevice for better Metafile recording)
            RenderBitmapPrimitive2D(static_cast<const primitive2d::BitmapPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_POLYPOLYGONGRAPHICPRIMITIVE2D:
        {
            processPolyPolygonGraphicPrimitive2D(
                static_cast<const primitive2d::PolyPolygonGraphicPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_POLYPOLYGONHATCHPRIMITIVE2D:
        {
            processPolyPolygonHatchPrimitive2D(
                static_cast<const primitive2d::PolyPolygonHatchPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_POLYPOLYGONGRADIENTPRIMITIVE2D:
        {
            processPolyPolygonGradientPrimitive2D(
                static_cast<const primitive2d::PolyPolygonGradientPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_POLYPOLYGONCOLORPRIMITIVE2D:
        {
            processPolyPolygonColorPrimitive2D(
                static_cast<const primitive2d::PolyPolygonColorPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_MASKPRIMITIVE2D:
        {
            processMaskPrimitive2D(static_cast<const primitive2d::MaskPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_MODIFIEDCOLORPRIMITIVE2D:
        {
            // modified color group. Force output to unified color. Use default pocessing.
            RenderModifiedColorPrimitive2D(
                static_cast<const primitive2d::ModifiedColorPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_UNIFIEDTRANSPARENCEPRIMITIVE2D:
        {
            processUnifiedTransparencePrimitive2D(
                static_cast<const primitive2d::UnifiedTransparencePrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_TRANSPARENCEPRIMITIVE2D:
        {
            processTransparencePrimitive2D(
                static_cast<const primitive2d::TransparencePrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_TRANSFORMPRIMITIVE2D:
        {
            // use default transform group pocessing
            RenderTransformPrimitive2D(
                static_cast<const primitive2d::TransformPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_PAGEPREVIEWPRIMITIVE2D:
        {
            // new XDrawPage for ViewInformation2D
            RenderPagePreviewPrimitive2D(
                static_cast<const primitive2d::PagePreviewPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_MARKERARRAYPRIMITIVE2D:
        {
            // use default marker array pocessing
            RenderMarkerArrayPrimitive2D(
                static_cast<const primitive2d::MarkerArrayPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_POINTARRAYPRIMITIVE2D:
        {
            // use default point array pocessing
            RenderPointArrayPrimitive2D(
                static_cast<const primitive2d::PointArrayPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_STRUCTURETAGPRIMITIVE2D:
        {
            processStructureTagPrimitive2D(
                static_cast<const primitive2d::StructureTagPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_EPSPRIMITIVE2D:
        {
            RenderEpsPrimitive2D(static_cast<const primitive2d::EpsPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_OBJECTINFOPRIMITIVE2D:
        {
            RenderObjectInfoPrimitive2D(
                static_cast<const primitive2d::ObjectInfoPrimitive2D&>(rCandidate));
            break;
        }
        case PRIMITIVE2D_ID_GLOWPRIMITIVE2D:
        case PRIMITIVE2D_ID_SOFTEDGEPRIMITIVE2D:
        {
            processPrimitive2DOnPixelProcessor(rCandidate);
            break;
        }
        default:
        {
            // process recursively
            process(rCandidate);
            break;
        }
    }
}

void VclMetafileProcessor2D::processGraphicPrimitive2D(
    const primitive2d::GraphicPrimitive2D& rGraphicPrimitive)
{
    bool bUsingPDFExtOutDevData(false);
    basegfx::B2DVector aTranslate, aScale;
    static bool bSuppressPDFExtOutDevDataSupport(false); // loplugin:constvars:ignore

    if (mpPDFExtOutDevData && !bSuppressPDFExtOutDevDataSupport)
    {
        // emulate data handling from UnoControlPDFExportContact, original see
        // svtools/source/graphic/grfmgr.cxx
        const Graphic& rGraphic = rGraphicPrimitive.getGraphicObject().GetGraphic();

        if (rGraphic.IsGfxLink())
        {
            const GraphicAttr& rAttr = rGraphicPrimitive.getGraphicAttr();

            if (!rAttr.IsSpecialDrawMode() && !rAttr.IsAdjusted())
            {
                const basegfx::B2DHomMatrix& rTransform = rGraphicPrimitive.getTransform();
                double fRotate, fShearX;
                rTransform.decompose(aScale, aTranslate, fRotate, fShearX);

                if (basegfx::fTools::equalZero(fRotate) && (aScale.getX() > 0.0)
                    && (aScale.getY() > 0.0))
                {
                    bUsingPDFExtOutDevData = true;
                    mpPDFExtOutDevData->BeginGroup();
                }
            }
        }
    }

    // process recursively and add MetaFile comment
    process(rGraphicPrimitive);

    if (!bUsingPDFExtOutDevData)
        return;

    // emulate data handling from UnoControlPDFExportContact, original see
    // svtools/source/graphic/grfmgr.cxx
    const basegfx::B2DRange aCurrentRange(aTranslate.getX(), aTranslate.getY(),
                                          aTranslate.getX() + aScale.getX(),
                                          aTranslate.getY() + aScale.getY());
    const tools::Rectangle aCurrentRect(
        sal_Int32(floor(aCurrentRange.getMinX())), sal_Int32(floor(aCurrentRange.getMinY())),
        sal_Int32(ceil(aCurrentRange.getMaxX())), sal_Int32(ceil(aCurrentRange.getMaxY())));
    const GraphicAttr& rAttr = rGraphicPrimitive.getGraphicAttr();
    // fdo#72530 don't pass empty Rectangle to EndGroup
    tools::Rectangle aCropRect(aCurrentRect);

    if (rAttr.IsCropped())
    {
        // calculate scalings between real image size and logic object size. This
        // is necessary since the crop values are relative to original bitmap size
        double fFactorX(1.0);
        double fFactorY(1.0);

        {
            const MapMode aMapMode100thmm(MapUnit::Map100thMM);
            const Size aBitmapSize(OutputDevice::LogicToLogic(
                rGraphicPrimitive.getGraphicObject().GetPrefSize(),
                rGraphicPrimitive.getGraphicObject().GetPrefMapMode(), aMapMode100thmm));
            const double fDivX(aBitmapSize.Width() - rAttr.GetLeftCrop() - rAttr.GetRightCrop());
            const double fDivY(aBitmapSize.Height() - rAttr.GetTopCrop() - rAttr.GetBottomCrop());

            if (!basegfx::fTools::equalZero(fDivX))
            {
                fFactorX = aScale.getX() / fDivX;
            }

            if (!basegfx::fTools::equalZero(fDivY))
            {
                fFactorY = aScale.getY() / fDivY;
            }
        }

        // calculate crop range and rect
        basegfx::B2DRange aCropRange;
        aCropRange.expand(
            aCurrentRange.getMinimum()
            - basegfx::B2DPoint(rAttr.GetLeftCrop() * fFactorX, rAttr.GetTopCrop() * fFactorY));
        aCropRange.expand(
            aCurrentRange.getMaximum()
            + basegfx::B2DPoint(rAttr.GetRightCrop() * fFactorX, rAttr.GetBottomCrop() * fFactorY));

        aCropRect = tools::Rectangle(
            sal_Int32(floor(aCropRange.getMinX())), sal_Int32(floor(aCropRange.getMinY())),
            sal_Int32(ceil(aCropRange.getMaxX())), sal_Int32(ceil(aCropRange.getMaxY())));
    }

    // Create image alternative description from ObjectInfoPrimitive2D info
    // for PDF export
    if (mpPDFExtOutDevData->GetIsExportTaggedPDF() && nullptr != getObjectInfoPrimitive2D())
    {
        OUString aAlternateDescription;

        if (!getObjectInfoPrimitive2D()->getTitle().isEmpty())
        {
            aAlternateDescription += getObjectInfoPrimitive2D()->getTitle();
        }

        if (!getObjectInfoPrimitive2D()->getDesc().isEmpty())
        {
            if (!aAlternateDescription.isEmpty())
            {
                aAlternateDescription += " - ";
            }

            aAlternateDescription += getObjectInfoPrimitive2D()->getDesc();
        }

        // Use SetAlternateText to set it. This will work as long as some
        // structure is used (see PDFWriterImpl::setAlternateText and
        // m_nCurrentStructElement - tagged PDF export works with this in
        // Draw/Impress/Writer, but not in Calc due to too less structure...)
        //Z maybe add structure to Calc PDF export, may need some BeginGroup/EndGroup stuff ..?
        if (!aAlternateDescription.isEmpty())
        {
            mpPDFExtOutDevData->SetAlternateText(aAlternateDescription);
        }
    }

    // #i123295# 3rd param is uncropped rect, 4th is cropped. The primitive has the cropped
    // object transformation, thus aCurrentRect *is* the clip region while aCropRect is the expanded,
    // uncropped region. Thus, correct order is aCropRect, aCurrentRect
    mpPDFExtOutDevData->EndGroup(rGraphicPrimitive.getGraphicObject().GetGraphic(),
                                 rAttr.GetTransparency(), aCropRect, aCurrentRect);
}

void VclMetafileProcessor2D::processControlPrimitive2D(
    const primitive2d::ControlPrimitive2D& rControlPrimitive)
{
    const uno::Reference<awt::XControl>& rXControl(rControlPrimitive.getXControl());
    bool bIsPrintableControl(false);

    // find out if control is printable
    if (rXControl.is())
    {
        try
        {
            uno::Reference<beans::XPropertySet> xModelProperties(rXControl->getModel(),
                                                                 uno::UNO_QUERY);
            uno::Reference<beans::XPropertySetInfo> xPropertyInfo(
                xModelProperties.is() ? xModelProperties->getPropertySetInfo()
                                      : uno::Reference<beans::XPropertySetInfo>());
            const OUString sPrintablePropertyName("Printable");

            if (xPropertyInfo.is() && xPropertyInfo->hasPropertyByName(sPrintablePropertyName))
            {
                OSL_VERIFY(xModelProperties->getPropertyValue(sPrintablePropertyName)
                           >>= bIsPrintableControl);
            }
        }
        catch (const uno::Exception&)
        {
            TOOLS_WARN_EXCEPTION("drawinglayer",
                                 "VclMetafileProcessor2D: No access to printable flag of Control");
        }
    }

    // PDF export and printing only for printable controls
    if (!bIsPrintableControl)
        return;

    const bool bPDFExport(mpPDFExtOutDevData && mpPDFExtOutDevData->GetIsExportFormFields());
    bool bDoProcessRecursively(true);

    if (bPDFExport)
    {
        // PDF export. Emulate data handling from UnoControlPDFExportContact
        // I have now moved describePDFControl to toolkit, thus i can implement the PDF
        // form control support now as follows
        std::unique_ptr<vcl::PDFWriter::AnyWidget> pPDFControl(
            ::toolkitform::describePDFControl(rXControl, *mpPDFExtOutDevData));

        if (pPDFControl)
        {
            // still need to fill in the location (is a class Rectangle)
            const basegfx::B2DRange aRangeLogic(
                rControlPrimitive.getB2DRange(getViewInformation2D()));
            const tools::Rectangle aRectLogic(static_cast<sal_Int32>(floor(aRangeLogic.getMinX())),
                                              static_cast<sal_Int32>(floor(aRangeLogic.getMinY())),
                                              static_cast<sal_Int32>(ceil(aRangeLogic.getMaxX())),
                                              static_cast<sal_Int32>(ceil(aRangeLogic.getMaxY())));
            pPDFControl->Location = aRectLogic;

            Size aFontSize(pPDFControl->TextFont.GetFontSize());
            aFontSize = OutputDevice::LogicToLogic(aFontSize, MapMode(MapUnit::MapPoint),
                                                   mpOutputDevice->GetMapMode());
            pPDFControl->TextFont.SetFontSize(aFontSize);

            mpPDFExtOutDevData->BeginStructureElement(vcl::PDFWriter::Form);
            mpPDFExtOutDevData->CreateControl(*pPDFControl);
            mpPDFExtOutDevData->EndStructureElement();

            // no normal paint needed (see original UnoControlPDFExportContact::do_PaintObject);
            // do not process recursively
            bDoProcessRecursively = false;
        }
        else
        {
            // PDF export did not work, try simple output.
            // Fallback to printer output by not setting bDoProcessRecursively
            // to false.
        }
    }

    // #i93169# used flag the wrong way; true means that nothing was done yet
    if (bDoProcessRecursively)
    {
        // printer output
        try
        {
            // remember old graphics and create new
            uno::Reference<awt::XView> xControlView(rXControl, uno::UNO_QUERY_THROW);
            const uno::Reference<awt::XGraphics> xOriginalGraphics(xControlView->getGraphics());
            const uno::Reference<awt::XGraphics> xNewGraphics(mpOutputDevice->CreateUnoGraphics());

            if (xNewGraphics.is())
            {
                // link graphics and view
                xControlView->setGraphics(xNewGraphics);

                // get position
                const basegfx::B2DHomMatrix aObjectToDiscrete(
                    getViewInformation2D().getObjectToViewTransformation()
                    * rControlPrimitive.getTransform());
                const basegfx::B2DPoint aTopLeftDiscrete(aObjectToDiscrete
                                                         * basegfx::B2DPoint(0.0, 0.0));

                // draw it
                xControlView->draw(basegfx::fround(aTopLeftDiscrete.getX()),
                                   basegfx::fround(aTopLeftDiscrete.getY()));
                bDoProcessRecursively = false;

                // restore original graphics
                xControlView->setGraphics(xOriginalGraphics);
            }
        }
        catch (const uno::Exception&)
        {
            TOOLS_WARN_EXCEPTION("drawinglayer",
                                 "VclMetafileProcessor2D: Printing of Control failed");
        }
    }

    // process recursively if not done yet to export as decomposition (bitmap)
    if (bDoProcessRecursively)
    {
        process(rControlPrimitive);
    }
}

void VclMetafileProcessor2D::processTextHierarchyFieldPrimitive2D(
    const primitive2d::TextHierarchyFieldPrimitive2D& rFieldPrimitive)
{
    // support for FIELD_SEQ_BEGIN, FIELD_SEQ_END and URL. It wraps text primitives (but is not limited to)
    // thus do the MetafileAction embedding stuff but just handle recursively.
    const OString aCommentStringCommon("FIELD_SEQ_BEGIN");
    const OString aCommentStringPage("FIELD_SEQ_BEGIN;PageField");
    const OString aCommentStringEnd("FIELD_SEQ_END");
    OUString aURL;

    switch (rFieldPrimitive.getType())
    {
        default: // case drawinglayer::primitive2d::FIELD_TYPE_COMMON :
        {
            mpMetaFile->AddAction(new MetaCommentAction(aCommentStringCommon));
            break;
        }
        case drawinglayer::primitive2d::FIELD_TYPE_PAGE:
        {
            mpMetaFile->AddAction(new MetaCommentAction(aCommentStringPage));
            break;
        }
        case drawinglayer::primitive2d::FIELD_TYPE_URL:
        {
            aURL = rFieldPrimitive.getValue("URL");

            if (!aURL.isEmpty())
            {
                mpMetaFile->AddAction(new MetaCommentAction(
                    aCommentStringCommon, 0, reinterpret_cast<const sal_uInt8*>(aURL.getStr()),
                    2 * aURL.getLength()));
            }

            break;
        }
    }

    // process recursively
    primitive2d::Primitive2DContainer rContent;
    rFieldPrimitive.get2DDecomposition(rContent, getViewInformation2D());
    process(rContent);

    // for the end comment the type is not relevant yet, they are all the same. Just add.
    mpMetaFile->AddAction(new MetaCommentAction(aCommentStringEnd));

    if (!(mpPDFExtOutDevData
          && drawinglayer::primitive2d::FIELD_TYPE_URL == rFieldPrimitive.getType()))
        return;

    // emulate data handling from ImpEditEngine::Paint
    const basegfx::B2DRange aViewRange(rContent.getB2DRange(getViewInformation2D()));
    const tools::Rectangle aRectLogic(static_cast<sal_Int32>(floor(aViewRange.getMinX())),
                                      static_cast<sal_Int32>(floor(aViewRange.getMinY())),
                                      static_cast<sal_Int32>(ceil(aViewRange.getMaxX())),
                                      static_cast<sal_Int32>(ceil(aViewRange.getMaxY())));
    vcl::PDFExtOutDevBookmarkEntry aBookmark;
    aBookmark.nLinkId = mpPDFExtOutDevData->CreateLink(aRectLogic);
    aBookmark.aBookmark = aURL;
    std::vector<vcl::PDFExtOutDevBookmarkEntry>& rBookmarks = mpPDFExtOutDevData->GetBookmarks();
    rBookmarks.push_back(aBookmark);
}

void VclMetafileProcessor2D::processTextHierarchyLinePrimitive2D(
    const primitive2d::TextHierarchyLinePrimitive2D& rLinePrimitive)
{
    const OString aCommentString("XTEXT_EOL");

    // process recursively and add MetaFile comment
    process(rLinePrimitive);
    mpMetaFile->AddAction(new MetaCommentAction(aCommentString));
}

void VclMetafileProcessor2D::processTextHierarchyBulletPrimitive2D(
    const primitive2d::TextHierarchyBulletPrimitive2D& rBulletPrimitive)
{
    // in Outliner::PaintBullet(), a MetafileComment for bullets is added, too. The
    // "XTEXT_EOC" is used, use here, too.
    const OString aCommentString("XTEXT_EOC");

    // this is a part of list item, start LILabel ( = bullet)
    if (mbInListItem)
    {
        maListElements.push(vcl::PDFWriter::LILabel);
        mpPDFExtOutDevData->BeginStructureElement(vcl::PDFWriter::LILabel);
    }

    // process recursively and add MetaFile comment
    process(rBulletPrimitive);
    mpMetaFile->AddAction(new MetaCommentAction(aCommentString));

    if (mbInListItem)
    {
        if (maListElements.top() == vcl::PDFWriter::LILabel)
        {
            maListElements.pop();
            mpPDFExtOutDevData->EndStructureElement(); // end LILabel
            mbBulletPresent = true;
        }
    }
}

void VclMetafileProcessor2D::processTextHierarchyParagraphPrimitive2D(
    const primitive2d::TextHierarchyParagraphPrimitive2D& rParagraphPrimitive)
{
    const OString aCommentString("XTEXT_EOP");
    static bool bSuppressPDFExtOutDevDataSupport(false); // loplugin:constvars:ignore

    if (nullptr == mpPDFExtOutDevData || bSuppressPDFExtOutDevDataSupport)
    {
        // Non-PDF export behaviour (metafile only).
        // Process recursively and add MetaFile comment.
        process(rParagraphPrimitive);
        mpMetaFile->AddAction(new MetaCommentAction(aCommentString));
        return;
    }

    if (!mpPDFExtOutDevData->GetIsExportTaggedPDF())
    {
        // No Tagged PDF -> Dump as Paragraph
        // Emulate data handling from old ImpEditEngine::Paint
        mpPDFExtOutDevData->BeginStructureElement(vcl::PDFWriter::Paragraph);

        // Process recursively and add MetaFile comment
        process(rParagraphPrimitive);
        mpMetaFile->AddAction(new MetaCommentAction(aCommentString));

        // Emulate data handling from ImpEditEngine::Paint
        mpPDFExtOutDevData->EndStructureElement();
        return;
    }

    // Create Tagged PDF -> deeper tagged data using StructureElements.
    // Use OutlineLevel from ParagraphPrimitive, ensure not below -1 what
    // means 'not active'
    const sal_Int16 nNewOutlineLevel(
        std::max(static_cast<sal_Int16>(-1), rParagraphPrimitive.getOutlineLevel()));

    // Do we have a change in OutlineLevel compared to the current one?
    if (nNewOutlineLevel != mnCurrentOutlineLevel)
    {
        if (nNewOutlineLevel > mnCurrentOutlineLevel)
        {
            // increase List level
            for (sal_Int16 a(mnCurrentOutlineLevel); a != nNewOutlineLevel; ++a)
            {
                maListElements.push(vcl::PDFWriter::List);
                mpPDFExtOutDevData->BeginStructureElement(vcl::PDFWriter::List);
            }
        }
        else // if(nNewOutlineLevel < mnCurrentOutlineLevel)
        {
            // close list levels below nNewOutlineLevel completely by removing
            // list items as well as list tag itself
            for (sal_Int16 a(nNewOutlineLevel); a < mnCurrentOutlineLevel; ++a)
            {
                popList(); // end LBody LI and L
            }

            // on nNewOutlineLevel close the previous list item (LBody and LI)
            popListItem();
        }

        // Remember new current OutlineLevel
        mnCurrentOutlineLevel = nNewOutlineLevel;
    }
    else // the same list level
    {
        // close the previous list item (LBody and LI)
        popListItem();
    }

    const bool bDumpAsListItem(-1 != mnCurrentOutlineLevel);

    if (bDumpAsListItem)
    {
        // Dump as ListItem
        maListElements.push(vcl::PDFWriter::ListItem);
        mpPDFExtOutDevData->BeginStructureElement(vcl::PDFWriter::ListItem);
        mbInListItem = true;
    }
    else
    {
        // Dump as Paragraph
        mpPDFExtOutDevData->BeginStructureElement(vcl::PDFWriter::Paragraph);
    }

    // Process recursively and add MetaFile comment
    process(rParagraphPrimitive);
    mpMetaFile->AddAction(new MetaCommentAction(aCommentString));

    if (bDumpAsListItem)
        mbInListItem = false;
    else
        mpPDFExtOutDevData->EndStructureElement(); // end Paragraph
}

void VclMetafileProcessor2D::processTextHierarchyBlockPrimitive2D(
    const primitive2d::TextHierarchyBlockPrimitive2D& rBlockPrimitive)
{
    const OString aCommentStringA("XTEXT_PAINTSHAPE_BEGIN");
    const OString aCommentStringB("XTEXT_PAINTSHAPE_END");

    // add MetaFile comment, process recursively and add MetaFile comment
    mpMetaFile->AddAction(new MetaCommentAction(aCommentStringA));
    process(rBlockPrimitive);

    if (mnCurrentOutlineLevel >= 0)
    {
        // end any opened List structure elements (LBody, LI, L)
        for (sal_Int16 a(0); a <= mnCurrentOutlineLevel; ++a)
        {
            popList();
        }
    }

    mpMetaFile->AddAction(new MetaCommentAction(aCommentStringB));
}

void VclMetafileProcessor2D::processTextSimplePortionPrimitive2D(
    const primitive2d::TextSimplePortionPrimitive2D& rTextCandidate)
{
    // Adapt evtl. used special DrawMode
    const DrawModeFlags nOriginalDrawMode(mpOutputDevice->GetDrawMode());
    adaptTextToFillDrawMode();

    // this is a 2nd portion of list item
    // bullet has been already processed, start LIBody
    if (mbInListItem && mbBulletPresent)
    {
        maListElements.push(vcl::PDFWriter::LIBody);
        mpPDFExtOutDevData->BeginStructureElement(vcl::PDFWriter::LIBody);
    }

    // directdraw of text simple portion; use default processing
    RenderTextSimpleOrDecoratedPortionPrimitive2D(rTextCandidate);

    if (mbInListItem && mbBulletPresent)
        mbBulletPresent = false;

    // restore DrawMode
    mpOutputDevice->SetDrawMode(nOriginalDrawMode);

    // #i101169# if(pTextDecoratedCandidate)
    {
        // support for TEXT_ MetaFile actions only for decorated texts
        if (!mxBreakIterator.is())
        {
            uno::Reference<uno::XComponentContext> xContext(
                ::comphelper::getProcessComponentContext());
            mxBreakIterator = i18n::BreakIterator::create(xContext);
        }

        const OUString& rTxt = rTextCandidate.getText();
        const sal_Int32 nTextLength(rTextCandidate.getTextLength()); // rTxt.getLength());

        if (nTextLength)
        {
            const css::lang::Locale& rLocale = rTextCandidate.getLocale();
            const sal_Int32 nTextPosition(rTextCandidate.getTextPosition());

            sal_Int32 nDone;
            sal_Int32 nNextCellBreak(mxBreakIterator->nextCharacters(
                rTxt, nTextPosition, rLocale, css::i18n::CharacterIteratorMode::SKIPCELL, 0,
                nDone));
            css::i18n::Boundary nNextWordBoundary(mxBreakIterator->getWordBoundary(
                rTxt, nTextPosition, rLocale, css::i18n::WordType::ANY_WORD, true));
            sal_Int32 nNextSentenceBreak(
                mxBreakIterator->endOfSentence(rTxt, nTextPosition, rLocale));
            const OString aCommentStringA("XTEXT_EOC");
            const OString aCommentStringB("XTEXT_EOW");
            const OString aCommentStringC("XTEXT_EOS");

            for (sal_Int32 i(nTextPosition); i < nTextPosition + nTextLength; i++)
            {
                // create the entries for the respective break positions
                if (i == nNextCellBreak)
                {
                    mpMetaFile->AddAction(
                        new MetaCommentAction(aCommentStringA, i - nTextPosition));
                    nNextCellBreak = mxBreakIterator->nextCharacters(
                        rTxt, i, rLocale, css::i18n::CharacterIteratorMode::SKIPCELL, 1, nDone);
                }
                if (i == nNextWordBoundary.endPos)
                {
                    mpMetaFile->AddAction(
                        new MetaCommentAction(aCommentStringB, i - nTextPosition));
                    nNextWordBoundary = mxBreakIterator->getWordBoundary(
                        rTxt, i + 1, rLocale, css::i18n::WordType::ANY_WORD, true);
                }
                if (i == nNextSentenceBreak)
                {
                    mpMetaFile->AddAction(
                        new MetaCommentAction(aCommentStringC, i - nTextPosition));
                    nNextSentenceBreak = mxBreakIterator->endOfSentence(rTxt, i + 1, rLocale);
                }
            }
        }
    }
}

void VclMetafileProcessor2D::processPolygonHairlinePrimitive2D(
    const primitive2d::PolygonHairlinePrimitive2D& rHairlinePrimitive)
{
    const basegfx::B2DPolygon& rBasePolygon = rHairlinePrimitive.getB2DPolygon();

    if (rBasePolygon.count() > (MAX_POLYGON_POINT_COUNT_METAFILE - 1))
    {
        // #i112245# Metafiles use tools Polygon and are not able to have more than 65535 points
        // per polygon. If there are more, split the polygon in half and call recursively
        basegfx::B2DPolygon aLeft, aRight;
        splitLinePolygon(rBasePolygon, aLeft, aRight);
        rtl::Reference<primitive2d::PolygonHairlinePrimitive2D> xPLeft(
            new primitive2d::PolygonHairlinePrimitive2D(aLeft, rHairlinePrimitive.getBColor()));
        rtl::Reference<primitive2d::PolygonHairlinePrimitive2D> xPRight(
            new primitive2d::PolygonHairlinePrimitive2D(aRight, rHairlinePrimitive.getBColor()));

        processBasePrimitive2D(*xPLeft);
        processBasePrimitive2D(*xPRight);
    }
    else
    {
        // direct draw of hairline; use default processing
        // support SvtGraphicStroke MetaCommentAction
        const basegfx::BColor aLineColor(
            maBColorModifierStack.getModifiedColor(rHairlinePrimitive.getBColor()));
        std::unique_ptr<SvtGraphicStroke> pSvtGraphicStroke;

        // #i121267# Not needed, does not give better quality compared with
        // the MetaActionType::POLYPOLYGON written by RenderPolygonHairlinePrimitive2D
        // below
        const bool bSupportSvtGraphicStroke(false);

        if (bSupportSvtGraphicStroke)
        {
            pSvtGraphicStroke
                = impTryToCreateSvtGraphicStroke(rHairlinePrimitive.getB2DPolygon(), &aLineColor,
                                                 nullptr, nullptr, nullptr, nullptr);

            impStartSvtGraphicStroke(pSvtGraphicStroke.get());
        }

        RenderPolygonHairlinePrimitive2D(rHairlinePrimitive, false);

        if (bSupportSvtGraphicStroke)
        {
            impEndSvtGraphicStroke(pSvtGraphicStroke.get());
        }
    }
}

void VclMetafileProcessor2D::processPolygonStrokePrimitive2D(
    const primitive2d::PolygonStrokePrimitive2D& rStrokePrimitive)
{
    const basegfx::B2DPolygon& rBasePolygon = rStrokePrimitive.getB2DPolygon();

    if (rBasePolygon.count() > (MAX_POLYGON_POINT_COUNT_METAFILE - 1))
    {
        // #i112245# Metafiles use tools Polygon and are not able to have more than 65535 points
        // per polygon. If there are more, split the polygon in half and call recursively
        basegfx::B2DPolygon aLeft, aRight;
        splitLinePolygon(rBasePolygon, aLeft, aRight);
        rtl::Reference<primitive2d::PolygonStrokePrimitive2D> xPLeft(
            new primitive2d::PolygonStrokePrimitive2D(aLeft, rStrokePrimitive.getLineAttribute(),
                                                      rStrokePrimitive.getStrokeAttribute()));
        rtl::Reference<primitive2d::PolygonStrokePrimitive2D> xPRight(
            new primitive2d::PolygonStrokePrimitive2D(aRight, rStrokePrimitive.getLineAttribute(),
                                                      rStrokePrimitive.getStrokeAttribute()));

        processBasePrimitive2D(*xPLeft);
        processBasePrimitive2D(*xPRight);
    }
    else
    {
        mpOutputDevice->Push(PushFlags::LINECOLOR | PushFlags::FILLCOLOR);

        // support SvtGraphicStroke MetaCommentAction
        std::unique_ptr<SvtGraphicStroke> pSvtGraphicStroke = impTryToCreateSvtGraphicStroke(
            rBasePolygon, nullptr, &rStrokePrimitive.getLineAttribute(),
            &rStrokePrimitive.getStrokeAttribute(), nullptr, nullptr);

        impStartSvtGraphicStroke(pSvtGraphicStroke.get());
        const attribute::LineAttribute& rLine = rStrokePrimitive.getLineAttribute();

        // create MetaPolyLineActions, but without LineStyle::Dash
        if (basegfx::fTools::more(rLine.getWidth(), 0.0))
        {
            const attribute::StrokeAttribute& rStroke = rStrokePrimitive.getStrokeAttribute();
            basegfx::B2DPolyPolygon aHairLinePolyPolygon;

            if (0.0 == rStroke.getFullDotDashLen())
            {
                aHairLinePolyPolygon.append(rBasePolygon);
            }
            else
            {
                basegfx::utils::applyLineDashing(rBasePolygon, rStroke.getDotDashArray(),
                                                 &aHairLinePolyPolygon, nullptr,
                                                 rStroke.getFullDotDashLen());
            }

            const basegfx::BColor aHairlineColor(
                maBColorModifierStack.getModifiedColor(rLine.getColor()));
            mpOutputDevice->SetLineColor(Color(aHairlineColor));
            mpOutputDevice->SetFillColor();
            aHairLinePolyPolygon.transform(maCurrentTransformation);

            // use the transformed line width
            LineInfo aLineInfo(LineStyle::Solid,
                               basegfx::fround(getTransformedLineWidth(rLine.getWidth())));
            aLineInfo.SetLineJoin(rLine.getLineJoin());
            aLineInfo.SetLineCap(rLine.getLineCap());

            for (sal_uInt32 a(0); a < aHairLinePolyPolygon.count(); a++)
            {
                const basegfx::B2DPolygon& aCandidate(aHairLinePolyPolygon.getB2DPolygon(a));

                if (aCandidate.count() > 1)
                {
                    const tools::Polygon aToolsPolygon(aCandidate);

                    mpMetaFile->AddAction(new MetaPolyLineAction(aToolsPolygon, aLineInfo));
                }
            }
        }
        else
        {
            process(rStrokePrimitive);
        }

        impEndSvtGraphicStroke(pSvtGraphicStroke.get());

        mpOutputDevice->Pop();
    }
}

void VclMetafileProcessor2D::processPolygonStrokeArrowPrimitive2D(
    const primitive2d::PolygonStrokeArrowPrimitive2D& rStrokeArrowPrimitive)
{
    const basegfx::B2DPolygon& rBasePolygon = rStrokeArrowPrimitive.getB2DPolygon();

    if (rBasePolygon.count() > (MAX_POLYGON_POINT_COUNT_METAFILE - 1))
    {
        // #i112245# Metafiles use tools Polygon and are not able to have more than 65535 points
        // per polygon. If there are more, split the polygon in half and call recursively
        basegfx::B2DPolygon aLeft, aRight;
        splitLinePolygon(rBasePolygon, aLeft, aRight);
        const attribute::LineStartEndAttribute aEmpty;
        rtl::Reference<primitive2d::PolygonStrokeArrowPrimitive2D> xPLeft(
            new primitive2d::PolygonStrokeArrowPrimitive2D(
                aLeft, rStrokeArrowPrimitive.getLineAttribute(),
                rStrokeArrowPrimitive.getStrokeAttribute(), rStrokeArrowPrimitive.getStart(),
                aEmpty));
        rtl::Reference<primitive2d::PolygonStrokeArrowPrimitive2D> xPRight(
            new primitive2d::PolygonStrokeArrowPrimitive2D(
                aRight, rStrokeArrowPrimitive.getLineAttribute(),
                rStrokeArrowPrimitive.getStrokeAttribute(), aEmpty,
                rStrokeArrowPrimitive.getEnd()));

        processBasePrimitive2D(*xPLeft);
        processBasePrimitive2D(*xPRight);
    }
    else
    {
        // support SvtGraphicStroke MetaCommentAction
        std::unique_ptr<SvtGraphicStroke> pSvtGraphicStroke = impTryToCreateSvtGraphicStroke(
            rBasePolygon, nullptr, &rStrokeArrowPrimitive.getLineAttribute(),
            &rStrokeArrowPrimitive.getStrokeAttribute(), &rStrokeArrowPrimitive.getStart(),
            &rStrokeArrowPrimitive.getEnd());

        // write LineGeometry start marker
        impStartSvtGraphicStroke(pSvtGraphicStroke.get());

        // #i116162# When B&W is set as DrawMode, DrawModeFlags::WhiteFill is used
        // to let all fills be just white; for lines DrawModeFlags::BlackLine is used
        // so all line geometry is supposed to get black. Since in the in-between
        // stages of line geometry drawing filled polygons are used (e.g. line
        // start/ends) it is necessary to change these drawmodes to preserve
        // that lines shall be black; thus change DrawModeFlags::WhiteFill to
        // DrawModeFlags::BlackFill during line geometry processing to have line geometry
        // parts filled black.
        const DrawModeFlags nOldDrawMode(mpOutputDevice->GetDrawMode());
        const bool bDrawmodeChange(nOldDrawMode & DrawModeFlags::WhiteFill
                                   && mnSvtGraphicStrokeCount);

        if (bDrawmodeChange)
        {
            mpOutputDevice->SetDrawMode((nOldDrawMode & ~DrawModeFlags::WhiteFill)
                                        | DrawModeFlags::BlackFill);
        }

        // process sub-line geometry (evtl. filled PolyPolygons)
        process(rStrokeArrowPrimitive);

        if (bDrawmodeChange)
        {
            mpOutputDevice->SetDrawMode(nOldDrawMode);
        }

        // write LineGeometry end marker
        impEndSvtGraphicStroke(pSvtGraphicStroke.get());
    }
}

void VclMetafileProcessor2D::processPolyPolygonGraphicPrimitive2D(
    const primitive2d::PolyPolygonGraphicPrimitive2D& rBitmapCandidate)
{
    // need to handle PolyPolygonGraphicPrimitive2D here to support XPATHFILL_SEQ_BEGIN/XPATHFILL_SEQ_END
    basegfx::B2DPolyPolygon aLocalPolyPolygon(rBitmapCandidate.getB2DPolyPolygon());

    fillPolyPolygonNeededToBeSplit(aLocalPolyPolygon);

    std::unique_ptr<SvtGraphicFill> pSvtGraphicFill;

    if (!mnSvtGraphicFillCount && aLocalPolyPolygon.count())
    {
        // #121194# Changed implementation and checked usages of convert to metafile,
        // presentation start (uses SvtGraphicFill) and printing.

        // calculate transformation. Get real object size, all values in FillGraphicAttribute
        // are relative to the unified object
        aLocalPolyPolygon.transform(maCurrentTransformation);
        const basegfx::B2DVector aOutlineSize(aLocalPolyPolygon.getB2DRange().getRange());

        // the scaling needs scale from pixel to logic coordinate system
        const attribute::FillGraphicAttribute& rFillGraphicAttribute
            = rBitmapCandidate.getFillGraphic();
        const Size aBmpSizePixel(rFillGraphicAttribute.getGraphic().GetSizePixel());

        // setup transformation like in impgrfll. Multiply with aOutlineSize
        // to get from unit coordinates in rFillGraphicAttribute.getGraphicRange()
        // to object coordinates with object's top left being at (0,0). Divide
        // by pixel size so that scale from pixel to logic will work in SvtGraphicFill.
        const basegfx::B2DVector aTransformScale(
            rFillGraphicAttribute.getGraphicRange().getRange()
            / basegfx::B2DVector(std::max(1.0, double(aBmpSizePixel.Width())),
                                 std::max(1.0, double(aBmpSizePixel.Height())))
            * aOutlineSize);
        const basegfx::B2DPoint aTransformPosition(
            rFillGraphicAttribute.getGraphicRange().getMinimum() * aOutlineSize);

        // setup transformation like in impgrfll
        SvtGraphicFill::Transform aTransform;

        // scale values are divided by bitmap pixel sizes
        aTransform.matrix[0] = aTransformScale.getX();
        aTransform.matrix[4] = aTransformScale.getY();

        // translates are absolute
        aTransform.matrix[2] = aTransformPosition.getX();
        aTransform.matrix[5] = aTransformPosition.getY();

        pSvtGraphicFill.reset(new SvtGraphicFill(
            getFillPolyPolygon(aLocalPolyPolygon), Color(), 0.0, SvtGraphicFill::fillEvenOdd,
            SvtGraphicFill::fillTexture, aTransform, rFillGraphicAttribute.getTiling(),
            SvtGraphicFill::hatchSingle, Color(), SvtGraphicFill::GradientType::Linear, Color(),
            Color(), 0, rFillGraphicAttribute.getGraphic()));
    }

    // Do use decomposition; encapsulate with SvtGraphicFill
    impStartSvtGraphicFill(pSvtGraphicFill.get());
    process(rBitmapCandidate);
    impEndSvtGraphicFill(pSvtGraphicFill.get());
}

void VclMetafileProcessor2D::processPolyPolygonHatchPrimitive2D(
    const primitive2d::PolyPolygonHatchPrimitive2D& rHatchCandidate)
{
    // need to handle PolyPolygonHatchPrimitive2D here to support XPATHFILL_SEQ_BEGIN/XPATHFILL_SEQ_END
    const attribute::FillHatchAttribute& rFillHatchAttribute = rHatchCandidate.getFillHatch();
    basegfx::B2DPolyPolygon aLocalPolyPolygon(rHatchCandidate.getB2DPolyPolygon());

    if (aLocalPolyPolygon.getB2DRange() != rHatchCandidate.getDefinitionRange())
    {
        // the range which defines the hatch is different from the range of the
        // geometry (used for writer frames). This cannot be done calling vcl, thus use
        // decomposition here
        process(rHatchCandidate);
        return;
    }

    // #i112245# Metafiles use tools Polygon and are not able to have more than 65535 points
    // per polygon. Split polygon until there are less than that
    fillPolyPolygonNeededToBeSplit(aLocalPolyPolygon);

    if (rFillHatchAttribute.isFillBackground())
    {
        // with fixing #i111954# (see below) the possible background
        // fill of a hatched object was lost.Generate a background fill
        // primitive and render it
        const primitive2d::Primitive2DReference xBackground(
            new primitive2d::PolyPolygonColorPrimitive2D(aLocalPolyPolygon,
                                                         rHatchCandidate.getBackgroundColor()));

        process(primitive2d::Primitive2DContainer{ xBackground });
    }

    std::unique_ptr<SvtGraphicFill> pSvtGraphicFill;
    aLocalPolyPolygon.transform(maCurrentTransformation);

    if (!mnSvtGraphicFillCount && aLocalPolyPolygon.count())
    {
        // re-create a VCL hatch as base data
        SvtGraphicFill::HatchType eHatch(SvtGraphicFill::hatchSingle);

        switch (rFillHatchAttribute.getStyle())
        {
            default: // attribute::HatchStyle::Single :
            {
                eHatch = SvtGraphicFill::hatchSingle;
                break;
            }
            case attribute::HatchStyle::Double:
            {
                eHatch = SvtGraphicFill::hatchDouble;
                break;
            }
            case attribute::HatchStyle::Triple:
            {
                eHatch = SvtGraphicFill::hatchTriple;
                break;
            }
        }

        SvtGraphicFill::Transform aTransform;

        // scale
        aTransform.matrix[0] *= rFillHatchAttribute.getDistance();
        aTransform.matrix[4] *= rFillHatchAttribute.getDistance();

        // rotate (was never correct in impgrfll anyways, use correct angle now)
        aTransform.matrix[0] *= cos(rFillHatchAttribute.getAngle());
        aTransform.matrix[1] *= -sin(rFillHatchAttribute.getAngle());
        aTransform.matrix[3] *= sin(rFillHatchAttribute.getAngle());
        aTransform.matrix[4] *= cos(rFillHatchAttribute.getAngle());

        pSvtGraphicFill.reset(new SvtGraphicFill(
            getFillPolyPolygon(aLocalPolyPolygon), Color(), 0.0, SvtGraphicFill::fillEvenOdd,
            SvtGraphicFill::fillHatch, aTransform, false, eHatch,
            Color(maBColorModifierStack.getModifiedColor(rFillHatchAttribute.getColor())),
            SvtGraphicFill::GradientType::Linear, Color(), Color(), 0, Graphic()));
    }

    // Do use decomposition; encapsulate with SvtGraphicFill
    impStartSvtGraphicFill(pSvtGraphicFill.get());

    // #i111954# do NOT use decomposition, but use direct VCL-command
    // process(rCandidate.get2DDecomposition(getViewInformation2D()));
    const tools::PolyPolygon aToolsPolyPolygon(
        basegfx::utils::adaptiveSubdivideByAngle(aLocalPolyPolygon));
    const HatchStyle aHatchStyle(
        attribute::HatchStyle::Single == rFillHatchAttribute.getStyle()
            ? HatchStyle::Single
            : attribute::HatchStyle::Double == rFillHatchAttribute.getStyle() ? HatchStyle::Double
                                                                              : HatchStyle::Triple);

    mpOutputDevice->DrawHatch(
        aToolsPolyPolygon,
        Hatch(aHatchStyle,
              Color(maBColorModifierStack.getModifiedColor(rFillHatchAttribute.getColor())),
              basegfx::fround(rFillHatchAttribute.getDistance()),
              basegfx::fround(rFillHatchAttribute.getAngle() / F_PI1800)));

    impEndSvtGraphicFill(pSvtGraphicFill.get());
}

void VclMetafileProcessor2D::processPolyPolygonGradientPrimitive2D(
    const primitive2d::PolyPolygonGradientPrimitive2D& rGradientCandidate)
{
    basegfx::B2DVector aScale, aTranslate;
    double fRotate, fShearX;

    maCurrentTransformation.decompose(aScale, aTranslate, fRotate, fShearX);

    if (!basegfx::fTools::equalZero(fRotate) || !basegfx::fTools::equalZero(fShearX))
    {
        // #i121185# When rotation or shear is used, a VCL Gradient cannot be used directly.
        // This is because VCL Gradient mechanism does *not* support to rotate the gradient
        // with objects and this case is not expressible in a Metafile (and cannot be added
        // since the FileFormats used, e.g. *.wmf, do not support it either).
        // Such cases happen when a graphic object uses a Metafile as graphic information or
        // a fill style definition uses a Metafile. In this cases the graphic content is
        // rotated with the graphic or filled object; this is not supported by the target
        // format of this conversion renderer - Metafiles.
        // To solve this, not a Gradient is written, but the decomposition of this object
        // is written to the Metafile. This is the PolyPolygons building the gradient fill.
        // These will need more space and time, but the result will be as if the Gradient
        // was rotated with the object.
        // This mechanism is used by all exporters still not using Primitives (e.g. Print,
        // Slideshow, Export rto PDF, export to Picture, ...) but relying on Metafile
        // transfers. One more reason to *change* these to primitives.
        // BTW: One more example how useful the principles of primitives are; the decomposition
        // is by definition a simpler, maybe more expensive representation of the same content.
        process(rGradientCandidate);
        return;
    }

    basegfx::B2DPolyPolygon aLocalPolyPolygon(rGradientCandidate.getB2DPolyPolygon());

    if (aLocalPolyPolygon.getB2DRange() != rGradientCandidate.getDefinitionRange())
    {
        // the range which defines the gradient is different from the range of the
        // geometry (used for writer frames). This cannot be done calling vcl, thus use
        // decomposition here
        process(rGradientCandidate);
        return;
    }

    // #i112245# Metafiles use tools Polygon and are not able to have more than 65535 points
    // per polygon. Split polygon until there are less than that
    fillPolyPolygonNeededToBeSplit(aLocalPolyPolygon);

    // for support of MetaCommentActions of the form XGRAD_SEQ_BEGIN, XGRAD_SEQ_END
    // it is safest to use the VCL OutputDevice::DrawGradient method which creates those.
    // re-create a VCL-gradient from FillGradientPrimitive2D and the needed tools PolyPolygon
    Gradient aVCLGradient;
    impConvertFillGradientAttributeToVCLGradient(aVCLGradient, rGradientCandidate.getFillGradient(),
                                                 false);
    aLocalPolyPolygon.transform(maCurrentTransformation);

    // #i82145# ATM VCL printing of gradients using curved shapes does not work,
    // i submitted the bug with the given ID to THB. When that task is fixed it is
    // necessary to again remove this subdivision since it decreases possible
    // printing quality (not even resolution-dependent for now). THB will tell
    // me when that task is fixed in the master
    const tools::PolyPolygon aToolsPolyPolygon(
        getFillPolyPolygon(basegfx::utils::adaptiveSubdivideByAngle(aLocalPolyPolygon)));

    // XPATHFILL_SEQ_BEGIN/XPATHFILL_SEQ_END support
    std::unique_ptr<SvtGraphicFill> pSvtGraphicFill;

    if (!mnSvtGraphicFillCount && aLocalPolyPolygon.count())
    {
        // setup gradient stuff like in impgrfll
        SvtGraphicFill::GradientType eGrad(SvtGraphicFill::GradientType::Linear);

        switch (aVCLGradient.GetStyle())
        {
            default: // GradientStyle::Linear:
            case GradientStyle::Axial:
                eGrad = SvtGraphicFill::GradientType::Linear;
                break;
            case GradientStyle::Radial:
            case GradientStyle::Elliptical:
                eGrad = SvtGraphicFill::GradientType::Radial;
                break;
            case GradientStyle::Square:
            case GradientStyle::Rect:
                eGrad = SvtGraphicFill::GradientType::Rectangular;
                break;
        }

        pSvtGraphicFill.reset(new SvtGraphicFill(
            aToolsPolyPolygon, Color(), 0.0, SvtGraphicFill::fillEvenOdd,
            SvtGraphicFill::fillGradient, SvtGraphicFill::Transform(), false,
            SvtGraphicFill::hatchSingle, Color(), eGrad, aVCLGradient.GetStartColor(),
            aVCLGradient.GetEndColor(), aVCLGradient.GetSteps(), Graphic()));
    }

    // call VCL directly; encapsulate with SvtGraphicFill
    impStartSvtGraphicFill(pSvtGraphicFill.get());
    mpOutputDevice->DrawGradient(aToolsPolyPolygon, aVCLGradient);
    impEndSvtGraphicFill(pSvtGraphicFill.get());
}

void VclMetafileProcessor2D::processPolyPolygonColorPrimitive2D(
    const primitive2d::PolyPolygonColorPrimitive2D& rPolygonCandidate)
{
    mpOutputDevice->Push(PushFlags::LINECOLOR | PushFlags::FILLCOLOR);
    basegfx::B2DPolyPolygon aLocalPolyPolygon(rPolygonCandidate.getB2DPolyPolygon());

    // #i112245# Metafiles use tools Polygon and are not able to have more than 65535 points
    // per polygon. Split polygon until there are less than that
    fillPolyPolygonNeededToBeSplit(aLocalPolyPolygon);

    const basegfx::BColor aPolygonColor(
        maBColorModifierStack.getModifiedColor(rPolygonCandidate.getBColor()));
    aLocalPolyPolygon.transform(maCurrentTransformation);

    // set line and fill color
    mpOutputDevice->SetFillColor(Color(aPolygonColor));
    mpOutputDevice->SetLineColor();

    mpOutputDevice->DrawPolyPolygon(aLocalPolyPolygon);

    mpOutputDevice->Pop();
}

void VclMetafileProcessor2D::processMaskPrimitive2D(
    const primitive2d::MaskPrimitive2D& rMaskCandidate)
{
    // mask group. Special handling for MetaFiles.
    if (rMaskCandidate.getChildren().empty())
        return;

    basegfx::B2DPolyPolygon aMask(rMaskCandidate.getMask());

    if (aMask.count())
    {
        // prepare new mask polygon and rescue current one
        aMask.transform(maCurrentTransformation);
        const basegfx::B2DPolyPolygon aLastClipPolyPolygon(maClipPolyPolygon);

        if (maClipPolyPolygon.count())
        {
            // there is already a clip polygon set; build clipped union of
            // current mask polygon and new one
            maClipPolyPolygon = basegfx::utils::clipPolyPolygonOnPolyPolygon(
                aMask, maClipPolyPolygon,
                true, // #i106516# we want the inside of aMask, not the outside
                false);
        }
        else
        {
            // use mask directly
            maClipPolyPolygon = aMask;
        }

        if (maClipPolyPolygon.count())
        {
            // set VCL clip region; subdivide before conversion to tools polygon. Subdivision necessary (!)
            // Removed subdivision and fixed in vcl::Region::ImplPolyPolyRegionToBandRegionFunc() in VCL where
            // the ClipRegion is built from the Polygon. An AdaptiveSubdivide on the source polygon was missing there
            mpOutputDevice->Push(PushFlags::CLIPREGION);
            mpOutputDevice->SetClipRegion(vcl::Region(maClipPolyPolygon));

            // recursively paint content
            // #i121267# Only need to process sub-content when clip polygon is *not* empty.
            // If it is empty, the clip is empty and there can be nothing inside.
            process(rMaskCandidate.getChildren());

            // restore VCL clip region
            mpOutputDevice->Pop();
        }

        // restore to rescued clip polygon
        maClipPolyPolygon = aLastClipPolyPolygon;
    }
    else
    {
        // no mask, no clipping. recursively paint content
        process(rMaskCandidate.getChildren());
    }
}

void VclMetafileProcessor2D::processUnifiedTransparencePrimitive2D(
    const primitive2d::UnifiedTransparencePrimitive2D& rUniTransparenceCandidate)
{
    mpOutputDevice->Push(PushFlags::LINECOLOR | PushFlags::FILLCOLOR);
    // for metafile: Need to examine what the pure vcl version is doing here actually
    // - uses DrawTransparent with metafile for content and a gradient
    // - uses DrawTransparent for single PolyPolygons directly. Can be detected by
    //   checking the content for single PolyPolygonColorPrimitive2D
    const primitive2d::Primitive2DContainer& rContent = rUniTransparenceCandidate.getChildren();

    if (!rContent.empty())
    {
        if (0.0 == rUniTransparenceCandidate.getTransparence())
        {
            // not transparent at all, use content
            process(rUniTransparenceCandidate.getChildren());
        }
        else if (rUniTransparenceCandidate.getTransparence() > 0.0
                 && rUniTransparenceCandidate.getTransparence() < 1.0)
        {
            // try to identify a single PolyPolygonColorPrimitive2D in the
            // content part of the transparence primitive
            const primitive2d::PolyPolygonColorPrimitive2D* pPoPoColor = nullptr;
            static bool bForceToMetafile(false); // loplugin:constvars:ignore

            if (!bForceToMetafile && 1 == rContent.size())
            {
                const primitive2d::Primitive2DReference xReference(rContent[0]);
                pPoPoColor = dynamic_cast<const primitive2d::PolyPolygonColorPrimitive2D*>(
                    xReference.get());
            }

            // PolyPolygonGradientPrimitive2D, PolyPolygonHatchPrimitive2D and
            // PolyPolygonGraphicPrimitive2D are derived from PolyPolygonColorPrimitive2D.
            // Check also for correct ID to exclude derived implementations
            if (pPoPoColor
                && PRIMITIVE2D_ID_POLYPOLYGONCOLORPRIMITIVE2D == pPoPoColor->getPrimitive2DID())
            {
                // single transparent tools::PolyPolygon identified, use directly
                const basegfx::BColor aPolygonColor(
                    maBColorModifierStack.getModifiedColor(pPoPoColor->getBColor()));
                basegfx::B2DPolyPolygon aLocalPolyPolygon(pPoPoColor->getB2DPolyPolygon());

                // #i112245# Metafiles use tools Polygon and are not able to have more than 65535 points
                // per polygon. Split polygon until there are less than that
                fillPolyPolygonNeededToBeSplit(aLocalPolyPolygon);

                // now transform
                aLocalPolyPolygon.transform(maCurrentTransformation);

                // set line and fill color
                const sal_uInt16 nTransPercentVcl(static_cast<sal_uInt16>(
                    basegfx::fround(rUniTransparenceCandidate.getTransparence() * 100.0)));
                mpOutputDevice->SetFillColor(Color(aPolygonColor));
                mpOutputDevice->SetLineColor();

                mpOutputDevice->DrawTransparent(tools::PolyPolygon(aLocalPolyPolygon),
                                                nTransPercentVcl);
            }
            else
            {
                // save old mfCurrentUnifiedTransparence and set new one
                // so that contained SvtGraphicStroke may use the current one
                const double fLastCurrentUnifiedTransparence(mfCurrentUnifiedTransparence);
                // #i105377# paint the content metafile opaque as the transparency gets
                // split of into the gradient below
                // mfCurrentUnifiedTransparence = rUniTransparenceCandidate.getTransparence();
                mfCurrentUnifiedTransparence = 0;

                // various content, create content-metafile
                GDIMetaFile aContentMetafile;
                const tools::Rectangle aPrimitiveRectangle(
                    impDumpToMetaFile(rContent, aContentMetafile));

                // restore mfCurrentUnifiedTransparence; it may have been used
                // while processing the sub-content in impDumpToMetaFile
                mfCurrentUnifiedTransparence = fLastCurrentUnifiedTransparence;

                // create uniform VCL gradient for uniform transparency
                Gradient aVCLGradient;
                const sal_uInt8 nTransPercentVcl(static_cast<sal_uInt8>(
                    basegfx::fround(rUniTransparenceCandidate.getTransparence() * 255.0)));
                const Color aTransColor(nTransPercentVcl, nTransPercentVcl, nTransPercentVcl);

                aVCLGradient.SetStyle(GradientStyle::Linear);
                aVCLGradient.SetStartColor(aTransColor);
                aVCLGradient.SetEndColor(aTransColor);
                aVCLGradient.SetAngle(0);
                aVCLGradient.SetBorder(0);
                aVCLGradient.SetOfsX(0);
                aVCLGradient.SetOfsY(0);
                aVCLGradient.SetStartIntensity(100);
                aVCLGradient.SetEndIntensity(100);
                aVCLGradient.SetSteps(2);

                // render it to VCL
                mpOutputDevice->DrawTransparent(aContentMetafile, aPrimitiveRectangle.TopLeft(),
                                                aPrimitiveRectangle.GetSize(), aVCLGradient);
            }
        }
    }

    mpOutputDevice->Pop();
}

void VclMetafileProcessor2D::processTransparencePrimitive2D(
    const primitive2d::TransparencePrimitive2D& rTransparenceCandidate)
{
    // for metafile: Need to examine what the pure vcl version is doing here actually
    // - uses DrawTransparent with metafile for content and a gradient
    // i can detect this here with checking the gradient part for a single
    // FillGradientPrimitive2D and reconstruct the gradient.
    // If that detection goes wrong, I have to create a transparence-blended bitmap. Eventually
    // do that in stripes, else RenderTransparencePrimitive2D may just be used
    const primitive2d::Primitive2DContainer& rContent = rTransparenceCandidate.getChildren();
    const primitive2d::Primitive2DContainer& rTransparence
        = rTransparenceCandidate.getTransparence();

    if (rContent.empty() || rTransparence.empty())
        return;

    // try to identify a single FillGradientPrimitive2D in the
    // transparence part of the primitive
    const primitive2d::FillGradientPrimitive2D* pFiGradient = nullptr;
    static bool bForceToBigTransparentVDev(false); // loplugin:constvars:ignore

    if (!bForceToBigTransparentVDev && 1 == rTransparence.size())
    {
        const primitive2d::Primitive2DReference xReference(rTransparence[0]);
        pFiGradient = dynamic_cast<const primitive2d::FillGradientPrimitive2D*>(xReference.get());
    }

    // Check also for correct ID to exclude derived implementations
    if (pFiGradient && PRIMITIVE2D_ID_FILLGRADIENTPRIMITIVE2D == pFiGradient->getPrimitive2DID())
    {
        // various content, create content-metafile
        GDIMetaFile aContentMetafile;
        const tools::Rectangle aPrimitiveRectangle(impDumpToMetaFile(rContent, aContentMetafile));

        // re-create a VCL-gradient from FillGradientPrimitive2D
        Gradient aVCLGradient;
        impConvertFillGradientAttributeToVCLGradient(aVCLGradient, pFiGradient->getFillGradient(),
                                                     true);

        // render it to VCL
        mpOutputDevice->DrawTransparent(aContentMetafile, aPrimitiveRectangle.TopLeft(),
                                        aPrimitiveRectangle.GetSize(), aVCLGradient);
    }
    else
    {
        // sub-transparence group. Draw to VDev first.
        // this may get refined to tiling when resolution is too big here

        // need to avoid switching off MapMode stuff here; maybe need another
        // tooling class, cannot just do the same as with the pixel renderer.
        // Need to experiment...

        // Okay, basic implementation finished and tested. The DPI stuff was hard
        // and not easy to find out that it's needed.
        // Since this will not yet happen normally (as long as no one constructs
        // transparence primitives with non-trivial transparence content) i will for now not
        // refine to tiling here.

        basegfx::B2DRange aViewRange(rContent.getB2DRange(getViewInformation2D()));
        aViewRange.transform(maCurrentTransformation);
        const tools::Rectangle aRectLogic(static_cast<sal_Int32>(floor(aViewRange.getMinX())),
                                          static_cast<sal_Int32>(floor(aViewRange.getMinY())),
                                          static_cast<sal_Int32>(ceil(aViewRange.getMaxX())),
                                          static_cast<sal_Int32>(ceil(aViewRange.getMaxY())));
        const tools::Rectangle aRectPixel(mpOutputDevice->LogicToPixel(aRectLogic));
        Size aSizePixel(aRectPixel.GetSize());
        const Point aEmptyPoint;
        ScopedVclPtrInstance<VirtualDevice> aBufferDevice;
        const sal_uInt32 nMaxQuadratPixels(500000);
        const sal_uInt32 nViewVisibleArea(aSizePixel.getWidth() * aSizePixel.getHeight());
        double fReduceFactor(1.0);

        if (nViewVisibleArea > nMaxQuadratPixels)
        {
            // reduce render size
            fReduceFactor = sqrt(double(nMaxQuadratPixels) / static_cast<double>(nViewVisibleArea));
            aSizePixel = Size(
                basegfx::fround(static_cast<double>(aSizePixel.getWidth()) * fReduceFactor),
                basegfx::fround(static_cast<double>(aSizePixel.getHeight()) * fReduceFactor));
        }

        if (aBufferDevice->SetOutputSizePixel(aSizePixel))
        {
            // create and set MapModes for target devices
            MapMode aNewMapMode(mpOutputDevice->GetMapMode());
            aNewMapMode.SetOrigin(Point(-aRectLogic.Left(), -aRectLogic.Top()));
            aBufferDevice->SetMapMode(aNewMapMode);

            // prepare view transformation for target renderers
            // ATTENTION! Need to apply another scaling because of the potential DPI differences
            // between Printer and VDev (mpOutputDevice and aBufferDevice here).
            // To get the DPI, LogicToPixel from (1,1) from MapUnit::MapInch needs to be used.
            basegfx::B2DHomMatrix aViewTransform(aBufferDevice->GetViewTransformation());
            const Size aDPIOld(mpOutputDevice->LogicToPixel(Size(1, 1), MapMode(MapUnit::MapInch)));
            const Size aDPINew(aBufferDevice->LogicToPixel(Size(1, 1), MapMode(MapUnit::MapInch)));
            const double fDPIXChange(static_cast<double>(aDPIOld.getWidth())
                                     / static_cast<double>(aDPINew.getWidth()));
            const double fDPIYChange(static_cast<double>(aDPIOld.getHeight())
                                     / static_cast<double>(aDPINew.getHeight()));

            if (!basegfx::fTools::equal(fDPIXChange, 1.0)
                || !basegfx::fTools::equal(fDPIYChange, 1.0))
            {
                aViewTransform.scale(fDPIXChange, fDPIYChange);
            }

            // also take scaling from Size reduction into account
            if (!basegfx::fTools::equal(fReduceFactor, 1.0))
            {
                aViewTransform.scale(fReduceFactor, fReduceFactor);
            }

            // create view information and pixel renderer. Reuse known ViewInformation
            // except new transformation and range
            const geometry::ViewInformation2D aViewInfo(
                getViewInformation2D().getObjectTransformation(), aViewTransform, aViewRange,
                getViewInformation2D().getVisualizedPage(), getViewInformation2D().getViewTime(),
                getViewInformation2D().getExtendedInformationSequence());

            VclPixelProcessor2D aBufferProcessor(aViewInfo, *aBufferDevice);

            // draw content using pixel renderer
            aBufferProcessor.process(rContent);
            const Bitmap aBmContent(aBufferDevice->GetBitmap(aEmptyPoint, aSizePixel));

            // draw transparence using pixel renderer
            aBufferDevice->Erase();
            aBufferProcessor.process(rTransparence);
            const AlphaMask aBmAlpha(aBufferDevice->GetBitmap(aEmptyPoint, aSizePixel));

            // paint
            mpOutputDevice->DrawBitmapEx(aRectLogic.TopLeft(), aRectLogic.GetSize(),
                                         BitmapEx(aBmContent, aBmAlpha));
        }
    }
}

void VclMetafileProcessor2D::processStructureTagPrimitive2D(
    const primitive2d::StructureTagPrimitive2D& rStructureTagCandidate)
{
    // structured tag primitive
    const vcl::PDFWriter::StructElement& rTagElement(rStructureTagCandidate.getStructureElement());
    bool bTagUsed((vcl::PDFWriter::NonStructElement != rTagElement));

    if (mpPDFExtOutDevData && bTagUsed)
    {
        // foreground object: tag as regular structure element
        if (!rStructureTagCandidate.isBackground())
        {
            mpPDFExtOutDevData->BeginStructureElement(rTagElement);
        }
        // background object
        else
        {
            // background image: tag as artifact
            if (rStructureTagCandidate.isImage())
                mpPDFExtOutDevData->BeginStructureElement(vcl::PDFWriter::NonStructElement);
            // any other background object: do not tag
            else
                bTagUsed = false;
        }
    }

    // process children normally
    process(rStructureTagCandidate.getChildren());

    if (mpPDFExtOutDevData && bTagUsed)
    {
        // write end tag
        mpPDFExtOutDevData->EndStructureElement();
    }
}

VclPtr<VirtualDevice> VclMetafileProcessor2D::CreateBufferDevice(
    const basegfx::B2DRange& rCandidateRange, const double fMaxQuadratPixels,
    geometry::ViewInformation2D& rViewInfo, tools::Rectangle& rRectLogic, Size& rSizePixel)
{
    basegfx::B2DRange aViewRange(rCandidateRange);
    aViewRange.transform(maCurrentTransformation);
    rRectLogic = tools::Rectangle(static_cast<long>(std::floor(aViewRange.getMinX())),
                                  static_cast<long>(std::floor(aViewRange.getMinY())),
                                  static_cast<long>(std::ceil(aViewRange.getMaxX())),
                                  static_cast<long>(std::ceil(aViewRange.getMaxY())));
    const tools::Rectangle aRectPixel(mpOutputDevice->LogicToPixel(rRectLogic));
    rSizePixel = aRectPixel.GetSize();
    const double fViewVisibleArea(rSizePixel.getWidth() * rSizePixel.getHeight());
    double fReduceFactor(1.0);

    if (fViewVisibleArea > fMaxQuadratPixels)
    {
        // reduce render size
        fReduceFactor = sqrt(fMaxQuadratPixels / fViewVisibleArea);
        rSizePixel = Size(basegfx::fround(rSizePixel.getWidth() * fReduceFactor),
                          basegfx::fround(rSizePixel.getHeight() * fReduceFactor));
    }

    VclPtrInstance<VirtualDevice> pBufferDevice(DeviceFormat::DEFAULT, DeviceFormat::DEFAULT);
    if (pBufferDevice->SetOutputSizePixel(rSizePixel))
    {
        // create and set MapModes for target devices
        MapMode aNewMapMode(mpOutputDevice->GetMapMode());
        aNewMapMode.SetOrigin(Point(-rRectLogic.Left(), -rRectLogic.Top()));
        pBufferDevice->SetMapMode(aNewMapMode);

        // prepare view transformation for target renderers
        // ATTENTION! Need to apply another scaling because of the potential DPI differences
        // between Printer and VDev (mpOutputDevice and pBufferDevice here).
        // To get the DPI, LogicToPixel from (1,1) from MapUnit::MapInch needs to be used.
        basegfx::B2DHomMatrix aViewTransform(pBufferDevice->GetViewTransformation());
        const Size aDPIOld(mpOutputDevice->LogicToPixel(Size(1, 1), MapMode(MapUnit::MapInch)));
        const Size aDPINew(pBufferDevice->LogicToPixel(Size(1, 1), MapMode(MapUnit::MapInch)));
        const double fDPIXChange(static_cast<double>(aDPIOld.getWidth())
                                 / static_cast<double>(aDPINew.getWidth()));
        const double fDPIYChange(static_cast<double>(aDPIOld.getHeight())
                                 / static_cast<double>(aDPINew.getHeight()));

        if (!basegfx::fTools::equal(fDPIXChange, 1.0) || !basegfx::fTools::equal(fDPIYChange, 1.0))
        {
            aViewTransform.scale(fDPIXChange, fDPIYChange);
        }

        // also take scaling from Size reduction into account
        if (!basegfx::fTools::equal(fReduceFactor, 1.0))
        {
            aViewTransform.scale(fReduceFactor, fReduceFactor);
        }

        // create view information and pixel renderer. Reuse known ViewInformation
        // except new transformation and range
        rViewInfo = geometry::ViewInformation2D(
            getViewInformation2D().getObjectTransformation(), aViewTransform, aViewRange,
            getViewInformation2D().getVisualizedPage(), getViewInformation2D().getViewTime(),
            getViewInformation2D().getExtendedInformationSequence());
    }
    else
        pBufferDevice.disposeAndClear();

    return std::move(pBufferDevice);
}

void VclMetafileProcessor2D::processPrimitive2DOnPixelProcessor(
    const primitive2d::BasePrimitive2D& rCandidate)
{
    basegfx::B2DRange aViewRange(rCandidate.getB2DRange(getViewInformation2D()));
    geometry::ViewInformation2D aViewInfo;
    tools::Rectangle aRectLogic;
    Size aSizePixel;
    auto pBufferDevice(CreateBufferDevice(aViewRange, 500000, aViewInfo, aRectLogic, aSizePixel));
    if (pBufferDevice)
    {
        VclPixelProcessor2D aBufferProcessor(aViewInfo, *pBufferDevice, maBColorModifierStack);

        // draw content using pixel renderer
        primitive2d::Primitive2DReference aRef(
            &const_cast<primitive2d::BasePrimitive2D&>(rCandidate));
        aBufferProcessor.process({ aRef });
        const BitmapEx aBmContent(pBufferDevice->GetBitmapEx(Point(), aSizePixel));
        mpOutputDevice->DrawBitmapEx(aRectLogic.TopLeft(), aRectLogic.GetSize(), aBmContent);
        pBufferDevice.disposeAndClear();
    }
}

} // end of namespace

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */