45 static PetscErrorCode PetscDrawDestroy_TikZ(PetscDraw draw)  in PetscDrawDestroy_TikZ()  argument
47   PetscDraw_TikZ *win = (PetscDraw_TikZ *)draw->data;  in PetscDrawDestroy_TikZ()
50   PetscCall(PetscFPrintf(PetscObjectComm((PetscObject)draw), win->fd, TikZ_END_FRAME));  in PetscDrawDestroy_TikZ()
51   PetscCall(PetscFPrintf(PetscObjectComm((PetscObject)draw), win->fd, TikZ_END_DOCUMENT));  in PetscDrawDestroy_TikZ()
52   PetscCall(PetscFClose(PetscObjectComm((PetscObject)draw), win->fd));  in PetscDrawDestroy_TikZ()
54   PetscCall(PetscFree(draw->data));  in PetscDrawDestroy_TikZ()
68 …define XTRANS(draw, x) (double)((draw)->port_xl + (((x - (draw)->coor_xl) * ((draw)->port_xr - (dr…  argument
69 …define YTRANS(draw, y) (double)((draw)->port_yl + (((y - (draw)->coor_yl) * ((draw)->port_yr - (dr…  argument
71 static PetscErrorCode PetscDrawClear_TikZ(PetscDraw draw)  in PetscDrawClear_TikZ()  argument
73   PetscDraw_TikZ *win = (PetscDraw_TikZ *)draw->data;  in PetscDrawClear_TikZ()
78 …IU_Allreduce(&win->written, &written, 1, MPI_C_BOOL, MPI_LOR, PetscObjectComm((PetscObject)draw)));  in PetscDrawClear_TikZ()
80   PetscCall(PetscFPrintf(PetscObjectComm((PetscObject)draw), win->fd, TikZ_END_FRAME));  in PetscDrawClear_TikZ()
81   PetscCall(PetscFPrintf(PetscObjectComm((PetscObject)draw), win->fd, TikZ_BEGIN_FRAME));  in PetscDrawClear_TikZ()
86 static PetscErrorCode PetscDrawLine_TikZ(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal xr, …  in PetscDrawLine_TikZ()  argument
88   PetscDraw_TikZ *win = (PetscDraw_TikZ *)draw->data;  in PetscDrawLine_TikZ()
92 …scObject)draw), win->fd, "\\draw [%s] (%g,%g) --(%g,%g);\n", TikZColorMap(cl), XTRANS(draw, xl), Y…  in PetscDrawLine_TikZ()
96 static PetscErrorCode PetscDrawRectangle_TikZ(PetscDraw draw, PetscReal xl, PetscReal yl, PetscReal…  in PetscDrawRectangle_TikZ()  argument
98   PetscDraw_TikZ *win = (PetscDraw_TikZ *)draw->data;  in PetscDrawRectangle_TikZ()
102 …draw), win->fd, "\\fill [bottom color=%s,top color=%s] (%g,%g) rectangle (%g,%g);\n", TikZColorMap…  in PetscDrawRectangle_TikZ()
106 static PetscErrorCode PetscDrawTriangle_TikZ(PetscDraw draw, PetscReal x1, PetscReal y1, PetscReal …  in PetscDrawTriangle_TikZ()  argument
108   PetscDraw_TikZ *win = (PetscDraw_TikZ *)draw->data;  in PetscDrawTriangle_TikZ()
112 …draw), win->fd, "\\fill [color=%s] (%g,%g) -- (%g,%g) -- (%g,%g) -- cycle;\n", TikZColorMap(c1), X…  in PetscDrawTriangle_TikZ()
116 static PetscErrorCode PetscDrawEllipse_TikZ(PetscDraw draw, PetscReal x, PetscReal y, PetscReal a, …  in PetscDrawEllipse_TikZ()  argument
118   PetscDraw_TikZ *win = (PetscDraw_TikZ *)draw->data;  in PetscDrawEllipse_TikZ()
123   rx           = a / 2 * (draw->port_xr - draw->port_xl) / (draw->coor_xr - draw->coor_xl);  in PetscDrawEllipse_TikZ()
124   ry           = b / 2 * (draw->port_yr - draw->port_yl) / (draw->coor_yr - draw->coor_yl);  in PetscDrawEllipse_TikZ()
125 …(PetscObject)draw), win->fd, "\\fill [color=%s] (%g,%g) circle [x radius=%g,y radius=%g];\n", TikZ…  in PetscDrawEllipse_TikZ()
129 static PetscErrorCode PetscDrawString_TikZ(PetscDraw draw, PetscReal xl, PetscReal yl, int cl, cons…  in PetscDrawString_TikZ()  argument
131   PetscDraw_TikZ *win = (PetscDraw_TikZ *)draw->data;  in PetscDrawString_TikZ()
135 …ectComm((PetscObject)draw), win->fd, "\\node [above right, %s] at (%g,%g) {%s};\n", TikZColorMap(c…  in PetscDrawString_TikZ()
139 static PetscErrorCode PetscDrawStringVertical_TikZ(PetscDraw draw, PetscReal xl, PetscReal yl, int …  in PetscDrawStringVertical_TikZ()  argument
141   PetscDraw_TikZ *win = (PetscDraw_TikZ *)draw->data;  in PetscDrawStringVertical_TikZ()
148   PetscCall(PetscDrawStringGetSize(draw, &width, NULL));  in PetscDrawStringVertical_TikZ()
149 …yl = yl - ((PetscReal)len) * width * (draw->coor_yr - draw->coor_yl) / (draw->coor_xr - draw->coor…  in PetscDrawStringVertical_TikZ()
150 …jectComm((PetscObject)draw), win->fd, "\\node [rotate=90, %s] at (%g,%g) {%s};\n", TikZColorMap(cl…  in PetscDrawStringVertical_TikZ()
157 static PetscErrorCode PetscDrawStringBoxed_TikZ(PetscDraw draw, PetscReal xl, PetscReal yl, int cl,…  in PetscDrawStringBoxed_TikZ()  argument
159   PetscDraw_TikZ *win = (PetscDraw_TikZ *)draw->data;  in PetscDrawStringBoxed_TikZ()
164 …m((PetscObject)draw), win->fd, "\\draw (%g,%g) node [rectangle, draw, align=center, inner sep=1ex]…  in PetscDrawStringBoxed_TikZ()
173 static PetscErrorCode PetscDrawStringGetSize_TikZ(PetscDraw draw, PetscReal *x, PetscReal *y)  in PetscDrawStringGetSize_TikZ()  argument
176   if (x) *x = .014 * (draw->coor_xr - draw->coor_xl) / (draw->port_xr - draw->port_xl);  in PetscDrawStringGetSize_TikZ()
177   if (y) *y = .05 * (draw->coor_yr - draw->coor_yl) / (draw->port_yr - draw->port_yl);  in PetscDrawStringGetSize_TikZ()
183 PETSC_EXTERN PetscErrorCode PetscDrawCreate_TikZ(PetscDraw draw)  in PetscDrawCreate_TikZ()  argument
188   draw->ops[0] = DvOps;  in PetscDrawCreate_TikZ()
191   draw->data = (void *)win;  in PetscDrawCreate_TikZ()
193   if (draw->title) {  in PetscDrawCreate_TikZ()
194     PetscCall(PetscStrallocpy(draw->title, &win->filename));  in PetscDrawCreate_TikZ()
197     PetscCall(PetscObjectGetName((PetscObject)draw, &fname));  in PetscDrawCreate_TikZ()
200   PetscCall(PetscFOpen(PetscObjectComm((PetscObject)draw), win->filename, "w", &win->fd));  in PetscDrawCreate_TikZ()
201   PetscCall(PetscFPrintf(PetscObjectComm((PetscObject)draw), win->fd, TikZ_BEGIN_DOCUMENT));  in PetscDrawCreate_TikZ()
202   PetscCall(PetscFPrintf(PetscObjectComm((PetscObject)draw), win->fd, TikZ_BEGIN_FRAME));  in PetscDrawCreate_TikZ()