18   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawSetViewport_X()  local
19   int          xa, ya, xb, yb, xmax = XiWin->w - 1, ymax = XiWin->h - 1;  in PetscDrawSetViewport_X()
32   XSetClipRectangles(XiWin->disp, XiWin->gc.set, 0, 0, &box, 1, Unsorted);  in PetscDrawSetViewport_X()
39   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawCoordinateToPixel_X()  local
42   *i = XTRANS(draw, XiWin, x);  in PetscDrawCoordinateToPixel_X()
43   *j = YTRANS(draw, XiWin, y);  in PetscDrawCoordinateToPixel_X()
49   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawPixelToCoordinate_X()  local
52   *x = ITRANS(draw, XiWin, i);  in PetscDrawPixelToCoordinate_X()
53   *y = JTRANS(draw, XiWin, j);  in PetscDrawPixelToCoordinate_X()
59   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawPoint_X()  local
63   xx = XTRANS(draw, XiWin, x);  in PetscDrawPoint_X()
64   yy = YTRANS(draw, XiWin, y);  in PetscDrawPoint_X()
65   PetscDrawXiSetColor(XiWin, c);  in PetscDrawPoint_X()
67 …for (j = -1; j < 2; j++) XDrawPoint(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, xx + i…  in PetscDrawPoint_X()
74   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawPointPixel_X()  local
77   PetscDrawXiSetColor(XiWin, c);  in PetscDrawPointPixel_X()
78   XDrawPoint(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x, y);  in PetscDrawPointPixel_X()
84   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawLine_X()  local
88   PetscDrawXiSetColor(XiWin, cl);  in PetscDrawLine_X()
89   x_1 = XTRANS(draw, XiWin, xl);  in PetscDrawLine_X()
90   x_2 = XTRANS(draw, XiWin, xr);  in PetscDrawLine_X()
91   y_1 = YTRANS(draw, XiWin, yl);  in PetscDrawLine_X()
92   y_2 = YTRANS(draw, XiWin, yr);  in PetscDrawLine_X()
93   XDrawLine(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x_1, y_1, x_2, y_2);  in PetscDrawLine_X()
99   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawArrow_X()  local
103   PetscDrawXiSetColor(XiWin, cl);  in PetscDrawArrow_X()
104   x_1 = XTRANS(draw, XiWin, xl);  in PetscDrawArrow_X()
105   x_2 = XTRANS(draw, XiWin, xr);  in PetscDrawArrow_X()
106   y_1 = YTRANS(draw, XiWin, yl);  in PetscDrawArrow_X()
107   y_2 = YTRANS(draw, XiWin, yr);  in PetscDrawArrow_X()
108   XDrawLine(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x_1, y_1, x_2, y_2);  in PetscDrawArrow_X()
112       XDrawLine(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x_2, y_2, x_2 - 3, y_2 - 3);  in PetscDrawArrow_X()
113       XDrawLine(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x_2, y_2, x_2 + 3, y_2 - 3);  in PetscDrawArrow_X()
115       XDrawLine(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x_2, y_2, x_2 - 3, y_2 + 3);  in PetscDrawArrow_X()
116       XDrawLine(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x_2, y_2, x_2 + 3, y_2 + 3);  in PetscDrawArrow_X()
121       XDrawLine(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x_2 - 3, y_2 - 3, x_2, y_2);  in PetscDrawArrow_X()
122       XDrawLine(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x_2 - 3, y_2 + 3, x_2, y_2);  in PetscDrawArrow_X()
124       XDrawLine(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x_2, y_2, x_2 + 3, y_2 - 3);  in PetscDrawArrow_X()
125       XDrawLine(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x_2, y_2, x_2 + 3, y_2 + 3);  in PetscDrawArrow_X()
133   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawRectangle_X()  local
137   PetscDrawXiSetColor(XiWin, c);  in PetscDrawRectangle_X()
138   x = XTRANS(draw, XiWin, xl);  in PetscDrawRectangle_X()
139   w = XTRANS(draw, XiWin, xr) + 1 - x;  in PetscDrawRectangle_X()
141   y = YTRANS(draw, XiWin, yr);  in PetscDrawRectangle_X()
142   h = YTRANS(draw, XiWin, yl) + 1 - y;  in PetscDrawRectangle_X()
144   XFillRectangle(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, x, y, w, h);  in PetscDrawRectangle_X()
150   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawEllipse_X()  local
154   PetscDrawXiSetColor(XiWin, c);  in PetscDrawEllipse_X()
155   xA = XTRANS(draw, XiWin, x - a / 2);  in PetscDrawEllipse_X()
156   w  = XTRANS(draw, XiWin, x + a / 2) + 1 - xA;  in PetscDrawEllipse_X()
158   yA = YTRANS(draw, XiWin, y + b / 2);  in PetscDrawEllipse_X()
159   h  = YTRANS(draw, XiWin, y - b / 2) + 1 - yA;  in PetscDrawEllipse_X()
161   XFillArc(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, xA, yA, w, h, 0, 360 * 64);  in PetscDrawEllipse_X()
169   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawTriangle_X()  local
174     PetscDrawXiSetColor(XiWin, c1);  in PetscDrawTriangle_X()
175     pt[0].x = (short)XTRANS(draw, XiWin, X1);  in PetscDrawTriangle_X()
176     pt[0].y = (short)YTRANS(draw, XiWin, Y_1);  in PetscDrawTriangle_X()
177     pt[1].x = (short)XTRANS(draw, XiWin, X2);  in PetscDrawTriangle_X()
178     pt[1].y = (short)YTRANS(draw, XiWin, Y2);  in PetscDrawTriangle_X()
179     pt[2].x = (short)XTRANS(draw, XiWin, X3);  in PetscDrawTriangle_X()
180     pt[2].y = (short)YTRANS(draw, XiWin, Y3);  in PetscDrawTriangle_X()
181 …XFillPolygon(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, pt, 3, Convex, CoordModeOrigi…  in PetscDrawTriangle_X()
184     x1  = XTRANS(draw, XiWin, X1);  in PetscDrawTriangle_X()
185     y_1 = YTRANS(draw, XiWin, Y_1);  in PetscDrawTriangle_X()
186     x2  = XTRANS(draw, XiWin, X2);  in PetscDrawTriangle_X()
187     y2  = YTRANS(draw, XiWin, Y2);  in PetscDrawTriangle_X()
188     x3  = XTRANS(draw, XiWin, X3);  in PetscDrawTriangle_X()
189     y3  = YTRANS(draw, XiWin, Y3);  in PetscDrawTriangle_X()
190     PetscCall(PetscDrawInterpolatedTriangle_X(XiWin, x1, y_1, c1, x2, y2, c2, x3, y3, c3));  in PetscDrawTriangle_X()
197   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawStringSetSize_X()  local
201   w = (int)(XiWin->w * x * (draw->port_xr - draw->port_xl) / (draw->coor_xr - draw->coor_xl));  in PetscDrawStringSetSize_X()
202   h = (int)(XiWin->h * y * (draw->port_yr - draw->port_yl) / (draw->coor_yr - draw->coor_yl));  in PetscDrawStringSetSize_X()
203   PetscCall(PetscFree(XiWin->font));  in PetscDrawStringSetSize_X()
204   PetscCall(PetscDrawXiFontFixed(XiWin, w, h, &XiWin->font));  in PetscDrawStringSetSize_X()
210   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawStringGetSize_X()  local
214   w = XiWin->font->font_w;  in PetscDrawStringGetSize_X()
215   h = XiWin->font->font_h;  in PetscDrawStringGetSize_X()
216   if (x) *x = w * (draw->coor_xr - draw->coor_xl) / (XiWin->w * (draw->port_xr - draw->port_xl));  in PetscDrawStringGetSize_X()
217   if (y) *y = h * (draw->coor_yr - draw->coor_yl) / (XiWin->h * (draw->port_yr - draw->port_yl));  in PetscDrawStringGetSize_X()
223   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawString_X()  local
224   int          xx, yy, descent = XiWin->font->font_descent;  in PetscDrawString_X()
230   xx = XTRANS(draw, XiWin, x);  in PetscDrawString_X()
231   yy = YTRANS(draw, XiWin, y);  in PetscDrawString_X()
232   PetscDrawXiSetColor(XiWin, c);  in PetscDrawString_X()
238 …XDrawString(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, xx, yy - descent, substr, (int…  in PetscDrawString_X()
239     yy += XiWin->font->font_h;  in PetscDrawString_X()
248   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawStringVertical_X()  local
249   int          xx, yy, offset = XiWin->font->font_h - XiWin->font->font_descent;  in PetscDrawStringVertical_X()
253   xx = XTRANS(draw, XiWin, x);  in PetscDrawStringVertical_X()
254   yy = YTRANS(draw, XiWin, y);  in PetscDrawStringVertical_X()
255   PetscDrawXiSetColor(XiWin, c);  in PetscDrawStringVertical_X()
257     XDrawString(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, xx, yy + offset, chr, 1);  in PetscDrawStringVertical_X()
258     yy += XiWin->font->font_h;  in PetscDrawStringVertical_X()
265   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawFlush_X()  local
271   XSync(XiWin->disp, False);  in PetscDrawFlush_X()
276   if (XiWin->drw && XiWin->win) {  in PetscDrawFlush_X()
279 …if (rank == 0) XCopyArea(XiWin->disp, XiWin->drw, XiWin->win, XiWin->gc.set, 0, 0, XiWin->w, XiWin…  in PetscDrawFlush_X()
280     if (rank == 0) XSync(XiWin->disp, False);  in PetscDrawFlush_X()
289   PetscDraw_X *XiWin = (PetscDraw_X *)draw->data;  in PetscDrawClear_X()  local
290   int          xmax = XiWin->w - 1, ymax = XiWin->h - 1;  in PetscDrawClear_X()
298   XSync(XiWin->disp, False);  in PetscDrawClear_X()
310     PetscDrawXiSetPixVal(XiWin, XiWin->background);  in PetscDrawClear_X()
311     XFillRectangle(XiWin->disp, PetscDrawXiDrawable(XiWin), XiWin->gc.set, xa, ya, w, h);  in PetscDrawClear_X()
312     XSync(XiWin->disp, False);  in PetscDrawClear_X()