/* ********************************************************************** *\ * Copyright IBM Corporation 1988,1991 - All Rights Reserved * * For full copyright information see:'andrew/config/COPYRITE' * \* ********************************************************************** */ /* $Disclaimer: * Permission to use, copy, modify, and distribute 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, this permission notice, and the following * disclaimer appear in supporting documentation, and that the names of * IBM, Carnegie Mellon University, and other copyright holders, not be * used in advertising or publicity pertaining to distribution of the software * without specific, written prior permission. * * IBM, CARNEGIE MELLON UNIVERSITY, AND THE OTHER COPYRIGHT HOLDERS * DISCLAIM ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT * SHALL IBM, CARNEGIE MELLON UNIVERSITY, OR ANY OTHER COPYRIGHT HOLDER * 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. * $ */ #ifndef NORCSID #define NORCSID static char rcsid[]="$Header: /afs/cs.cmu.edu/project/atk-dist/auis-6.3/contrib/mit/annot/RCS/dpstextv.c,v 1.7 1992/12/15 21:50:50 rr2b R6tape $"; #endif #include #include /* for DPS_ENV */ #ifdef DPS_ENV #include #include #include #include #include #include #include #endif /* DPS_ENV */ #include #include #include #include #include #include #include #include #include /* #define DEBUG 1 */ #ifdef DEBUG #define DBG(x) fprintf(stderr, "%s\n", (x)) #else #define DBG(x) #endif /****************************************************************/ /* private functions */ /****************************************************************/ static int computeDPSscaling(self) struct dpstextview *self; { long pw, ph, dw, dh, sw, sh; long x_offset, y_offset; double scale_factor; /* what do we want to be */ pw = self->desired_width; ph = self->desired_height; /* what have we got to work with */ dw = self->cached_width; dh = self->cached_height; /* try to be as tall as possible */ sh = dh; scale_factor = (double)sh / (double)ph; sw = pw * scale_factor; y_offset = 0; x_offset = (dw - sw)/2; if (sw > dw) { /* try to be as wide as possible */ sw = dw; scale_factor = (double)sw / (double)pw; sh = ph * scale_factor; y_offset = (dh - sh)/2; x_offset = 0; } if ((x_offset != self->offset_x) || (y_offset != self->offset_y) || (scale_factor != self->scale_width) || (scale_factor != self->scale_height)) { dpstextview_SetScaling(self, x_offset, y_offset, scale_factor, scale_factor); return(-1); } return(0); } /* computeDPSscaling */ #define BADPOINTER (-1) /* pointer to use for uninitialized state since NULL may be a valid value for DisplayString */ void DoInterpret(self) struct dpstextview *self; { #ifdef DPS_ENV char *displayname = ""; Display *dpy; Screen *scr; GC gc; Window win; XWindowAttributes wa; DPSContext ctxt; struct text *txtobj; struct xgraphic *xgr; char *buf; long length; struct rectangle r1, r2; long x_off, y_off; double dpi_x, dpi_y; static char *olddpystring=(char *)BADPOINTER; /* I hope this is always an invalid pointer. */ static Display *olddpy=(Display *)BADPOINTER; txtobj = (struct text *)dpstextview_GetDataObject(self); im_GetLoc(dpstextview_GetIM(self), dpstextview_GetIM(self), &r1); im_GetLoc(dpstextview_GetIM(self), self, &r2); xgr = (struct xgraphic *)dpstextview_GetDrawable(self); /* assumption: for any given DisplayString xim will have at most one connection, and hence the address of DisplayString on that dpy will uniquely identify the display. And that xim never closes displays so the DisplayString is available permanently. -rr2b */ if(olddpystring == DisplayString(xgraphic_XDisplay(xgr))) dpy=olddpy; else { if(olddpy && olddpy!=(Display *)BADPOINTER) XCloseDisplay(olddpy); olddpystring = DisplayString(xgraphic_XDisplay(xgr)); olddpy = XOpenDisplay(olddpystring); } dpy=olddpy; if (dpy == NULL) { fprintf (stderr, "dpstextview: NULL display.\n"); fprintf (stderr, "dpstextview: maybe I'm not visible?\n"); return; } gc = xgraphic_XGC(xgr); win = (Window)xgraphic_XWindow(xgr); dpi_x = xgraphic_GetHorizontalResolution(xgr); dpi_y = xgraphic_GetVerticalResolution(xgr); x_off = r2.left - r1.left + self->offset_x; y_off = r2.top - r1.top + r2.height - self->offset_y; #ifdef DEBUG ctxt = DPSCreateTextContext(DPSDefaultTextBackstop, DPSDefaultErrorProc); #else ctxt = XDPSCreateSimpleContext(dpy, win, gc, x_off, y_off, DPSDefaultTextBackstop, DPSDefaultErrorProc, NULL); #endif if (ctxt == NULL) { fprintf (stderr, "dpstextview: XDPSCreateSimpleContext returns NULL.\n"); fprintf (stderr, "dpstextview: Perhaps this server doesn't have the Display PostScript extension?\n"); return; } DPSPrintf(ctxt, "gsave %g %g scale\n", 72.0/dpi_x, 72.0/dpi_y); DPSPrintf(ctxt, "0.9 setgray %d %d %d %d rectfill\n", -(self->offset_x), -(self->offset_y), r2.width, r2.height); DPSPrintf(ctxt, "1.0 setgray 0 0 %g %g rectfill\n", self->desired_width * self->scale_width, self->desired_height * self->scale_height); DPSPrintf(ctxt, "grestore\n"); DPSPrintf(ctxt, "%g %g scale\n", self->scale_width, self->scale_height); DPSPrintf(ctxt, "/showpage {} def\n"); /* Make sure that gap is at end of buffer so that GetBuf gives us the whole buffer, not just the part before the gap. */ text_GetGap(txtobj, text_GetLength(txtobj), 0L); buf = text_GetBuf(txtobj, 0L, text_GetLength(txtobj), &length); DPSWritePostScript(ctxt, buf, length); DPSWaitContext(ctxt); DPSDestroySpace(DPSSpaceFromContext(ctxt)); XFlush(dpy); #endif /* DPS_ENV */ } /* DoInterpret */ /****************************************************************/ /* class procedures */ /****************************************************************/ boolean dpstextview__InitializeClass(classID) struct classheader * classID; { return TRUE; } boolean dpstextview__InitializeObject(classID,self) struct classheader * classID; struct dpstextview * self; { dpstextview_SetScaling(self, 0L, 0L, 1.0, 1.0); self->drawn_at_least_once = 0; self->cached_width = 0; self->cached_height = 0; self->offset_x = 0; self->offset_y = 0; return TRUE; } void dpstextview__FinalizeObject(classID, self) struct classheader *classID; struct dpstextview *self; { } /****************************************************************/ /* instance methods */ /****************************************************************/ struct view *dpstextview__Hit(self, action, x, y, clicks) struct dpstextview *self; enum view_MouseAction action; long x,y; long clicks; { dpstextview_WantInputFocus(self, self); return (struct view *)self; } void dpstextview__SetDesired(self, w, h) struct dpstextview *self; long w,h; { self->desired_height = h; self->desired_width = w; if (computeDPSscaling(self) && self->drawn_at_least_once) { dpstextview_WantUpdate(self, self); } } /* dpstextview__SetDesired */ void dpstextview__Update(self) struct dpstextview * self; { struct rectangle r; dpstextview_SetTransferMode(self, graphic_COPY); dpstextview_EraseVisualRect(self); dpstextview_GetLogicalBounds(self, &r); dpstextview_FullUpdate(self, view_FullRedraw, r.left, r.top, r.width, r.height); } /* dpstextview_Update */ void dpstextview__FullUpdate(self, type, x, y, w, h) struct dpstextview *self; enum view_UpdateType type; long x,y,w,h; { if (type == view_FullRedraw || type == view_LastPartialRedraw) { struct rectangle r; dpstextview_GetLogicalBounds(self, &r); if ((r.width != self->cached_width) || (r.height != self->cached_height)) { self->cached_width = r.width; self->cached_height = r.height; computeDPSscaling(self); } DoInterpret(self); self->drawn_at_least_once = -1; } } /* dpstextview__FullUpdate */