// Colored table
void FancyTable(wxArrayString& header, wxArrayPtrVoid& data)
{
// Colors, line width and bold font
SetFillColour(wxColour(255,0,0));
SetTextColour(255);
SetDrawColour(wxColour(128,0,0));
SetLineWidth(.3);
SetFont(wxS(""),wxS("B"));
//Header
double w[4] = {40,35,40,45};
size_t i;
for (i = 0; i < header.GetCount(); i++)
{
Cell(w[i],7,header[i],wxPDF_BORDER_FRAME, 0, wxPDF_ALIGN_CENTER, 1);
}
Ln();
// Color and font restoration
SetFillColour(wxColour(224,235,255));
SetTextColour(0);
SetFont(wxS(""));
// Data
int fill = 0;
size_t j;
for (j = 0; j < data.GetCount(); j++)
{
wxArrayString* row = (wxArrayString*) data[j];
Cell(w[0],6,(*row)[0],wxPDF_BORDER_LEFT | wxPDF_BORDER_RIGHT,0,wxPDF_ALIGN_LEFT,fill);
Cell(w[1],6,(*row)[1],wxPDF_BORDER_LEFT | wxPDF_BORDER_RIGHT,0,wxPDF_ALIGN_LEFT,fill);
Cell(w[2],6,(*row)[2],wxPDF_BORDER_LEFT | wxPDF_BORDER_RIGHT,0,wxPDF_ALIGN_RIGHT,fill);
Cell(w[3],6,(*row)[3],wxPDF_BORDER_LEFT | wxPDF_BORDER_RIGHT,0,wxPDF_ALIGN_RIGHT,fill);
Ln();
fill = 1 - fill;
}
Cell((w[0]+w[1]+w[2]+w[3]),0,wxS(""),wxPDF_BORDER_TOP);
}
BOOL CDRFilter::AddAttributesToArrowheadPath(NodePath *P, DocColour *Col, INT32 LineWidth,
LineCapType Cap, JointType Join)
{
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;
}
XFSpectrumDataSerie& XFSpectrumDataSerie::operator=(XFSpectrumDataSerie& Right)
{
if(this == &Right) return *this;
m_pTCpxSpectrum = Right.m_pTCpxSpectrum;
m_unSpectrumLength = Right.m_unSpectrumLength;
m_nHandlerType = Right.m_nHandlerType;
m_dbRate = Right.m_dbRate;
m_pfcpxGll = Right.m_pfcpxGll;
m_pfcpxGrr = Right.m_pfcpxGrr;
m_pfcpxGlr = Right.m_pfcpxGlr;
m_pfcpxC = Right.m_pfcpxC;
SetLineColour(Right.GetLineColour());
SetFillColour(Right.GetFillColour());
Show(Right.IsShown());
return *this;
}
BOOL FreeHandEPSFilter::ProcessToken()
{
// Decode the command, and execute it...
switch (Token)
{
// state saving
case EPSC_vms:
if(!Import_gsave())
return FALSE;
break;
case EPSC_vmr:
if(!Import_grestore())
return FALSE;
break;
case EPSC_vmrs:
if(!Import_grestore())
return FALSE;
if(!Import_gsave())
return FALSE;
break;
// tokens to ignore
case EPSC_FREEHAND_IGNOREDTOKEN:
break;
// tokens which should be ignored and one entry discarded
case EPSC_load: // the load part of a fill - discard the /clipper before it
case EPSC_fhsetspreadallow:
if(!Stack.Discard(1))
goto EPSError;
break;
case EPSC_concat:
if(!Stack.DiscardArray())
goto EPSError;
break;
// complex paths...
case EPSC_eomode:
{
INT32 ComplexStart;
if(!Stack.Pop(&ComplexStart))
goto EPSError;
// is this a start of a complex path?
if(ComplexStart != TRUE)
{
ComplexPathMode = FALSE;
}
else
{
HadFirstOfComplexPath = FALSE;
ComplexPathMode = TRUE;
}
}
break;
case EPSC_true:
Stack.Push((INT32)TRUE);
break;
case EPSC_false:
Stack.Push((INT32)FALSE);
break;
case EPSC_u:
HadFirstOfComplexPath = FALSE;
return EPSFilter::ProcessToken();
break;
// colours
case EPSC_Ka:
case EPSC_ka:
{
DocColour Colour;
if(PopColour(&Colour))
{
// Remember this colour for future objects
if (Token == EPSC_ka)
{
if (!SetFillColour(Colour))
goto NoMemory;
}
else
{
if (!SetLineColour(Colour))
goto NoMemory;
}
}
else
// Invalid colour operands
goto EPSError;
}
break;
case EPSC_Xa:
case EPSC_xa:
{
DocColour Colour;
if(PopNamedColour(&Colour))
{
// Remember this colour for future objects
if (Token == EPSC_xa)
{
if (!SetFillColour(Colour))
goto NoMemory;
}
else
{
if (!SetLineColour(Colour))
goto NoMemory;
}
}
else
// Invalid colour operands
goto EPSError;
}
break;
case EPSC_H:
if(ComplexPathMode)
{
// in complex path mode - make this a filled one, not a discarded one
Token = EPSC_S;
}
return EPSFilter::ProcessToken();
break;
case EPSC_h:
if(ComplexPathMode)
{
// in complex path mode - modify and process
Token = EPSC_s;
return EPSFilter::ProcessToken();
break;
}
// the hidden path closing operator - a grad fill thingy will follow shortly maybe...
// this will prevent it being processed now, although it may get processed later on.
HadhToken = TRUE;
break;
// for clipping masks, do some funky stuff
case EPSC_q:
// if there's a pending grad fill...
if(DoingGradFill)
{
if(pPath != 0)
{
// right then, make a copy of the path...
NodePath *pPathClone;
if(!pPath->NodeCopy((Node **)&pPathClone))
{
goto NoMemory;
}
// copy the flags
EPSFlagsDefn EPSFlagsClone = EPSFlags;
// send a token to finish and fill the path...
Token = (pInkPath->IsFilled)?EPSC_f:EPSC_s;
if(!EPSFilter::ProcessToken())
return FALSE;
// restore the old fill
if(!RestoreCurrentFill())
goto NoMemory;
// restore the copy of the path
pPath = pPathClone;
pInkPath = &pPath->InkPath;
// restore the flags
EPSFlags = EPSFlagsClone;
// definately want to send an h
HadhToken = TRUE;
}
// done the grad fill
DoingGradFill = FALSE;
// restore the old token
Token = EPSC_q;
}
// clipping started - have we got an h token to send?
if(HadhToken)
FHEF_SENDh
// process this
return EPSFilter::ProcessToken();
break;
// for now, if there's no path, don't return a W
case EPSC_W:
if(pPath == 0)
{
// OK, now we want to get the last path we created, make a copy of it and then install it as the current one
if(pLastPathSeen == 0)
goto EPSError;
// make a copy of it
NodePath *pClone;
if(!pLastPathSeen->NodeCopy((Node **)&pClone))
goto NoMemory;
// delete it's attributes
pClone->DeleteChildren(pClone->FindFirstChild());
// make it the current path
pPath = pClone;
pInkPath = &pPath->InkPath;
ThePathType = PATH_NORMAL;
EPSFlags.NoAttributes = TRUE;
}
if(pPath != 0)
return EPSFilter::ProcessToken();
break;
// we may need to modify path closing things if we're doing a grad fill
case EPSC_s:
case EPSC_S:
if(Token == EPSC_S)
{
// if we've had an h token but no grad fill, send the h now
if(HadhToken)
FHEF_SENDh
// if we've got a grad fill, modify the token we got
if(DoingGradFill)
Token = EPSC_b;
}
// process the possily modified token normally
HadhToken = FALSE;
return EPSFilter::ProcessToken();
break;
// modify path closing for grad fills.
case EPSC_n:
if(DoingGradFill)
{
Token = EPSC_f; // we want to fill the thing
HadhToken = FALSE;
return EPSFilter::ProcessToken();
break;
}
HadhToken = FALSE; // ignore h's as this is another end path thingy...
if(pPath != 0)
return EPSFilter::ProcessToken();
break;
// unset the had h token for other path closing things
case EPSC_N:
case EPSC_F:
case EPSC_f:
case EPSC_B:
case EPSC_b:
HadhToken = FALSE;
return EPSFilter::ProcessToken();
break;
// interested in path element things to switch off grad fills
case EPSC_m:
if(InText)
{
// if we're doing some text, discard the moveto command
if(!Stack.Discard(2))
goto EPSError;
break;
}
case EPSC_l:
case EPSC_L:
case EPSC_c:
case EPSC_C:
case EPSC_v:
case EPSC_V:
case EPSC_y:
case EPSC_Y:
// maybe we need an h token to be sent
if(HadhToken)
FHEF_SENDh
// stop grad fill
if(DoingGradFill)
{
// turn the grad fill state off
DoingGradFill = FALSE;
// restore the old fill type
RestoreCurrentFill();
}
return EPSFilter::ProcessToken();
break;
case EPSC_recfill:
{
// get the colours
DocColour StartColour, EndColour;
if(!PopColour(&EndColour) ||
!PopColour(&StartColour))
goto EPSError;
// discard the fill type thingy - we can only do colours
if(!DiscardFillSubType())
goto EPSError;
// OK, now a few coords
DocCoord Centre;
double Angle;
DocRect BBox;
if(!Stack.PopCoordPair(&BBox.hi) ||
!Stack.PopCoordPair(&BBox.lo) ||
!Stack.Pop(&Angle) ||
!Stack.PopCoordPair(&Centre))
goto EPSError;
// munge the angle a little and get it into radians
Angle += 225;
Angle = (Angle * (2 * PI)) / 360;
// see if we can get a more accurate BBox
if(pPath != 0)
{
BBox = pPath->GetBoundingRect();
Centre.x = BBox.lo.x + (BBox.Width() / 2);
Centre.y = BBox.lo.y + (BBox.Height() / 2);
}
// OK, we've got all the stuff we need to do some niceness on it
BBox.Translate(0 - Centre.x, 0 - Centre.y);
DocCoord StartPoint, EndPoint;
StartPoint.x = Centre.x + (INT32)(((double)BBox.lo.x * cos(Angle)) - ((double)BBox.lo.y * sin(Angle)));
StartPoint.y = Centre.y + (INT32)(((double)BBox.lo.x * sin(Angle)) + ((double)BBox.lo.y * cos(Angle)));
EndPoint.x = Centre.x + (INT32)(((double)BBox.hi.x * cos(Angle)) - ((double)BBox.hi.y * sin(Angle)));
EndPoint.y = Centre.y + (INT32)(((double)BBox.hi.x * sin(Angle)) + ((double)BBox.hi.y * cos(Angle)));
// store current fill attribute
SaveCurrentFill();
// set the fill
if(!SetLinearFill(StartColour, EndColour, StartPoint, EndPoint))
goto NoMemory;
// say we're doing a grad fill
DoingGradFill = TRUE;
HadhToken = FALSE; // absorb this
}
break;
case EPSC_radfill:
{
// get the colours
DocColour StartColour, EndColour;
if(!PopColour(&StartColour) ||
!PopColour(&EndColour))
goto EPSError;
// get the radius and centre coordinate
DocCoord Centre;
INT32 Radius;
if(!Stack.PopCoord(&Radius) ||
!Stack.PopCoordPair(&Centre))
goto EPSError;
// store current fill attribute
SaveCurrentFill();
// set the fill
DocCoord EndPoint(Centre.x + Radius, Centre.y);
if(!SetRadialFill(StartColour, EndColour, Centre, EndPoint))
goto NoMemory;
// say we're doing a grad fill
DoingGradFill = TRUE;
HadhToken = FALSE;
}
break;
case EPSC_BeginSetup:
// there's probably a colour list or something in that there setup thingy - search for the spots token
{
BOOL Found = FALSE;
while(Found == FALSE)
{
if(!EPSFile->GetToken())
return FALSE;
if(EPSFile->GetTokenType() == TOKEN_NORMAL)
{
if(camStrcmp(TokenBuf, _T("spots")) == 0)
{
// check to see if the array is about to start
if(!EPSFile->GetToken())
return FALSE;
if(TokenBuf[0] == '[')
{
TRACEUSER( "Ben", _T("Found spots\n"));
Found = TRUE;
}
}
}
if(camStrncmp(TokenBuf, _T("%%EndSetup"), 10) == 0)
{
TRACEUSER( "Ben", _T("Met end of setup without finding spots\n"));
break;
}
if(EPSFile->eof())
goto EPSError;
}
if(Found == TRUE)
{
InColours = TRUE;
}
}
break;
case EPSC_def:
if(InColours)
{
// finished the colours...
TRACEUSER( "Ben", _T("Finished spot colours\n"));
// scan for the end of the setup section
BOOL Found = FALSE;
while(Found == FALSE)
{
if(!EPSFile->GetToken())
return FALSE;
if(EPSFile->GetTokenType() == TOKEN_COMMENT)
{
if(camStrncmp(TokenBuf, _T("%%EndSetup"), 10) == 0)
{
TRACEUSER( "Ben", _T("Found end of setup\n"));
Found = TRUE;
}
}
if(EPSFile->eof())
goto EPSError;
}
// get the ] off the stack
EPSCommand Ignored;
Stack.PopCmd(&Ignored);
// empty it...
Stack.DeleteAll ();
InColours = FALSE;
}
else
{
// probably a font type thingy - empty the stack including commands
Stack.DeleteAll ();
}
break;
case EPSC_newcmykcustomcolor:
// OK, here's a named colour... add it to those known
{
// discard some random thingy
if(!Stack.Discard())
goto EPSError;
// get the name
String_64 ColourName;
if(!Stack.Pop(&ColourName))
goto EPSError;
// get the components
double C, M, Y, K;
if(!Stack.Pop(&K) ||
!Stack.Pop(&Y) ||
!Stack.Pop(&M) ||
!Stack.Pop(&C))
goto EPSError;
// make the new colour
ColourCMYK Colour;
Colour.Cyan = C;
Colour.Magenta = M;
Colour.Yellow = Y;
Colour.Key = K;
// add it
if(!pNewColours->AddColour(&ColourName, &Colour))
goto NoMemory;
// add it to the list of colours
// this is a bit of a bodge, but never mind. Shouldn't be that bad.
IndexedColour *TheNewColour = pNewColours->GetColour(ColourName);
if(TheNewColour == 0)
goto NoMemory;
// add it to the list of colours
// enough space?
if((ColourArrayEntries + 1) >= ColourArraySize)
{
TRACEUSER( "Ben", _T("Extening colour array\n"));
IndexedColour **NewPtr = (IndexedColour **)CCRealloc(ColourArray, (ColourArraySize + FHEF_COLOURARRAY_CHUNK) * sizeof(IndexedColour *));
if(NewPtr == 0)
goto NoMemory;
ColourArray = NewPtr;
ColourArraySize += FHEF_COLOURARRAY_CHUNK;
}
// add
ColourArray[ColourArrayEntries] = TheNewColour;
ColourArrayEntries++;
}
break;
// ignore text stuff
case EPSC_makesetfont:
if(!Stack.DiscardArray())
goto EPSError;
if(!Stack.Discard(1))
goto EPSError;
InText = TRUE;
break;
case EPSC_ts:
if(!Stack.Discard(6))
goto EPSError;
break;
case EPSC_stob:
case EPSC_sts:
Stack.DeleteAll ();
InText = FALSE;
break;
default:
// Token not understood - pass on to base class
return EPSFilter::ProcessToken();
}
// No errors encountered while parsing this token and its operands.
return TRUE;
// Error handlers:
EPSError:
HandleEPSError();
return FALSE;
NoMemory:
HandleNoMemory();
return FALSE;
}
