/*****************************************************************************
* DESCRIPTION: *
* Returns the color of an object. *
* *
* PARAMETERS: *
* PObj: Object to get its color. *
* RGB: as 3 floats in the domain [0, 1]. *
* *
* RETURN VALUE: *
* int: TRUE if object has color, FALSE otherwise. *
*****************************************************************************/
int CGSkelGetObjectColor(IPObjectStruct *PObj, double RGB[3])
{
static int TransColorTable[][4] = {
{ /* BLACK */ 0, 0, 0, 0 },
{ /* BLUE */ 1, 0, 0, 255 },
{ /* GREEN */ 2, 0, 255, 0 },
{ /* CYAN */ 3, 0, 255, 255 },
{ /* RED */ 4, 255, 0, 0 },
{ /* MAGENTA */ 5, 255, 0, 255 },
{ /* BROWN */ 6, 50, 0, 0 },
{ /* LIGHTGRAY */ 7, 127, 127, 127 },
{ /* DARKGRAY */ 8, 63, 63, 63 },
{ /* LIGHTBLUE */ 9, 0, 0, 255 },
{ /* LIGHTGREEN */ 10, 0, 255, 0 },
{ /* LIGHTCYAN */ 11, 0, 255, 255 },
{ /* LIGHTRED */ 12, 255, 0, 0 },
{ /* LIGHTMAGENTA */ 13, 255, 0, 255 },
{ /* YELLOW */ 14, 255, 255, 0 },
{ /* WHITE */ 15, 255, 255, 255 },
{ /* BROWN */ 20, 50, 0, 0 },
{ /* DARKGRAY */ 56, 63, 63, 63 },
{ /* LIGHTBLUE */ 57, 0, 0, 255 },
{ /* LIGHTGREEN */ 58, 0, 255, 0 },
{ /* LIGHTCYAN */ 59, 0, 255, 255 },
{ /* LIGHTRED */ 60, 255, 0, 0 },
{ /* LIGHTMAGENTA */ 61, 255, 0, 255 },
{ /* YELLOW */ 62, 255, 255, 0 },
{ /* WHITE */ 63, 255, 255, 255 },
{ -1, 0, 0, 0 }
};
int i, j, Color, RGBIColor[3];
if (AttrGetObjectRGBColor(PObj,
&RGBIColor[0], &RGBIColor[1], &RGBIColor[2])) {
for (i = 0; i < 3; i++)
RGB[i] = RGBIColor[i] / 255.0;
return TRUE;
}
else if ((Color = AttrGetObjectColor(PObj)) != IP_ATTR_NO_COLOR) {
for (i = 0; TransColorTable[i][0] >= 0; i++) {
if (TransColorTable[i][0] == Color) {
for (j = 0; j < 3; j++)
RGB[j] = TransColorTable[i][j+1] / 255.0;
return TRUE;
}
}
}
return FALSE;
}
/*****************************************************************************
* DESCRIPTION: *
* Call back function of IPTraverseObjListHierarchy. Called on every non *
* list object found in hierarchy. *
* *
* PARAMETERS: *
* PObj: Non list object to handle. *
* Mat: Transformation matrix to apply to this object. *
* *
* RETURN VALUE: *
* void *
*****************************************************************************/
static void DumpOneTraversedObject(IPObjectStruct *PObj, IrtHmgnMatType Mat)
{
int Color;
IPObjectStruct *PObjs;
if (IP_IS_FFGEOM_OBJ(PObj))
PObjs = IPConvertFreeForm(PObj, &IPFFCState); /* Convert in place. */
else
PObjs = PObj;
for (PObj = PObjs; PObj != NULL; PObj = PObj -> Pnext) {
if ((Color = AttrGetObjectColor(PObj)) != IP_ATTR_NO_COLOR)
fprintf(OutputFile, "SP%d;\n", Colors[Color]);
else
fprintf(OutputFile, "SP1;\n"); /* Black. */
DumpOneObject(OutputFile, PObj);
}
}
