505 lines
15 KiB
C
505 lines
15 KiB
C
/* Combined Purdue/PurduePlus patches, level 2.0, 1/17/89 */
|
|
/***********************************************************
|
|
|
|
Copyright (c) 1987 X Consortium
|
|
|
|
Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
of this software and associated documentation files (the "Software"), to deal
|
|
in the Software without restriction, including without limitation the rights
|
|
to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
copies of the Software, and to permit persons to whom the Software is
|
|
furnished to do so, subject to the following conditions:
|
|
|
|
The above copyright notice and this permission notice shall be included in
|
|
all copies or substantial portions of the Software.
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
X CONSORTIUM BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
|
|
AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
|
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
|
|
Except as contained in this notice, the name of the X Consortium shall not be
|
|
used in advertising or otherwise to promote the sale, use or other dealings
|
|
in this Software without prior written authorization from the X Consortium.
|
|
|
|
|
|
Copyright 1987 by Digital Equipment Corporation, Maynard, 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 name of Digital 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.
|
|
|
|
******************************************************************/
|
|
|
|
#ifdef HAVE_XORG_CONFIG_H
|
|
#include <xorg-config.h>
|
|
#endif
|
|
|
|
#include "xf4bpp.h"
|
|
#include "OScompiler.h"
|
|
#include "mfbmap.h"
|
|
#include "mfb.h"
|
|
#include "maskbits.h"
|
|
#include "mi.h"
|
|
#include "dixfontstr.h"
|
|
#include "ppcGCstr.h"
|
|
#include "wm3.h"
|
|
|
|
#include "xf86str.h" /* for pScrn->vtSema */
|
|
extern ScrnInfoPtr *xf86Screens;
|
|
|
|
/*
|
|
we should eventually special-case fixed-width fonts for ImageText.
|
|
|
|
this works for fonts with glyphs <= 32 bits wide.
|
|
|
|
the clipping calculations are done for worst-case fonts.
|
|
we make no assumptions about the heights, widths, or bearings
|
|
of the glyphs. if we knew that the glyphs are all the same height,
|
|
we could clip the tops and bottoms per clipping box, rather
|
|
than per character per clipping box. if we knew that the glyphs'
|
|
left and right bearings were wlle-behaved, we could clip a single
|
|
character at the start, output until the last unclipped
|
|
character, and then clip the last one. this is all straightforward
|
|
to determine based on max-bounds and min-bounds from the font.
|
|
there is some inefficiency introduced in the per-character
|
|
clipping to make what's going on clearer.
|
|
|
|
(it is possible, for example, for a font to be defined in which the
|
|
next-to-last character in a font would be clipped out, but the last
|
|
one wouldn't. the code below deals with this.)
|
|
|
|
Image text looks at the bits in the glyph and the fg and bg in the
|
|
GC. it paints a rectangle, as defined in the protocol dcoument,
|
|
and the paints the characters.
|
|
|
|
to avoid source proliferation, this file is compiled
|
|
three times:
|
|
MFBIMAGEGLYPHBLT OPEQ
|
|
mfbImageGlyphBltWhite |=
|
|
mfbImageGlyphBltBlack &=~
|
|
|
|
the register allocations for startmask and endmask may not
|
|
be the right thing. are there two other deserving candidates?
|
|
xoff, pdst, pglyph, and tmpSrc seem like the right things, though.
|
|
*/
|
|
|
|
/* Forward declarations -- GJA */
|
|
static void doImageGlyphBlt(
|
|
DrawablePtr,
|
|
GC *,
|
|
int,
|
|
int,
|
|
unsigned int,
|
|
CharInfoPtr *,
|
|
unsigned char *,
|
|
ExtentInfoRec *
|
|
);
|
|
|
|
void
|
|
xf4bppImageGlyphBlt(pDrawable, pGC, x, y, nglyph, ppci, pglyphBase)
|
|
DrawablePtr pDrawable;
|
|
GC *pGC;
|
|
int x, y;
|
|
unsigned int nglyph;
|
|
CharInfoPtr *ppci; /* array of character info */
|
|
pointer pglyphBase; /* start of array of glyphs */
|
|
{
|
|
ExtentInfoRec info; /* used by QueryGlyphExtents() */
|
|
xRectangle backrect;/* backing rectangle to paint.
|
|
in the general case, NOT necessarily
|
|
the same as the string's bounding box
|
|
*/
|
|
/* GJA -- I agree, this ALL should be moved to GC validation. */
|
|
if ( (pDrawable->type != DRAWABLE_WINDOW) || (pGC->alu != GXcopy) ||
|
|
!xf86Screens[pDrawable->pScreen->myNum]->vtSema ||
|
|
((pGC->font) &&
|
|
(FONTMAXBOUNDS(pGC->font,rightSideBearing) -
|
|
FONTMINBOUNDS(pGC->font,leftSideBearing) > 32 ||
|
|
FONTMINBOUNDS(pGC->font,characterWidth) < 0)) ) {
|
|
miImageGlyphBlt(pDrawable, pGC, x, y, nglyph, ppci, pglyphBase);
|
|
} else {
|
|
ppcPrivGC *pPrivGC;
|
|
int oldfillStyle, oldfg, oldalu;
|
|
|
|
if (!(pGC->planemask & 0x0F))
|
|
return;
|
|
|
|
QueryGlyphExtents(pGC->font, ppci, (unsigned long)nglyph, &info);
|
|
|
|
backrect.x = x;
|
|
backrect.y = y - FONTASCENT(pGC->font);
|
|
backrect.width = info.overallWidth;
|
|
backrect.height = FONTASCENT(pGC->font) + FONTDESCENT(pGC->font);
|
|
|
|
|
|
pPrivGC = pGC->devPrivates[mfbGetGCPrivateIndex()].ptr;
|
|
oldfillStyle = pPrivGC->colorRrop.fillStyle; /* GJA */
|
|
oldfg = pPrivGC->colorRrop.fgPixel; /* GJA */
|
|
oldalu = pPrivGC->colorRrop.alu; /* GJA */
|
|
|
|
pPrivGC->colorRrop.fillStyle = FillSolid; /* GJA */
|
|
pPrivGC->colorRrop.fgPixel = pGC->bgPixel; /* GJA */
|
|
pGC->fgPixel = pGC->bgPixel;
|
|
pPrivGC->colorRrop.alu = GXcopy; /* GJA */
|
|
pGC->alu = GXcopy;
|
|
|
|
/* Required fields:
|
|
* colorRrop.alu, colorRrop.planemask, colorRrop.fgPixel
|
|
*/
|
|
xf4bppPolyFillRect(pDrawable, pGC, 1, &backrect);
|
|
|
|
pPrivGC->colorRrop.fgPixel = oldfg; /* GJA */
|
|
pGC->fgPixel = oldfg;
|
|
|
|
/* the faint-hearted can open their eyes now */
|
|
|
|
DO_WM3(pGC,doImageGlyphBlt(pDrawable, pGC, x, y, nglyph, ppci,
|
|
pglyphBase,&info))
|
|
|
|
pPrivGC->colorRrop.fillStyle = oldfillStyle; /* GJA */
|
|
pPrivGC->colorRrop.alu = oldalu; /* GJA */
|
|
pGC->alu = oldalu;
|
|
}
|
|
|
|
}
|
|
|
|
static void
|
|
doImageGlyphBlt(pDrawable, pGC, x, y, nglyph, ppci, pglyphBase,infop)
|
|
DrawablePtr pDrawable;
|
|
GC *pGC;
|
|
int x, y;
|
|
unsigned int nglyph;
|
|
CharInfoPtr *ppci; /* array of character info */
|
|
unsigned char *pglyphBase; /* start of array of glyphs */
|
|
ExtentInfoRec* infop; /* used by QueryGlyphExtents() */
|
|
{
|
|
BoxRec bbox; /* string's bounding box */
|
|
|
|
CharInfoPtr pci;
|
|
int xorg, yorg; /* origin of drawable in bitmap */
|
|
int widthDst; /* width of dst in longwords */
|
|
|
|
/* these keep track of the character origin */
|
|
CARD32 *pdstBase;
|
|
/* points to longword with character origin */
|
|
int xchar; /* xorigin of char (mod 32) */
|
|
|
|
/* these are used for placing the glyph */
|
|
register int xoff; /* x offset of left edge of glyph (mod 32) */
|
|
register CARD32 *pdst;
|
|
/* pointer to current longword in dst */
|
|
|
|
int w; /* width of glyph in bits */
|
|
int h; /* height of glyph */
|
|
int widthGlyph; /* width of glyph, in bytes */
|
|
register unsigned char *pglyph;
|
|
/* pointer to current row of glyph */
|
|
|
|
/* used for putting down glyph */
|
|
register unsigned int tmpSrc;
|
|
/* for getting bits from glyph */
|
|
register int startmask;
|
|
register int endmask;
|
|
|
|
register int nFirst;/* bits of glyph in current longword */
|
|
|
|
xorg = pDrawable->x;
|
|
yorg = pDrawable->y;
|
|
if (pDrawable->type == DRAWABLE_WINDOW)
|
|
{
|
|
pdstBase = (CARD32 *)
|
|
(((PixmapPtr)(pDrawable->pScreen->devPrivate))->devPrivate.ptr);
|
|
widthDst = (int)
|
|
(((PixmapPtr)(pDrawable->pScreen->devPrivate))->devKind) >> 2;
|
|
}
|
|
else
|
|
{
|
|
pdstBase = (CARD32 *)(((PixmapPtr)pDrawable)->devPrivate.ptr);
|
|
widthDst = (int)(((PixmapPtr)pDrawable)->devKind) >> 2;
|
|
}
|
|
|
|
x += xorg;
|
|
y += yorg;
|
|
bbox.x1 = x + infop->overallLeft;
|
|
bbox.x2 = x + infop->overallRight;
|
|
bbox.y1 = y - infop->overallAscent;
|
|
bbox.y2 = y + infop->overallDescent;
|
|
|
|
/* UNCLEAN CODE
|
|
we know the mfbPolyFillRect uses only three fields in
|
|
devPrivate[mfbGetGCPrivateIndex()].ptr, two of which (the rotated
|
|
tile/stipple and the ropFillArea) are
|
|
irrelevant for solid filling, so we just poke the FillArea
|
|
field. the GC is now in an inconsistent state, but we'll fix
|
|
it as soon as PolyFillRect returns. fortunately, the server
|
|
is single threaded.
|
|
|
|
NOTE:
|
|
if you are not using the standard mfbFillRectangle code, you
|
|
need to poke any fields in the GC the rectangle stuff need
|
|
(probably alu, fgPixel, and fillStyle) and in devPrivate[mfbGetGCPrivateIndex()].ptr
|
|
(probably rop or ropFillArea.) You could just call ValidateGC,
|
|
but that is usually not a cheap thing to do.
|
|
*/
|
|
|
|
switch (RECT_IN_REGION(pGC->pScreen, pGC->pCompositeClip, &bbox))
|
|
{
|
|
case rgnOUT:
|
|
break;
|
|
case rgnIN:
|
|
pdstBase = pdstBase + (widthDst * y) + (x >> PWSH);
|
|
xchar = x & PIM;
|
|
|
|
while(nglyph--)
|
|
{
|
|
pci = *ppci;
|
|
pglyph = FONTGLYPHBITS(pglyphBase, pci);
|
|
w = pci->metrics.rightSideBearing - pci->metrics.leftSideBearing;
|
|
h = pci->metrics.ascent + pci->metrics.descent;
|
|
widthGlyph = GLYPHWIDTHBYTESPADDED(pci);
|
|
|
|
/* start at top scanline of glyph */
|
|
pdst = pdstBase - (pci->metrics.ascent * widthDst);
|
|
|
|
/* find correct word in scanline and x offset within it
|
|
for left edge of glyph
|
|
*/
|
|
xoff = xchar + pci->metrics.leftSideBearing;
|
|
if (xoff > PIM)
|
|
{
|
|
pdst++;
|
|
xoff &= PIM;
|
|
}
|
|
else if (xoff < 0)
|
|
{
|
|
xoff += PPW;
|
|
pdst--;
|
|
}
|
|
|
|
if ((xoff + w) <= PPW)
|
|
{
|
|
/* glyph all in one longword */
|
|
maskpartialbits(xoff, w, startmask);
|
|
|
|
while (h--)
|
|
{
|
|
getleftbits(pglyph, w, tmpSrc);
|
|
UPDRW(pdst,(SCRRIGHT(tmpSrc, xoff) & startmask));
|
|
pglyph += widthGlyph;
|
|
pdst += widthDst;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
/* glyph crosses longword boundary */
|
|
maskPPWbits(xoff, w, startmask, endmask);
|
|
nFirst = PPW - xoff;
|
|
while (h--)
|
|
{
|
|
getleftbits(pglyph, w, tmpSrc);
|
|
UPDRW(pdst,(SCRRIGHT(tmpSrc, xoff) & startmask));
|
|
UPDRW(&(pdst[1]),(SCRLEFT(tmpSrc, nFirst) & endmask));
|
|
pglyph += widthGlyph;
|
|
pdst += widthDst;
|
|
}
|
|
} /* glyph crosses longwords boundary */
|
|
|
|
/* update character origin */
|
|
x += pci->metrics.characterWidth;
|
|
xchar += pci->metrics.characterWidth;
|
|
if (xchar > PLST)
|
|
{
|
|
xchar -= PPW;
|
|
pdstBase++;
|
|
}
|
|
else if (xchar < 0)
|
|
{
|
|
xchar += PPW;
|
|
pdstBase--;
|
|
}
|
|
ppci++;
|
|
} /* while nglyph-- */
|
|
break;
|
|
case rgnPART:
|
|
{
|
|
TEXTPOS *ppos;
|
|
int nbox;
|
|
BoxPtr pbox;
|
|
RegionPtr cclip;
|
|
int xpos; /* x position of char origin */
|
|
unsigned int i;
|
|
BoxRec clip;
|
|
int leftEdge, rightEdge;
|
|
int topEdge, bottomEdge;
|
|
int glyphRow; /* first row of glyph not wholly
|
|
clipped out */
|
|
int glyphCol; /* leftmost visible column of glyph */
|
|
#if GETLEFTBITS_ALIGNMENT > 1
|
|
int getWidth; /* bits to get from glyph */
|
|
#endif
|
|
|
|
if(!(ppos = (TEXTPOS *)ALLOCATE_LOCAL(nglyph * sizeof(TEXTPOS))))
|
|
return;
|
|
|
|
pdstBase = pdstBase + (widthDst * y) + (x >> PWSH);
|
|
xpos = x;
|
|
xchar = xpos & PIM;
|
|
|
|
for (i=0; i<nglyph; i++)
|
|
{
|
|
pci = ppci[i];
|
|
|
|
ppos[i].xpos = xpos;
|
|
ppos[i].xchar = xchar;
|
|
ppos[i].leftEdge = xpos + pci->metrics.leftSideBearing;
|
|
ppos[i].rightEdge = xpos + pci->metrics.rightSideBearing;
|
|
ppos[i].topEdge = y - pci->metrics.ascent;
|
|
ppos[i].bottomEdge = y + pci->metrics.descent;
|
|
ppos[i].pdstBase = pdstBase;
|
|
ppos[i].widthGlyph = GLYPHWIDTHBYTESPADDED(pci);
|
|
|
|
xpos += pci->metrics.characterWidth;
|
|
xchar += pci->metrics.characterWidth;
|
|
if (xchar > PLST)
|
|
{
|
|
xchar &= PIM;
|
|
pdstBase++;
|
|
}
|
|
else if (xchar < 0)
|
|
{
|
|
xchar += PPW;
|
|
pdstBase--;
|
|
}
|
|
}
|
|
|
|
cclip = pGC->pCompositeClip;
|
|
pbox = REGION_RECTS(cclip);
|
|
nbox = REGION_NUM_RECTS(cclip);
|
|
|
|
/* HACK ALERT
|
|
since we continue out of the loop below so often, it
|
|
is easier to increment pbox at the top than at the end.
|
|
don't try this at home.
|
|
*/
|
|
pbox--;
|
|
while(nbox--)
|
|
{
|
|
pbox++;
|
|
clip.x1 = max(bbox.x1, pbox->x1);
|
|
clip.y1 = max(bbox.y1, pbox->y1);
|
|
clip.x2 = min(bbox.x2, pbox->x2);
|
|
clip.y2 = min(bbox.y2, pbox->y2);
|
|
if ((clip.x2<=clip.x1) || (clip.y2<=clip.y1))
|
|
continue;
|
|
|
|
for(i=0; i<nglyph; i++)
|
|
{
|
|
pci = ppci[i];
|
|
xchar = ppos[i].xchar;
|
|
|
|
/* clip the left and right edges */
|
|
if (ppos[i].leftEdge < clip.x1)
|
|
leftEdge = clip.x1;
|
|
else
|
|
leftEdge = ppos[i].leftEdge;
|
|
|
|
if (ppos[i].rightEdge > clip.x2)
|
|
rightEdge = clip.x2;
|
|
else
|
|
rightEdge = ppos[i].rightEdge;
|
|
|
|
w = rightEdge - leftEdge;
|
|
if (w <= 0)
|
|
continue;
|
|
|
|
/* clip the top and bottom edges */
|
|
if (ppos[i].topEdge < clip.y1)
|
|
topEdge = clip.y1;
|
|
else
|
|
topEdge = ppos[i].topEdge;
|
|
|
|
if (ppos[i].bottomEdge > clip.y2)
|
|
bottomEdge = clip.y2;
|
|
else
|
|
bottomEdge = ppos[i].bottomEdge;
|
|
|
|
h = bottomEdge - topEdge;
|
|
if (h <= 0)
|
|
continue;
|
|
|
|
glyphRow = (topEdge - y) + pci->metrics.ascent;
|
|
widthGlyph = ppos[i].widthGlyph;
|
|
pglyph = FONTGLYPHBITS(pglyphBase, pci);
|
|
pglyph += (glyphRow * widthGlyph);
|
|
|
|
pdst = ppos[i].pdstBase - ((y-topEdge) * widthDst);
|
|
|
|
glyphCol = (leftEdge - ppos[i].xpos) -
|
|
(pci->metrics.leftSideBearing);
|
|
#if GETLEFTBITS_ALIGNMENT > 1
|
|
getWidth = w + glyphCol;
|
|
#endif
|
|
xoff = xchar + (leftEdge - ppos[i].xpos);
|
|
if (xoff > PLST)
|
|
{
|
|
xoff &= PIM;
|
|
pdst++;
|
|
}
|
|
else if (xoff < 0)
|
|
{
|
|
xoff += PPW;
|
|
pdst--;
|
|
}
|
|
|
|
if ((xoff + w) <= PPW)
|
|
{
|
|
maskpartialbits(xoff, w, startmask);
|
|
while (h--)
|
|
{
|
|
getshiftedleftbits(pglyph, glyphCol, getWidth, tmpSrc);
|
|
UPDRW(pdst,(SCRRIGHT(tmpSrc, xoff) & startmask));
|
|
pglyph += widthGlyph;
|
|
pdst += widthDst;
|
|
}
|
|
}
|
|
else
|
|
{
|
|
maskPPWbits(xoff, w, startmask, endmask);
|
|
nFirst = PPW - xoff;
|
|
while (h--)
|
|
{
|
|
getshiftedleftbits(pglyph, glyphCol, getWidth, tmpSrc);
|
|
UPDRW(pdst,(SCRRIGHT(tmpSrc, xoff) & startmask));
|
|
UPDRW(&(pdst[1]),(SCRLEFT(tmpSrc, nFirst) & endmask));
|
|
pglyph += widthGlyph;
|
|
pdst += widthDst;
|
|
}
|
|
}
|
|
} /* for each glyph */
|
|
} /* while nbox-- */
|
|
DEALLOCATE_LOCAL(ppos);
|
|
break;
|
|
}
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
|