/*
 * Copyright (c) 1990, 1991 Stanford University
 *
 * Permission to use, copy, modify, distribute, and sell this software and its
 * documentation for any purpose is hereby granted without fee, provided
 * that the above copyright notice appear in all copies and that both that
 * copyright notice and this permission notice appear in supporting
 * documentation, and that the name of Stanford not be used in advertising or
 * publicity pertaining to distribution of the software without specific,
 * written prior permission.  Stanford makes no representations about
 * the suitability of this software for any purpose.  It is provided "as is"
 * without express or implied warranty.
 *
 * STANFORD DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
 * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS.
 * IN NO EVENT SHALL STANFORD BE LIABLE FOR ANY SPECIAL, INDIRECT OR
 * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR
 * OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
 * WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

/*
 * IdrawCatalog implementation.
 */

#include "idarrow.h"
#include "idarrows.h"
#include "idcatalog.h"
#include "idclasses.h"
#include "idcomp.h"

#include <Unidraw/Components/ellipse.h>
#include <Unidraw/Components/polygon.h>
#include <Unidraw/Components/psformat.h>
#include <Unidraw/Components/rastercomp.h>
#include <Unidraw/Components/rect.h>
#include <Unidraw/Components/stencilcomp.h>
#include <Unidraw/Components/text.h>

#include <Unidraw/Graphic/ellipses.h>
#include <Unidraw/Graphic/polygons.h>
#include <Unidraw/Graphic/rasterrect.h>
#include <Unidraw/Graphic/ustencil.h>

#include <InterViews/bitmap.h>
#include <InterViews/raster.h>
#include <InterViews/textbuffer.h>
#include <InterViews/transformer.h>

#include <OS/math.h>

#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <stream.h>
#include <string.h>
#include <fstream.h>

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

// octal converts a string of three octal digits to a character.

static char octal(const char* p) {
    char c = *p - '0';
    c = c*8 + *++p - '0';
    c = c*8 + *++p - '0';
    return c;
}

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

char IdrawCatalog::_buf[CHARBUFSIZE];
float IdrawCatalog::_psversion;

IdrawCatalog::IdrawCatalog (
    const char* name, Creator* creator
) : Catalog(name, creator) {
    _psversion = PSV_ORIGINAL;
}

boolean IdrawCatalog::Save (EditorInfo* o, const char* name) {
    return Catalog::Save(o, name);
}

boolean IdrawCatalog::Save (Command* o, const char* name) {
    return Catalog::Save(o, name);
}

boolean IdrawCatalog::Save (Tool* o, const char* name) {
    return Catalog::Save(o, name);
}

boolean IdrawCatalog::Retrieve (const char* name, EditorInfo*& o) {
    return Catalog::Retrieve(name, o);
}

boolean IdrawCatalog::Retrieve (const char* name, Command*& o) {
    return Catalog::Retrieve(name, o);
}

boolean IdrawCatalog::Retrieve (const char* name, Tool*& o) {
    return Catalog::Retrieve(name, o);
}

boolean IdrawCatalog::Save (Component* comp, const char* name) {
    boolean ok = false;

    if (UnidrawFormat(name)) {
        ok = Catalog::Save(comp, name);

    } else {
        ExternView* ev = (ExternView*) comp->Create(POSTSCRIPT_VIEW);

        if (ev != nil) {
            filebuf fbuf;
            ok = fbuf.open(name, output) != 0;

            if (ok) {
                ostream out(&fbuf);
                comp->Attach(ev);
                ev->Update();
                ok = ev->Emit(out);

                if (ok) {
                    Forget(comp, name);
                    Register(comp, name);
                }
            }
            delete ev;
        }
    }
    return ok;
}

boolean IdrawCatalog::Retrieve (const char* name, Component*& comp) {
    if (Valid(name, comp)) {
        _valid = true;

    } else if (UnidrawFormat(name)) {
        _valid = Catalog::Retrieve(name, comp);

    } else {
        filebuf fbuf;
        _valid = fbuf.open(name, input) != 0;

        if (_valid) {
            istream in(&fbuf);
            comp = ReadPostScript(in);

            if (_valid) {
                Forget(comp, name);
                Register(comp, name);
            }
        }
    }
    return _valid;
}

boolean IdrawCatalog::UnidrawFormat (const char* name) {
    filebuf fbuf;
    boolean unidraw_format = false;

    if (fbuf.open(name, input) != 0) {
        istream in(&fbuf);

        Skip(in);
        in >> _buf;

        if (strcmp(_buf, "Unidraw") == 0) {
            unidraw_format = true;
        }
    }
    fbuf.close();
    return unidraw_format;
}

GraphicComp* IdrawCatalog::ReadPostScript (istream& in) {
    Skip(in);
    in >> _buf >> _psversion;

    if (_psversion > PSV_LATEST) {
        fprintf(stderr, "warning: drawing version %f ", _psversion);
        fprintf(stderr, "newer than idraw version %f\n", PSV_LATEST);
    }

    float xincr, yincr;
    PSReadGridSpacing(in, xincr, yincr);
    IdrawComp* comp = new IdrawComp;
    comp->SetGridSpacing(xincr, yincr);

    if (_psversion < PSV_NONREDUNDANT) {
        Skip(in);
    }

    Graphic* g = comp->GetGraphic();
    Transformer* t = g->GetTransformer();

    PSReadPictGS(in, g);
    PSReadChildren(in, comp);
    ScaleToScreenCoords(g);

    if (_psversion < PSV_NONROTATED && t != nil && t->Rotated90()) {
        Transformer identity;
        *t = identity;
        g->Translate(0.0, -8.5*ivinches);
        g->Rotate(90.0, 0.0, 0.0);
        comp->Bequeath();
    }

    _valid = in.good();
    return comp;
}

/*
 * ScaleToScreenCoords scales the picture back to screen coordinates
 * if screen and Postscript inches are different.
 */

void IdrawCatalog::ScaleToScreenCoords (Graphic* g) {
    const double postscriptinch = 72.;

    if (ivinch != postscriptinch) {
	double toscreen = ivinch / postscriptinch;
	g->Scale(toscreen, toscreen);
    }
}

/*
 * reads data to initialize graphic comp and create children
 */

GraphicComp* IdrawCatalog::ReadPict (istream& in) {
    FullGraphic gs;
    PSReadPictGS(in, &gs);
    GraphicComp* pict = new GraphicComps;
    *pict->GetGraphic() = gs;
    PSReadChildren(in, pict);
    _valid = in.good();
    return pict;
}

/*
 * PSReadChildren loops determining which kind of Component follows and
 * creating it until it reads "end" which means all of the children
 * have been created.
*/

void IdrawCatalog::PSReadChildren (istream& in, GraphicComp* comp) {
    while (in.good()) {
	Skip(in);
	GraphicComp* child = nil;
	in >> _buf;

	if (strcmp(_buf, "BSpl") == 0) 		child = ReadBSpline(in);
	else if (strcmp(_buf, "Circ") == 0) 	child = ReadCircle(in);
	else if (strcmp(_buf, "CBSpl") == 0)    child = ReadClosedBSpline(in);
	else if (strcmp(_buf, "Elli") == 0)     child = ReadEllipse(in);
	else if (strcmp(_buf, "Line") == 0)     child = ReadLine(in);
	else if (strcmp(_buf, "MLine") == 0)    child = ReadMultiLine(in);
	else if (strcmp(_buf, "Pict") == 0)     child = ReadPict(in);
	else if (strcmp(_buf, "Poly") == 0)     child = ReadPolygon(in);
	else if (strcmp(_buf, "Rect") == 0)     child = ReadRect(in);
	else if (strcmp(_buf, "Text") == 0)     child = ReadText(in);
	else if (strcmp(_buf, "SSten") == 0)    child = ReadSStencil(in);
	else if (strcmp(_buf, "FSten") == 0)    child = ReadFStencil(in);
	else if (strcmp(_buf, "Rast") == 0)     child = ReadRaster(in);
	else if (strcmp(_buf, "ColorRast") ==0) {
	  child = nil; 
	  cerr << "Support for reading idraw PostScript with color-printer ready rasters not yet available.\n"; 
	}
	else if (strcmp(_buf, "eop") == 0)      break;

	else {
	    fprintf(stderr, "unknown graphical object %s, skipping\n", _buf);
	    continue;
	}

	if (child != nil) {
	    if (in.good()) {
		comp->Append(child);
	    } else {
		delete child;
	    }
	}
    }
}

/*
 * PSReadGridSpacing reads the grid spacing used by the drawing and
 * stores the new grid spacing value.  It must correct the default
 * grid spacing it gives to old drawings for an implementation botch
 * in InterViews 2.4 that calculated point's value incorrectly using
 * 72.07/inch instead of inch/72.27 (it was a botch in TWO ways).
 */

void IdrawCatalog::PSReadGridSpacing (istream& in, float& xincr, float& yincr){
    if (_psversion < PSV_GRIDSPACING) {
	const int oldspacing = 8;
	const double oldpoints = 72.07/ivinches;
	xincr = yincr = oldpoints * Math::round(oldspacing * oldpoints);

    } else {
	in >> _buf;

	if (strcmp(_buf, "Grid") == 0) {
 	    in >> xincr;

            if (_psversion < PSV_UNIDRAW) {
                yincr = xincr;
            } else {
                in >> yincr;
            }
	}
    }
}

/*
 * PSReadGS reads data to initialize the graphic for IdrawComps
 * which don't contain any text.
 */

void IdrawCatalog::PSReadGS (istream& in, Graphic* gs) {
    PSReadBrush(in, gs);

    if (_psversion >= PSV_FGANDBGCOLOR) {
	PSReadFgColor(in, gs);
	PSReadBgColor(in, gs);
	gs->SetFont(nil);

    } else if (_psversion >= PSV_FGCOLOR) {
	PSReadFgColor(in, gs);
	gs->SetColors(gs->GetFgColor(), pswhite);
	gs->SetFont(nil);

    } else {
	gs->SetColors(psblack, pswhite);
	PSReadFont(in, gs);
    }

    PSReadPattern(in, gs);
    PSReadTransformer(in, gs);
}

/*
 * PSReadPictGS reads data to initialize the state of GraphicComps
 * which may contain some text.
 */

void IdrawCatalog::PSReadPictGS (istream& in, Graphic* gs) {
    PSReadBrush(in, gs);

    if (_psversion >= PSV_FGANDBGCOLOR) {
	PSReadFgColor(in, gs);
	PSReadBgColor(in, gs);

    } else if (_psversion >= PSV_FGCOLOR) {
	PSReadFgColor(in, gs);
	gs->SetColors(gs->GetFgColor(), nil);

    } else {
	gs->SetColors(nil, nil);
    }

    PSReadFont(in, gs);
    PSReadPattern(in, gs);
    PSReadTransformer(in, gs);
}

/*
 * PSReadTextGS reads data to initialize the graphic gs for
 * TextComp which doesn't need a brush or pattern.
 */

void IdrawCatalog::PSReadTextGS (istream& in, Graphic* gs) {
    if (_psversion >= PSV_FGCOLOR) {
	gs->SetBrush(nil);
	PSReadFgColor(in, gs);
	gs->SetColors(gs->GetFgColor(), nil);

    } else {
	PSReadBrush(in, gs);
	gs->SetColors(psblack, nil);
    }

    PSReadFont(in, gs);

    if (_psversion < PSV_NONREDUNDANT) {
	PSReadPattern(in, gs);
	PSPattern* pattern = gs->GetPattern();
	float graylevel = pattern->GetGrayLevel();
	const char* c = "Black";
	int r = 0, g = 0, b = 0;

	if (graylevel != 0 && graylevel != -1) {
	    if (graylevel == 1) {
		c = "White";
		r = g = b = 65535;
	    } else {
		c = "Gray";
		r = g = b = 49152;
	    }
	}

	PSColor* fgcolor = FindColor(c, r, g, b);
	gs->SetColors(fgcolor, nil);

    } else {
	gs->SetPattern(nil);
    }

    PSReadTransformer(in, gs);

    if (_psversion < PSV_TEXTOFFSET) {
        PSFont* f = gs->GetFont();
        float sep = f->GetLineHt() - f->Height() - 1;
        CorrectTextVPos(gs, sep);
    }
    PSFont* f = gs->GetFont();
    float sep = 1 - f->GetLineHt();
    CorrectTextVPos(gs, sep);
}

void IdrawCatalog::CorrectTextVPos (Graphic* gs, float sep) {
    PSFont* f = gs->GetFont();
    Transformer* t = gs->GetTransformer();
    float dx = 0., dy = sep;

    if (t != nil) {
        float x0, y0, x1, y1;
        t->Transform(0., 0., x0, y0);
        t->Transform(0., sep, x1, y1);
        dx = x1 - x0;
        dy = y1 - y0;
    }
    gs->Translate(dx, dy);
}

/*
 * PSReadBrush reads data to set the IdrawComp's brush.
 */

void IdrawCatalog::PSReadBrush (istream& in, Graphic* gs) {
    Skip(in);
    in >> _buf;

    if (_buf[0] == 'b') {
	char lookahead = 'u';
	boolean undefined = false;
	boolean none = false;
	int p = 0;
	float w = 0;
	int head = false;
	int tail = false;
 
	in >> lookahead;
	in.putback(lookahead);
	switch (lookahead) {
	case 'u':
	    undefined = true;
	    break;
	case 'n':
	    none = true;
	    break;
	default:
	    in >> p >> w >> head >> tail;
	    break;
	}

	_head = head;
	_tail = tail;

	if (undefined || !in.good()) {
	    gs->SetBrush(nil);

	} else {
            PSBrush* brush = none ? FindNoneBrush() : FindBrush(p,w);

	    gs->SetBrush(brush);
	}
    }
}

/*
 * PSReadFgColor reads data to set the IdrawComp's foreground color.
 */

void IdrawCatalog::PSReadFgColor (istream& in, Graphic* gs) {
    Skip(in);
    in >> _buf;

    if (
        _buf[0] == 'c' && (_buf[1] == 'f' || _psversion < PSV_FGANDBGCOLOR)
    ) {
	char lookahead = 'u';
	boolean undefined = false;
	char name[100];
	ColorIntensity r = 0, g = 0, b = 0;

	in >> lookahead; 
	in.putback(lookahead);

	if (lookahead == 'u') {
	    undefined = true;

	} else {		
	    in >> name;

	    if (_psversion >= PSV_FGANDBGCOLOR) {
		in >> r >> g >> b;
	    }
	}

	if (undefined || !in.good()) {
	    gs->SetColors(nil, gs->GetBgColor());

	} else {
	    int ir = Math::round(r * float(0xffff));
	    int ig = Math::round(g * float(0xffff));
	    int ib = Math::round(b * float(0xffff));

	    PSColor* fgcolor = FindColor(name, ir, ig, ib);
	    gs->SetColors(fgcolor, gs->GetBgColor());
	}
    }
}

/*
 * PSReadBgColor reads data to set the IdrawComp's background color.
 */

void IdrawCatalog::PSReadBgColor (istream& in, Graphic* gs) {
    Skip(in);
    in >> _buf;

    if (_buf[0] == 'c' && _buf[1] == 'b') {
	char lookahead = 'u';
	boolean undefined = false;
	char name[100];
	ColorIntensity r = 0, g = 0, b = 0;

	in >> lookahead;
	in.putback(lookahead);

	if (lookahead == 'u') {
	    undefined = true;
	} else {
	    in >> name >> r >> g >> b;
	}

	if (undefined || !in.good()) {
	    gs->SetColors(gs->GetFgColor(), nil);

	} else {
	    int ir = Math::round(r * float(0xffff));
	    int ig = Math::round(g * float(0xffff));
	    int ib = Math::round(b * float(0xffff));

	    PSColor* bgcolor = FindColor(name, ir, ig, ib);
	    gs->SetColors(gs->GetFgColor(), bgcolor);
	}
    }
}

/*
 * PSReadFont reads data to set the IdrawComp's font.
 */

void IdrawCatalog::PSReadFont (istream& in, Graphic* gs) {
    Skip(in);
    in >> _buf;

    if (_buf[0] == 'f') {
	char lookahead = 'u';
	boolean undefined = false;

	char name[CHARBUFSIZE];
	char printfont[CHARBUFSIZE];
	char printsize[CHARBUFSIZE];

	in >> lookahead;
	in.putback(lookahead);

	if (lookahead == 'u') {
	    undefined = true;

	} else {
	    in.get(name, CHARBUFSIZE);
	    in >> printfont;
	    in >> printsize;
	}

	if (undefined || !in.good()) {
	    gs->SetFont(nil);

	} else {
	    char* pf = printfont;
	    if (
		_psversion >= PSV_NONREDUNDANT
		&& _psversion < PSV_ISOLATIN1
	    ) {
		pf = &printfont[1];
	    }

	    PSFont* font = FindFont(name, pf, printsize);
	    gs->SetFont(font);
	}
    }
}

/*
 * CalcGrayLevel calculates a 4x4 bitmap's gray level on the printer.
 * Since the gray level ranges in 0 = solid to 1 = clear,
 * CalcGrayLevel counts the number of 0 bits in the bitmap and divides
 * the sum by the total number of bits in the bitmap.
 */

float IdrawCatalog::CalcGrayLevel (int seed) {
    const int numbits = 16;
    int numzeros = 0;

    for (int i = 0; i < numbits; i++) {
        numzeros += !((seed >> i) & 0x1);
    }
    return float(numzeros) / numbits;
}

/*
 * PSReadPattern reads data to set the IdrawComp's pattern.
 */

void IdrawCatalog::PSReadPattern (istream& in, Graphic* gs) {
    Skip(in);
    in >> _buf;

    if (_buf[0] == 'p') {
	char lookahead = 'u';
	boolean undefined = false;
	boolean none = false;
	float graylevel = 0;
	int data[patternHeight];
	int size = 0;

	in >> lookahead;

	switch (lookahead) {
	case 'u':
	    undefined = true;
	    break;
	case 'n':
	    none = true;
	    break;
	case '<':
	    graylevel = -1;
	    break;
	default:
	    in.putback(lookahead);
	    break;
	}

	if (!undefined && !none && graylevel != -1) {
	    if (_psversion >= PSV_FGANDBGCOLOR) {
		in >> graylevel;
	    } else {
		in >> data[0];
		graylevel = CalcGrayLevel(data[0]);
	    }
	} else if (graylevel == -1) {
	    int i;
	    for (i = 0; in >> _buf && i < patternHeight; i++) {
		if (_buf[0] == '>' || sscanf(_buf, "%x", &data[i]) != 1) {
		    break;
		}
	    }
	    if (_buf[0] == '>') {
		size = i;
	    } else {
		undefined = true;
	    }
	}

	if (undefined || !in.good()) {
	    gs->SetPattern(nil);
	} else {
            PSPattern* pattern;
            if (none) {
                pattern = FindNonePattern();
            } else if (graylevel == -1) {
	        pattern = FindPattern(data, size);
            } else {
	        pattern = FindGrayLevel(graylevel);
            }
	    gs->SetPattern(pattern);
	}
    }
}

/*
 * PSReadTransformer reads data to set the IdrawComp's transformation
 * matrix.
 */

void IdrawCatalog::PSReadTransformer (istream& in, Graphic* gs) {
    Skip(in);
    in >> _buf;

    if (_buf[0] == 't') {
	char uorbracket = 'u';
	boolean undefined = false;
	float a00, a01, a10, a11, a20, a21;

	in >> uorbracket;

	if (uorbracket == 'u') {
	    undefined = true;
	} else {
	    if (_psversion < PSV_NONREDUNDANT) {
		in.putback(uorbracket);
	    }
	    in >> a00 >> a01 >> a10 >> a11 >> a20 >> a21;
	}

	if (in.good() && !undefined) {
            Transformer* t = new Transformer(a00, a01, a10, a11, a20, a21);
	    gs->SetTransformer(t);
            Unref(t);
	}
    }
}

/*
 * PSReadPoints reads a set of points as efficiently as possible by
 * using dynamic static buffers instead of mallocing on every call.
 */

void IdrawCatalog::PSReadPoints (istream& in, const Coord*& x, const Coord*& y,
int& n) {
    const int INITIALSIZE = 15;
    static int sizepoints = 0;
    static Coord* xcoords = nil;
    static Coord* ycoords = nil;

    Skip(in);
    in >> n;

    if (n > sizepoints) {
        delete xcoords;
        delete ycoords;
        sizepoints = max(n, INITIALSIZE);
        xcoords = new Coord[sizepoints];
        ycoords = new Coord[sizepoints];
    }

    for (int i = 0; i < n; i++) {
        if (_psversion < PSV_NONREDUNDANT) {
            Skip(in);
        }
        in >> xcoords[i] >> ycoords[i];
    }

    x = xcoords;
    y = ycoords;
}

/*
 * ReadBSpline reads data to initialize its graphic comp and
 * create its components.
 */

GraphicComp* IdrawCatalog::ReadBSpline (istream& in) {
    FullGraphic gs;
    PSReadGS(in, &gs);
    Coord* x, *y;
    int n;

    const Coord* cx, * cy;
    PSReadPoints(in, cx, cy, n);
    x = (Coord*)cx; y = (Coord*)cy;

    float mag;
    if (_psversion < PSV_UNIDRAW) {
        mag = 1.;
    } else {
        Skip(in);
        in >> mag;
    }
    return new ArrowSplineComp(
        new ArrowOpenBSpline(x, y, n, _head, _tail, mag, &gs)
    );
}

/*
 * ReadClosedBSpline reads data to initialize its graphic comp
 * and create the closed B-spline's filled interior and outline.
 */

GraphicComp* IdrawCatalog::ReadClosedBSpline (istream& in) {
    FullGraphic gs;
    PSReadGS(in, &gs);
    Coord* x, *y;
    int n;

    const Coord* cx, * cy;
    PSReadPoints(in, cx, cy, n);
    x = (Coord*)cx; y = (Coord*)cy;
    return new ClosedSplineComp(new SFH_ClosedBSpline(x, y, n, &gs));
}

/*
 * ReadRect reads data to initialize its graphic comp and create
 * its filled interior and outline.
 */

GraphicComp* IdrawCatalog::ReadRect (istream& in) {
    FullGraphic gs;
    PSReadGS(in, &gs);
    Skip(in);
    Coord l, b, r, t;
    in >> l >> b >> r >> t;
    return new RectComp(new SF_Rect(l, b, r, t, &gs));
}

GraphicComp* IdrawCatalog::ReadPolygon (istream& in) {
    FullGraphic gs;
    PSReadGS(in, &gs);
    Coord* x, *y;
    int n;

    const Coord* cx, * cy;
    PSReadPoints(in, cx, cy, n);
    x = (Coord*)cx; y = (Coord*)cy;
    return new PolygonComp(new SF_Polygon(x, y, n, &gs));
}

/*
 * ReadLine reads data to initialize its graphic comp and create
 * its line.
 */

GraphicComp* IdrawCatalog::ReadLine (istream& in) {
    FullGraphic gs;
    PSReadGS(in, &gs);
    Skip(in);
    Coord x0, y0, x1, y1;
    in >> x0 >> y0 >> x1 >> y1;

    float mag;
    if (_psversion < PSV_UNIDRAW) {
        mag = 1.;
    } else {
        Skip(in);
        in >> mag;
    }
    return new ArrowLineComp(new ArrowLine(x0,y0,x1,y1,_head,_tail,mag,&gs));
}

/*
 * ReadMultiLine reads data to initialize its graphic comp and
 * create its components.
 */

GraphicComp* IdrawCatalog::ReadMultiLine (istream& in) {
    FullGraphic gs;
    PSReadGS(in, &gs);
    Coord* x, *y;
    int n;

    const Coord* cx, * cy;
    PSReadPoints(in, cx, cy, n);
    x = (Coord*)cx; y = (Coord*)cy;

    float mag;
    if (_psversion < PSV_UNIDRAW) {
        mag = 1.;
    } else {
        Skip(in);
        in >> mag;
    }
    return new ArrowMultiLineComp(
        new ArrowMultiLine(x, y, n, _head, _tail, mag, &gs)
    );
}

/*
 * ReadEllipse reads data to initialize its graphic comp and
 * create its filled interior and outline.
 */

GraphicComp* IdrawCatalog::ReadEllipse (istream& in) {
    FullGraphic gs;
    PSReadGS(in, &gs);
    Skip(in);
    Coord x0, y0;
    int rx, ry;
    in >> x0 >> y0 >> rx >> ry;
    return new EllipseComp(new SF_Ellipse(x0, y0, rx, ry, &gs));
}

/*
 * ReadCircle reads data to initialize its graphic comp and
 * create its filled interior and outline.
 */

GraphicComp* IdrawCatalog::ReadCircle (istream& in) {
    FullGraphic gs;
    PSReadGS(in, &gs);
    Skip(in);
    Coord x0, y0;
    int r;
    in >> x0 >> y0 >> r;
    return new EllipseComp(new SF_Circle(x0, y0, r, &gs));
}

/*
 * ReadText reads its graphic comp and text in a file.
 */

GraphicComp* IdrawCatalog::ReadText (istream& in) {
    FullGraphic gs;
    PSReadTextGS(in, &gs);
    PSReadTextData(in, sbuf, SBUFSIZE);

    int lineHt = 0;

    PSFont* f = gs.GetFont();
    if (f != nil) lineHt = f->GetLineHt();

    TextGraphic* tg = new TextGraphic(sbuf, lineHt, &gs); 
    tg->FillBg(false);
    return new TextComp(tg);
}

GraphicComp* IdrawCatalog::ReadSStencil (istream& in) {
    FullGraphic gs;
    PSReadFgColor(in, &gs);
    PSReadBgColor(in, &gs);
    PSReadTransformer(in, &gs);
    Skip(in);
    Coord w, h;
    in >> w >> h;

    Bitmap* bitmap = new Bitmap((void*) nil, w, h);
    ReadBitmapData(bitmap, in);

    return new StencilComp(new UStencil(bitmap, bitmap, &gs));
}

GraphicComp* IdrawCatalog::ReadFStencil (istream& in) {
    FullGraphic gs;
    PSReadFgColor(in, &gs);
    PSReadBgColor(in, &gs);
    PSReadTransformer(in, &gs);
    Skip(in);
    Coord w, h;
    in >> w >> h;

    Bitmap* bitmap = new Bitmap((void*) nil, w, h);
    ReadBitmapData(bitmap, in);

    return new StencilComp(new UStencil(bitmap, nil, &gs));
}

GraphicComp* IdrawCatalog::ReadRaster (istream& in) {
    FullGraphic gs;
    PSReadTransformer(in, &gs);
    Skip(in);
    Coord w, h;
    in >> w >> h;

    char* sync_string = "colorimage";
    int n = strlen(sync_string);

    while (GetToken(in, _buf, CHARBUFSIZE) != 0) {
        if (strncmp("colorimage", _buf, n) == 0) {
            break;
        }
    }

    Raster* raster = new Raster(w, h);
    // cerr << "w,h " << w << "," << h << "\n";
    ReadRasterData(raster, in);

    return new RasterComp(new RasterRect(raster, &gs));
}

/*
 * PSReadTextData reads and returns the text contained in the PostScript
 * representation of the ReadText.
 */

void IdrawCatalog::PSReadTextData (istream& in, char* sbuf, int len) {
    TextBuffer stext(sbuf, 0, len);
    char nl = '\n';
    char null = '\0';

    if (_psversion >= PSV_EIGHTBIT) {
	Skip(in);
	char c = ' ';
        int dot = 0;

	while (c != '[' && in.get(c));

	while (in >> c && c != ']') {
	    while (c != '(' && in.get(c));

	    while (in.get(c) && c != ')') {
		if (c == '\\') {
		    in.get(c);

		    if (isdigit(c)) {
			char buf[4];
			buf[0] = c;
			in.get(buf[1]);
			in.get(buf[2]);
			buf[3] = '\0';
			c = octal(buf);
		    }
		}
		dot += stext.Insert(dot, &c, 1);
	    }
	    dot += stext.Insert(dot, "\n", 1);
	}
	if (dot > 0) {
	    stext.Delete(--dot, 1); // buffer must not terminate in '\n'
	}
    
    } else if (_psversion >= PSV_NONREDUNDANT) {
	Skip(in);
	char c = ' ';
        int dot = 0;

	while (c != '[' && in.get(c));

	while (in >> c && c != ']') {
	    while (c != '(' && in.get(c));

	    while (in.get(c) && c != ')') {
		if (c == '\\') {
		    in.get(c);
		}
		stext.Insert(dot++, &c, 1);
	    }
	    stext.Insert(dot++, &nl, 1);
	}
	if (dot > 0) {
	    stext.Delete(--dot, 1); // buffer must not terminate in '\n'
	}

    } else {
        int dot = 0;

	while (in >> _buf && strcmp(_buf, MARK) == 0) {
	    char blank;
	    in.get(blank);
	    in.get(_buf, CHARBUFSIZE - 1);
	    int buflen = strlen(_buf) + 1;
	    _buf[buflen - 1] = '\n';
	    stext.Insert(dot, _buf, buflen);
	    dot += buflen;
	}
	if (dot > 0) {
	    stext.Delete(--dot, 1); // buffer must not terminate in '\n'
	}
    }
    stext.Insert(stext.Length(), &null, 1);
}