Files
core/PdfWriter/Src/Pattern.cpp
Ilya.Kirillov 8a7c86603f Добавлена новая кроссплатформенная библиотека для записи Pdf файлов.
git-svn-id: svn://fileserver/activex/AVS/Sources/TeamlabOffice/trunk/ServerComponents@63069 954022d7-b5bf-4e40-9824-e11837661b57
2016-05-21 00:08:53 +03:00

134 lines
3.7 KiB
C++

#include "Pattern.h"
#include "Image.h"
#include "Streams.h"
namespace PdfWriter
{
//----------------------------------------------------------------------------------------
// CImageTilePattern
//----------------------------------------------------------------------------------------
CImageTilePattern::CImageTilePattern(CXref* pXref, double dW, double dH, CImageDict* pImageDict, EImageTilePatternType eType) : CDictObject(pXref, true)
{
Add("Type", "Pattern");
Add("PatternType", 1);
Add("PaintType", 1); // Uncolored
Add("TilingType", 1); // No distortion
CDictObject* pResources = new CDictObject();
if (!pResources)
return;
Add("Resources", pResources);
CDictObject* pXObject = new CDictObject();
if (!pXObject)
return;
pResources->Add("XObject", pXObject);
pXObject->Add("X1", pImageDict);
CStream* pStream = GetStream();
if (!pStream)
return;
if (imagetilepatterntype_Default == eType)
{
Add("BBox", CArrayObject::CreateBox(0, 0, dW, dH));
Add("XStep", dW);
Add("YStep", dH);
pStream->WriteReal(dW);
pStream->WriteStr(" 0 0 ");
pStream->WriteReal(dH);
pStream->WriteStr(" 0 0 cm\12");
pStream->WriteStr("/X1 Do\12");
}
else if (imagetilepatterntype_InverseX == eType)
{
Add("BBox", CArrayObject::CreateBox(0, 0, 2 * dW, dH));
Add("XStep", 2 * dW);
Add("YStep", dH);
pStream->WriteStr("q\12");
pStream->WriteReal(dW);
pStream->WriteStr(" 0 0 ");
pStream->WriteReal(dH);
pStream->WriteStr(" 0 0 cm\12");
pStream->WriteStr("/X1 Do\12");
pStream->WriteStr("Q\12");
pStream->WriteReal(-dW);
pStream->WriteStr(" 0 0 ");
pStream->WriteReal(dH);
pStream->WriteStr(" ");
pStream->WriteReal(2 * dW);
pStream->WriteStr(" 0 cm\12");
pStream->WriteStr("/X1 Do\12");
}
else if (imagetilepatterntype_InverseY == eType)
{
Add("BBox", CArrayObject::CreateBox(0, 0, dW, 2 * dH));
Add("XStep", dW);
Add("YStep", 2 * dH);
pStream->WriteStr("q\12");
pStream->WriteReal(dW);
pStream->WriteStr(" 0 0 ");
pStream->WriteReal(dH);
pStream->WriteStr(" 0 0 cm\12");
pStream->WriteStr("/X1 Do\12");
pStream->WriteStr("Q\12");
pStream->WriteReal(dW);
pStream->WriteStr(" 0 0 ");
pStream->WriteReal(-dH);
pStream->WriteStr(" 0 ");
pStream->WriteReal(2 * dH);
pStream->WriteStr(" cm\12");
pStream->WriteStr("/X1 Do\12");
}
else if (imagetilepatterntype_InverseXY == eType)
{
Add("BBox", CArrayObject::CreateBox(0, 0, 2 * dW, 2 * dH));
Add("XStep", 2 * dW);
Add("YStep", 2 * dH);
pStream->WriteStr("q\12");
pStream->WriteReal(dW);
pStream->WriteStr(" 0 0 ");
pStream->WriteReal(dH);
pStream->WriteStr(" 0 0 cm\12");
pStream->WriteStr("/X1 Do\12");
pStream->WriteStr("Q\12");
pStream->WriteStr("q\12");
pStream->WriteReal(dW);
pStream->WriteStr(" 0 0 ");
pStream->WriteReal(-dH);
pStream->WriteStr(" 0 ");
pStream->WriteReal(2 * dH);
pStream->WriteStr(" cm\12");
pStream->WriteStr("/X1 Do\12");
pStream->WriteStr("Q\12");
pStream->WriteStr("q\12");
pStream->WriteReal(-dW);
pStream->WriteStr(" 0 0 ");
pStream->WriteReal(dH);
pStream->WriteStr(" ");
pStream->WriteReal(2 * dW);
pStream->WriteStr(" 0 cm\12");
pStream->WriteStr("/X1 Do\12");
pStream->WriteStr("Q\12");
pStream->WriteReal(-dW);
pStream->WriteStr(" 0 0 ");
pStream->WriteReal(-dH);
pStream->WriteStr(" ");
pStream->WriteReal(2 * dW);
pStream->WriteStr(" ");
pStream->WriteReal(2 * dH);
pStream->WriteStr(" cm\12");
pStream->WriteStr("/X1 Do\12");
}
}
}