steve@acorn.UUCP (Steve "daffy" Hunt) (10/26/88)
I received many requests for our fixed versions of cfbfillsp.c
and cfbgc.c. Here they are. Maybe I should be sending them
to comp.sources.x, but I see very little traffic there and I wonder
whether its widely circulated...
Anyway, the files. I decided to post them in their entirety
rather than as diffs because people who have altered
the things already will want as much context as possible.
I have wound back through the RCS to the revision where
this fix was made so as to eliminate confusion from other
changes. The two files follow. Sorry, I can't find a shar
or packmail right now, so I have just put cfbgc at the end of
this message and cfbfillsp.c in the next mesage.
Finally, the usual disclaimer; no-one involved in this is
going to take responsibility for anything! (Bug reports
very welcome though.)
To those who asked: yes, Acorn has other speedups to cfb and the
sample server in general. However, I don't know how much of it
I can give away without the wrath of those above descending upon
me...
Enjoy!
--- Steve Hunt, daffy@acorn.co.uk, daffy@acorn.UUCP
--------------------------------- cfbgc.c -----------------------------------
/***********************************************************
Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts,
and the Massachusetts Institute of Technology, Cambridge, Massachusetts.
All Rights Reserved
Permission to use, copy, modify, and distribute this software and its
documentation for any purpose and without fee is hereby granted,
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 names of Digital or MIT not be
used in advertising or publicity pertaining to distribution of the
software without specific, written prior permission.
DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
DIGITAL 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.
******************************************************************/
/* Pixmap tiling fixes by John Bowler and Steve Hunt, Acorn */
#include "X.h"
#include "Xmd.h"
#include "Xproto.h"
#include "dixfontstr.h"
#include "fontstruct.h"
#include "gcstruct.h"
#include "windowstr.h"
#include "pixmapstr.h"
#include "scrnintstr.h"
#include "region.h"
#include "cfb.h"
#include "mistruct.h"
#include "cfbmskbits.h"
extern cfbXRotatePixmap();
extern cfbYRotatePixmap();
extern void mfbPushPixels();
Bool
cfbCreateGC(pGC)
register GCPtr pGC;
{
GCInterestPtr pQ;
switch (pGC->depth) {
case 1:
return (mfbCreateGC(pGC));
case PSZ:
break;
default:
ErrorF("cfbCreateGC: unsupported depth: %d\n", pGC->depth);
return FALSE;
}
pGC->clientClip = NULL;
pGC->clientClipType = CT_NONE;
/*
* some of the output primitives aren't really necessary, since they
* will be filled in ValidateGC because of dix/CreateGC() setting all
* the change bits. Others are necessary because although they depend
* on being a color frame buffer, they don't change
*/
pGC->FillSpans = cfbSolidFS;
pGC->SetSpans = cfbSetSpans;
pGC->PutImage = miPutImage;
pGC->CopyArea = cfbCopyArea;
pGC->CopyPlane = miCopyPlane;
pGC->PolyPoint = miPolyPoint;
#ifdef notdef
pGC->Polylines = miNotMiter; /* Doesn't work for 0-width lines */
#else
pGC->Polylines = miZeroLine;
#endif notdef
pGC->PolySegment = miPolySegment;
pGC->PolyRectangle = miPolyRectangle;
pGC->PolyArc = miPolyArc;
pGC->FillPolygon = miFillPolygon;
pGC->PolyFillRect = miPolyFillRect;
pGC->PolyFillArc = miPolyFillArc;
pGC->PolyText8 = miPolyText8;
pGC->ImageText8 = miImageText8;
pGC->PolyText16 = miPolyText16;
pGC->ImageText16 = miImageText16;
pGC->ImageGlyphBlt = miImageGlyphBlt;
pGC->PolyGlyphBlt = miPolyGlyphBlt;
#ifdef notdef
pGC->PushPixels = miPushPixels; /* miPushPixels is garbage */
#else
pGC->PushPixels = mfbPushPixels; /* but mfbPushPixels isn't depth
* dependent */
#endif
pGC->LineHelper = miMiter;
pGC->ChangeClip = cfbChangeClip;
pGC->DestroyClip = cfbDestroyClip;
pGC->CopyClip = cfbCopyClip;
/* cfb wants to translate before scan convesion */
pGC->miTranslate = 1;
{
cfbPrivGC *pPriv;
pPriv = (cfbPrivGC *) Xalloc(sizeof(cfbPrivGC));
if (!pPriv)
return FALSE;
else {
pPriv->rop = pGC->alu;
pPriv->fExpose = TRUE;
pGC->devPriv = (pointer) pPriv;
pPriv->pRotatedTile = NullPixmap;
pPriv->pRotatedStipple = NullPixmap;
pPriv->pAbsClientRegion = (*pGC->pScreen->RegionCreate) (NULL, 1);
pPriv->pCompositeClip = (*pGC->pScreen->RegionCreate) (NULL, 1);
pPriv->freeCompClip = REPLACE_CC;
}
}
pQ = (GCInterestPtr) Xalloc(sizeof(GCInterestRec));
if (!pQ) {
Xfree(pGC->devPriv);
return FALSE;
}
/* Now link this device into the GCque */
pGC->pNextGCInterest = pQ;
pGC->pLastGCInterest = pQ;
pQ->pNextGCInterest = (GCInterestPtr) & pGC->pNextGCInterest;
pQ->pLastGCInterest = (GCInterestPtr) & pGC->pNextGCInterest;
pQ->length = sizeof(GCInterestRec);
pQ->owner = 0; /* server owns this */
pQ->ValInterestMask = ~0; /* interested in everything at validate
* time */
pQ->ValidateGC = cfbValidateGC;
pQ->ChangeInterestMask = 0; /* interested in nothing at change time */
pQ->ChangeGC = (int (*) ()) NULL;
pQ->CopyGCSource = (void (*) ()) NULL;
pQ->CopyGCDest = cfbCopyGCDest;
pQ->DestroyGC = cfbDestroyGC;
return TRUE;
}
void
cfbDestroyGC(pGC, pQ)
GC *pGC;
GCInterestPtr pQ;
{
cfbPrivGC *pPriv;
switch (pGC->depth) {
case 1:
mfbDestroyGC(pGC, pQ);
return;
case PSZ:
break;
default:
ErrorF("cfbCreateGC: unsupported depth: %d\n", pGC->depth);
return;
}
/* Most GCInterest pointers would free pQ->devPriv. This one is privileged
* and allowed to allocate its private data directly in the GC (this
* saves an indirection). We must also unlink and free the pQ.
*/
pQ->pLastGCInterest->pNextGCInterest = pGC->pNextGCInterest;
pQ->pNextGCInterest->pLastGCInterest = pGC->pLastGCInterest;
pPriv = (cfbPrivGC *)(pGC->devPriv);
if (pPriv->pRotatedTile)
cfbDestroyPixmap(pPriv->pRotatedTile);
if (pPriv->pRotatedStipple)
cfbDestroyPixmap(pPriv->pRotatedStipple);
if (pPriv->freeCompClip == FREE_CC && pPriv->pCompositeClip)
(*pGC->pScreen->RegionDestroy)(pPriv->pCompositeClip);
if(pPriv->pAbsClientRegion)
(*pGC->pScreen->RegionDestroy)(pPriv->pAbsClientRegion);
Xfree(pGC->devPriv);
Xfree(pQ);
}
#define WINMOVED(pWin, pGC) \
((pWin->absCorner.x != pGC->lastWinOrg.x) || \
(pWin->absCorner.y != pGC->lastWinOrg.y))
/* Clipping conventions
if the drawable is a window
CT_REGION ==> pCompositeClip really is the composite
CT_other ==> pCompositeClip is the window clip region
if the drawable is a pixmap
CT_REGION ==> pCompositeClip is the translated client region
clipped to the pixmap boundary
CT_other ==> pCompositeClip is the pixmap bounding box
*/
void
cfbValidateGC(pGC, pQ, changes, pDrawable)
register GC *pGC;
GCInterestPtr *pQ;
Mask changes;
DrawablePtr pDrawable;
{
WindowPtr pWin;
int mask; /* stateChanges */
int index; /* used for stepping through bitfields */
int xrot, yrot; /* rotations for tile and stipple pattern */
Bool fRotate = FALSE;/* True if rotated pixmaps are needed */
int new_line, new_text, new_fillspans;
/* flags for changing the proc vector */
cfbPrivGCPtr devPriv;
switch (pGC->depth) {
case PSZ:
break;
case 1:
if (pDrawable->type == DRAWABLE_PIXMAP) {
mfbValidateGC(pGC, pQ, changes, pDrawable);
return;
}
/* WARNING - FALL THROUGH */
default:
ErrorF("cfbCreateGC: unsupported depth: %d\n", pGC->depth);
return;
}
if (pDrawable->type == DRAWABLE_WINDOW)
pWin = (WindowPtr) pDrawable;
else
pWin = (WindowPtr) NULL;
devPriv = ((cfbPrivGCPtr) (pGC->devPriv));
/*
* if the client clip is different or moved OR the subwindowMode has
* changed OR the window's clip has changed since the last validation
* we need to recompute the composite clip
*/
if ((changes & (GCClipXOrigin | GCClipYOrigin | GCClipMask)) ||
(changes & GCSubwindowMode) ||
(pDrawable->serialNumber != (pGC->serialNumber & DRAWABLE_SERIAL_BITS))
) {
/*
* if there is a client clip (always a region, for us) AND it has
* moved or is different OR the window has moved we need to
* (re)translate it.
*/
if ((pGC->clientClipType == CT_REGION) &&
((changes & (GCClipXOrigin | GCClipYOrigin | GCClipMask)) ||
(pWin && WINMOVED(pWin, pGC))
)
) {
/* retranslate client clip */
(*pGC->pScreen->RegionCopy) (devPriv->pAbsClientRegion,
pGC->clientClip);
if (pWin) {
pGC->lastWinOrg.x = pWin->absCorner.x;
pGC->lastWinOrg.y = pWin->absCorner.y;
(*pGC->pScreen->TranslateRegion) (
devPriv->pAbsClientRegion,
pGC->lastWinOrg.x + pGC->clipOrg.x,
pGC->lastWinOrg.y + pGC->clipOrg.y);
}
else {
pGC->lastWinOrg.x = 0;
pGC->lastWinOrg.y = 0;
(*pGC->pScreen->TranslateRegion) (
devPriv->pAbsClientRegion, pGC->clipOrg.x, pGC->clipOrg.y);
}
}
if (pWin) {
RegionPtr pregWin;
int freeTmpClip, freeCompClip;
if (pGC->subWindowMode == IncludeInferiors) {
pregWin = NotClippedByChildren(pWin);
freeTmpClip = FREE_CC;
}
else {
pregWin = pWin->clipList;
freeTmpClip = REPLACE_CC;
}
freeCompClip = devPriv->freeCompClip;
/*
* if there is no client clip, we can get by with just keeping
* the pointer we got, and remembering whether or not should
* destroy (or maybe re-use) it later. this way, we avoid
* unnecessary copying of regions. (this wins especially if
* many clients clip by children and have no client clip.)
*/
if (pGC->clientClipType == CT_NONE) {
if (freeCompClip == FREE_CC) {
(*pGC->pScreen->RegionDestroy) (devPriv->pCompositeClip);
}
devPriv->pCompositeClip = pregWin;
devPriv->freeCompClip = freeTmpClip;
}
else {
/*
* we need one 'real' region to put into the composite
* clip. if pregWin the current composite clip are real,
* we can get rid of one. if pregWin is real and the
* current composite clip isn't, use pregWin for the
* composite clip. if the current composite clip is real
* and pregWin isn't, use the current composite clip. if
* neither is real, create a new region.
*/
if ((freeTmpClip == FREE_CC) && (freeCompClip == FREE_CC)) {
(*pGC->pScreen->Intersect) (
devPriv->pCompositeClip,
pregWin,
devPriv->pAbsClientRegion);
(*pGC->pScreen->RegionDestroy) (pregWin);
}
else if ((freeTmpClip == REPLACE_CC) &&
(freeCompClip == FREE_CC)) {
devPriv->pCompositeClip = pregWin;
(*pGC->pScreen->Intersect) (
devPriv->pCompositeClip,
devPriv->pCompositeClip,
devPriv->pAbsClientRegion);
}
else if ((freeTmpClip == FREE_CC) &&
(freeCompClip == REPLACE_CC)) {
(*pGC->pScreen->Intersect) (
devPriv->pCompositeClip,
pregWin,
devPriv->pAbsClientRegion);
}
else if ((freeTmpClip == REPLACE_CC) &&
(freeCompClip == REPLACE_CC)) {
devPriv->pCompositeClip =
(*pGC->pScreen->RegionCreate) (NULL, 1);
(*pGC->pScreen->Intersect) (
devPriv->pCompositeClip,
pregWin,
devPriv->pAbsClientRegion);
}
}
} /* end of composite clip for a window */
else {
BoxRec pixbounds;
pixbounds.x1 = 0;
pixbounds.y1 = 0;
pixbounds.x2 = ((PixmapPtr) pDrawable)->width;
pixbounds.y2 = ((PixmapPtr) pDrawable)->height;
if (devPriv->freeCompClip == FREE_CC)
(*pGC->pScreen->RegionReset) (
devPriv->pCompositeClip, &pixbounds);
else {
devPriv->freeCompClip = FREE_CC;
devPriv->pCompositeClip =
(*pGC->pScreen->RegionCreate) (&pixbounds, 1);
}
if (pGC->clientClipType == CT_REGION)
(*pGC->pScreen->Intersect) (
devPriv->pCompositeClip,
devPriv->pCompositeClip,
devPriv->pAbsClientRegion);
} /* end of composute clip for pixmap */
}
/* SAH 30-Aug-88: the following then-part was commented out, but it
* is needed because the background tile/stipple is stored pre-rotated.
* See changes in cfbfillsp.c too.
*/
if (pWin) {
/*
* rotate tile patterns so that pattern can be combined in word by
* word, but the pattern seems to begin aligned with the window
*/
xrot = pWin->absCorner.x;
yrot = pWin->absCorner.y;
}
else {
yrot = 0;
xrot = 0;
}
new_line = FALSE;
new_text = FALSE;
new_fillspans = FALSE;
mask = changes;
while (mask) {
index = ffs(mask) - 1;
mask &= ~(index = (1 << index));
/*
* this switch acculmulates a list of which procedures might have
* to change due to changes in the GC. in some cases (e.g.
* changing one 16 bit tile for another) we might not really need
* a change, but the code is being paranoid. this sort of batching
* wins if, for example, the alu and the font have been changed,
* or any other pair of items that both change the same thing.
*/
switch (index) {
case GCFunction:
case GCForeground:
new_text = TRUE;
break;
case GCPlaneMask:
break;
case GCBackground:
new_fillspans = TRUE;
break;
case GCLineStyle:
break;
case GCLineWidth:
case GCCapStyle:
case GCJoinStyle:
new_line = TRUE;
break;
case GCFillStyle:
new_text = TRUE;
new_fillspans = TRUE;
new_line = TRUE;
break;
case GCFillRule:
break;
case GCTile:
if (pGC->tile == (PixmapPtr) NULL)
break;
cfbPadPixmap(pGC->tile);
fRotate = TRUE;
new_fillspans = TRUE;
break;
case GCStipple:
if (pGC->stipple == (PixmapPtr) NULL)
break;
cfbPadPixmap(pGC->stipple);
fRotate = TRUE;
new_fillspans = TRUE;
break;
case GCTileStipXOrigin:
fRotate = TRUE;
break;
case GCTileStipYOrigin:
fRotate = TRUE;
break;
case GCFont:
new_text = TRUE;
break;
case GCSubwindowMode:
break;
case GCGraphicsExposures:
break;
case GCClipXOrigin:
break;
case GCClipYOrigin:
break;
case GCClipMask:
break;
case GCDashOffset:
break;
case GCDashList:
break;
case GCArcMode:
break;
default:
break;
}
}
/*
* If the drawable has changed, check its depth & ensure suitable
* entries are in the proc vector.
*/
if (pDrawable->serialNumber != (pGC->serialNumber & (DRAWABLE_SERIAL_BITS))) {
new_fillspans = TRUE; /* deal with FillSpans later */
pGC->SetSpans = cfbSetSpans;
}
/* deal with the changes we've collected */
if (new_line)
{
if (pGC->lineStyle == LineSolid)
{
if(pGC->lineWidth == 0)
pGC->Polylines = miZeroLine;
else
pGC->Polylines = miWideLine;
}
else
pGC->Polylines = miWideDash;
switch(pGC->joinStyle)
{
case JoinMiter:
pGC->LineHelper = miMiter;
break;
case JoinRound:
case JoinBevel:
pGC->LineHelper = miNotMiter;
break;
}
}
if (new_text && (pGC->font))
{
if ((pGC->font->pFI->maxbounds.metrics.rightSideBearing -
pGC->font->pFI->maxbounds.metrics.leftSideBearing) > 32)
{
pGC->PolyGlyphBlt = miPolyGlyphBlt;
pGC->ImageGlyphBlt = miImageGlyphBlt;
}
else
{
/* special case ImageGlyphBlt for terminal emulator fonts */
if ((pGC->font->pFI->terminalFont) &&
(pGC->fgPixel != pGC->bgPixel))
{
pGC->ImageGlyphBlt = cfbTEGlyphBlt;
}
else
pGC->ImageGlyphBlt = miImageGlyphBlt;
}
}
if (new_fillspans) {
switch (pGC->fillStyle) {
case FillSolid:
pGC->FillSpans = cfbSolidFS;
break;
case FillTiled:
pGC->FillSpans = cfbUnnaturalTileFS;
if (!pGC->tile)
FatalError("cfbValidateGC: tile mode & no tile\n");
if (((DrawablePtr)pGC->tile)->depth != pGC->depth)
FatalError("cfbValidateGC: tile wrong depth\n");
break;
case FillStippled:
pGC->FillSpans = cfbUnnaturalStippleFS;
if (!pGC->stipple)
FatalError("cfbValidateGC: stipple mode & no stipple\n");
if (((DrawablePtr)pGC->stipple)->depth != 1)
FatalError("cfbValidateGC: stipple wrong depth\n");
break;
case FillOpaqueStippled:
if (pGC->fgPixel == pGC->bgPixel)
pGC->FillSpans = cfbSolidFS;
else {
pGC->FillSpans = cfbUnnaturalStippleFS;
if (!pGC->stipple)
FatalError("cfbValidateGC: stipple mode & no stipple\n");
if (((DrawablePtr)pGC->stipple)->depth != 1)
FatalError("cfbValidateGC: stipple wrong depth\n");
}
break;
default:
FatalError("cfbValidateGC: illegal fillStyle\n");
}
} /* end of new_fillspans */
if (xrot || yrot || fRotate) {
/*
* First destroy any previously-rotated tile/stipple
*/
if (devPriv->pRotatedTile) {
cfbDestroyPixmap(devPriv->pRotatedTile);
devPriv->pRotatedTile = (PixmapPtr)NULL;
}
if (devPriv->pRotatedStipple) {
cfbDestroyPixmap(devPriv->pRotatedStipple);
devPriv->pRotatedStipple = (PixmapPtr)NULL;
}
if (pGC->tile &&
(devPriv->pRotatedTile = cfbCopyPixmap(pGC->tile))
== (PixmapPtr) NULL)
FatalError("cfbValidateGC: cannot rotate tile\n");
if (pGC->stipple &&
(devPriv->pRotatedStipple = cfbCopyPixmap(pGC->stipple))
== (PixmapPtr) NULL)
FatalError("cfbValidateGC: cannot rotate stipple\n");
/*
* If we've gotten here, we're probably going to rotate the tile
* and/or stipple, so we have to add the pattern origin into
* the rotation factor, even if it hasn't changed.
*/
xrot += pGC->patOrg.x;
yrot += pGC->patOrg.y;
if (xrot) {
if (pGC->tile && devPriv->pRotatedTile)
cfbXRotatePixmap(devPriv->pRotatedTile, xrot);
if (pGC->stipple && devPriv->pRotatedStipple)
cfbXRotatePixmap(devPriv->pRotatedStipple, xrot);
}
if (yrot) {
if (pGC->tile && devPriv->pRotatedTile)
cfbYRotatePixmap(devPriv->pRotatedTile, yrot);
if (pGC->stipple && devPriv->pRotatedStipple)
cfbYRotatePixmap(devPriv->pRotatedStipple, yrot);
}
}
}
void
cfbDestroyClip(pGC)
GCPtr pGC;
{
switch (pGC->depth) {
case 1:
mfbDestroyClip(pGC);
return;
case PSZ:
break;
default:
ErrorF("cfbCreateGC: unsupported depth: %d\n", pGC->depth);
return;
}
if(pGC->clientClipType == CT_NONE)
return;
else if (pGC->clientClipType == CT_PIXMAP)
{
cfbDestroyPixmap((PixmapPtr)(pGC->clientClip));
}
else
{
/* we know we'll never have a list of rectangles, since
ChangeClip immediately turns them into a region
*/
(*pGC->pScreen->RegionDestroy)(pGC->clientClip);
}
pGC->clientClip = NULL;
pGC->clientClipType = CT_NONE;
}
void
cfbChangeClip(pGC, type, pvalue, nrects)
GCPtr pGC;
int type;
pointer pvalue;
int nrects;
{
switch (pGC->depth) {
case 1:
mfbChangeClip(pGC, type, pvalue, nrects);
return;
case PSZ:
break;
default:
ErrorF("cfbChangeClip: unsupported depth: %d\n", pGC->depth);
return;
}
cfbDestroyClip(pGC);
if(type == CT_PIXMAP)
{
pGC->clientClip = (pointer) mfbPixmapToRegion(pvalue);
(*pGC->pScreen->DestroyPixmap)(pvalue);
}
else if (type == CT_REGION) {
/* stuff the region in the GC */
pGC->clientClip = pvalue;
}
else if (type != CT_NONE)
{
pGC->clientClip = (pointer) miRectsToRegion(pGC, nrects, pvalue, type);
Xfree(pvalue);
}
pGC->clientClipType = (type != CT_NONE && pGC->clientClip) ? CT_REGION :
CT_NONE;
pGC->stateChanges |= GCClipMask;
}
void
cfbCopyClip (pgcDst, pgcSrc)
GCPtr pgcDst, pgcSrc;
{
RegionPtr prgnNew;
switch (pgcSrc->depth) {
case 1:
mfbCopyClip(pgcDst, pgcSrc);
return;
case PSZ:
break;
default:
ErrorF("cfbCopyClip: unsupported depth: %d\n", pgcSrc->depth);
return;
}
switch(pgcSrc->clientClipType)
{
case CT_PIXMAP:
((PixmapPtr) pgcSrc->clientClip)->refcnt++;
/* Fall through !! */
case CT_NONE:
cfbChangeClip(pgcDst, pgcSrc->clientClipType, pgcSrc->clientClip, 0);
break;
case CT_REGION:
prgnNew = (*pgcSrc->pScreen->RegionCreate)(NULL, 1);
(*pgcSrc->pScreen->RegionCopy)(prgnNew,
(RegionPtr)(pgcSrc->clientClip));
cfbChangeClip(pgcDst, CT_REGION, prgnNew, 0);
break;
}
}
void
cfbCopyGCDest (pGC, pQ, changes, pGCSrc)
GCPtr pGC;
GCInterestPtr pQ;
Mask changes;
GCPtr pGCSrc;
{
RegionPtr pClip;
switch (pGC->depth) {
case 1:
mfbCopyGCDest(pGC);
return;
case PSZ:
break;
default:
ErrorF("cfbCreateGC: unsupported depth: %d\n", pGC->depth);
return;
}
if(changes & GCClipMask)
{
if(pGC->clientClipType == CT_PIXMAP)
{
((PixmapPtr)pGC->clientClip)->refcnt++;
}
else if(pGC->clientClipType == CT_REGION)
{
BoxRec pixbounds;
pixbounds.x1 = 0;
pixbounds.y1 = 0;
pixbounds.x2 = 0;
pixbounds.y2 = 0;
pClip = (RegionPtr) pGC->clientClip;
pGC->clientClip =
(pointer)(* pGC->pScreen->RegionCreate)(&pixbounds, 1);
(* pGC->pScreen->RegionCopy)(pGC->clientClip, pClip);
}
}
}steve@acorn.UUCP (Steve "daffy" Hunt) (10/26/88)
Here is the fixed cfbfillsp.c.
-- Steve Hunt, daffy@acorn.co.uk, daffy@acorn.UUCP
------------------------------- cfbfillsp.c ----------------------------------
/************************************************************
Copyright 1987 by Sun Microsystems, Inc. Mountain View, CA.
All Rights Reserved
Permission to use, copy, modify, and distribute this
software and its documentation for any purpose and without
fee is hereby granted, provided that the above copyright no-
tice appear in all copies and that both that copyright no-
tice and this permission notice appear in supporting docu-
mentation, and that the names of Sun or MIT not be used in
advertising or publicity pertaining to distribution of the
software without specific prior written permission. Sun and
M.I.T. make no representations about the suitability of this
software for any purpose. It is provided "as is" without any
express or implied warranty.
SUN DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FIT-
NESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SUN BE LI-
ABLE 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.
********************************************************/
/***********************************************************
Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts,
and the Massachusetts Institute of Technology, Cambridge, Massachusetts.
All Rights Reserved
Permission to use, copy, modify, and distribute this software and its
documentation for any purpose and without fee is hereby granted,
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 names of Digital or MIT not be
used in advertising or publicity pertaining to distribution of the
software without specific, written prior permission.
DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
DIGITAL 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.
******************************************************************/
/* Pixmap tiling fixes by John Bowler and Steve Hunt, Acorn */
#include "X.h"
#include "Xmd.h"
#include "servermd.h"
#include "gcstruct.h"
#include "window.h"
#include "pixmapstr.h"
#include "scrnintstr.h"
#include "windowstr.h"
#include "cfb.h"
#include "cfbmskbits.h"
/* scanline filling for color frame buffer
written by drewry, oct 1986 modified by smarks
changes for compatibility with Little-endian systems Jul 1987; MIT:yba.
these routines all clip. they assume that anything that has called
them has already translated the points (i.e. pGC->miTranslate is
non-zero, which is howit gets set in cfbCreateGC().)
the number of new scnalines created by clipping ==
MaxRectsPerBand * nSpans.
FillSolid is overloaded to be used for OpaqueStipple as well,
if fgPixel == bgPixel.
Note that for solids, PrivGC.rop == PrivGC.ropOpStip
FillTiled is overloaded to be used for OpaqueStipple, if
fgPixel != bgPixel. based on the fill style, it uses
{RotatedTile, gc.alu} or {RotatedStipple, PrivGC.ropOpStip}
*/
#ifdef notdef
#include <stdio.h>
static
dumpspans(n, ppt, pwidth)
int n;
DDXPointPtr ppt;
int *pwidth;
{
fprintf(stderr,"%d spans\n", n);
while (n--) {
fprintf(stderr, "[%d,%d] %d\n", ppt->x, ppt->y, *pwidth);
ppt++;
pwidth++;
}
fprintf(stderr, "\n");
}
#endif
void
cfbSolidFS(pDrawable, pGC, nInit, pptInit, pwidthInit, fSorted)
DrawablePtr pDrawable;
GCPtr pGC;
int nInit; /* number of spans to fill */
DDXPointPtr pptInit; /* pointer to list of start points */
int *pwidthInit; /* pointer to list of n widths */
int fSorted;
{
/* next three parameters are post-clip */
int n; /* number of spans to fill */
register DDXPointPtr ppt; /* pointer to list of start points */
register int *pwidth; /* pointer to list of n widths */
int *addrlBase; /* pointer to start of bitmap */
int nlwidth; /* width in longwords of bitmap */
register int *addrl; /* pointer to current longword in bitmap */
register int startmask;
register int endmask;
register int nlmiddle;
int rop; /* reduced rasterop */
int *pwidthFree; /* copies of the pointers to free */
DDXPointPtr pptFree;
int fill, rrop;
switch (pDrawable->depth) {
case 1:
rrop = ReduceRop( pGC->alu, pGC->fgPixel );
switch ( rrop ) {
case RROP_BLACK:
mfbBlackSolidFS(pDrawable, pGC, nInit, pptInit,
pwidthInit, fSorted);
break;
case RROP_WHITE:
mfbWhiteSolidFS(pDrawable, pGC, nInit, pptInit,
pwidthInit, fSorted);
break;
case RROP_NOP:
return;
case RROP_INVERT:
mfbInvertSolidFS(pDrawable, pGC, nInit, pptInit,
pwidthInit, fSorted);
break;
}
return;
case PSZ:
break;
default:
FatalError("cfbSolidFS: invalid depth\n");
}
if (!(pGC->planemask))
return;
n = nInit * miFindMaxBand(((cfbPrivGC *)(pGC->devPriv))->pCompositeClip);
pwidth = (int *)ALLOCATE_LOCAL(n * sizeof(int));
ppt = (DDXPointRec *)ALLOCATE_LOCAL(n * sizeof(DDXPointRec));
if(!ppt || !pwidth)
{
DEALLOCATE_LOCAL(ppt);
DEALLOCATE_LOCAL(pwidth);
return;
}
#ifdef notdef
dumpspans(n, pptInit, pwidthInit);
#endif
pwidthFree = pwidth;
pptFree = ppt;
n = miClipSpans(((cfbPrivGC *)(pGC->devPriv))->pCompositeClip,
pptInit, pwidthInit, nInit,
ppt, pwidth, fSorted);
#ifdef notdef
dumpspans(n, ppt, pwidth);
#endif
if (pDrawable->type == DRAWABLE_WINDOW)
{
addrlBase = (int *)
(((PixmapPtr)(pDrawable->pScreen->devPrivate))->devPrivate);
nlwidth = (int)
(((PixmapPtr)(pDrawable->pScreen->devPrivate))->devKind) >> 2;
}
else
{
addrlBase = (int *)(((PixmapPtr)pDrawable)->devPrivate);
nlwidth = (int)(((PixmapPtr)pDrawable)->devKind) >> 2;
}
rop = pGC->alu;
fill = PFILL(pGC->fgPixel);
while (n--)
{
addrl = addrlBase + (ppt->y * nlwidth) + (ppt->x >> PWSH);
if (*pwidth)
{
if ( ((ppt->x & PIM) + *pwidth) <= PPW)
{
/* all bits inside same longword */
putbitsrop( fill, ppt->x & PIM, *pwidth,
addrl, pGC->planemask, rop );
}
else
{
maskbits(ppt->x, *pwidth, startmask, endmask, nlmiddle);
if ( startmask ) {
putbitsrop( fill, ppt->x & PIM,
PPW-(ppt->x&PIM), addrl, pGC->planemask, rop);
++addrl;
}
while ( nlmiddle-- ) {
putbitsrop( fill, 0, PPW,
addrl, pGC->planemask, rop );
++addrl;
}
if ( endmask ) {
putbitsrop( fill, 0,
((ppt->x + *pwidth)&PIM), addrl, pGC->planemask, rop );
}
}
}
pwidth++;
ppt++;
}
DEALLOCATE_LOCAL(pptFree);
DEALLOCATE_LOCAL(pwidthFree);
}
/* Fill spans with tiles that aren't 32 bits wide */
void
cfbUnnaturalTileFS(pDrawable, pGC, nInit, pptInit, pwidthInit, fSorted)
DrawablePtr pDrawable;
GC *pGC;
int nInit; /* number of spans to fill */
DDXPointPtr pptInit; /* pointer to list of start points */
int *pwidthInit; /* pointer to list of n widths */
int fSorted;
{
/* next three parameters are post-clip */
int n; /* number of spans to fill */
register DDXPointPtr ppt; /* pointer to list of start points */
register int *pwidth; /* pointer to list of n widths */
int *addrlBase; /* pointer to start of bitmap */
int nlwidth; /* width in longwords of bitmap */
PixmapPtr pTile; /* pointer to tile we want to fill with */
int tlwidth, tileWidth, tileHeight, rop;
int *pwidthFree; /* copies of the pointers to free */
DDXPointPtr pptFree;
switch (pDrawable->depth) {
case 1:
mfbUnnaturalTileFS(pDrawable, pGC, nInit, pptInit, pwidthInit, fSorted);
return;
case PSZ:
break;
default:
FatalError("cfbUnnaturalTileFS: invalid depth\n");
}
if (!(pGC->planemask))
return;
n = nInit * miFindMaxBand(((cfbPrivGC *)(pGC->devPriv))->pCompositeClip);
pwidth = (int *)ALLOCATE_LOCAL(n * sizeof(int));
ppt = (DDXPointRec *)ALLOCATE_LOCAL(n * sizeof(DDXPointRec));
if(!ppt || !pwidth)
{
DEALLOCATE_LOCAL(ppt);
DEALLOCATE_LOCAL(pwidth);
return;
}
pwidthFree = pwidth;
pptFree = ppt;
n = miClipSpans(((cfbPrivGC *)(pGC->devPriv))->pCompositeClip,
pptInit, pwidthInit, nInit,
ppt, pwidth, fSorted);
if (pGC->fillStyle == FillTiled)
{
pTile = ((cfbPrivGC *)(pGC->devPriv))->pRotatedTile;
tlwidth = pTile->devKind >> 2;
rop = pGC->alu;
}
else
{
pTile = ((cfbPrivGC *)(pGC->devPriv))->pRotatedStipple;
tlwidth = pTile->devKind >> 2;
rop = pGC->alu;
}
if (pDrawable->type == DRAWABLE_WINDOW)
{
addrlBase = (int *)
(((PixmapPtr)(pDrawable->pScreen->devPrivate))->devPrivate);
nlwidth = (int)
(((PixmapPtr)(pDrawable->pScreen->devPrivate))->devKind) >> 2;
}
else
{
addrlBase = (int *)(((PixmapPtr)pDrawable)->devPrivate);
nlwidth = (int)(((PixmapPtr)pDrawable)->devKind) >> 2;
}
/*
* From here on I have significantly modified the X11.2 code to make the whole
* algorithm significantly more efficient. I have also fixed bugs which picked
* up the wrong part of the input tile causing strange tile rotations.
*/
tileWidth = pTile->width;
tileHeight = pTile->height;
while (n--)
{
int iline = ppt->y % tileHeight;
int x = ppt->x;
int width;
int *pdst = addrlBase + (ppt->y * nlwidth) + (x >> PWSH);
int *psrcT = (int *) pTile->devPrivate + (iline * tlwidth);
width = *(pwidth++);
while(width > 0)
{
int rem = x % tileWidth;
/*
* Set w to the minimum of the width to fill, the tile width
* and the number of bits which we can get from a single tile.
* Since the latter is <= tileWidth I assume that this is
* simply the minimum of the last two items!
*/
int w = min(tileWidth-rem, width);
int *psrc = psrcT + rem / PPW;
width -= w;
rem &= PIM;
/*
* Test was `(rem + w) <= PPW' - since getbits and putbitsrop
* deal with bits spanning a word boundary the following test
* is adequate.
*/
if(w <= PPW) /* less than one word */
{
int tmpSrc;
getbits(psrc, rem, w, tmpSrc);
putbitsrop(tmpSrc, x & PIM, w, pdst,
pGC->planemask, rop);
if (((x & PIM) + w) >= PPW)
++pdst;
x += w;
}
else /* more than one word of bits */
{
/*
* putbitsrop is special cased for the case where all the
* destination bits are in the same word - cooperate with
* it. (I am absolutely sure this code can be made to go
* a lot faster by just doing this all the dumb way - fighting
* the compiler is not a good idea.)
*/
int nstart = (-x) & PIM; /* 0-(PPW-1) bits to end of first dst word */
if(nstart)
{
int tmpSrc;
getbits(psrc, rem, nstart, tmpSrc);
putbitsrop(tmpSrc, x & PIM, nstart, pdst,
pGC->planemask, rop);
pdst++;
rem += nstart;
if (rem >= PPW)
{
psrc++;
rem -= PPW;
}
}
x += w; /* Don't use x after here - but I do change w */
w -= nstart;
while(w >= PPW)
{
int tmpSrc;
getbits(psrc, rem, PPW, tmpSrc);
putbitsrop( tmpSrc, 0, PPW,
pdst, pGC->planemask, rop );
pdst++;
psrc++;
w -= PPW;
}
if(w) /* Odd bits at end */
{
int tmpSrc;
getbits(psrc, rem, w, tmpSrc);
putbitsrop(tmpSrc, 0, w, pdst,
pGC->planemask, rop);
}
}
}
ppt++;
}
DEALLOCATE_LOCAL(pptFree);
DEALLOCATE_LOCAL(pwidthFree);
}
/* Fill spans with stipples that aren't 32 bits wide */
void
cfbUnnaturalStippleFS(pDrawable, pGC, nInit, pptInit, pwidthInit, fSorted)
DrawablePtr pDrawable;
GC *pGC;
int nInit; /* number of spans to fill */
DDXPointPtr pptInit; /* pointer to list of start points */
int *pwidthInit; /* pointer to list of n widths */
int fSorted;
{
/* next three parameters are post-clip */
int n; /* number of spans to fill */
register DDXPointPtr ppt; /* pointer to list of start points */
register int *pwidth; /* pointer to list of n widths */
int iline; /* first line of tile to use */
int *addrlBase; /* pointer to start of bitmap */
int nlwidth; /* width in longwords of bitmap */
register int *pdst; /* pointer to current word in bitmap */
PixmapPtr pStipple; /* pointer to stipple we want to fill with */
int w, width, x, xrem;
unsigned int tmpSrc, tmpDst1, tmpDst2;
int stwidth, stippleWidth, *psrcS, rop;
int *pwidthFree; /* copies of the pointers to free */
DDXPointPtr pptFree;
unsigned int fgfill, bgfill;
switch (pDrawable->depth) {
case 1:
mfbUnnaturalStippleFS(pDrawable, pGC, nInit, pptInit,
pwidthInit, fSorted);
return;
case PSZ:
break;
default:
FatalError("cfbUnnaturalStippleFS: invalid depth\n");
}
if (!(pGC->planemask))
return;
n = nInit * miFindMaxBand(((cfbPrivGC *)(pGC->devPriv))->pCompositeClip);
pwidth = (int *)ALLOCATE_LOCAL(n * sizeof(int));
ppt = (DDXPointRec *)ALLOCATE_LOCAL(n * sizeof(DDXPointRec));
if(!ppt || !pwidth)
{
DEALLOCATE_LOCAL(ppt);
DEALLOCATE_LOCAL(pwidth);
return;
}
pwidthFree = pwidth;
pptFree = ppt;
n = miClipSpans(((cfbPrivGC *)(pGC->devPriv))->pCompositeClip,
pptInit, pwidthInit, nInit,
ppt, pwidth, fSorted);
rop = ((cfbPrivGC *)(pGC->devPriv))->rop;
fgfill = PFILL(pGC->fgPixel);
bgfill = PFILL(pGC->bgPixel);
/*
* OK, so what's going on here? We have two Drawables:
*
* The Stipple:
* Depth = 1
* Width = stippleWidth
* Words per scanline = stwidth
* Pointer to pixels = pStipple->devPrivate
*/
pStipple = ((cfbPrivGC *)(pGC->devPriv))->pRotatedStipple;
if (pStipple->drawable.depth != 1) {
FatalError( "Stipple depth not equal to 1!\n" );
}
stwidth = pStipple->devKind >> 2;
stippleWidth = pStipple->width;
/*
* The Target:
* Depth = PSZ
* Width = determined from *pwidth
* Words per scanline = nlwidth
* Pointer to pixels = addrlBase
*/
if (pDrawable->type == DRAWABLE_WINDOW)
{
addrlBase = (int *)
(((PixmapPtr)(pDrawable->pScreen->devPrivate))->devPrivate);
nlwidth = (int)
(((PixmapPtr)(pDrawable->pScreen->devPrivate))->devKind) >> 2;
/* SAH 30-Aug-88: this was a throwback to the times when stipples were not stored rotated.
* xSrc = ((WindowPtr)pDrawable)->absCorner.x;
* ySrc = ((WindowPtr)pDrawable)->absCorner.y;
*/
}
else
{
addrlBase = (int *)(((PixmapPtr)pDrawable)->devPrivate);
nlwidth = (int)(((PixmapPtr)pDrawable)->devKind) >> 2;
}
while (n--)
{
iline = (ppt->y) % pStipple->height;
x = ppt->x;
pdst = addrlBase + (ppt->y * nlwidth);
psrcS = (int *) pStipple->devPrivate + (iline * stwidth);
if (*pwidth)
{
width = *pwidth;
while(width > 0)
{
int xtemp;
unsigned int *ptemp;
/*
* Do a stripe through the stipple & destination w pixels
* wide. w is not more than:
* - the width of the destination
* - the width of the stipple
* - the distance between x and the next word
* boundary in the destination
* - the distance between x and the next word
* boundary in the stipple
*/
/* width of dest/stipple */
xrem = (x) % stippleWidth;
w = min((stippleWidth - xrem), width);
/* dist to word bound in dest */
w = min(w, PPW - (x & PIM));
/* dist to word bound in stip */
w = min(w, 32 - (x & 0x1f));
xtemp = (xrem & 0x1f);
ptemp = (unsigned int *)(psrcS + (xrem >> 5));
switch ( pGC->fillStyle ) {
case FillOpaqueStippled:
getstipplepixels(ptemp, xtemp, w, 0, &bgfill, &tmpDst1);
getstipplepixels(ptemp, xtemp, w, 1, &fgfill, &tmpDst2);
break;
case FillStippled:
/* Fill tmpSrc with the source pixels */
tmpSrc = *(pdst + (x >> PWSH));
getstipplepixels(ptemp, xtemp, w, 0, &tmpSrc, &tmpDst1);
getstipplepixels(ptemp, xtemp, w, 1, &fgfill, &tmpDst2);
break;
}
#ifdef notdef
putbitsrop(tmpDst1 | tmpDst2, x & PIM, w, pdst + (x>>PWSH),
pGC->planemask, rop);
#else
{
/*
* Ultrix cc hasn't enough expression stack to compile
* these values in the putbitsrop call. (MIT:yba)
*/
int tmpDst = tmpDst1 | tmpDst2, tmpx = x & PIM;
int * pdsttmp = pdst + (x>>PWSH);
putbitsrop(tmpDst, tmpx, w, pdsttmp, pGC->planemask, rop);
}
#endif notdef
x += w;
width -= w;
}
}
#ifdef notdef
if (*pwidth)
{
width = *pwidth;
while(width > 0)
{
psrc = psrcS;
w = min(min(stippleWidth, width), PPW);
if((rem = x % stippleWidth) != 0)
{
w = min(min(stippleWidth - rem, width), PPW);
/* we want to grab from the end of the tile. Figure
* out where that is. In general, the start of the last
* word of data on this scanline is stwidth -1 words
* away. But if we want to grab more bits than we'll
* find on that line, we have to back up 1 word further.
* On the other hand, if the whole tile fits in 1 word,
* let's skip the work */
endinc = stwidth - 1 - w / PPW;
if(endinc)
{
if((rem & 0x1f) + w > stippleWidth % PPW)
endinc--;
}
getbits(psrc + endinc, rem & PIM, w, tmpSrc);
putbitsrop(tmpSrc, (x & PIM), w, pdst,
pGC->planemask, rop);
if((x & PIM) + w >= PPW)
pdst++;
}
else if(((x & PIM) + w) < PPW)
{
getbits(psrc, 0, w, tmpSrc);
putbitsrop(tmpSrc, x & PIM, w, pdst,
pGC->planemask, rop);
}
else
{
maskbits(x, w, startmask, endmask, nlMiddle);
if (startmask)
nstart = PPW - (x & PIM);
else
nstart = 0;
if (endmask)
nend = (x + w) & PIM;
else
nend = 0;
srcStartOver = nstart > PLST;
if(startmask)
{
getbits(psrc, 0, nstart, tmpSrc);
putbitsrop(tmpSrc, (x & PIM), nstart, pdst,
pGC->planemask, rop);
pdst++;
if(srcStartOver)
psrc++;
}
while(nlMiddle--)
{
/*
getbits(psrc, nstart, PPW, tmpSrc);
putbitsrop( tmpSrc, 0, PPW,
pdst, pGC->planemask, rop );
*/
switch ( pGC->fillStyle ) {
case FillStippled:
/* SAH: XXX changed 4 to PPW below */
getstipplepixels( psrc, j, PPW, 1, pdst, tmp1 );
break;
case FillOpaqueStippled:
/* SAH: XXX changed 4 to PPW below */
getstipplepixels( psrc, j, PPW, 1, pdst, tmp1 );
break;
}
pdst++;
psrc++;
}
if(endmask)
{
getbits(psrc, nstart, nend, tmpSrc);
putbitsrop(tmpSrc, 0, nend, pdst,
pGC->planemask, rop);
}
}
x += w;
width -= w;
}
}
#endif
ppt++;
pwidth++;
}
DEALLOCATE_LOCAL(pptFree);
DEALLOCATE_LOCAL(pwidthFree);
}