CDRFilter Class Reference

Corel Draw file importing class. More...

#include <cdrfiltr.h>

Inheritance diagram for CDRFilter:

List of all members.

Public Member Functions
	CDRFilter ()
	Constructor.
BOOL	Init ()
	Initialisation.
INT32	HowCompatible (PathName &Filename, ADDR HeaderStart, UINT32 HeaderSize, UINT32 FileSize)
	Examines a file to see how compatable it is with this filter.
BOOL	DoImport (SelOperation *, CCLexFile *, Document *, BOOL AutoChosen=FALSE, ImportPosition *Pos=NULL, KernelBitmap **ppImportedBitmap=NULL, DocCoord *pPosTranslate=NULL, String_256 *=NULL)
BOOL	DoExport (Operation *, CCLexFile *, PathName *, Document *, BOOL)
	Refuses to export a Corel Palette file.
Static Public Member Functions
static void	DeleteNodeList (Node *)
	Deletes a linked list of nodes (forward direction only).
static BOOL	GetCorelBBox (NodeRenderableBounded *pNode, DocRect *BBox)
	gets the Corel simple union bbox of an object
static ADDR	FindDataInObject (cdrfOffsetHeader *Header, WORD Type)
	returns the address of data of the given type in an objects with a standard offset header
static BOOL	AddElementsToPath (Path *pPath, INT32 NCoords, cdrfCoord *Coords, BYTE *Types, BOOL *IsClosed)
	Adds elements to a path from a CDR path data.
static BOOL	AddStandardColourSet (Document *pDocument)
	Adds the standard set of colours to a Corel file.
static BOOL	HasCDRFileGotCMXFile (PathName *FileName, CCLexFile *pFile=NULL)
	to find out whether a CDR file has got a CMX file in it, and therefore whether the CMX filter should grab it instead of this one
Static Public Attributes
static INT32	BitmapNumber = 0
static INT32	PatternNumber = 0
Private Member Functions
	CC_DECLARE_DYNAMIC (CDRFilter)
BOOL	ClearUp (void)
	Clears up after an CDR file import.
BOOL	UpdateProgress (BOOL Now=FALSE)
	Updating the progress everysooften - called at every significant place to get a nice smooth update on that progress bar thingy.
BOOL	ProcessDoc (void)
	Processes the root level doc chunk of a CDR file.
BOOL	ProcessPage (void)
	Processes a page list of a CDR file.
BOOL	ProcessLayer (void)
	Processes a layer list of a CDR file. This is the function which actually grabs objects to convert.
BOOL	ProcessObjectTree (UINT32 Level)
	process objects from the CDR file - they end up linked to pLevelNodeList.
BOOL	ProcessObject (void)
	Converts an object. If there's a problem with the object, then it's skipped rather than reporting an error, and the count of problem objects incremented.
BOOL	ProcessGroup (UINT32 Level, BOOL FromLink=FALSE)
	Sets up a group end action and alters the level node list to be a new list.
BOOL	ProcessLink (void)
	Sets up a group end action and a post transform action and alters the level node list to be a new list.
BOOL	ProcessVectorList (ADDR Block, INT32 Size)
	processes the vector list at the beginning of CDR files. This contains a list of objects which are used for things such as full colour fills, texture fills, mould shapes, that sort of thing.
BOOL	ProcessVectorListEntry ()
	processes an entry in the vector list
BOOL	ProcessTextList4 ()
	Processes the list of text objects for a version 4 CDR file creating text lines and textchars with partially applied attributes.
BOOL	ProcessTextListItem4 ()
	Processes a item from the list of text objects for a version 4 CDR file creating text lines and textchars with partially applied attributes.
BOOL	ConvertRectangle (cdrfOffsetHeader *)
BOOL	ConvertEllipse (cdrfOffsetHeader *)
	generates an ellipse object
BOOL	ConvertPath (cdrfOffsetHeader *)
	actually converts a path object to a node. If the object has an unexpected format, then FormatError is set and it return *TRUE* - the return value only indicated environmental errors such as lack of memory
BOOL	ConvertText (cdrfOffsetHeader *)
	converts a text object to a node. If the object has an unexpected format, then FormatError is set and it return *TRUE* - the return value only indicated environmental errors such as lack of memory
BOOL	ConvertText4Art (cdrfOffsetHeader *)
	converts a version 4 artisitic text object
BOOL	ConvertText4Para (cdrfOffsetHeader *)
	converts a version 4 paragraph text object
BOOL	ConvertText3 (cdrfOffsetHeader *)
	converts a version 3 text object to a node. If the object has an unexpected format, then FormatError is set and it return *TRUE* - the return value only indicated environmental errors such as lack of memory
BOOL	ConvertBitmap (cdrfOffsetHeader *)
BOOL	SetLineAttr (cdrfOffsetHeader *Object)
BOOL	SetFillAttr (cdrfOffsetHeader *Object)
	sets the fill attributes
BOOL	SetLineAttr3 (cdrfOffsetHeader *Object)
BOOL	SetFillAttr3 (cdrfOffsetHeader *Object)
	sets the fill attributes for version 3
BOOL	SetFillAttrFlat (cdrfFillHeader *Fill, INT32 Size)
	sets flat fill attributes
BOOL	SetFillAttrGrad (cdrfFillHeader *Fill, INT32 Size)
	sets graduated fill attributes
BOOL	SetUKFill (void)
	sets a fill attribute for unknown fills
BOOL	SetLinearGrad (CDRFillInfo *GFill, DocRect &BBox, DocColour *StartColour, DocColour *EndColour)
	sets a linear graduated fill from fill definition in the file Copied from coreleps.cpp and modified
BOOL	SetRadialGrad (CDRFillInfo *GFill, DocRect &BBox, DocColour *StartColour, DocColour *EndColour)
	sets a radial graduated fill from fill definition in the file
BOOL	SetConicalGrad (CDRFillInfo *GFill, DocRect &BBox, DocColour *StartColour, DocColour *EndColour)
	sets a conical graduated fill from fill definition in the file Copied from coreleps.cpp and modified
BOOL	SetFillAttrPattern (CDRTiledFillInfo *Info, DocColour *Colour1, DocColour *Colour2)
	set pattern fill attributes
BOOL	SetFillAttrTexture (cdrfFillHeader *Fill, INT32 Size)
	sets texture fill attributes
BOOL	SetFillAttrVector (CDRTiledFillInfo *Info)
	set vector fill attributes
BOOL	NoFill (void)
	makes an object not filled
BOOL	AddAttributesToArrowheadNode (NodeRenderableBounded *N, DocColour *Col, INT32 LineWidth, LineCapType Cap, JointType Join)
	apply attributes to a arrow head node
BOOL	AddAttributesToArrowheadPath (NodePath *P, DocColour *Col, INT32 LineWidth, LineCapType Cap, JointType Join)
	apply attributes to a arrow head path
BOOL	DoesPathNeedArrowheads (NodePath *P)
	To find out whether a path need attributes.
BOOL	TransformArrowhead (NodeRenderableBounded *N, DocCoord *Point, DocCoord *Other, BOOL Start, INT32 LineWidth, INT32 Distance)
	transform an arrowhead path to be the correct size and orientation
BOOL	AddArrowheadsToPath (DWORD StartArrow, DWORD EndArrow, DocColour *Col, INT32 LineWidth, LineCapType Cap, JointType Join)
	adds arrowheads to a path. Changes pMadeNode from a path to a group
BOOL	ConvertColour (cdrfColour *Col, DocColour *Out)
	converts a colour from the CDR definition taking into account the version
BOOL	IsTransformJustMatrices (ADDR Trans, INT32 Size)
	scans a transform chunk. Returns TRUE if the transform was just composed of matrices and unknown transforms.
BOOL	TransformConvertedObject (NodeRenderable **N, ADDR Trans, INT32 Size, BOOL TranslateForPage=TRUE, BOOL IsAGroupTransform=FALSE, BOOL WorkAtOrigin=FALSE)
	transforms an object we converted, given a trfd chunk. If TranslateForPage is true (defaults to TRUE) then the object will also be translated to get the origin in the right place. The pointer may be modified to be a pointer to a different object. WorkAtOrigin causes the object to be translated back to the origin before being hacked apon, except if it's in a CDR3 file when it's ignored as the file is mass-translated at the end of the conversion..
BOOL	TransformConvertedObjectDoMatrix (NodeRenderable **N, cdrMatrix *Ma, BOOL TranslateForPage)
	transforms an object given a CDR matrix
BOOL	TransformConvertedObjectDoPerspective (NodeRenderable **N, cdrPerspective *P, BOOL TranslateShapeForPage=FALSE)
BOOL	TransformConvertedObjectDoEnvelope (NodeRenderable **N, Path *P, DocRect *OriginalBBox, INT32 *Corners, BOOL TranslateShapeForPage=FALSE)
	transforms an object given a path to envelope into
BOOL	TransformConvertedObjectDoExtrude (NodeRenderable **N, cdrExtrudeInfo *Info, BOOL TranslateShapeForPage=FALSE)
	performs a extrude transform
BOOL	TransformConvertedObjectDoExtrudeTransPath (NodePath *pPath, cdrExtrudeInfo *Info)
	does the extrude transform on a path
BOOL	GetMatrixFromTransform (Matrix *M, ADDR Trans, INT32 Size, BOOL TranslateForPage=TRUE)
	given some transform data, works out a matrix. This ignores any 3D transforms, TransformConvertedObject should be used in preference.
BOOL	GetObjCorelBBox (NodeRenderableBounded *pNode, DocRect *BBox)
	gets the corel bbox of a converted object, looking up the bbox of text objects
KernelBitmap *	BitmapFromNodeList (Node *List)
	given a list of nodes, if it only contains one bitmap then return a pointer to that bitmap
BOOL	MakeTextOnPathLinkList ()
	creates the list of paths which should be linked to text stories to get text on paths.
BOOL	AttachTextToPaths ()
	attachs paths to text stories from the list of links.
BOOL	CheckTextForLinks (TextStory *pTextStory, cdrfOffsetHeader *Header)
	checks to see if this text story is in the link table
BOOL	GetTextStyleFromCDRStyle (CDRTextStyle *TS, WORD StyleRef, BOOL SearchForParent=TRUE)
	gets a text style from a CDR style. If it can't be found, you get the default text style. If SearchForParent is TRUE, the parent style of this style will be located
BOOL	GetTextStyleFromDefn (CDRTextStyle *TS, cdrfTextInfoFontDefn *FontDefn, const CDRTextStyle *BasedOn)
	gets a font style from a font definition stored in a txsm chunk. Anything not defined comes from the BasedOn style.
BOOL	ApplyTextAttr (Node *ContextNode, const CDRTextStyle *TS, const CDRTextStyle *BasedOn)
	Applies text attributes to a node from a CDRTextStyle. If BasedOn != 0 then the attributes will only be applied if they are different from those in *BasedOn.
BOOL	ApplyTextAttrDoApply (Node *ContextNode, TxtBaseClassAttribute *Attr, BOOL CheckExisting)
	Given a text attribute, apply it to a node. If CheckExising is TRUE, the existing attributes will be checked, and this attribute will not be applied if one of it's type already exists.
TCHAR *	GetFontName (WORD FontRef)
	finds a font name
BOOL	GetTextStyle3 (CDRTextStyle *TS, WORD Style, CDRTextStyle *BasedOn=0)
	gets a style for version 3 text from the global text styles table
BOOL	GetTextStyleFromChar4 (CDRTextStyle *TS, cdrfTextCharStyledV4 *Char, CDRTextStyle *BasedOn)
	gets a text style from a styled version 4 text character
Private Attributes
friend	CDRActionTransform
friend	CDRActionGroupEnd
friend	CDRBitmapStore
friend	CDRBitmap
Document *	pDocument
Spread *	pSpread
Page *	pPage
CDRVersion	Version
BOOL	Success
RIFFFile *	RIFF
UndoableOperation *	ThisOp
BOOL	SlowJobStarted
UINT32	ProgressCount
BOOL	InMasterPage
BOOL	DoneMasterPage
BOOL	DoneDoc
BOOL	UseLayers
CDRAttributeStore	Fills
CDRAttributeStore	Outlines
CDRAttributeStore	Styles
CDRFontnameStore	Fonts
CDRArrowheadStore	Arrowheads
CDRBitmapStore	Patterns
CDRBitmapStore	Bitmaps
CDRVectorStore	Vectors
CDRVectorStore	TextV4
CDRPageList	Pages
CDRPageListItem *	ThisPage
CDRLayerListItem *	ThisLayer
CDRActionList	Actions
CDRBBoxList	TextBBoxes
INT32	PageX
INT32	PageY
BOOL	Landscape
DocCoord	Origin
INT32	TranslateByX
INT32	TranslateByY
INT32	ObjectsConverted
INT32	ObjectsFormatWrong
INT32	ObjectsUnknown
INT32	EnvelopesApproximated
BOOL	FormatError
NodeRenderable *	pLevelNodeList
NodeRenderable *	pMadeNode
INT32	SerialNumber
BOOL	ObjFilled
BOOL	ObjStroked
BOOL	IsText
BOOL	IsTextStory
BOOL	AttrsAlreadyApplied
ADDR	ObjDataBlock
INT32	ObjDataBlockSize
ColourList *	ColList
ADDR	TransformChunk
INT32	TransformChunkSize
ADDR	FontTableV3
INT32	FontTableEntriesV3
ADDR	FontStylesV3
ADDR	LinkTable
BOOL	LinkTransformsExist
List	TextOnPathLinks
BOOL	IsTextOnAPath

---

Detailed Description

Corel Draw file importing class.

Author:

Ben_Summers (Xara Group Ltd) <camelotdev@xara.com>

Date:

21 03 95

Definition at line 764 of file cdrfiltr.h.

---

Constructor & Destructor Documentation

CDRFilter::CDRFilter (  void   )

Constructor. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 21 03 95 Parameters: As  for the Filter class [INPUTS] Returns: As for the Filter class See also: Filter Definition at line 234 of file cdrfiltr.cpp. { // Set up filter descriptions. FilterName.Load(_R(IDT_CDRFILTER_FILTERNAME)); FilterInfo.Load(_R(IDT_CDRFILTER_FILTERINFO)); FilterID = FILTERID_CDR; Flags.CanImport = TRUE; Flags.CanExport = FALSE; Version = CDRVERSION_NULL; }

---

Member Function Documentation

BOOL CDRFilter::AddArrowheadsToPath (  DWORD  StartArrow, DWORD  EndArrow, DocColour *  Col, INT32  LineWidth, LineCapType  Cap, JointType  Join )  [private]

adds arrowheads to a path. Changes pMadeNode from a path to a group Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 29 03 95 Parameters: [INPUTS]  Returns: error flag See also: Filter Definition at line 632 of file cdroutl.cpp. { if(!IS_A(pMadeNode, NodePath)) return TRUE; // don't apply arrowheads to non path things NodePath *pPath = (NodePath *)pMadeNode; // check that the path actaully needs some arrow heads if(!DoesPathNeedArrowheads(pPath) || (StartArrow == 0 && EndArrow == 0)) return TRUE; // get pointers to nodes of the arrow heads to copy NodeRenderableBounded *StartA = 0; NodeRenderableBounded *EndA = 0; INT32 StartDistance; INT32 EndDistance; if(StartArrow != 0) { BOOL NotPresent; StartA = Arrowheads.GetConvertedNode(StartArrow, &StartDistance, &NotPresent); if(StartA == 0 && NotPresent == FALSE) return FALSE; // error occurred } if(EndArrow != 0) { BOOL NotPresent; EndA = Arrowheads.GetConvertedNode(EndArrow, &EndDistance, &NotPresent); if(EndA == 0 && NotPresent == FALSE) return FALSE; // error occurred } // check that enough arrowheads were found to do something with if(StartA == 0 && EndA == 0) return TRUE; // get rid of any dash patterns DashRec NoDash; NoDash = SD_SOLID; SetDashPattern(NoDash); // get some info about the path DocCoord *Coords = pPath->InkPath.GetCoordArray(); PathVerb *Verbs = pPath->InkPath.GetVerbArray(); INT32 NCoords = pPath->InkPath.GetNumCoords(); INT32 SubPathStart = -1; // the number of the coord the sub path starts on INT32 SubPathEnd = -1; // the number of the coord the sub path ends on // set up a pointers for the nodes we're about to create - it points to the made // at first, but shuffles on as nodes are copied. You see, we have to copy nodes which // are attached to something NodeRenderableBounded *ThisNode = pPath; // work out the trim distances double StartTrimDistance; double EndTrimDistance; if(StartA != 0) StartTrimDistance = ((double)LineWidth / (double)cdrfARROWHEAD_LINEWIDTH) * (double)StartDistance; if(EndA != 0) EndTrimDistance = ((double)LineWidth / (double)cdrfARROWHEAD_LINEWIDTH) * (double)EndDistance; // run through all the coords INT32 c; for(c = 0; c < NCoords; c++) { UINT32 Verb = Verbs[c] & ~PT_CLOSEFIGURE; BOOL CloseHere = ((Verbs[c] & PT_CLOSEFIGURE) != 0)?TRUE:FALSE; // if the verb is a close figure, this sub path is close, so we can't add arrowheads // to it. Invalidate the path start to avoid getting any arrowheads if(CloseHere) SubPathStart = -1; // if we get a new moveto and the sub path start is valid then we have a applying arrowheads // situation if((Verb == PT_MOVETO || ((c == (NCoords - 1)) && !CloseHere)) && c != 0) { // set the sub path end if(Verb == PT_MOVETO) { // if it's a moveto, then the sub path end was at the previous coord SubPathEnd = c - 1; } else { // if it wasn't, then it's this one (end of path) SubPathEnd = c; } } // have we got a valid start path marker? if(SubPathStart != -1 && SubPathEnd != -1) { // OK, now we need to trim the sub path if(StartA != 0) { // trim the start of the path if the next element is a line if((Verbs[SubPathStart + 1] & ~PT_CLOSEFIGURE) == PT_LINETO) { double dx, dy; dx = Coords[SubPathStart + 1].x - Coords[SubPathStart].x; dy = Coords[SubPathStart + 1].y - Coords[SubPathStart].y; double len = sqrt((dx * dx) + (dy * dy)); // if the resulting path line leaves enough room, trim it if((len - StartTrimDistance) >= 32.0) { double factor = StartTrimDistance / len; dx *= factor; Coords[SubPathStart].x += (INT32)dx; dy *= factor; Coords[SubPathStart].y += (INT32)dy; } } // now pop an arrowhead on the resulting point // first, make a copy of our node if(!StartA->CopyNode(ThisNode, NEXT)) return FALSE; // error! ThisNode = (NodeRenderableBounded *)ThisNode->FindNext(); ERROR3IF(ThisNode == 0, "CopyNode returned a zero path but didn't complain"); ERROR3IF(ThisNode->IsKindOf(CC_RUNTIME_CLASS(NodeRenderableBounded)) == FALSE, "copied thing isn't a renderable bounded node"); // transform it if(!TransformArrowhead(ThisNode, &Coords[SubPathStart], &Coords[SubPathStart + 1], TRUE, LineWidth, StartDistance)) return FALSE; // and apply attributes to it if(!AddAttributesToArrowheadNode(ThisNode, Col, LineWidth, Cap, Join)) return FALSE; } // and the same for the end path if(EndA != 0) { if((Verbs[SubPathEnd] & ~PT_CLOSEFIGURE) == PT_LINETO) { double dx, dy; dx = Coords[SubPathEnd].x - Coords[SubPathEnd - 1].x; dy = Coords[SubPathEnd].y - Coords[SubPathEnd - 1].y; double len = sqrt((dx * dx) + (dy * dy)); // if the resulting path line leaves enough room, trim it if((len - EndTrimDistance) >= 32.0) { double factor = EndTrimDistance / len; dx *= factor; Coords[SubPathEnd].x += (INT32)dx; dy *= factor; Coords[SubPathEnd].y += (INT32)dy; } } // now pop an arrowhead on the resulting point // first, make a copy of our node if(!EndA->CopyNode(ThisNode, NEXT)) return FALSE; // error! ThisNode = (NodeRenderableBounded *)ThisNode->FindNext(); ERROR3IF(ThisNode == 0, "CopyNode returned a zero path but didn't complain"); ERROR3IF(ThisNode->IsKindOf(CC_RUNTIME_CLASS(NodeRenderableBounded)) == FALSE, "copied thing isn't a renderable bounded node"); // transform it if(!TransformArrowhead(ThisNode, &Coords[SubPathEnd], &Coords[SubPathEnd - 1], FALSE, LineWidth, EndDistance)) return FALSE; // and apply attributes to it if(!AddAttributesToArrowheadNode(ThisNode, Col, LineWidth, Cap, Join)) return FALSE; } } // set the new sub path start marker and invalidate the end point marker if(Verb == PT_MOVETO) { SubPathStart = c; SubPathEnd = -1; } } // ensure that the bounding rectangle is updated pPath->InvalidateBoundingRect(); // get a new group node NodeGroup *pGroup = new NodeGroup; if(pGroup == 0) return FALSE; // attach everything to it pMadeNode->InsertChainSimple(pGroup, FIRSTCHILD); // and make the made node the group pMadeNode = pGroup; return TRUE; }

BOOL CDRFilter::AddAttributesToArrowheadNode (  NodeRenderableBounded *  N, DocColour *  Col, INT32  LineWidth, LineCapType  Cap, JointType  Join )  [private]

apply attributes to a arrow head node Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 29 03 95 Parameters: node,colour  and line width [INPUTS] Returns: error flag See also: Filter Definition at line 442 of file cdroutl.cpp. { if(IS_A(N, NodeGroup)) { // go through all the members of the group setting their attributes Node *pNode; pNode = N->FindFirstChild(); while(pNode != 0) { if(IS_A(pNode, NodePath)) AddAttributesToArrowheadPath((NodePath *)pNode, Col, LineWidth, Cap, Join); pNode = pNode->FindNext(); } } else if(IS_A(N, NodePath)) { // simply apply the attributes to this path AddAttributesToArrowheadPath((NodePath *)N, Col, LineWidth, Cap, Join); } else { ERROR3("Something unexpected passed to AddAttributesToArrowheadNode"); } return TRUE; }

BOOL CDRFilter::AddAttributesToArrowheadPath (  NodePath *  P, DocColour *  Col, INT32  LineWidth, LineCapType  Cap, JointType  Join )  [private]

apply attributes to a arrow head path Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 29 03 95 Parameters: node,colour  and line width [INPUTS] Returns: error flag See also: Filter Definition at line 485 of file cdroutl.cpp. { if(P->InkPath.IsFilled) { // it's a filled path, so it need to be filled with the colour and have no line // colour SetPathFilled(TRUE); if(!SetLineColour(DocColour(COLOUR_TRANS)) || !SetFillColour(*Col)) return FALSE; } else { // it's not a filled colour, so don't fill it and stroke it with the line width and colour if(!SetLineColour(*Col) || !SetLineWidth(LineWidth) || !SetLineCap(Cap) || !SetJoinType(Join)) return FALSE; } // apply the attributes to the object // If not filled, then set the ignore bit on the fill attribute. // if (P->InkPath.IsFilled == FALSE) // CurrentAttrs[ATTR_FILLGEOMETRY].Ignore = TRUE; // else CurrentAttrs[ATTR_FILLGEOMETRY].Ignore = FALSE; // Add attributes to the path, if they are different from the default... BOOL Result = AttributeManager::ApplyBasedOnDefaults(P, CurrentAttrs); // DeleteCurrentAttrs(); // SetUpCurrentAttrs(); // Enable the fill attribute again CurrentAttrs[ATTR_FILLGEOMETRY].Ignore = FALSE; return Result; }

BOOL CDRFilter::AddElementsToPath (  Path *  pPath, INT32  NCoords, cdrfCoord *  Coords, BYTE *  Types, BOOL *  IsClosed )  [static]

Adds elements to a path from a CDR path data. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 06/05/95 Parameters: path  to add too, number of coords, pointer to coord data, pointer to types [INPUTS] Returns: error flag See also: Definition at line 2476 of file cdrfiltr.cpp. { // go through the coordinates in the CDR path adding them to the Camelot path INT32 c; // coord counter UINT32 CoordType; // type of this coordinate UINT32 Control1 = 0; // number of first control point UINT32 Control2 = 0; // of second DocCoord co, cn1, cn2; // coordinates PathFlags Flags; BOOL NeedMoveTo = TRUE; if(IsClosed != 0) (*IsClosed) = FALSE; // go though converting all the coords for(c = 0; c < NCoords; c++) { CoordType = Types[c] & cdrfPATHCOORDTYPE_MASK; co.x = CDRDATA_SWORD(Coords[c].X) * CDRCOORDS_TO_MILLIPOINTS; co.y = CDRDATA_SWORD(Coords[c].Y) * CDRCOORDS_TO_MILLIPOINTS; // add in a move to if necessary if(NeedMoveTo && CoordType != cdrfPATHCOORDTYPE_MOVE) { if(!pPath->InsertMoveTo(co)) return FALSE; } NeedMoveTo = FALSE; // process the coordinate switch(CoordType) { case cdrfPATHCOORDTYPE_MOVE: // add a move to this path if(!pPath->InsertMoveTo(co)) return FALSE; break; case cdrfPATHCOORDTYPE_LINETO: // add a line to this coord to the path if(!pPath->InsertLineTo(co)) return FALSE; break; case cdrfPATHCOORDTYPE_CURVE: // check we have some control points for this curve // a control point cannot be the first coord, so it's OK to check against 0 if(Control1 == 0 || Control2 == 0) { TRACEUSER( "Ben", _T("No control points for curve element\n")); break; } // convert the control points cn1.x = CDRDATA_SWORD(Coords[Control1].X) * CDRCOORDS_TO_MILLIPOINTS; cn1.y = CDRDATA_SWORD(Coords[Control1].Y) * CDRCOORDS_TO_MILLIPOINTS; cn2.x = CDRDATA_SWORD(Coords[Control2].X) * CDRCOORDS_TO_MILLIPOINTS; cn2.y = CDRDATA_SWORD(Coords[Control2].Y) * CDRCOORDS_TO_MILLIPOINTS; // create the curve Flags.IsSelected = FALSE; Flags.IsSmooth = Flags.IsRotate = ((Types[c] & cdrfPATHCOORDATTR_SMOOTH) != 0)?TRUE:FALSE; Flags.IsEndPoint; // insert it into the path if(!pPath->InsertCurveTo(cn1, cn2, co, &Flags)) return FALSE; break; case cdrfPATHCOORDTYPE_CONTROL: // shuffle the control points we've already got and add the new one Control1 = Control2; Control2 = c; break; default: // can't get here as mask won't allow any other value than the ones above. break; } // is this a close subpath situtation? if((Types[c] & cdrfPATHCOORDATTR_CLOSE) != 0) { if(IsClosed != 0) (*IsClosed) = TRUE; // path has at least one closed element and should be filled // close the sub path if(CoordType != cdrfPATHCOORDTYPE_MOVE) { if(!pPath->CloseSubPath()) return FALSE; // ensure that the next coord is a moveto NeedMoveTo = TRUE; } } } return TRUE; }

BOOL CDRFilter::AddStandardColourSet (  Document *  pDocument  )  [static]

Adds the standard set of colours to a Corel file. / typedef struct { BYTE C, M, Y, K; TCHAR *Name; } StandardCDRColour; static StandardCDRColour StandardCDRColours[] = { {0, 0, 0, 100, "Black"}, {0, 0, 0, 90, "90% Black"}, {0, 0, 0, 80, "80% Black"}, {0, 0, 0, 70, "70% Black"}, {0, 0, 0, 60, "60% Black"}, {0, 0, 0, 50, "50% Black"}, {0, 0, 0, 40, "40% Black"}, {0, 0, 0, 30, "30% Black"}, {0, 0, 0, 20, "20% Black"}, {0, 0, 0, 10, "10% Black"}, {0, 0, 0, 0, "White"}, {100, 100, 0, 0, "Blue"}, {100, 0, 0, 0, "Cyan"}, {100, 0, 100, 0, "Green"}, {0, 0, 100, 0, "Yellow"}, {0, 100, 100, 0, "Red"}, {0, 100, 0, 0, "Magenta"}, {20, 80, 0, 20, "Purple"}, {0, 60, 100, 0, "Orange"}, {0, 40, 20, 0, "Pink"}, {0, 20, 20, 60, "Dark Brown"}, {20, 20, 0, 0, "Powder Blue"}, {40, 40, 0, 0, "Pastel Blue"}, {60, 40, 0, 0, "Baby Blue"}, {60, 60, 0, 0, "Electric Blue"}, {40, 40, 0, 20, "Twilight Blue"}, {60, 40, 0, 40, "Navy Blue"}, {40, 40, 0, 60, "Deep Navy Blue"}, {40, 20, 0, 40, "Desert Blue"}, {100, 20, 0, 0, "Sky Blue"}, {40, 0, 0, 0, "Ice Blue"}, {20, 0, 0, 20, "Light BlueGreen"}, {20, 0, 0, 40, "Ocean Green"}, {20, 0, 0, 60, "Moss Green"}, {20, 0, 0, 80, "Dark Green"}, {40, 0, 20, 60, "Forest Green"}, {60, 0, 40, 40, "Grass Green"}, {40, 0, 20, 40, "Kentucky Green"}, {60, 0, 40, 20, "Light Green"}, {60, 0, 60, 20, "Spring Green"}, {60, 0, 20, 0, "Turquoise"}, {60, 0, 20, 20, "Sea Green"}, {20, 0, 20, 20, "Faded Green"}, {20, 0, 20, 0, "Ghost Green"}, {40, 0, 40, 0, "Mint Green"}, {20, 0, 20, 40, "Army Green"}, {20, 0, 40, 40, "Avocado Green"}, {20, 0, 60, 20, "Martian Green"}, {20, 0, 40, 20, "Dull Green"}, {40, 0, 100, 0, "Chartreuse"}, {20, 0, 60, 0, "Moon Green"}, {0, 0, 20, 80, "Murky Green"}, {0, 0, 20, 60, "Olive Drab"}, {0, 0, 20, 40, "Khaki"}, {0, 0, 40, 40, "Olive"}, {0, 0, 60, 20, "Banana Yellow"}, {0, 0, 60, 0, "Light Yellow"}, {0, 0, 40, 0, "Chalk"}, {0, 0, 20, 0, "Pale Yellow"}, {0, 20, 40, 40, "Brown"}, {0, 40, 60, 20, "Red Brown"}, {0, 20, 60, 20, "Gold"}, {0, 60, 80, 0, "Autumn Orange"}, {0, 40, 80, 0, "Light Orange"}, {0, 40, 60, 0, "Peach"}, {0, 20, 100, 0, "Deep Yellow"}, {0, 20, 40, 0, "Sand"}, {0, 20, 40, 60, "Walnut"}, {0, 60, 60, 40, "Ruby Red"}, {0, 60, 80, 20, "Brick Red"}, {0, 60, 60, 0, "Tropical Pink"}, {0, 40, 40, 0, "Soft Pink"}, {0, 20, 20, 0, "Faded Pink"}, {0, 40, 20, 40, "Crimson"}, {0, 60, 40, 20, "Regal Red"}, {0, 60, 20, 20, "Deep Rose"}, {0, 100, 60, 0, "Neon Red"}, {0, 60, 40, 0, "Deep Pink"}, {0, 80, 40, 0, "Hot Pink"}, {0, 40, 20, 20, "Dusty Rose"}, {0, 40, 0, 60, "Plum"}, {0, 60, 0, 40, "Deep Violet"}, {0, 40, 0, 0, "Light Violet"}, {0, 40, 0, 20, "Violet"}, {0, 20, 0, 40, "Dusty Plum"}, {0, 20, 0, 20, "Pale Purple"}, {20, 60, 0, 20, "Majestic Purple"}, {20, 80, 0, 0, "Neon Purple"}, {20, 60, 0, 0, "Light Purple"}, {20, 40, 0, 20, "Twilight Violet"}, {20, 40, 0, 0, "Easter Purple"}, {20, 40, 0, 60, "Deep Purple"}, {20, 40, 0, 40, "Grape"}, {40, 60, 0, 0, "Blue Violet"}, {40, 100, 0, 0, "Blue Purple"}, {40, 80, 0, 20, "Deep River"}, {60, 80, 0, 0, "Deep Azure"}, {40, 60, 0, 40, "Storm Blue"}, {60, 80, 0, 20, "Deep Blue"}, {100, 100, 100, 100, "100C100M100Y100K"} }; /*! Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 05/06/95 Parameters: [INPUTS]  Returns: Definition at line 1322 of file cdroutl.cpp. { ColourListComponent *pColours = 0; DocComponent *pComponent = pDocument->EnumerateDocComponents(NULL); while (pComponent != NULL) { // If this is the colour component, remember it if (pComponent->GetRuntimeClass() == CC_RUNTIME_CLASS(ColourListComponent)) { pColours = (ColourListComponent *) pComponent; break; } // Look for next doc component pComponent = pDocument->EnumerateDocComponents(pComponent); } if(pColours == 0) return TRUE; // can't be bothered to complain nicely about this very unlikely error // get an importedcolours object ImportedColours *pNewColours = new ImportedColours(pColours, FALSE); if(pNewColours == 0 || !pNewColours->Init()) return FALSE; BOOL ok = TRUE; // add colours to it... ColourCMYK NewColour; for(INT32 l = 0; l < (sizeof(StandardCDRColours) / sizeof(StandardCDRColour)); l++) { NewColour.Cyan = ((double)StandardCDRColours[l].C) / 100; NewColour.Magenta = ((double)StandardCDRColours[l].M) / 100; NewColour.Yellow = ((double)StandardCDRColours[l].Y) / 100; NewColour.Key = ((double)StandardCDRColours[l].K) / 100; String_64 ColNameS(StandardCDRColours[l].Name); if(!pNewColours->AddColour(&ColNameS, &NewColour)) { ok = FALSE; break; } } // add the colours to the document if(ok) { pNewColours->AddColoursToDocument(); } else { pNewColours->DestroyColours(); } // delete the imported colours object delete pNewColours; return ok; }

BOOL CDRFilter::ApplyTextAttr (  Node *  ContextNode, const CDRTextStyle *  TS, const CDRTextStyle *  BasedOn )  [private]

Applies text attributes to a node from a CDRTextStyle. If BasedOn != 0 then the attributes will only be applied if they are different from those in *BasedOn. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 27/04/95 Parameters: [INPUTS]  Returns: error flag See also: Definition at line 1623 of file cdrtext.cpp. { BOOL CheckExisting = FALSE; // if the node has children, then we want to check existing attributes if(ContextNode->FindFirstChild() != 0) CheckExisting = TRUE; // apply italicness if(BasedOn == 0 || TS->Italic != BasedOn->Italic) { // make a font size attribute TxtItalicAttribute Attr(TS->Italic); // attach if(!ApplyTextAttrDoApply(ContextNode, &Attr, CheckExisting)) return FALSE; } // apply boldness if(BasedOn == 0 || TS->Bold != BasedOn->Bold) { // make a font size attribute TxtBoldAttribute Attr(TS->Bold); // attach if(!ApplyTextAttrDoApply(ContextNode, &Attr, CheckExisting)) return FALSE; } // apply underline if(BasedOn == 0 || TS->Underline != BasedOn->Underline) { // make a font size attribute TxtUnderlineAttribute Attr(TS->Underline); // attach if(!ApplyTextAttrDoApply(ContextNode, &Attr, CheckExisting)) return FALSE; } // apply the scriptness if(BasedOn == 0 || TS->Script != BasedOn->Script) { if(TS->Script != CDRSCRIPT_NONE) { TxtScriptAttribute Attr((TS->Script == CDRSCRIPT_SUB)?-0.1:0.33, 0.5); // attach if(!ApplyTextAttrDoApply(ContextNode, &Attr, CheckExisting)) return FALSE; } } // apply font size if(BasedOn == 0 || TS->FontSize != BasedOn->FontSize) { // make a font size attribute TxtFontSizeAttribute Attr(TS->FontSize); // attach if(!ApplyTextAttrDoApply(ContextNode, &Attr, CheckExisting)) return FALSE; } // apply font name // if(BasedOn == 0 || TS->FontName != BasedOn->FontName) if(BasedOn == 0 || TS->FontReference != BasedOn->FontReference) { // get a font handle WORD hTypeface = Fonts.GetHandleForReference(TS->FontReference); //WORD hTypeface = FONTMANAGER->GetFontHandle(&String_64(TS->FontName)); // make a typeface attribute TxtFontTypefaceAttribute Attr(hTypeface); // attach if(!ApplyTextAttrDoApply(ContextNode, &Attr, CheckExisting)) return FALSE; } // apply the justification stuff if((BasedOn == 0 || TS->Just != BasedOn->Just) && TS->Just != JLEFT) { // make a justification attribute TxtJustificationAttribute Attr(TS->Just); // attach if(!ApplyTextAttrDoApply(ContextNode, &Attr, CheckExisting)) return FALSE; } // slap on a aspect ratio thingy so it gets transformed OK TxtAspectRatioAttribute Attr(1); if(!ApplyTextAttrDoApply(ContextNode, &Attr, CheckExisting)) return FALSE; return TRUE; }

BOOL CDRFilter::ApplyTextAttrDoApply (  Node *  ContextNode, TxtBaseClassAttribute *  Attr, BOOL  CheckExisting )  [private]

Given a text attribute, apply it to a node. If CheckExising is TRUE, the existing attributes will be checked, and this attribute will not be applied if one of it's type already exists. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 27/04/95 Parameters: [INPUTS]  Returns: error flag See also: Definition at line 1740 of file cdrtext.cpp. { // check given attribute if(Attr == 0) return FALSE; // make a node out of it NodeAttribute *pNode = Attr->MakeNode(); if(pNode == 0) return FALSE; // if necessary check existing attributes if(CheckExisting) { Node *SearchNode = ContextNode->FindFirstChild(); // run through it's children while(SearchNode != 0) { if(IS_SAME_CLASS(pNode, SearchNode)) { // found an attribute just like the one we're thinking of applying... delete pNode; return TRUE; // don't need to do anything more } SearchNode = SearchNode->FindNext(); } } // attach the node pNode->AttachNode(ContextNode, FIRSTCHILD); return TRUE; }

BOOL CDRFilter::AttachTextToPaths (   )  [private]

attachs paths to text stories from the list of links. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 09/06/95 Parameters: -  [INPUTS] Returns: error flag See also: CDRFilter Definition at line 2621 of file cdrtext.cpp. { // set attributes to no colours - we mustn't render these here paths if(!SetFillColour(DocColour(COLOUR_TRANS))) return FALSE; if(!SetLineColour(DocColour(COLOUR_TRANS))) return FALSE; CurrentAttrs[ATTR_FILLGEOMETRY].Ignore = TRUE; // go through the entries in the list... CDRTextOnPathLink *Item = (CDRTextOnPathLink *)TextOnPathLinks.GetHead(); while(Item != 0) { // if this is complete, process it if(Item->pPath != 0 && Item->pTextStory != 0) { // both things were found, so join them up nicely... // make a copy of the path NodePath *pPath; if(!Item->pPath->NodeCopy((Node **)&pPath)) return FALSE; // delete it's old attributes pPath->DeleteChildren(pPath->FindFirstChild()); // apply some attributes to the path pPath->InkPath.IsFilled = FALSE; pPath->InkPath.IsStroked = FALSE; if(!AttributeManager::ApplyBasedOnDefaults(pPath, CurrentAttrs)) return FALSE; // and attach the nodes together Node *pFirstLine = Item->pTextStory->FindFirstChild(CC_RUNTIME_CLASS(TextLine)); ERROR2IF(pFirstLine == 0, FALSE, "TextStory had no line when attaching path"); pPath->AttachNode(pFirstLine, PREV); // now sort out justification along the path if(Item->Justi != JLEFT) { // knock up an attribute and pop it on TxtJustificationAttribute Attr(Item->Justi); NodeAttribute *pNode = Attr.MakeNode(); if(pNode == 0) return FALSE; pNode->AttachNode(Item->pTextStory, FIRSTCHILD); } else { TRACEUSER( "Ben", _T("Text on path not completed: path serial = %d, path ptr = %X\ntext serial = %d, text ptr = %X\n\n"), Item->PathSerialNumber, Item->pPath, Item->TextSerialNumber, Item->pTextStory); } // and the positioning Item->pTextStory->SetImportBaseShift((BaseShiftEnum)Item->Position); } // next! Item = (CDRTextOnPathLink *)TextOnPathLinks.GetNext(Item); } return TRUE; }

KernelBitmap * CDRFilter::BitmapFromNodeList (  Node *  List  )  [private]

given a list of nodes, if it only contains one bitmap then return a pointer to that bitmap Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 20/04/95 Parameters: pointer  to first node in a list [INPUTS] Returns: a pointer to the relevant bitmap, or zero if one couldn't be found See also: Filter Definition at line 1716 of file cdrfill.cpp. { // make sure we've got something if(List == 0) return 0; // is there's more than one item? if(List->FindNext() != 0) return 0; // is it a bitmap? if(IS_A(List, NodeBitmap)) { // right then, woz it's bitmap den? NodeBitmap *NB = (NodeBitmap *)List; // return the bitmap... return NB->GetBitmap(); } return 0; }

CDRFilter::CC_DECLARE_DYNAMIC (  CDRFilter   )  [private]

BOOL CDRFilter::CheckTextForLinks (  TextStory *  pTextStory, cdrfOffsetHeader *  Header )  [private]

checks to see if this text story is in the link table Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 09/06/95 Parameters: -  [INPUTS] Returns: error flag See also: CDRFilter Definition at line 2699 of file cdrtext.cpp. { if(IsTextOnAPath != TRUE) return TRUE; // not on a path, so don't search // go through the entries in the list... CDRTextOnPathLink *Item = (CDRTextOnPathLink *)TextOnPathLinks.GetHead(); while(Item != 0) { // does this link refer to this text story? if(SerialNumber == Item->TextSerialNumber) { // yep - make the entry refer to this text story Item->pTextStory = pTextStory; // set up some justification and positioning stuff cdrfTextOnPathInfo *Info; if((Info = (cdrfTextOnPathInfo *)FindDataInObject(Header, cdrfOBJOFFSETTYPE_PATHTEXT1)) != 0) { switch(CDRDATA_WORD(Info->Alignment)) { case cdrfTEXTONPATHALIGN_RIGHT: Item->Justi = JRIGHT; break; case cdrfTEXTONPATHALIGN_CENTRE: Item->Justi = JCENTRE; break; default: case cdrfTEXTONPATHALIGN_LEFT: Item->Justi = JLEFT; break; } switch(CDRDATA_WORD(Info->Position)) { case cdrfTEXTONPATHPOS_BOTTOM: Item->Position = AlignDescenders; break; case cdrfTEXTONPATHPOS_TOP: Item->Position = AlignAscenders; break; case cdrfTEXTONPATHPOS_CENTRE: Item->Position = AlignCentres; break; case cdrfTEXTONPATHPOS_BASELINE: default: Item->Position = AlignBaseline; break; } } // return now so we don't get duplicates... return TRUE; } // next! Item = (CDRTextOnPathLink *)TextOnPathLinks.GetNext(Item); } return TRUE; }

BOOL CDRFilter::ClearUp (  void   )  [private]

Clears up after an CDR file import. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 21 03 95 Parameters: [INPUTS]  Returns: See also: Filter Definition at line 4632 of file cdrfiltr.cpp. { Version = CDRVERSION_NULL; if(SlowJobStarted == TRUE) EndSlowJob(); if(Success == FALSE) { // get rid of the actions list while(!Actions.IsEmpty()) { CDRActionListItem *Act = (CDRActionListItem *)Actions.GetTail(); ERROR3IF(Act == 0, "Returned tail in a non-empty Action list is 0"); Act->ImportFailure(this); delete Actions.RemoveItem(Act); } // get rid of the level's list of nodes DeleteNodeList(pLevelNodeList); // tell everyone about some new layers, if we were doing them if(UseLayers) { LayerSGallery::MakeTopLayerActive(pSpread); BROADCAST_TO_ALL(SpreadMsg(pSpread, SpreadMsg::LAYERCHANGES)); } } TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), Fills has %d entries\n"), Fills.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), Outlines has %d entries\n"), Outlines.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), Styles has %d entries\n"), Styles.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), Fonts has %d entries\n"), Fonts.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), Arrowheads has %d entries\n"), Arrowheads.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), Patterns has %d entries\n"), Patterns.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), Bitmaps has %d entries\n"), Bitmaps.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), Vectors has %d entries\n"), Vectors.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), TextV4 has %d entries\n"), TextV4.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), Pages has %d entries\n"), Pages.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), Actions has %d entries\n"), Actions.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), TextBBoxes has %d entries\n"), TextBBoxes.GetCount()); TRACEUSER( "Ben", _T("At CDRFilter::ClearUp(), TextOnPathLinks has %d entries\n"), TextOnPathLinks.GetCount()); TRACEUSER( "Ben", _T("ObjectsConverted = %d\nObjectsFormatWrong = %d\nObjectsUnknown = %d\nEnvelopesApproximated = %d\n"), ObjectsConverted, ObjectsFormatWrong, ObjectsUnknown, EnvelopesApproximated); ERROR3IF(Success == TRUE && Actions.GetCount() != 0, "Not all actions used at the end of a successful CDR convert!"); Fills.DeleteAll(); Outlines.DeleteAll(); Styles.DeleteAll(); Fonts.DeleteAll(); Arrowheads.DeleteAll(); Patterns.DeleteAll(); Bitmaps.DeleteAll(); Vectors.DeleteAll(); TextV4.DeleteAll(); Pages.DeleteAll(); Actions.DeleteAll(); TextBBoxes.DeleteAll(); TextOnPathLinks.DeleteAll(); // avoid indexedcolour in uses ColourCMYK CNullCol; CNullCol.Cyan = 1; CNullCol.Magenta = 1; CNullCol.Yellow = 1; CNullCol.Key = 1; DocColour NullCol = DocColour(COLOURMODEL_CMYK, (ColourGeneric *)&CNullCol); SetLineColour(NullCol); SetFillColour(NullCol); // delete the current attributes DeleteCurrentAttrs(); // free a few data blocks CCFree(ObjDataBlock); CCFree(FontTableV3); CCFree(FontStylesV3); CCFree(LinkTable); TRACEUSER( "Ben", _T("ClearUp finished - import of CDR over\n")); return Success; }

BOOL CDRFilter::ConvertBitmap (  cdrfOffsetHeader *   )  [private]

Definition at line 2743 of file cdrfiltr.cpp. { // find the address of the coordinates in the header cdrfBitmapData *BInfo = (cdrfBitmapData *)FindDataInObject(Header, cdrfOBJOFFSETTYPE_COORDS); // it has got some object data, hasn't it? if(BInfo == 0) { FormatError = TRUE; return TRUE; } // OK, let's get the information in a nice structure to start off with struct { DWORD Reference; INT32 SizeX; INT32 SizeY; INT32 Left; // cropping coordinates INT32 Right; INT32 Bottom; INT32 Top; } Info; // choose the right reference - it's in a slightly different place in CDR 3 files if(Version != CDRVERSION_3) { Info.Reference = CDRDATA_WORD(BInfo->BitmapReference); Info.SizeX = CDRDATA_SWORD(BInfo->SizeX) * CDRCOORDS_TO_MILLIPOINTS; Info.SizeY = CDRDATA_SWORD(BInfo->SizeY) * CDRCOORDS_TO_MILLIPOINTS; Info.Left = CDRDATA_SWORD(BInfo->Left) * CDRCOORDS_TO_MILLIPOINTS; Info.Right = CDRDATA_SWORD(BInfo->Right) * CDRCOORDS_TO_MILLIPOINTS; Info.Bottom = CDRDATA_SWORD(BInfo->Bottom) * CDRCOORDS_TO_MILLIPOINTS; Info.Top = CDRDATA_SWORD(BInfo->Top) * CDRCOORDS_TO_MILLIPOINTS; } else { cdrfBitmapData3 *B3Info = (cdrfBitmapData3 *)BInfo; Info.Reference = CDRDATA_WORD(B3Info->BitmapReference); Info.SizeX = CDRDATA_SWORD(B3Info->SizeX) * CDRCOORDS_TO_MILLIPOINTS; Info.SizeY = CDRDATA_SWORD(B3Info->SizeY) * CDRCOORDS_TO_MILLIPOINTS; Info.Left = CDRDATA_SWORD(B3Info->Left) * CDRCOORDS_TO_MILLIPOINTS; Info.Right = CDRDATA_SWORD(B3Info->Right) * CDRCOORDS_TO_MILLIPOINTS; Info.Bottom = CDRDATA_SWORD(B3Info->Bottom) * CDRCOORDS_TO_MILLIPOINTS; Info.Top = CDRDATA_SWORD(B3Info->Top) * CDRCOORDS_TO_MILLIPOINTS; } // find that there bitmap KernelBitmap *pBitmap = Bitmaps.FindBitmap(Info.Reference); if(pBitmap == 0) { FormatError = TRUE; return TRUE; } // find a bounding box for the bitmap on the page DocRect BoundsRect; if(Info.SizeX > 0) { BoundsRect.lo.x = 0; BoundsRect.hi.x = Info.SizeX; } else { BoundsRect.lo.x = Info.SizeX; BoundsRect.hi.x = 0; } if(Info.SizeY > 0) { BoundsRect.lo.y = 0; BoundsRect.hi.y = Info.SizeY; } else { BoundsRect.lo.y = Info.SizeY; BoundsRect.hi.y = 0; } // OK, if the bitmap isn't cropped, create a bitmap object, otherwise // create a rectangle which is the right size and pop a bitmap fill on it if(Info.Left == 0 && Info.Right == Info.SizeX && Info.Top == 0 && Info.Bottom == Info.SizeY) { // create a bitmap object NodeBitmap *NewBitmap = new NodeBitmap; if((NewBitmap == NULL) || !NewBitmap->SetUpPath()) return FALSE; NewBitmap->CreateShape(BoundsRect); // set the reference to the bitmap NewBitmap->GetBitmapRef()->Attach(pBitmap, GetDocument()); if (NewBitmap->GetBitmap() != pBitmap) { // It didn't use the bitmap we gave it, so we can delete it delete pBitmap; } // apply a few nice attributes to it NewBitmap->ApplyDefaultBitmapAttrs(0); // invalidate the bounding rectangle NewBitmap->InvalidateBoundingRect(); // cool. ObjFilled = FALSE; ObjStroked = FALSE; // we don't want any of those fancy attributes things on this object. AttrsAlreadyApplied = TRUE; // set the made node pMadeNode = NewBitmap; } else { // create a rectangular path object... // generate a path NodePath *pPath = new NodePath; if(pPath == 0 || (!pPath->SetUpPath())) { delete pPath; return FALSE; // no room to create it } // position the new elements at the beginning of the path pPath->InkPath.FindStartOfPath(); DocCoord co, cn1, cn2; // make the rectangle shape BITM_MOVE(Info.Left, Info.Bottom) BITM_LINE(Info.Right, Info.Bottom) BITM_LINE(Info.Right, Info.Top) BITM_LINE(Info.Left, Info.Top) BITM_LINE(Info.Left, Info.Bottom) BITM_CLOSE // finish off the path pPath->InvalidateBoundingRect(); pPath->InkPath.IsFilled = TRUE; // set up an attribute or two ObjFilled = TRUE; ObjStroked = FALSE; // set up a nice attribute for this thingy if(!SetLineColour(DocColour(COLOUR_TRANS))) return FALSE; // set a nice bitmap fill DocCoord Start = DocCoord(BoundsRect.lo.x, BoundsRect.lo.y); DocCoord End1 = DocCoord(BoundsRect.hi.x, BoundsRect.lo.y); DocCoord End2 = DocCoord(BoundsRect.lo.x, BoundsRect.hi.y); if(!SetBitmapFill(pBitmap, Start, End1, End2)) return FALSE; // apply attributes SetPathFilled(TRUE); CurrentAttrs[ATTR_FILLGEOMETRY].Ignore = FALSE; if(!AttributeManager::ApplyBasedOnDefaults(pPath, CurrentAttrs)) return FALSE; // don't apply attributes later AttrsAlreadyApplied = TRUE; // set the made node pMadeNode = pPath; } return TRUE; }

BOOL CDRFilter::ConvertColour (  cdrfColour *  Col, DocColour *  Out )  [private]

converts a colour from the CDR definition taking into account the version Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 28 03 95 Parameters: cdr  colour and a DocColour to put it into [INPUTS] Returns: error flag See also: Filter Definition at line 1970 of file cdrfiltr.cpp. { ERROR3IF(Col == 0 || Out == 0, "Null pointers passed to ConvertColour"); ImportedNewColour ICol; switch(Version) { case CDRVERSION_5: CDRColour::Convert5(Col, &ICol); break; case CDRVERSION_4: CDRColour::Convert4(Col, &ICol); break; default: CDRColour::Convert3(Col, &ICol); break; } IndexedColour *NewCol = new IndexedColour(ICol.Model, &ICol.Colour); if(NewCol == 0) return FALSE; ColList->GetUnnamedColours()->AddTail(NewCol); Out->MakeRefToIndexedColour(NewCol); return TRUE; }

BOOL CDRFilter::ConvertEllipse (  cdrfOffsetHeader *  Header  )  [private]

generates an ellipse object Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 27 03 95 Parameters: pointer  to header [INPUTS] Returns: error flag See also: Definition at line 2671 of file cdrfiltr.cpp. { // find the address of the coordinates in the header cdrfEllipseData *Size = (cdrfEllipseData *)FindDataInObject(Header, cdrfOBJOFFSETTYPE_COORDS); // it has got some coords, hasn't it? if(Size == 0) { FormatError = TRUE; return TRUE; } // Create the ellipse NodeRegularShape *NewShape = new (NodeRegularShape); if ((NewShape == NULL) || !NewShape->SetUpShape() ) { ERROR1(FALSE, _R(IDS_OUT_OF_MEMORY)); } // fill it all in for an ellipse NewShape->SetNumSides(4); INT32 Width = CDRDATA_SWORD(Size->Width) * CDRCOORDS_TO_MILLIPOINTS; INT32 Height = CDRDATA_SWORD(Size->Height) * CDRCOORDS_TO_MILLIPOINTS; DocCoord co; co.x = Width / 2; // centre - it all starts at (0,0) co.y = Height / 2; NewShape->SetCentrePoint(co); co.x = Width; NewShape->SetMajorAxes(co); co.x /= 2; co.y = Height; NewShape->SetMinorAxes(co); NewShape->SetCircular(TRUE); NewShape->SetStellated(FALSE); NewShape->SetPrimaryCurvature(TRUE); NewShape->SetStellationCurvature(FALSE); // finish off the path NewShape->InvalidateBoundingRect(); // set up an attribute or two ObjFilled = TRUE; ObjStroked = TRUE; // set the made node pMadeNode = NewShape; return TRUE; }

BOOL CDRFilter::ConvertPath (  cdrfOffsetHeader *  Header  )  [private]

actually converts a path object to a node. If the object has an unexpected format, then FormatError is set and it return *TRUE* - the return value only indicated environmental errors such as lack of memory Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 24 03 95 Parameters: none  [INPUTS] Returns: error flag See also: Definition at line 2371 of file cdrfiltr.cpp. { // find the address of the coordinates in the header cdrfPathCoordHeader *CHdr = (cdrfPathCoordHeader *)FindDataInObject(Header, cdrfOBJOFFSETTYPE_COORDS); // it has got some coords, hasn't it? if(CHdr == 0) { FormatError = TRUE; return TRUE; } // find the address of the types and the coordinates cdrfCoord *Coords = (cdrfCoord *)(CHdr + 1); // and the address of the types UINT32 NCoords = CDRDATA_WORD(CHdr->NCoords); BYTE *Types = (BYTE *)(Coords + NCoords); // check the path a little if((NCoords * (sizeof(cdrfCoord) + sizeof(BYTE))) > CDRDATA_WORD(Header->Size) || NCoords < 2) { FormatError = TRUE; return TRUE; } // knock up a path node NodePath *pPath = new NodePath; if(pPath == 0 || (!pPath->SetUpPath())) { delete pPath; return FALSE; // no room to create it } // position the new elements at the beginning of the path pPath->InkPath.FindStartOfPath(); // flag the initial status of the fill/stokedness of the path ObjFilled = FALSE; ObjStroked = TRUE; if(!AddElementsToPath(&pPath->InkPath, NCoords, Coords, Types, &ObjFilled)) goto NoMemory; // check that the path is OK if(!pPath->InkPath.EnsureValid()) { // no, it's completely knackered delete pPath; FormatError = TRUE; return TRUE; } // finish off the path pPath->InvalidateBoundingRect(); pPath->InkPath.IsFilled = ObjFilled; // save node pointer pMadeNode = pPath; // check to see if text goes along this... { CDRTextOnPathLink *Item = (CDRTextOnPathLink *)TextOnPathLinks.GetHead(); while(Item != 0) { // does this link refer to this text story? if(SerialNumber == Item->PathSerialNumber) { // yep - store a pointer to this path Item->pPath = pPath; } // next! Item = (CDRTextOnPathLink *)TextOnPathLinks.GetNext(Item); } } // everything was nice return TRUE; NoMemory: // get rid of any path which is in the process of being created if(pPath != 0) pPath->CascadeDelete(); delete pPath; return FALSE; }

BOOL CDRFilter::ConvertRectangle (  cdrfOffsetHeader *   )  [private]

Definition at line 2602 of file cdrfiltr.cpp. { // find the address of the coordinates in the header cdrfRectangleData *Size = (cdrfRectangleData *)FindDataInObject(Header, cdrfOBJOFFSETTYPE_COORDS); // it has got some coords, hasn't it? if(Size == 0) { FormatError = TRUE; return TRUE; } // get the dimensions from the object INT32 Width = CDRDATA_SWORD(Size->Width) * CDRCOORDS_TO_MILLIPOINTS; INT32 Height = CDRDATA_SWORD(Size->Height) * CDRCOORDS_TO_MILLIPOINTS; INT32 CornerRadius = CDRDATA_SWORD(Size->CornerRadius) * CDRCOORDS_TO_MILLIPOINTS; if(CornerRadius < 0) CornerRadius = 0 - CornerRadius; // make a rectangle quickshape... NodeRegularShape *NewShape = new (NodeRegularShape); if ((NewShape == NULL) || !NewShape->SetUpShape() ) { ERROR1(FALSE, _R(IDS_OUT_OF_MEMORY)); } INT32 AWidth = Width; INT32 AHeight = Height; if(AWidth < 0) AWidth = 0 - AWidth; if(AHeight < 0) AHeight = 0 - AHeight; if(!NewShape->MakeRectangle(AWidth, AHeight, CornerRadius)) return FALSE; // translate it a bit so the corner is on the origin, not the thingy Trans2DMatrix Trans(Width / 2, Height / 2); NewShape->Transform(Trans); // finish off the shape NewShape->InvalidateBoundingRect(); // set up an attribute or two ObjFilled = TRUE; ObjStroked = TRUE; // set the made node pMadeNode = NewShape; return TRUE; }

BOOL CDRFilter::ConvertText (  cdrfOffsetHeader *  Header  )  [private]

converts a text object to a node. If the object has an unexpected format, then FormatError is set and it return *TRUE* - the return value only indicated environmental errors such as lack of memory Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 24 03 95 Parameters: none  [INPUTS] Returns: error flag See also: 1.2 Definition at line 136 of file cdrtext.cpp. { // check to see if this has an offset for text on a path if(FindDataInObject(Header, cdrfOBJOFFSETTYPE_PATHTEXT1) != 0 && FindDataInObject(Header, cdrfOBJOFFSETTYPE_PATHTEXT2) != 0) { IsTextOnAPath = TRUE; } else { IsTextOnAPath = FALSE; } // hey, this is text! IsText = TRUE; IsTextStory = FALSE; // dispatch conversion to appropriate routine if(Version == CDRVERSION_3) return ConvertText3(Header); if(Version == CDRVERSION_4) { if(CDRDATA_WORD(Header->ObjectType) == cdrfOBJTYPE_TEXT) { return ConvertText4Art(Header); } else { return ConvertText4Para(Header); } } // if it's a text story we're fiddling with, see how big the frame is INT32 FrameX = 0, FrameY = 0; DocCoord Trans = DocCoord(0,0); if(Header->ObjectType == cdrfOBJTYPE_TEXTSTORY) { // find the size of the object cdrfTextStoryCoordData *Coords = (cdrfTextStoryCoordData *)FindDataInObject(Header, cdrfOBJOFFSETTYPE_COORDS); if(Coords == 0) { FormatError = TRUE; return TRUE; } FrameX = CDRDATA_WORD(Coords->XSize); FrameY = CDRDATA_WORD(Coords->YSize); TRACEUSER( "Ben", _T("Initial frame dimensions: X = %d Y = %d\n"), FrameX, FrameY); IsTextStory = TRUE; } else { IsTextStory = FALSE; } // OK, the header supplied here is in a block of it's own so we can aquire a new RIFF block // for the text info // the RIFF object will be at a loda chunk, which is at a one higher level than that of // the txsm chunk - find level we don't want to seek over ERROR3IF(RIFF->GetObjType() != RIFFOBJECTTYPE_CHUNK || RIFF->GetObjChunkType() != cdrT_loda, "CDFFilter::ConvertText called with RIFF on a non-loda chunk"); UINT32 EndLevel = RIFF->GetObjLevel() - 1; // now stroll though the RIFF file // stop when we find a txsm chunk, and store any trfd chunks we might meet on the way BOOL Found = FALSE; do { if(RIFF->GetObjType() == RIFFOBJECTTYPE_CHUNK && RIFF->GetObjChunkType() == cdrT_txsm) { // found the text info thingy Found = TRUE; } else if(RIFF->GetObjType() == RIFFOBJECTTYPE_LISTSTART && RIFF->GetObjChunkType() == cdrT_trfl) { // grab the list contents if(!RIFF->GetListContents(&TransformChunk, &TransformChunkSize)) return FALSE; } UpdateProgress(); if(!Found) if(!RIFF->NextObject()) return FALSE; } while(Found == FALSE && (RIFF->GetObjType() != RIFFOBJECTTYPE_LISTEND || RIFF->GetObjLevel() >= EndLevel)); if(RIFF->GetObjType() != RIFFOBJECTTYPE_CHUNK || RIFF->GetObjChunkType() != cdrT_txsm) { FormatError = TRUE; return TRUE; } // get size of chunk INT32 TextInfoSize = RIFF->GetObjSize(); // aquire the chunk data if(!RIFF->AquireChunkData()) return FALSE; // and get a pointer to the 'nice' info chunk ADDR TextInfo; if((TextInfo = RIFF->GetAquiredData()) == 0) { return FALSE; } cdrfTextInfoHdr *TIH = (cdrfTextInfoHdr *)TextInfo; // make a new text story node TextStory *TSNode = new TextStory; if(TSNode == 0) return FALSE; // get the number of paragraphs UINT32 NParagraphs = CDRDATA_WORD(TIH->NParagraphs); // set up some variables INT32 Loc = sizeof(cdrfTextInfoHdr); INT32 FirstLineSpace = -1; INT32 InitialFirstLineSpace = -1; INT32 ThisLineSpace = 0; INT32 PreviousLineSpace = 0; INT32 MaximumLineX = 0; // MaximumLineX and INT32 Lines = 1; // Lines only used for artisitic text Justification Just; // the justification // convert the paragraph UINT32 CurrentPara; INT32 LineX; for(CurrentPara = 0; CurrentPara < NParagraphs; CurrentPara++) { // set up a few things LineX = 0; // current position in the line // check sizes if((Loc + (INT32)sizeof(cdrfTextInfoParaHdr)) > TextInfoSize) break; // get paragraph header info cdrfTextInfoParaHdr *ParaHdr = (cdrfTextInfoParaHdr *)(TextInfo + Loc); Loc += sizeof(cdrfTextInfoParaHdr); // sort out font style definitions INT32 NFontDefns = CDRDATA_WORD(ParaHdr->NFontDefns); if((Loc + ((INT32)sizeof(cdrfTextInfoFontDefn) * NFontDefns)) > TextInfoSize) break; cdrfTextInfoFontDefn *FontDefns = (cdrfTextInfoFontDefn *)(TextInfo + Loc); Loc += (sizeof(cdrfTextInfoFontDefn) * NFontDefns); // get some memory for the converted font styles if(NFontDefns <= 0) break; CDRTextStyle *Styles = new CDRTextStyle[NFontDefns]; // convert the first definiton from the style if(!GetTextStyleFromCDRStyle(&Styles[0], ParaHdr->Style)) goto NoMemory; // store the justificationness Just = Styles[0].Just; // just in case of random Corel behaviour... PreviousLineSpace = (Styles[0].FontSize * 12) / 10; // go through translating all the other styles for(INT32 l = 1; l < NFontDefns; l++) { if(!GetTextStyleFromDefn(&Styles[l], &FontDefns[l], &Styles[0])) return FALSE; } // get the paragraph info if((Loc + (INT32)sizeof(cdrfTextInfoParaInfo)) > TextInfoSize) break; cdrfTextInfoParaInfo *PInfo = (cdrfTextInfoParaInfo *)(TextInfo + Loc); Loc += sizeof(cdrfTextInfoParaInfo); INT32 NChars = CDRDATA_WORD(PInfo->NChars); // sort out the character array if((Loc + ((INT32)sizeof(cdrfTextInfoChar) * NChars)) > TextInfoSize) break; cdrfTextInfoChar *Chars = (cdrfTextInfoChar *)(TextInfo + Loc); Loc += (sizeof(cdrfTextInfoChar) * NChars); // make a new text line for this paragraph TextLine *CurrentLine = new TextLine(TSNode, LASTCHILD); if(CurrentLine == 0) goto NoMemory; // and run through adding all those nice characters INT32 CurrentChar; for(CurrentChar = 0; CurrentChar < NChars; CurrentChar++) { BOOL NewLine = FALSE; // whether to create a new line here if(IsTextStory == FALSE && CDRDATA_WORD(Chars[CurrentChar].Code) == cdrfTEXT_NEWLINE) { // update a couple of artisitic text only variables Lines++; if(LineX > MaximumLineX) MaximumLineX = LineX; // create a new line NewLine = TRUE; } // find the style of the character INT32 Style = ((CDRDATA_WORD(Chars[CurrentChar].Info)) & cdrfTEXTINFOCHAR_INFO_DEFNMASK) >> cdrfTEXTINFOCHAR_INFO_DEFNMASKSBY; // create it if(CDRDATA_WORD(Chars[CurrentChar].Code) >= ' ') { TextChar *C = new TextChar(CurrentLine, LASTCHILD, CDRDATA_WORD(Chars[CurrentChar].Code)); if(C == 0) goto NoMemory; if(Style < 0 || Style >= NFontDefns) Style = 0; // apply attributes if(!ApplyTextAttr(C, &Styles[Style], 0 /*&Styles[0]*/)) // for now, we can't base attributes on anything 'cos the optimiser can't hack it goto NoMemory; } // add the character width LineX += CDRDATA_SWORD(Chars[CurrentChar].XSize); // update this line's spacing thingy if(Styles[Style].LineSpace > ThisLineSpace) ThisLineSpace = Styles[Style].LineSpace; // sort out first line spaceing thing if(InitialFirstLineSpace == -1) InitialFirstLineSpace = Styles[Style].LineSpace; if(NewLine) { // apply the line spacing attribute - make a font size attribute if(ThisLineSpace < 512) ThisLineSpace = PreviousLineSpace; TxtLineSpaceAttribute Attr((FIXED16)(((double)Styles[0].ParaLineSpacePercent) /* * 1.2*/ / 100)); // attach if(!ApplyTextAttrDoApply(CurrentLine, &Attr, FALSE)) return FALSE; // add an EOL EOLNode *EOL = new EOLNode(CurrentLine, LASTCHILD); if(EOL == 0) goto NoMemory; // make a new line CurrentLine = new TextLine(TSNode, LASTCHILD); if(CurrentLine == 0) goto NoMemory; // sort out first line spacing thing if(FirstLineSpace == -1) FirstLineSpace = ThisLineSpace; // reset things LineX = 0; PreviousLineSpace = ThisLineSpace; ThisLineSpace = 0; } } // sort out first line spaceing thing if(FirstLineSpace == -1) FirstLineSpace = ThisLineSpace; // apply the line spacing attribute - make a font size attribute if(ThisLineSpace < 512) ThisLineSpace = PreviousLineSpace; TxtLineSpaceAttribute Attr((FIXED16)(((double)Styles[0].ParaLineSpacePercent) / 100)); // attach if(!ApplyTextAttrDoApply(CurrentLine, &Attr, FALSE)) return FALSE; // pop on an end of line node EOLNode *EOL = new EOLNode(CurrentLine, LASTCHILD); if(EOL == 0) goto NoMemory; // get rid of the font styles delete [] Styles; PreviousLineSpace = ThisLineSpace; } // pop a caret at the end of the last line { Node *LastLine = TSNode->FindLastChild(); if(LastLine == 0) goto FormError; Node *LastLineNode = LastLine->FindLastChild(); ERROR3IF(LastLineNode == 0, "Line node doesn't have any children"); ERROR3IF(!LastLineNode->IsKindOf(CC_RUNTIME_CLASS(EOLNode)), "Last entry of a line is not an EOL node"); CaretNode *C = new CaretNode(LastLineNode, PREV); if(C == 0) goto NoMemory; } // set up maximumlinex - only valid for artisitic text if(LineX > MaximumLineX) MaximumLineX = LineX; // set up a bounding box for this text object and // if this is a text story, translate it down a bit // so that the top of the first line is at the top of the frame if(IsTextStory) { if(FirstLineSpace == -1) goto FormError; // no first line? How strange... // work out the distance to move the text line down = the first line un 120%ed INT32 Down = (FirstLineSpace * 10) / 12; // work out the rightness shifting INT32 Right = 0; if(Just == JCENTRE) { Right = (FrameX / 2) * CDRCOORDS_TO_MILLIPOINTS; } else if(Just == JRIGHT) { Right = FrameX * CDRCOORDS_TO_MILLIPOINTS; } // transform the story TSNode->SetStoryMatrix(Matrix(Trans.x+Right, Trans.y-Down)); // set the format width TSNode->SetImportFormatWidth(FrameX * CDRCOORDS_TO_MILLIPOINTS); TRACEUSER( "Ben", _T("Import format width initially %d\n"), TSNode->GetImportFormatWidth()); // bounding box for text story DocRect BBox = DocRect(Trans.x, Trans.y - (FrameY * CDRCOORDS_TO_MILLIPOINTS), Trans.x + (FrameX * CDRCOORDS_TO_MILLIPOINTS), Trans.y); TextBBoxes.Add(TSNode, &BBox, JLEFT); } else { // set the matrix of the story TSNode->SetStoryMatrix(Matrix(0,0)); // bounding box for a text object DocRect BBox = DocRect(0, 0 - FirstLineSpace * Lines, (MaximumLineX * CDRCOORDS_TO_MILLIPOINTS), FirstLineSpace); TextBBoxes.Add(TSNode, &BBox, Just); // see if this is linked to a path CheckTextForLinks(TSNode, Header); } // set some essential variables ObjFilled = TRUE; ObjStroked = FALSE; // all done return... pMadeNode = TSNode; return TRUE; NoMemory: TSNode->CascadeDelete(); delete TSNode; return FALSE; FormError: FormatError = TRUE; TSNode->CascadeDelete(); delete TSNode; return TRUE; }

BOOL CDRFilter::ConvertText3 (  cdrfOffsetHeader *  Header  )  [private]

converts a version 3 text object to a node. If the object has an unexpected format, then FormatError is set and it return *TRUE* - the return value only indicated environmental errors such as lack of memory Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 24 03 95 Parameters: none  [INPUTS] Returns: error flag See also: 1.2 1.2 Definition at line 1025 of file cdrtext.cpp. { // is it a text story? if(Header->ObjectType == (cdrfOBJTYPE_TEXTSTORY - cdrfOBJTYPE_V3ADD)) IsTextStory = TRUE; // get the data from this object cdrfTextHeaderV3 *Hdr = (cdrfTextHeaderV3 *)FindDataInObject(Header, cdrfOBJOFFSETTYPE_COORDS); // it has got some coords, hasn't it? if(Hdr == 0) { FormatError = TRUE; return TRUE; } //TRACEUSER( "Ben", _T("FrameX = %d, FrameY = %d\n"), Hdr->FrameX, Hdr->FrameY); INT32 FrameX = CDRDATA_WORD(Hdr->FrameX) * CDRCOORDS_TO_MILLIPOINTS; INT32 FrameY = CDRDATA_WORD(Hdr->FrameY) * CDRCOORDS_TO_MILLIPOINTS; // find pointer to the characters cdrfTextCharV3 *ThisChar = (cdrfTextCharV3 *)(Hdr + 1); // get the base style CDRTextStyle BaseStyle; if(!GetTextStyle3(&BaseStyle, CDRDATA_WORD(Hdr->BaseFontStyle))) return FALSE; // add the justifcation stuff to it TRACEUSER( "Ben", _T("Justificatoin V3 = %d\n"), Hdr->Justification); switch(Hdr->Justification) { case cdrfJUSTIFICATIONV3_LEFT: default: BaseStyle.Just = JLEFT; break; case cdrfJUSTIFICATIONV3_CENTRE: BaseStyle.Just = JCENTRE; break; case cdrfJUSTIFICATIONV3_RIGHT: BaseStyle.Just = JRIGHT; break; } // make a new text story node TextStory *TSNode = new TextStory; if(TSNode == 0) return FALSE; // run through the text... INT32 NChars = CDRDATA_WORD(Hdr->NCharacters); INT32 CurrentChar; INT32 MaximumLineSpace = BaseStyle.LineSpace; INT32 Lines = 1; INT32 Depth = 0; // make a new text line TextLine *CurrentLine = new TextLine(TSNode, LASTCHILD); if(CurrentLine == 0) goto NoMemory; for(CurrentChar = 0; CurrentChar < NChars; CurrentChar++) { BOOL HasStyles = FALSE; if(ThisChar->Info != 0) HasStyles = TRUE; if(ThisChar->Code >= ' ') { TextChar *C = new TextChar(CurrentLine, LASTCHILD, ThisChar->Code); if(C == 0) goto NoMemory; // apply attributes if(HasStyles) { // it's got styles of it's own, find and apply them cdrfTextCharStyledV3 *SC = (cdrfTextCharStyledV3 *)ThisChar; CDRTextStyle ThisStyle; if(!GetTextStyle3(&ThisStyle, CDRDATA_WORD(SC->Style), &BaseStyle)) return FALSE; if(!ApplyTextAttr(C, &ThisStyle, 0)) goto NoMemory; if(ThisStyle.LineSpace > MaximumLineSpace) MaximumLineSpace = ThisStyle.LineSpace; } else { // just apply the normal attributes if(!ApplyTextAttr(C, &BaseStyle, 0)) goto NoMemory; } } if(ThisChar->Code == cdrfTEXT_NEWLINE) { // create a new line... // apply the line spacing attribute - make a font size attribute // TxtLineSpaceAttribute Attr(MaximumLineSpace); TxtLineSpaceAttribute Attr((FIXED16)(((double)BaseStyle.ParaLineSpacePercent) / 100)); // attach if(!ApplyTextAttrDoApply(CurrentLine, &Attr, FALSE)) return FALSE; // add an EOL EOLNode *EOL = new EOLNode(CurrentLine, LASTCHILD); if(EOL == 0) goto NoMemory; // make a new line CurrentLine = new TextLine(TSNode, LASTCHILD); if(CurrentLine == 0) goto NoMemory; // set things Lines++; Depth += MaximumLineSpace; MaximumLineSpace = BaseStyle.LineSpace; } if(HasStyles) { //TRACEUSER( "Ben", _T("Char has styles, code %d (%c)\n"), ThisChar->Code, ThisChar->Code); // it's got more than normal bytes in it, so add a few more than usual ThisChar = (cdrfTextCharV3 *)(((cdrfTextCharStyledV3 *)ThisChar) + 1); } else { //TRACEUSER( "Ben", _T("Char, code %d (%c)\n"), ThisChar->Code, ThisChar->Code); // just a normal character, so simply increment it ThisChar++; } } // pop a line space attribute on the last line { // TxtLineSpaceAttribute Attr(MaximumLineSpace); TxtLineSpaceAttribute Attr((FIXED16)(((double)BaseStyle.ParaLineSpacePercent) / 100)); // attach if(!ApplyTextAttrDoApply(CurrentLine, &Attr, FALSE)) return FALSE; } Depth += MaximumLineSpace; // finish the last line with an end of line node { EOLNode *EOL = new EOLNode(CurrentLine, LASTCHILD); if(EOL == 0) goto NoMemory; // pop a caret at the end of the last line Node *LastLine = TSNode->FindLastChild(); if(LastLine == 0) goto FormError; Node *LastLineNode = LastLine->FindLastChild(); ERROR3IF(LastLineNode == 0, "Line node doesn't have any children"); ERROR3IF(!LastLineNode->IsKindOf(CC_RUNTIME_CLASS(EOLNode)), "Last entry of a line is not an EOL node"); CaretNode *C = new CaretNode(LastLineNode, PREV); if(C == 0) goto NoMemory; } if(IsTextStory) { // get a first line height INT32 FirstLineHeight = (BaseStyle.LineSpace * 10) / 12; // work out the rightness shifting INT32 Right = 0; if(BaseStyle.Just == JCENTRE) { Right = FrameX / 2; } else if(BaseStyle.Just == JRIGHT) { Right = FrameX; } // set the matrix of the story TSNode->SetStoryMatrix(Matrix(Right, -FirstLineHeight)); // bounding box for a text frame DocRect BBox = DocRect(0, 0 - FrameY, FrameX, 0); TextBBoxes.Add(TSNode, &BBox, JLEFT); // set it's width to be formatted to TSNode->SetImportFormatWidth(FrameX); } else { // set the matrix of the story TSNode->SetStoryMatrix(Matrix(0,0)); // bounding box for a artisitic text object - approximate it's width INT32 Width = (MaximumLineSpace * NChars) / (Lines * 3); DocRect BBox = DocRect(0, 0 - Depth, Width, MaximumLineSpace); TextBBoxes.Add(TSNode, &BBox, BaseStyle.Just); // check it for path on a text CheckTextForLinks(TSNode, Header); } // set some essential variables ObjFilled = TRUE; ObjStroked = FALSE; // all done, return... pMadeNode = TSNode; return TRUE; NoMemory: TSNode->CascadeDelete(); delete TSNode; return FALSE; FormError: FormatError = TRUE; TSNode->CascadeDelete(); delete TSNode; return TRUE; }

BOOL CDRFilter::ConvertText4Art (  cdrfOffsetHeader *  Header  )  [private]

converts a version 4 artisitic text object Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 24 03 95 Parameters: none  [INPUTS] Returns: error flag See also: 1.2 1.2 Definition at line 552 of file cdrtext.cpp. { // get the data from this object cdrfTextHeaderV4 *Hdr = (cdrfTextHeaderV4 *)FindDataInObject(Header, cdrfOBJOFFSETTYPE_COORDS); // it has got some coords, hasn't it? if(Hdr == 0) { FormatError = TRUE; return TRUE; } // find pointer to the characters cdrfTextCharV4 *ThisChar = (cdrfTextCharV4 *)(Hdr + 1); // get the base style CDRTextStyle BaseStyle; WORD *StyleRef = (WORD *)FindDataInObject(Header, cdrfOBJOFFSETTYPE_STYLE); if(StyleRef == 0) { FormatError = TRUE; return TRUE; } if(!GetTextStyleFromCDRStyle(&BaseStyle, CDRDATA_WORD(*StyleRef))) return FALSE; // make a new text story node TextStory *TSNode = new TextStory; if(TSNode == 0) return FALSE; // run through the text... INT32 NChars = CDRDATA_WORD(Hdr->NCharacters); INT32 CurrentChar; INT32 MaximumLineSpace = BaseStyle.LineSpace; INT32 Lines = 1; INT32 Depth = 0; // make a new text line TextLine *CurrentLine = new TextLine(TSNode, LASTCHILD); if(CurrentLine == 0) goto NoMemory; for(CurrentChar = 0; CurrentChar < NChars; CurrentChar++) { BOOL HasStyles = FALSE; if(ThisChar->Info != 0) HasStyles = TRUE; if(ThisChar->Code >= ' ') { TextChar *C = new TextChar(CurrentLine, LASTCHILD, ThisChar->Code); if(C == 0) goto NoMemory; // apply attributes if(HasStyles) { // it's got styles of it's own, find and apply them cdrfTextCharStyledV4 *SC = (cdrfTextCharStyledV4 *)ThisChar; CDRTextStyle ThisStyle; if(!GetTextStyleFromChar4(&ThisStyle, SC, &BaseStyle)) return FALSE; if(!ApplyTextAttr(C, &ThisStyle, 0)) goto NoMemory; if(ThisStyle.LineSpace > MaximumLineSpace) MaximumLineSpace = ThisStyle.LineSpace; } else { // just apply the normal attributes if(!ApplyTextAttr(C, &BaseStyle, 0)) goto NoMemory; } } if(ThisChar->Code == cdrfTEXT_NEWLINE) { // create a new line... // apply the line spacing attribute - make a font size attribute // TxtLineSpaceAttribute Attr(MaximumLineSpace); TxtLineSpaceAttribute Attr((FIXED16)(((double)BaseStyle.ParaLineSpacePercent) / 100)); // attach if(!ApplyTextAttrDoApply(CurrentLine, &Attr, FALSE)) return FALSE; // add an EOL EOLNode *EOL = new EOLNode(CurrentLine, LASTCHILD); if(EOL == 0) goto NoMemory; // make a new line CurrentLine = new TextLine(TSNode, LASTCHILD); if(CurrentLine == 0) goto NoMemory; // set things Lines++; Depth += MaximumLineSpace; MaximumLineSpace = BaseStyle.LineSpace; } if(HasStyles) { // it's got more than normal bytes in it, so add a few more than usual ThisChar = (cdrfTextCharV4 *)(((cdrfTextCharStyledV4 *)ThisChar) + 1); } else { // just a normal character, so simply increment it ThisChar++; } } // pop a line space attribute on the last line { // TxtLineSpaceAttribute Attr(MaximumLineSpace); TxtLineSpaceAttribute Attr((FIXED16)(((double)BaseStyle.ParaLineSpacePercent) / 100)); // attach if(!ApplyTextAttrDoApply(CurrentLine, &Attr, FALSE)) return FALSE; } Depth += MaximumLineSpace; // finish the last line with an end of line node { EOLNode *EOL = new EOLNode(CurrentLine, LASTCHILD); if(EOL == 0) goto NoMemory; // pop a caret at the end of the last line Node *LastLine = TSNode->FindLastChild(); if(LastLine == 0) goto FormError; Node *LastLineNode = LastLine->FindLastChild(); ERROR3IF(LastLineNode == 0, "Line node doesn't have any children"); ERROR3IF(!LastLineNode->IsKindOf(CC_RUNTIME_CLASS(EOLNode)), "Last entry of a line is not an EOL node"); CaretNode *C = new CaretNode(LastLineNode, PREV); if(C == 0) goto NoMemory; } // set the matrix of the story { TSNode->SetStoryMatrix(Matrix(0,0)); // bounding box for a artisitic text object - approximate it's width INT32 Width = (MaximumLineSpace * NChars) / (Lines * 3); DocRect BBox = DocRect(0, 0 - Depth, Width, MaximumLineSpace); TextBBoxes.Add(TSNode, &BBox, BaseStyle.Just); } // check it for paths... CheckTextForLinks(TSNode, Header); // set some essential variables ObjFilled = TRUE; ObjStroked = FALSE; IsTextStory = FALSE; // all done, return... pMadeNode = TSNode; return TRUE; NoMemory: TSNode->CascadeDelete(); delete TSNode; return FALSE; FormError: FormatError = TRUE; TSNode->CascadeDelete(); delete TSNode; return TRUE; }

BOOL CDRFilter::ConvertText4Para (  cdrfOffsetHeader *  Header  )  [private]

converts a version 4 paragraph text object Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 24 03 95 Parameters: none  [INPUTS] Returns: error flag See also: 1.2 Definition at line 763 of file cdrtext.cpp. { // get the data from this object cdrfParaTextHeaderV4 *Hdr = (cdrfParaTextHeaderV4 *)FindDataInObject(Header, cdrfOBJOFFSETTYPE_COORDS); // set the var... IsTextStory = TRUE; // it has got some coords, hasn't it? if(Hdr == 0) { FormatError = TRUE; return TRUE; } // find out what text item we need if(LinkTable == 0) { // no link table, oh dear FormatError = TRUE; return TRUE; } cdrfLinkTableHdr *th = (cdrfLinkTableHdr *)LinkTable; INT32 Entries = CDRDATA_WORD(th->Entries); BOOL Found = FALSE; WORD *Offsets = (WORD *)(LinkTable + CDRDATA_WORD(th->OffsetsOffset)); cdrfLinkTableEntryTextV4 *En; for(INT32 l = 0; l < Entries; l++) { En = (cdrfLinkTableEntryTextV4 *)(LinkTable + CDRDATA_WORD(Offsets[l])); if(CDRDATA_WORD(En->Type) == cdrfLINKTABLEENTRYV4_TEXT && CDRDATA_WORD(En->ObjectSerial) == SerialNumber) { Found = TRUE; break; } } if(Found == FALSE) { FormatError = TRUE; return TRUE; } // locate the text item with those attributes CDRVectorStoredItem *Item = (CDRVectorStoredItem *)TextV4.GetHead(); // go through the list of items searching for the reference number given while(Item != 0) { if(Item->Reference == CDRDATA_WORD(En->TextID)) { // OK, we found it... break; } Item = (CDRVectorStoredItem *)TextV4.GetNext(Item); } if(Item == 0) { FormatError = TRUE; return TRUE; } Node *Text = Item->Objects; // find the base attributes CDRTextStyle BaseStyle; WORD *StyleRef = (WORD *)FindDataInObject(Header, cdrfOBJOFFSETTYPE_STYLE); if(StyleRef == 0) { FormatError = TRUE; return TRUE; } if(!GetTextStyleFromCDRStyle(&BaseStyle, CDRDATA_WORD(*StyleRef))) return FALSE; // get the maximum height of the first line ERROR2IF(!IS_A(Text, TextLine), FALSE, "Node in text list is not a text line"); // apply attributes to the lines TextLine *CurrentLine = (TextLine *)Text; while(CurrentLine != 0) { if(IS_A(CurrentLine, TextLine)) { /* Node *pNode = CurrentLine->FindFirstChild(); while(pNode != 0) { if(IS_A(pNode, TextChar)) { if(!ApplyTextAttr(pNode, &BaseStyle, 0)) return FALSE; } pNode = pNode->FindNext(); } */ // attach the line spacing onto it TxtLineSpaceAttribute Attr((FIXED16)(((double)BaseStyle.ParaLineSpacePercent) / 100)); if(!ApplyTextAttrDoApply(CurrentLine, &Attr, FALSE)) return FALSE; } CurrentLine = (TextLine *)CurrentLine->FindNext(); } // add it to a text story TextStory *TSNode = new TextStory; if(TSNode == 0) return FALSE; Text->InsertChainSimple(TSNode, FIRSTCHILD); // remove references to the nodes now inserted from the item Item->Objects = 0; // set the matrix and add the bbox { INT32 FirstLineSpace = Item->BBox.hi.y; // get the line spacing from the bbox defn // get the frame size INT32 FrameX = CDRDATA_WORD(Hdr->FrameX) * CDRCOORDS_TO_MILLIPOINTS; INT32 FrameY = CDRDATA_WORD(Hdr->FrameY) * CDRCOORDS_TO_MILLIPOINTS; // work out the distance to move the text line down = the first line un 120%ed INT32 Down = (FirstLineSpace * 10) / 12; // work out the shift... INT32 Right = 0; if(BaseStyle.Just == JCENTRE) { Right = FrameX / 2; } else if(BaseStyle.Just == JRIGHT) { Right = FrameX; } // transform the story TSNode->SetStoryMatrix(Matrix(Right,-Down)); // bounding box for text story DocRect BBox = DocRect(0, 0 - FrameY, FrameX, 0); TextBBoxes.Add(TSNode, &BBox, JLEFT); // set it's width to be formatted to TSNode->SetImportFormatWidth(FrameX); } // delete the item delete TextV4.RemoveItem(Item); // set a few variables pMadeNode = TSNode; ObjFilled = TRUE; ObjStroked = FALSE; return TRUE; }

void CDRFilter::DeleteNodeList (  Node *  Start  )  [static]

Deletes a linked list of nodes (forward direction only). Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 27 03 95 Parameters: [INPUTS]  Returns: See also: Filter Definition at line 4732 of file cdrfiltr.cpp. { Node *This, *Next; This = Start; while(This != 0) { Next = This->FindNext(); This->CascadeDelete(); delete This; This = Next; } }

BOOL CDRFilter::DoesPathNeedArrowheads (  NodePath *  P  )  [private]

To find out whether a path need attributes. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 29 03 95 Parameters: NodePath  to search [INPUTS] Returns: whether the path need some arrowheads See also: Filter Definition at line 533 of file cdroutl.cpp. { // if the number of end points is greater than 0, then it needs some arrowheads if(P->InkPath.GetNumEndPoints() > 0) return TRUE; return FALSE; }

BOOL CDRFilter::DoExport (  Operation *  , CCLexFile *  , PathName *  , Document *  , BOOL  )  [virtual]

Refuses to export a Corel Palette file. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 21 03 95 Parameters: As  for the Filter class [INPUTS] Returns: As for the Filter class See also: Filter Reimplemented from Filter. Definition at line 4764 of file cdrfiltr.cpp. { // No exporting here return FALSE; }

BOOL CDRFilter::DoImport (  SelOperation *  , CCLexFile *  , Document *  , BOOL  AutoChosen = FALSE, ImportPosition *  Pos = NULL, KernelBitmap **  ppImportedBitmap = NULL, DocCoord *  pPosTranslate = NULL, String_256 *  = NULL )  [virtual]

Reimplemented from Filter. Definition at line 367 of file cdrfiltr.cpp. { // check to see if we've got a CMX file in there, but only if we weren't autochosen if(!AutoChosen && HasCDRFileGotCMXFile(NULL, pDiskFile)) { TRACEUSER( "Ben", _T(">>> loading CDR file with new CMXImportFilter\n")); // right, somehow we got here -- probably because the user specifically // asked to see CorelDRAW files only CMXImportFilter *pFilter = new CMXImportFilter; if(pFilter == NULL) return FALSE; BOOL ok = pFilter->DoImport(Op, pDiskFile, DestDoc, AutoChosen, Pos); delete pFilter; pFilter = NULL; return ok; } // normal CDR import stuff BOOL ExtensionMatches = pOILFilter->DoesExtensionOfFileMatch(pDiskFile); RIFFFile RIFFo; TRACEUSER( "Ben", _T("In CDRFilter::DoImport\n")); //ERROR2IF(Version == CDRVERSION_NULL, FALSE, "CDRFilter::HowCompatible failed to set recognised version\n"); // in debug builds, warn about fills hanging around ERROR3IF(Fills.IsEmpty() == FALSE, "Fills store not empty"); ERROR3IF(Outlines.IsEmpty() == FALSE, "Outlines store not empty"); ERROR3IF(Styles.IsEmpty() == FALSE, "Styles store not empty"); ERROR3IF(Fonts.IsEmpty() == FALSE, "Fonts store not empty"); ERROR3IF(Arrowheads.IsEmpty() == FALSE, "Arrowheads store not empty"); ERROR3IF(Patterns.IsEmpty() == FALSE, "Patterns store not empty"); ERROR3IF(Bitmaps.IsEmpty() == FALSE, "Bitmap store not empty"); ERROR3IF(Vectors.IsEmpty() == FALSE, "Vector store not empty"); ERROR3IF(TextBBoxes.IsEmpty() == FALSE, "TextBBoxes list not empty"); ERROR3IF(TextV4.IsEmpty() == FALSE, "TextV4 store not empty"); ERROR3IF(TextOnPathLinks.IsEmpty() == FALSE, "TextOnPathLinks not empty"); // in retail builds, just vape any contents Fills.DeleteAll(); Outlines.DeleteAll(); Styles.DeleteAll(); Fonts.DeleteAll(); Arrowheads.DeleteAll(); Patterns.DeleteAll(); Bitmaps.DeleteAll(); Vectors.DeleteAll(); TextV4.DeleteAll(); Pages.DeleteAll(); Actions.DeleteAll(); TextBBoxes.DeleteAll(); TextOnPathLinks.DeleteAll(); // set a few flags and initialise some variables pDocument = DestDoc; Success = TRUE; SlowJobStarted = FALSE; TranslateByX = 0; TranslateByY = 0; PageX = 0; PageY = 0; pLevelNodeList = 0; DoneDoc = FALSE; DoneMasterPage = FALSE; InMasterPage = FALSE; ThisPage = 0; ThisLayer = 0; pMadeNode = 0; ObjectsConverted = 0; ObjectsFormatWrong = 0; ObjectsUnknown = 0; EnvelopesApproximated = 0; ObjDataBlock = 0; ObjDataBlockSize = 0; AttrsAlreadyApplied = FALSE; TransformChunk = 0; FontTableV3 = 0; FontStylesV3 = 0; LinkTable = 0; ThisOp = Op; LinkTransformsExist = FALSE; TheDocument = DestDoc; // if the extension matches, check it for being a 2.xx file if(ExtensionMatches) { // get the first few bytes TCHAR FirstBit[8]; if(pDiskFile->read((void *)FirstBit, sizeof(FirstBit)).bad()) return FALSE; ERROR1IF(camStrncmp((char *)FirstBit, "WL", 2) == 0, FALSE, _R(IDT_CDRFILTER_ISAV2FILE)); // let's pop the file back to the beginning if(pDiskFile->seek(0).bad()) return FALSE; } // sort out the RIFF file RIFF = &RIFFo; FOURCC FormType = RIFF->Init(pDiskFile); if(FormType == 1) // error { CDRFILTER_DI_RETURNERROR; } // sort out which version we're on switch(FormType) { case cdrT_CDR: Version = CDRVERSION_3; break; case cdrT_CDR4: case cdrT_CDST: // version 4 template Version = CDRVERSION_4; break; case cdrT_CDR5: case cdrT_CDT5: Version = CDRVERSION_5; break; case cdrT_CDR6: case cdrT_CDT6: // version 6 file -- we don't support these ERROR1(FALSE, _R(IDE_CDRFILTER_CDR6)); break; default: TRACEUSER( "Ben", _T("Attempted to load something which wasn't a CDR file. I don't think so...")); ERROR1(FALSE, _R(IDE_CDRFILTER_NOTCDR)); break; } // sort out a colour list ColList = DestDoc->GetIndexedColours(); // do we want to import with layers? UseLayers = FALSE; #ifdef WEBSTER // In Webster, just use the default preference settings as these should be set to // ImportWithLayers to False. if ( (!DestDoc->IsImporting() && Filter::OpenWithLayers) || (DestDoc->IsImporting() && Filter::ImportWithLayers) ) UseLayers = TRUE; #else // In Camelot, we must check to see if the document is being imported and if so if // there are any frames present. If there are then don't use layers, if there are // then use the preference setting. if (DestDoc->IsImporting()) { Spread * pTheSpread = DestDoc->GetSelectedSpread(); Layer * pFrame = NULL; if (pTheSpread != NULL) pFrame = pTheSpread->FindFirstFrameLayer(); if (pFrame != NULL) UseLayers = FALSE; // Frames present so do not import layers else UseLayers = Filter::ImportWithLayers; // No frames so use the preference setting } else { UseLayers = Filter::OpenWithLayers; } #endif // If importing without layers, make sure there is a layer to put things on, and make one if not if(UseLayers == FALSE) { if (!MakeSureLayerExists(DestDoc)) { // clean up and return and error CDRFILTER_DI_RETURNERROR; } } // For now, position Draw objects on 1st page of spread 1 pSpread = DestDoc->GetSelectedSpread(); pPage = (Page *) pSpread->FindFirstPageInSpread(); // Use bottom left of page as origin DocRect PageRect = pPage->GetPageRect(); Origin = PageRect.lo; // OK, let's get into the swing of things! // Get a default set of attributes for ink objects. if (!SetUpCurrentAttrs()) return FALSE; // Let start off by setting the progress indicatorx UINT32 id; switch(Version) { case CDRVERSION_4: id = _R(IDT_IMPORTMSG_CDR4); break; case CDRVERSION_5: id = _R(IDT_IMPORTMSG_CDR5); break; default: id = _R(IDT_IMPORTMSG_CDR3); break; } if(!DestDoc->IsImporting()) id += _R(IDT_OPENMSG_CDR3) - _R(IDT_IMPORTMSG_CDR3); //String_64 ImportMessage(id); String_64 ImportMessage = GetImportProgressString(pDiskFile, id); // this slow job doesn't have a delay because if the CDR file has a bitmap at the // beginning, ContinueSlowJob can't be called for rather a long time (sometimes) // and you get 'Nothing Selected' instead of a message telling you what's happening. BeginSlowJob(RIFF->ProgressLimit(), FALSE, &ImportMessage); SlowJobStarted = TRUE; // loop through looking at top level lists, and dispatch them to various handlers do { // get the next object in the file if(!RIFF->NextObject()) CDRFILTER_DI_RETURNERROR; if(RIFF->GetObjType() == RIFFOBJECTTYPE_LISTSTART) { switch(RIFF->GetObjChunkType()) { case cdrT_doc: if(!ProcessDoc()) { TRACEUSER( "Ben", _T("ProcessDoc returned FALSE\n")); CDRFILTER_DI_RETURNERROR; } break; case cdrT_page: if(!ProcessPage()) { TRACEUSER( "Ben", _T("ProcessPage returned FALSE\n")); CDRFILTER_DI_RETURNERROR; } break; default: // we're not interested in any other root level list, so skip it if(!RIFF->SkipToListEnd(RIFF->GetObjLevel())) CDRFILTER_DI_RETURNERROR; break; } } if(!UpdateProgress()) return FALSE; } while(RIFF->GetObjType() != RIFFOBJECTTYPE_FILEEND); // make sure we're at the end ContinueSlowJob(RIFF->ProgressLimit()); // attach paths to text stories if(!AttachTextToPaths()) return FALSE; // only stick objects into the document if some were converted if(ObjectsConverted > 0) { // check that there were at least two pages if(Pages.GetCount() < 1) { TRACEUSER( "Ben", _T("not enough pages in file\n")); CDRFILTER_DI_RETURNERROR; } // get the pointer to the list of levels on the master pages CDRLayerList *MasterLayers; CDRPageListItem *En = (CDRPageListItem *)Pages.GetHead(); if(En == 0) CDRFILTER_DI_RETURNERROR; MasterLayers = &En->Layers; // get the list of levels on the actual page CDRLayerList *PageLayers; En = (CDRPageListItem *)Pages.GetNext(En); if(Version != CDRVERSION_3) { if(En == 0) CDRFILTER_DI_RETURNERROR; PageLayers = &En->Layers; // check that they have the same number of layers in their lists if(MasterLayers->GetCount() != PageLayers->GetCount()) { TRACEUSER( "Ben", _T("not the same number of layers on master page and on page\n")); CDRFILTER_DI_RETURNERROR; } } else { PageLayers = 0; } if(MasterLayers->GetCount() <= 0) CDRFILTER_DI_RETURNERROR; // if it's a CDR 3 file set the page size and translation things if(Version == CDRVERSION_3) { // set the page size? if(!DestDoc->IsImporting() && PageX > 0 && PageY > 0) { // Make the pasteboard an extra page width either side of the page and an extra // half page height above and below the page. That should be nicely proportional. INT32 ms = (PageX > PageY)?PageX:PageY; // we're opening the file, so set the page size if (pSpread) { BOOL ok = pSpread->SetPageSize(PageX, PageY, ms, 0, FALSE, TRUE); // Must set the origin of the grid to the bottom left corner of the // union rectangle of all pages on the spread as this is where the x,y // measurements are made from. DocRect PagesRect; NodeGrid* pGrid = pSpread->FindFirstDefaultGridInSpread(); ok = ok && pSpread->GetPagesRect(&PagesRect); if (pGrid) pGrid->SetOrigin(PagesRect.lox, PagesRect.loy); if (!ok) CDRFILTER_DI_RETURNERROR; } } DocRect PageRect = pPage->GetPageRect(); Origin = PageRect.lo; TranslateByX = Origin.x + (PageX / 2); TranslateByY = Origin.y + (PageY / 2); } // set up pointers to the layers CDRLayerListItem *MasterEn = (CDRLayerListItem *)MasterLayers->GetTail(); CDRLayerListItem *PageEn = 0; if(PageLayers != 0) PageEn = (CDRLayerListItem *)PageLayers->GetTail(); EndSlowJob(); BeginSlowJob(); // insert everything into the document if(UseLayers) { // go through inserting every layer which has sometime on it while(MasterEn != 0) { // check to see if we have objects to import if(MasterEn->Objects != 0 || (PageEn != 0 && PageEn->Objects != 0)) { // OK, we've got some objects to import, create a layer to put them in Layer *pLayer = new Layer(); if(pLayer == 0) CDRFILTER_DI_RETURNERROR; // set it's name and attributes pLayer->SetLayerID(MasterEn->Name); pLayer->SetVisible(MasterEn->IsVisible); pLayer->SetLocked(MasterEn->IsLocked); pLayer->SetActive(FALSE); pLayer->SetPrintable(TRUE); pLayer->SetBackground(FALSE); pLayer->SetOutline(FALSE); // stick objects below it Node *Objects = 0; if(MasterEn->Objects != 0) { Objects = MasterEn->Objects; MasterEn->LayerInDocument = TRUE; } else { Objects = PageEn->Objects; PageEn->LayerInDocument = TRUE; } ERROR3IF(Objects == 0, "Er, tried to make a layer for objects which didn't exist"); // attach the objects to the layer Objects->InsertChainSimple(pLayer, FIRSTCHILD); // if it's a CDR 3 file and translate it if(Version == CDRVERSION_3) { Trans2DMatrix Trans(TranslateByX, TranslateByY); pLayer->Transform(Trans); } // insert the layer... if (!Op->DoInsertNewNode(pLayer, (Node *)pSpread, LASTCHILD, TRUE)) { // It didn't work - delete the sub-tree we just created pLayer->CascadeDelete(); delete pLayer; pLayer = NULL; CDRFILTER_DI_RETURNERROR; } // make sure it's name is unique pLayer->EnsureUniqueLayerID(); // ... and finally optimise it's attributes if(!pLayer->OptimiseAttributes()) CDRFILTER_DI_RETURNERROR; } // get the next (previous) layer to import MasterEn = (CDRLayerListItem *)MasterLayers->GetPrev(MasterEn); if(PageEn != 0) PageEn = (CDRLayerListItem *)PageLayers->GetPrev(PageEn); } // get the insertation node set up DestDoc->ResetInsertionPosition(); } else { // get a group node to put everything in as we're not using layers here. NodeGroup *pGroup = new NodeGroup; if(pGroup == 0) CDRFILTER_DI_RETURNERROR; // run through the layers putting in the stuff - remember they're in reverse order while(MasterEn != 0) { TRACEUSER( "Ben", _T("Putting layer '%s' into document\n"), (TCHAR *)MasterEn->Name); // put the master pages objects onto this group if(MasterEn->Objects != 0) { MasterEn->Objects->InsertChainSimple(pGroup, LASTCHILD); MasterEn->LayerInDocument = TRUE; } // put the page objects into this group if(PageEn != 0 && PageEn->Objects != 0) { PageEn->Objects->InsertChainSimple(pGroup, LASTCHILD); PageEn->LayerInDocument = TRUE; } // get the next (previous) layer to import MasterEn = (CDRLayerListItem *)MasterLayers->GetPrev(MasterEn); if(PageEn != 0) PageEn = (CDRLayerListItem *)PageLayers->GetPrev(PageEn); } // if it's a CDR 3 file translate it if(Version == CDRVERSION_3) { Trans2DMatrix Trans(TranslateByX, TranslateByY); pGroup->Transform(Trans); } // check to see if the group node has more than one child // if it doesn't just insert the child and not the group, and then // delete the group node afterwards NodeRenderableBounded *InsertNode = pGroup; NodeRenderableBounded *FirstChild = (NodeRenderableBounded *)pGroup->FindFirstChild(); if(FirstChild != 0) { // if the first child hasn't got a sibling, then there's only one // child to the group, so just insert the child if(FirstChild->FindNext() == 0) InsertNode = FirstChild; } // and slap the group into the document if (!Op->DoInsertNewNode(InsertNode, pSpread, TRUE)) { // It didn't work - delete the sub-tree we just created pGroup->CascadeDelete(); delete pGroup; pGroup = NULL; CDRFILTER_DI_RETURNERROR; } if(InsertNode != pGroup) delete pGroup; // optimise the attributes in our nice new group if(!InsertNode->OptimiseAttributes()) CDRFILTER_DI_RETURNERROR; } } else { // if we were opening the document, then we need make a layer and set the insertation node if(!DestDoc->IsImporting()) { if (!MakeSureLayerExists(DestDoc)) CDRFILTER_DI_RETURNERROR; DestDoc->ResetInsertionPosition(); } } // add some standard colours if(!AddStandardColourSet(pDocument)) CDRFILTER_DI_RETURNERROR; // do a quick post import on it DestDoc->PostImport(); // find out how many dodgy objects were encountered along the way INT32 ObjNotConv = ObjectsFormatWrong + ObjectsUnknown; if(ObjNotConv > 0) { // tell the user that some objects couldn't be converted String_256 WarnMsg; WarnMsg.MakeMsg((ObjNotConv == 1)?_R(IDT_CDRFILTER_OBJWARNING1):_R(IDT_CDRFILTER_OBJWARNING), ObjNotConv); Error::SetError(0, WarnMsg, 0); InformWarning(); Error::ClearError(); } if(EnvelopesApproximated > 0) { // tell the user that some envelopes were approximated String_256 WarnMsg; WarnMsg.MakeMsg((EnvelopesApproximated == 1)?_R(IDT_CDRFILTER_ENVAPPROXWARNING1):_R(IDT_CDRFILTER_ENVAPPROXWARNING), EnvelopesApproximated); Error::SetError(0, WarnMsg, 0); InformWarning(); Error::ClearError(); } TRACEUSER( "Ben", _T("Do import finished\n")); return ClearUp(); }

ADDR CDRFilter::FindDataInObject (  cdrfOffsetHeader *  Header, WORD  Type )  [static]

returns the address of data of the given type in an objects with a standard offset header Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 25 03 95 Parameters: none  [INPUTS] Returns: error flag See also: Filter Definition at line 2931 of file cdrfiltr.cpp. { WORD *Types; WORD *Offsets; Types = (WORD *)(((BYTE *)Header) + CDRDATA_WORD(Header->TypesOffset)); Offsets = (WORD *)(((BYTE *)Header) + CDRDATA_WORD(Header->OffsetsOffset)); UINT32 l; for(l = 0; l < CDRDATA_WORD(Header->NOffsets); l++) { if(CDRDATA_WORD(Types[l]) == Type) { UINT32 Off = CDRDATA_WORD(Offsets[Header->NOffsets - l - 1]); if(Off > CDRDATA_WORD(Header->Size)) return 0; return (ADDR)(((BYTE *)Header) + Off); } } return 0; }

BOOL CDRFilter::GetCorelBBox (  NodeRenderableBounded *  pNode, DocRect *  BBox )  [static]

gets the Corel simple union bbox of an object Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 28 03 95 Parameters: converted  node (after transformation) and a pointer to bbox to fill in [INPUTS] Returns: error flag See also: Filter Definition at line 664 of file cdrfill.cpp. { if(pNode->IsKindOf(CC_RUNTIME_CLASS(NodePath))) { // ok, so it's a path. That means we can run through it to find out the simple // union of all points. That's cool. Nice of corel not to do proper bboxes, isn't // it? NodePath *pNodePath = (NodePath *)pNode; // get a pointer to the array of coords in the nice path INT32 NCoords = pNodePath->InkPath.GetNumCoords(); DocCoord *Coords = pNodePath->InkPath.GetCoordArray(); ERROR3IF(NCoords < 1, "Awooga! Trying to find a corel bbox of a path with less than one coord."); INT32 c; INT32 x0, y0, x1, y1; // initialise my bbox variables x0 = x1 = Coords[0].x; y0 = y1 = Coords[0].y; for(c = 1; c < NCoords; c++) { // update my bbox if(Coords[c].x < x0) x0 = Coords[c].x; if(Coords[c].y < y0) y0 = Coords[c].y; if(Coords[c].x > x1) x1 = Coords[c].x; if(Coords[c].y > y1) y1 = Coords[c].y; } // fill in *BBox BBox->lo.x = x0; BBox->lo.y = y0; BBox->hi.x = x1; BBox->hi.y = y1; } else { // if it's not a path object, ask the node what it's bounding box is - we'll just // have to make do with a *correct* bounding box instead of simply corel union. *BBox = pNode->GetBoundingRect(); } return TRUE; }

TCHAR * CDRFilter::GetFontName (  WORD  FontRef  )  [private]

finds a font name Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 27/04/95 Parameters: [INPUTS]  Returns: pointer to font name or 0 for not found See also: Definition at line 1789 of file cdrtext.cpp. { INT32 Size; cdrfFontDefn *FD = (cdrfFontDefn *)Fonts.Find(FontRef, &Size); if(Version == CDRVERSION_5) { if(FD != 0) return FD->Name; } else { cdrfFontDefnV4 *FD4 = (cdrfFontDefnV4 *)FD; if(FD4 != 0) return FD4->Name; } return 0; }

BOOL CDRFilter::GetMatrixFromTransform (  Matrix *  M, ADDR  Trans, INT32  Size, BOOL  TranslateForPage = TRUE )  [private]

given some transform data, works out a matrix. This ignores any 3D transforms, TransformConvertedObject should be used in preference. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 25 03 95 Parameters: the  node to transform, and the trfd chunk to transform it by [INPUTS] Returns: error flag See also: Filter Definition at line 2971 of file cdrfiltr.cpp. { // set up a matrix conversion object CDRTransformConvertor *Conv; // putting the convertors here is probably more efficicent than allocating // a new one in the heap as they're not very big at all CDRTransformConvertor5 Conv5; CDRTransformConvertor4 Conv4; CDRTransformConvertor3 Conv3; switch(Version) { case CDRVERSION_5: Conv = &Conv5; break; case CDRVERSION_4: Conv = &Conv4; break; case CDRVERSION_3: Conv = &Conv3; break; default: return FALSE; break; } // initialise the convertor object Conv->Init(Trans, Size); // set up the initial matrix which just converts to millipoints // note that these elements are in Corel order cdrMatrix Ma, Mb, Mt; BOOL DoneFirst = FALSE; // apply all the transformations in the chunk INT32 t; for(t = Conv->GetNTransforms() - 1; t >= 0; t--) { // check that the transform is a matrix - for now we can only do matrices if(Conv->GetTransformType(t) != CDRTRANSFORMTYPE_MATRIX) continue; if(DoneFirst) { // done the first matrix, so we need get the matrix into another one and then combine. // get the matrix if(!Conv->GetMatrix(&Mb, t)) return FALSE; // and combine it with the matrix we've already got Mt.a = (Mb.a * Ma.a) + (Mb.d * Ma.b); Mt.b = (Mb.b * Ma.a) + (Mb.e * Ma.b); Mt.c = (Mb.c * Ma.a) + (Mb.f * Ma.b) + Ma.c; Mt.d = (Mb.a * Ma.d) + (Mb.d * Ma.e); Mt.e = (Mb.b * Ma.d) + (Mb.e * Ma.e); Mt.f = (Mb.c * Ma.d) + (Mb.f * Ma.e) + Ma.f; Ma = Mt; } else { // just get the matrix if(!Conv->GetMatrix(&Ma, t)) return FALSE; DoneFirst = TRUE; } } // if we didn't get a matrix at all, knock up a quick dummy one if(!DoneFirst) { cdrMatrix Mx = {1, 0, 0, 0, 1, 0}; Ma = Mx; } // add in the translation bit if(TranslateForPage) { Ma.c += TranslateByX; Ma.f += TranslateByY; } // convert the final matrix into a Camelot matrix *M = Matrix(Ma.a, Ma.d, Ma.b, Ma.e, (INT32)Ma.c, (INT32)Ma.f); return TRUE; }

BOOL CDRFilter::GetObjCorelBBox (  NodeRenderableBounded *  pNode, DocRect *  BBox )  [private]

gets the corel bbox of a converted object, looking up the bbox of text objects Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 28 03 95 Parameters: converted  node (after transformation) and a pointer to bbox to fill in [INPUTS] Returns: error flag See also: Filter Definition at line 643 of file cdrfill.cpp. { if(IS_A(pNode, TextStory) && TextBBoxes.Find(pNode, BBox) == TRUE) return TRUE; return GetCorelBBox(pNode, BBox); }

BOOL CDRFilter::GetTextStyle3 (  CDRTextStyle *  TS, WORD  Style, CDRTextStyle *  BasedOn = 0 )  [private]

gets a style for version 3 text from the global text styles table Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 04/05/95 Parameters: none  [INPUTS] Returns: error flag See also: Definition at line 1285 of file cdrtext.cpp. { // copy in the default text style if(BasedOn == 0) *TS = CDRDefaultTextStyle; else *TS = *BasedOn; // if the styles chunk isn't present, return now if(FontStylesV3 == 0) return TRUE; // find the font definition cdrfFontStyleTableHeaderV3 *Hdr = (cdrfFontStyleTableHeaderV3 *)FontStylesV3; if(Style >= CDRDATA_WORD(Hdr->NOffsets)) return TRUE; // if there aren't enough entries to find this style cdrfFontStyleTableEntryV3 *En = (cdrfFontStyleTableEntryV3 *)(FontStylesV3 + CDRDATA_WORD(Hdr->Offsets[Style])); // convert it // find the font name /* if(FontTableV3 == 0) return FALSE; cdrfFontTableEntryV3 *FEn = (cdrfFontTableEntryV3 *)FontTableV3; for(INT32 l = 0; l < FontTableEntriesV3; l++) { if(FEn[l].Reference == En->FontRef) // don't need to bother with CDRDATA stuff { TS->FontName = (char *)FEn[l].Name; break; } } */ // store the font reference TS->FontReference = CDRDATA_DWORD(En->FontRef); TRACEUSER( "Ben", _T("Font reference = %d\n"), TS->FontReference); // font size TS->FontSize = CDRDATA_WORD(En->FontSize) * CDRCOORDS_TO_MILLIPOINTS; // style... INT32 S = CDRDATA_WORD(En->FontStyle) & cdrfFONTSTYLEV3_WEIGHT_MASK; switch(S) { case cdrfFONTSTYLEV3_WEIGHT_NORMAL: default: TS->Bold = FALSE; TS->Italic = FALSE; break; case cdrfFONTSTYLEV3_WEIGHT_BOLD: TS->Bold = TRUE; TS->Italic = FALSE; break; case cdrfFONTSTYLEV3_WEIGHT_ITALIC: TS->Bold = FALSE; TS->Italic = TRUE; break; case cdrfFONTSTYLEV3_WEIGHT_BOLDITALIC: TS->Bold = TRUE; TS->Italic = TRUE; break; } // super or subscriptness if((CDRDATA_WORD(En->FontStyle) & cdrfFONTSTYLEV3_FLAG_SUPERSCRIPT) != 0) { TS->Script = CDRSCRIPT_SUPER; } else if((CDRDATA_WORD(En->FontStyle) & cdrfFONTSTYLEV3_FLAG_SUPERSCRIPT) != 0) { TS->Script = CDRSCRIPT_SUB; } // the line spacing is a para wide thingy, so we need to reworkout the linespace value // the line spacing value is a percentage of 120% of the font size TS->LineSpace = (TS->FontSize * (12 * TS->ParaLineSpacePercent)) / 1000; return TRUE; }

BOOL CDRFilter::GetTextStyleFromCDRStyle (  CDRTextStyle *  TS, WORD  StyleRef, BOOL  SearchForParent = TRUE )  [private]

gets a text style from a CDR style. If it can't be found, you get the default text style. If SearchForParent is TRUE, the parent style of this style will be located Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 27/04/95 Parameters: [INPUTS]  Returns: error flag See also: Definition at line 1388 of file cdrtext.cpp. { // copy in the default text style *TS = CDRDefaultTextStyle; // find the style INT32 Size; cdrfTextStyleHdr *Hdr = (cdrfTextStyleHdr *)Styles.Find(StyleRef, &Size); if(Hdr == 0) return TRUE; // don't error if it can't be found // if necessary, search for the parent style... if(SearchForParent) { if(CDRDATA_WORD(Hdr->Hdr.ObjectType) < 0x7fff) { if(!GetTextStyleFromCDRStyle(TS, CDRDATA_WORD(Hdr->Hdr.ObjectType), FALSE)) return FALSE; } } // find the font size and stuff. cdrfTextStyleFont *FontStyle = (cdrfTextStyleFont *)FindDataInObject(&Hdr->Hdr, cdrfTEXTSTYLE_OFFSETTYPE_FONT); if(FontStyle != 0) { // set fontname /* TCHAR *FontName = GetFontName(CDRDATA_WORD(FontStyle->FontRef)); if(FontName != 0) TS->FontName = FontName; else TS->FontName = CDRDefaultFontName; */ // set font reference TS->FontReference = CDRDATA_WORD(FontStyle->FontRef); // set font size TS->FontSize = CDRDATA_WORD(FontStyle->FontSize) * CDRCOORDS_TO_MILLIPOINTS; // set font bold and italicness if(Version == CDRVERSION_5) { switch(CDRDATA_WORD(FontStyle->FontType)) { case cdrfFONTTYPE_BOLD: TS->Bold = TRUE; TS->Italic = FALSE; break; case cdrfFONTTYPE_ITALIC: TS->Bold = FALSE; TS->Italic = TRUE; break; case cdrfFONTTYPE_BOLDITALIC: TS->Bold = TRUE; TS->Italic = TRUE; break; default: TS->Bold = FALSE; TS->Italic = FALSE; break; } } else { switch(CDRDATA_WORD(FontStyle->FontType)) { case cdrfFONTTYPEV4_BOLD: TS->Bold = TRUE; TS->Italic = FALSE; break; case cdrfFONTTYPEV4_ITALIC: TS->Bold = FALSE; TS->Italic = TRUE; break; case cdrfFONTTYPEV4_BOLDITALIC: TS->Bold = TRUE; TS->Italic = TRUE; break; default: TS->Bold = FALSE; TS->Italic = FALSE; break; } } } // find the spacing info cdrfTextStyleSpacing *Spacing = (cdrfTextStyleSpacing *)FindDataInObject(&Hdr->Hdr, cdrfTEXTSTYLE_OFFSETTYPE_SPACING); if(Spacing != 0) { // set the paragraph line spacing TS->ParaLineSpacePercent = CDRDATA_SWORD(Spacing->LineSpacing); } // work out the line spacing for this thingy // the line spacing value is a percentage of 120% of the font size TS->LineSpace = (TS->FontSize * (12 * TS->ParaLineSpacePercent)) / 1000; // find the alignment cdrfTextStyleAlignment *Align = (cdrfTextStyleAlignment *)FindDataInObject(&Hdr->Hdr, cdrfTEXTSTYLE_OFFSETTYPE_ALIGNMENT); if(Align != 0) { switch(CDRDATA_WORD(Align->Alignment)) { case cdrfALIGNMENT_RIGHT: TS->Just = JRIGHT; break; case cdrfALIGNMENT_CENTRE: TS->Just = JCENTRE; break; case cdrfALIGNMENT_FULL: TS->Just = JFULL; break; default: TS->Just = JLEFT; break; } } return TRUE; }

BOOL CDRFilter::GetTextStyleFromChar4 (  CDRTextStyle *  TS, cdrfTextCharStyledV4 *  Char, CDRTextStyle *  BasedOn )  [private]

gets a text style from a styled version 4 text character Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 24 03 95 Parameters: none  [INPUTS] Returns: error flag See also: Definition at line 949 of file cdrtext.cpp. { if(BasedOn != 0) *TS = *BasedOn; else *TS = CDRDefaultTextStyle; // font name if((CDRDATA_WORD(Char->Changes) & cdrfSTYLECHANGEV4_FONTNAME) != 0) { /* TCHAR *FontName = GetFontName(Char->FontRef); if(FontName != 0) { TS->FontName = FontName; } */ TS->FontReference = CDRDATA_DWORD(Char->FontRef); } // font size if((CDRDATA_WORD(Char->Changes) & cdrfSTYLECHANGEV4_FONTSIZE) != 0) { if(CDRDATA_WORD(Char->FontSize) != 0) { TS->FontSize = CDRDATA_WORD(Char->FontSize) * CDRCOORDS_TO_MILLIPOINTS; } } // update line spacing TS->LineSpace = (TS->FontSize * (12 * TS->ParaLineSpacePercent)) / 1000; // weight if((CDRDATA_WORD(Char->Changes) & cdrfSTYLECHANGEV4_WEIGHT) != 0) { switch(CDRDATA_WORD(Char->FontType)) { case cdrfFONTTYPEV4_BOLD: TS->Bold = TRUE; TS->Italic = FALSE; break; case cdrfFONTTYPEV4_ITALIC: TS->Bold = FALSE; TS->Italic = TRUE; break; case cdrfFONTTYPEV4_BOLDITALIC: TS->Bold = TRUE; TS->Italic = TRUE; break; default: TS->Bold = FALSE; TS->Italic = FALSE; break; } } return TRUE; }

BOOL CDRFilter::GetTextStyleFromDefn (  CDRTextStyle *  TS, cdrfTextInfoFontDefn *  FontDefn, const CDRTextStyle *  BasedOn )  [private]

gets a font style from a font definition stored in a txsm chunk. Anything not defined comes from the BasedOn style. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 27/04/95 Parameters: [INPUTS]  Returns: error flag See also: Definition at line 1524 of file cdrtext.cpp. { // set up the defaults if(BasedOn != 0) *TS = *BasedOn; else *TS = CDRDefaultTextStyle; // add in things which are changed... if((CDRDATA_WORD(FontDefn->Changes) & cdrfTEXTINFODEFNCHANGES_FONT) != 0) { // change the font reference /* TCHAR *NewName = GetFontName(CDRDATA_WORD(FontDefn->FontRef)); if(NewName != 0) TS->FontName = NewName; */ TS->FontReference = CDRDATA_WORD(FontDefn->FontRef); } if((CDRDATA_WORD(FontDefn->Changes) & cdrfTEXTINFODEFNCHANGES_SIZE) != 0) { // new font size TS->FontSize = CDRDATA_WORD(FontDefn->FontSize) * CDRCOORDS_TO_MILLIPOINTS; } if((CDRDATA_WORD(FontDefn->Changes) & cdrfTEXTINFODEFNCHANGES_ATTR) != 0) { // weightness of the font if(CDRDATA_WORD(FontDefn->FontType) != 0) { // set font bold and italicness switch(CDRDATA_WORD(FontDefn->FontType)) { case cdrfFONTTYPE_BOLD: TS->Bold = TRUE; TS->Italic = FALSE; break; case cdrfFONTTYPE_ITALIC: TS->Bold = FALSE; TS->Italic = TRUE; break; case cdrfFONTTYPE_BOLDITALIC: TS->Bold = TRUE; TS->Italic = TRUE; break; default: TS->Bold = FALSE; TS->Italic = FALSE; break; } } // new attributes if(FontDefn->FontAttr.Underline != cdrfLINETYPE_NONE || FontDefn->FontAttr.Overline != cdrfLINETYPE_NONE || FontDefn->FontAttr.StrikeOut != cdrfLINETYPE_NONE) { TS->Underline = TRUE; } else { TS->Underline = FALSE; } switch(FontDefn->FontAttr.Placement) { default: TS->Script = CDRSCRIPT_NONE; break; case cdrfPLACEMENTTYPE_SUPERSCRIPT: TS->Script = CDRSCRIPT_SUPER; break; case cdrfPLACEMENTTYPE_SUBSCRIPT: TS->Script = CDRSCRIPT_SUB; break; } } // the line spacing is a para wide thingy, so we need to reworkout the linespace value // the line spacing value is a percentage of 120% of the font size TS->LineSpace = (TS->FontSize * (12 * TS->ParaLineSpacePercent)) / 1000; return TRUE; }

BOOL CDRFilter::HasCDRFileGotCMXFile (  PathName *  FileName, CCLexFile *  pFile = NULL )  [static]

to find out whether a CDR file has got a CMX file in it, and therefore whether the CMX filter should grab it instead of this one Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 20/08/96 Parameters: pathname  of file to check, or pointer to disk file [INPUTS] Returns: whether it has got a cmx file embedded in it Definition at line 5152 of file cdrfiltr.cpp. { CCDiskFile oTheFile; CCLexFile *pTheFile; INT32 pos; if(pFile == NULL) { if (!(oTheFile.open(*FileName, ios::in | ios::binary))) { TRACEUSER( "Ben", _T("couldn't open file to check it for CMX\n")); return FALSE; } pTheFile = &oTheFile; } else { pTheFile = pFile; pos = pFile->tellIn(); } // read in the file header, and check it's a riff file RIFFFile_Header Hdr; pTheFile->read(&Hdr, sizeof(Hdr)); if(Hdr.CK.ckID != RIFFTYPE_RIFF) return FALSE; // file is not a riff form UINT32 loc = sizeof(Hdr); // run through the thingys BOOL Found = FALSE; while(loc < Hdr.CK.ckSize) { RIFFck ck; pTheFile->read(&ck, sizeof(ck)); loc += sizeof(ck); if(ck.ckID == cdrT_cmx1) { // found the cmx section Found = TRUE; break; // we can stop now } // skip to start of next chunk loc += ck.ckSize; pTheFile->seekIn(loc); } // close it or clear up... if(pFile == NULL) { oTheFile.close(); } else { pFile->seekIn(pos); } return Found; }

INT32 CDRFilter::HowCompatible (  PathName &  Filename, ADDR  HeaderStart, UINT32  HeaderSize, UINT32  FileSize )  [virtual]

Examines a file to see how compatable it is with this filter. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 21 03 95 Parameters: As  for the Filter class [INPUTS] Returns: As for the Filter class See also: Filter Reimplemented from Filter. Definition at line 289 of file cdrfiltr.cpp. { PORTNOTE("byteorder", "TODO: Check byte ordering") BOOL ExtensionMatches = pOILFilter->DoesExtensionOfPathNameMatch(&Filename); // check for version 2 files if the extension matches... if (ExtensionMatches) { if(camStrncmp((char *)HeaderStart, "WL", 2) == 0) return 10; // a version 2.xx CDR file } // check for version 3 - 5 files... FOURCC FormType; FormType = RIFFFile::CheckRIFFHeader(HeaderStart, FileSize); Version = CDRVERSION_NULL; switch (FormType) { case cdrT_CDR: Version = CDRVERSION_3; break; case cdrT_CDR4: case cdrT_CDST: // version 4 template Version = CDRVERSION_4; break; case cdrT_CDR5: case cdrT_CDT5: Version = CDRVERSION_5; break; case cdrT_CDR6: case cdrT_CDT6: Version = CDRVERSION_6; break; default: break; } INT32 HowMuchWeLikedThisFile = 0; if(Version != CDRVERSION_NULL) { HowMuchWeLikedThisFile = 10; // loved the file // check to see if there is a CMX file embedded in there if(HasCDRFileGotCMXFile(&Filename)) { HowMuchWeLikedThisFile = 5; // didn't like it so much then -- let the CMX filter grab it } } return HowMuchWeLikedThisFile; }

BOOL CDRFilter::Init (  void   )  [virtual]

Initialisation. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 21 03 95 Parameters: As  for the Filter class [INPUTS] Returns: As for the Filter class See also: Filter Implements Filter. Definition at line 261 of file cdrfiltr.cpp. { // Get the OILFilter object pOILFilter = new CDROILFilter(this); if (pOILFilter == NULL) return FALSE; // make sure we'll complain about life if HowCompatable isn't called Version = CDRVERSION_NULL; // All ok return TRUE; }

BOOL CDRFilter::IsTransformJustMatrices (  ADDR  Trans, INT32  Size )  [private]

scans a transform chunk. Returns TRUE if the transform was just composed of matrices and unknown transforms. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 22/05/95 Parameters: trfd  chunk to examine [INPUTS] Returns: error flag See also: Filter Definition at line 3068 of file cdrfiltr.cpp. { // set up a matrix conversion object CDRTransformConvertor *Conv; // putting the convertors here is probably more efficicent than allocating // a new one in the heap as they're not very big at all CDRTransformConvertor5 Conv5; CDRTransformConvertor4 Conv4; CDRTransformConvertor3 Conv3; switch(Version) { case CDRVERSION_5: Conv = &Conv5; break; case CDRVERSION_4: Conv = &Conv4; break; case CDRVERSION_3: Conv = &Conv3; break; default: return FALSE; break; } // initialise the convertor object Conv->Init(Trans, Size); // check all the transformations in the chunk for(INT32 t = Conv->GetNTransforms() - 1; t >= 0; t--) { switch(Conv->GetTransformType(t)) { case CDRTRANSFORMTYPE_MATRIX: case CDRTRANSFORMTYPE_UNKNOWN: break; default: return FALSE; break; } } return TRUE; }

BOOL CDRFilter::MakeTextOnPathLinkList (   )  [private]

creates the list of paths which should be linked to text stories to get text on paths. Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 09/06/95 Parameters: -  [INPUTS] Returns: error flag See also: CDRFilter Definition at line 2545 of file cdrtext.cpp. { if(LinkTable == 0) return TRUE; // no link table, no list... // run through the table creating entries cdrfLinkTableHdr *Table = (cdrfLinkTableHdr *)LinkTable; INT32 Entries = CDRDATA_WORD(Table->Entries); WORD *Offsets = (WORD *)(LinkTable + CDRDATA_WORD(Table->OffsetsOffset)); if(Version != CDRVERSION_3) { // make for versions 4 and 5 for(INT32 l = 0; l < Entries; l++) { cdrfLinkTableEntryTextOnPath *En = (cdrfLinkTableEntryTextOnPath *)(LinkTable + CDRDATA_WORD(Offsets[l])); if(En->Type == cdrfLINKTABLEENTRY_TEXTONPATH) { // make a new list item for this thingy CDRTextOnPathLink *Item = new CDRTextOnPathLink; if(Item == 0) return FALSE; // pop in the serial numbers Item->PathSerialNumber = CDRDATA_WORD(En->PathSerialNumber); Item->TextSerialNumber = CDRDATA_WORD(En->TextSerialNumber); // add the item to the list TextOnPathLinks.AddTail(Item); } } } else { // make for version 3 for(INT32 l = 0; l < Entries; l++) { cdrfLinkTableEntryTextOnPathV3 *En = (cdrfLinkTableEntryTextOnPathV3 *)(LinkTable + CDRDATA_WORD(Offsets[l])); if(En->Type == cdrfLINKTABLEENTRYV3_TEXTONPATH) { // make a new list item for this thingy CDRTextOnPathLink *Item = new CDRTextOnPathLink; if(Item == 0) return FALSE; // pop in the serial numbers Item->PathSerialNumber = CDRDATA_WORD(En->PathSerialNumber); Item->TextSerialNumber = CDRDATA_WORD(En->TextSerialNumber); // add the item to the list TextOnPathLinks.AddTail(Item); } } } return TRUE; }

BOOL CDRFilter::NoFill (  void   )  [private]

makes an object not filled Author: Ben_Summers (Xara Group Ltd) <camelotdev@xara.com> Date: 24/04/95 Parameters: -  [INPUTS] Returns: error flag See also: Filter Definition at line 272 of file cdrfill.cpp. { if(pMadeNode->IsKindOf(CC_RUNTIME_CLASS(NodePath))) { NodePath *pPath = (NodePath *)pMadeNode; pPath->InkPath.IsFilled = FALSE; } ObjFilled = FALSE; SetFillColour(DocColour(COLOUR_TRANS)); return SetPathFilled(FALSE); }