xref: /petsc/include/petscdraw.h (revision b05fc00097cdf6db9066065a4de0654ad03e32cd) 
1 /*
2   Interface to the PETSc graphics
3 */
4 #if !defined(__PETSCDRAW_H)
5 #define __PETSCDRAW_H
6 #include <petscsys.h>
7 #include <petscdrawtypes.h>
8 
9 PETSC_EXTERN PetscClassId PETSC_DRAW_CLASSID;
10 
11 PETSC_EXTERN PetscFunctionList PetscDrawList;
12 PETSC_EXTERN PetscErrorCode PetscDrawInitializePackage(void);
13 PETSC_EXTERN PetscErrorCode PetscDrawRegister(const char[],PetscErrorCode(*)(PetscDraw));
14 
15 PETSC_EXTERN PetscErrorCode PetscDrawGetType(PetscDraw,PetscDrawType*);
16 PETSC_EXTERN PetscErrorCode PetscDrawSetType(PetscDraw,PetscDrawType);
17 PETSC_EXTERN PetscErrorCode PetscDrawCreate(MPI_Comm,const char[],const char[],int,int,int,int,PetscDraw*);
18 PETSC_EXTERN PetscErrorCode PetscDrawSetFromOptions(PetscDraw);
19 PETSC_EXTERN PetscErrorCode PetscDrawSetSave(PetscDraw,const char*,PetscBool);
20 PETSC_EXTERN PetscErrorCode PetscDrawSetSaveFinalImage(PetscDraw,const char*);
21 PETSC_EXTERN PetscErrorCode PetscDrawView(PetscDraw,PetscViewer);
22 PETSC_STATIC_INLINE PetscErrorCode PetscDrawViewFromOptions(PetscDraw A,PetscObject obj,const char name[]) {return PetscObjectViewFromOptions((PetscObject)A,obj,name);}
23 
24 /*
25    Number of basic colors in the draw routines, the others are used
26    for a uniform colormap.
27 */
28 #define PETSC_DRAW_BASIC_COLORS 33
29 
30 #define PETSC_DRAW_ROTATE          -1         /* will rotate through the colors, start with 2 */
31 #define PETSC_DRAW_WHITE            0
32 #define PETSC_DRAW_BLACK            1
33 #define PETSC_DRAW_RED              2
34 #define PETSC_DRAW_GREEN            3
35 #define PETSC_DRAW_CYAN             4
36 #define PETSC_DRAW_BLUE             5
37 #define PETSC_DRAW_MAGENTA          6
38 #define PETSC_DRAW_AQUAMARINE       7
39 #define PETSC_DRAW_FORESTGREEN      8
40 #define PETSC_DRAW_ORANGE           9
41 #define PETSC_DRAW_VIOLET          10
42 #define PETSC_DRAW_BROWN           11
43 #define PETSC_DRAW_PINK            12
44 #define PETSC_DRAW_CORAL           13
45 #define PETSC_DRAW_GRAY            14
46 #define PETSC_DRAW_YELLOW          15
47 
48 #define PETSC_DRAW_GOLD            16
49 #define PETSC_DRAW_LIGHTPINK       17
50 #define PETSC_DRAW_MEDIUMTURQUOISE 18
51 #define PETSC_DRAW_KHAKI           19
52 #define PETSC_DRAW_DIMGRAY         20
53 #define PETSC_DRAW_YELLOWGREEN     21
54 #define PETSC_DRAW_SKYBLUE         22
55 #define PETSC_DRAW_DARKGREEN       23
56 #define PETSC_DRAW_NAVYBLUE        24
57 #define PETSC_DRAW_SANDYBROWN      25
58 #define PETSC_DRAW_CADETBLUE       26
59 #define PETSC_DRAW_POWDERBLUE      27
60 #define PETSC_DRAW_DEEPPINK        28
61 #define PETSC_DRAW_THISTLE         29
62 #define PETSC_DRAW_LIMEGREEN       30
63 #define PETSC_DRAW_LAVENDERBLUSH   31
64 #define PETSC_DRAW_PLUM            32
65 
66 /*MC
67 
68    PetscDrawRealToColor - Maps a real value within an interval to a color.
69    The color is an integer value in the range [PETSC_DRAW_BASIC_COLORS to 255]
70    that can be passed to various drawing routines.
71 
72    Synopsis:
73    #include <petscdraw.h>
74    int PetscDrawRealToColor(PetscReal value,PetscReal min,PetscReal max)
75 
76    Not Collective
77 
78    Input Parameter:
79 +  value - value to map within the interval [min,max]
80 .  min - lower end of interval
81 -  max - upper end of interval
82 
83    Notes: Values outside the interval [min,max] are clipped.
84 
85    Level: intermediate
86 
87 .seealso: PetscDrawPointPixel(), PetscDrawPoint(), PetscDrawLine(), PetscDrawTriangle(), PetscDrawRectangle()
88 
89 M*/
90 PETSC_STATIC_INLINE int PetscDrawRealToColor(PetscReal value,PetscReal min,PetscReal max)
91 {
92   value = PetscClipInterval(value,min,max);
93   return PETSC_DRAW_BASIC_COLORS + (int)((255-PETSC_DRAW_BASIC_COLORS)*(value-min)/(max-min));
94 }
95 
96 PETSC_EXTERN PetscErrorCode PetscDrawOpenX(MPI_Comm,const char[],const char[],int,int,int,int,PetscDraw*);
97 PETSC_EXTERN PetscErrorCode PetscDrawOpenGLUT(MPI_Comm,const char[],const char[],int,int,int,int,PetscDraw*);
98 
99 #define PETSC_DRAW_FULL_SIZE    -3
100 #define PETSC_DRAW_HALF_SIZE    -4
101 #define PETSC_DRAW_THIRD_SIZE   -5
102 #define PETSC_DRAW_QUARTER_SIZE -6
103 
104 PETSC_EXTERN PetscErrorCode PetscDrawOpenNull(MPI_Comm,PetscDraw *);
105 PETSC_EXTERN PetscErrorCode PetscDrawDestroy(PetscDraw*);
106 PETSC_EXTERN PetscErrorCode PetscDrawIsNull(PetscDraw,PetscBool *);
107 
108 PETSC_EXTERN PetscErrorCode PetscDrawGetPopup(PetscDraw,PetscDraw*);
109 PETSC_EXTERN PetscErrorCode PetscDrawCheckResizedWindow(PetscDraw);
110 PETSC_EXTERN PetscErrorCode PetscDrawResizeWindow(PetscDraw,int,int);
111 
112 PETSC_EXTERN PetscErrorCode PetscDrawScalePopup(PetscDraw,PetscReal,PetscReal);
113 
114 PETSC_EXTERN PetscErrorCode PetscDrawPixelToCoordinate(PetscDraw,PetscInt,PetscInt,PetscReal*,PetscReal*);
115 PETSC_EXTERN PetscErrorCode PetscDrawCoordinateToPixel(PetscDraw,PetscReal,PetscReal,PetscInt*,PetscInt*);
116 
117 PETSC_EXTERN PetscErrorCode PetscDrawIndicatorFunction(PetscDraw,PetscReal,PetscReal,PetscReal,PetscReal,int,PetscErrorCode (*)(void*,PetscReal,PetscReal,PetscBool*),void*);
118 
119 PETSC_EXTERN PetscErrorCode PetscDrawLine(PetscDraw,PetscReal,PetscReal,PetscReal,PetscReal,int);
120 PETSC_EXTERN PetscErrorCode PetscDrawArrow(PetscDraw,PetscReal,PetscReal,PetscReal,PetscReal,int);
121 PETSC_EXTERN PetscErrorCode PetscDrawLineSetWidth(PetscDraw,PetscReal);
122 PETSC_EXTERN PetscErrorCode PetscDrawLineGetWidth(PetscDraw,PetscReal*);
123 
124 /*E
125     PetscDrawMarkerType - How a "mark" is indicate in a figure
126 
127    Level: intermediate
128 
129 $  PETSC_MARKER_CROSS - a small pixel based x symbol or the character x if that is not available
130 $  PETSC_MARKER_PLUS - a small pixel based + symbol or the character + if that is not available
131 $  PETSC_MARKER_CIRCLE - a small pixel based circle symbol or the character o if that is not available
132 $  PETSC_MARKER_POINT - the make obtained with PetscDrawPoint()
133 
134 .seealso: PetscDrawMarker(), PetscDrawSetMarkerType()
135 E*/
136 typedef enum {PETSC_DRAW_MARKER_CROSS, PETSC_DRAW_MARKER_POINT,PETSC_DRAW_MARKER_PLUS,PETSC_DRAW_MARKER_CIRCLE} PetscDrawMarkerType;
137 PETSC_EXTERN const char *const PetscDrawMarkerTypes[];
138 
139 PETSC_EXTERN PetscErrorCode PetscDrawMarker(PetscDraw,PetscReal,PetscReal,int);
140 PETSC_EXTERN PetscErrorCode PetscDrawSetMarkerType(PetscDraw,PetscDrawMarkerType);
141 PETSC_EXTERN PetscErrorCode PetscDrawGetMarkerType(PetscDraw,PetscDrawMarkerType*);
142 
143 PETSC_EXTERN PetscErrorCode PetscDrawPoint(PetscDraw,PetscReal,PetscReal,int);
144 PETSC_EXTERN PetscErrorCode PetscDrawPointPixel(PetscDraw,PetscInt,PetscInt,int);
145 PETSC_EXTERN PetscErrorCode PetscDrawPointSetSize(PetscDraw,PetscReal);
146 
147 PETSC_EXTERN PetscErrorCode PetscDrawRectangle(PetscDraw,PetscReal,PetscReal,PetscReal,PetscReal,int,int,int,int);
148 PETSC_EXTERN PetscErrorCode PetscDrawTriangle(PetscDraw,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,PetscReal,int,int,int);
149 PETSC_EXTERN PetscErrorCode PetscDrawEllipse(PetscDraw,PetscReal,PetscReal,PetscReal,PetscReal,int);
150 PETSC_EXTERN PetscErrorCode PetscDrawTensorContourPatch(PetscDraw,int,int,PetscReal*,PetscReal*,PetscReal,PetscReal,PetscReal*);
151 PETSC_EXTERN PetscErrorCode PetscDrawTensorContour(PetscDraw,int,int,const PetscReal[],const PetscReal[],PetscReal *);
152 
153 PETSC_EXTERN PetscErrorCode PetscDrawString(PetscDraw,PetscReal,PetscReal,int,const char[]);
154 PETSC_EXTERN PetscErrorCode PetscDrawStringCentered(PetscDraw,PetscReal,PetscReal,int,const char[]);
155 PETSC_EXTERN PetscErrorCode PetscDrawStringBoxed(PetscDraw,PetscReal,PetscReal,int,int,const char[],PetscReal*,PetscReal*);
156 PETSC_EXTERN PetscErrorCode PetscDrawStringBoxedSize(PetscDraw,const char[],PetscReal*,PetscReal*);
157 PETSC_EXTERN PetscErrorCode PetscDrawStringVertical(PetscDraw,PetscReal,PetscReal,int,const char[]);
158 PETSC_EXTERN PetscErrorCode PetscDrawStringSetSize(PetscDraw,PetscReal,PetscReal);
159 PETSC_EXTERN PetscErrorCode PetscDrawStringGetSize(PetscDraw,PetscReal*,PetscReal*);
160 
161 PETSC_EXTERN PetscErrorCode PetscDrawSetViewPort(PetscDraw,PetscReal,PetscReal,PetscReal,PetscReal);
162 PETSC_EXTERN PetscErrorCode PetscDrawGetViewPort(PetscDraw,PetscReal*,PetscReal*,PetscReal*,PetscReal*);
163 PETSC_EXTERN PetscErrorCode PetscDrawSplitViewPort(PetscDraw);
164 
165 PETSC_EXTERN PetscErrorCode PetscDrawSetCoordinates(PetscDraw,PetscReal,PetscReal,PetscReal,PetscReal);
166 PETSC_EXTERN PetscErrorCode PetscDrawGetCoordinates(PetscDraw,PetscReal*,PetscReal*,PetscReal*,PetscReal*);
167 
168 PETSC_EXTERN PetscErrorCode PetscDrawSetTitle(PetscDraw,const char[]);
169 PETSC_EXTERN PetscErrorCode PetscDrawAppendTitle(PetscDraw,const char[]);
170 PETSC_EXTERN PetscErrorCode PetscDrawGetTitle(PetscDraw,char **);
171 
172 PETSC_EXTERN PetscErrorCode PetscDrawSetPause(PetscDraw,PetscReal);
173 PETSC_EXTERN PetscErrorCode PetscDrawGetPause(PetscDraw,PetscReal*);
174 PETSC_EXTERN PetscErrorCode PetscDrawPause(PetscDraw);
175 PETSC_EXTERN PetscErrorCode PetscDrawSetDoubleBuffer(PetscDraw);
176 PETSC_EXTERN PetscErrorCode PetscDrawFlush(PetscDraw);
177 PETSC_EXTERN PetscErrorCode PetscDrawSynchronizedFlush(PetscDraw);
178 PETSC_EXTERN PetscErrorCode PetscDrawClear(PetscDraw);
179 PETSC_EXTERN PetscErrorCode PetscDrawSave(PetscDraw);
180 PETSC_EXTERN PetscErrorCode PetscDrawSynchronizedClear(PetscDraw);
181 PETSC_EXTERN PetscErrorCode PetscDrawBOP(PetscDraw);
182 PETSC_EXTERN PetscErrorCode PetscDrawEOP(PetscDraw);
183 
184 PETSC_EXTERN PetscErrorCode PetscDrawSetDisplay(PetscDraw,const char[]);
185 PETSC_EXTERN PetscErrorCode PetscDrawGetSingleton(PetscDraw,PetscDraw*);
186 PETSC_EXTERN PetscErrorCode PetscDrawRestoreSingleton(PetscDraw,PetscDraw*);
187 
188 PETSC_EXTERN PetscErrorCode PetscDrawGetCurrentPoint(PetscDraw,PetscReal*,PetscReal*);
189 PETSC_EXTERN PetscErrorCode PetscDrawSetCurrentPoint(PetscDraw,PetscReal,PetscReal);
190 PETSC_EXTERN PetscErrorCode PetscDrawPushCurrentPoint(PetscDraw,PetscReal,PetscReal);
191 PETSC_EXTERN PetscErrorCode PetscDrawPopCurrentPoint(PetscDraw);
192 PETSC_EXTERN PetscErrorCode PetscDrawGetBoundingBox(PetscDraw,PetscReal*,PetscReal*,PetscReal*,PetscReal*);
193 
194 /*E
195     PetscDrawButton - Used to determine which button was pressed
196 
197    Level: intermediate
198 
199 .seealso: PetscDrawGetMouseButton(), PetscDrawSynchronizedGetMouseButton()
200 E*/
201 typedef enum {PETSC_BUTTON_NONE,PETSC_BUTTON_LEFT,PETSC_BUTTON_CENTER,PETSC_BUTTON_RIGHT,PETSC_BUTTON_LEFT_SHIFT,PETSC_BUTTON_CENTER_SHIFT,PETSC_BUTTON_RIGHT_SHIFT} PetscDrawButton;
202 
203 PETSC_EXTERN PetscErrorCode PetscDrawGetMouseButton(PetscDraw,PetscDrawButton *,PetscReal*,PetscReal *,PetscReal *,PetscReal *);
204 PETSC_EXTERN PetscErrorCode PetscDrawSynchronizedGetMouseButton(PetscDraw,PetscDrawButton *,PetscReal*,PetscReal *,PetscReal *,PetscReal *);
205 
206 PETSC_EXTERN PetscErrorCode PetscDrawZoom(PetscDraw,PetscErrorCode (*)(PetscDraw,void *),void *);
207 
208 /*S
209      PetscDrawViewPorts - Subwindows in a PetscDraw object
210 
211    Level: intermediate
212 
213   Concepts: graphics
214 
215 .seealso:  PetscDrawViewPortsCreate(), PetscDrawViewPortsSet()
216 S*/
217 typedef struct {
218   PetscInt  nports;
219   PetscReal *xl;
220   PetscReal *xr;
221   PetscReal *yl;
222   PetscReal *yr;
223   PetscDraw draw;
224   PetscReal port_xl,port_yl,port_xr,port_yr;   /* original port of parent PetscDraw */
225 
226 } PetscDrawViewPorts;
227 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsCreate(PetscDraw,PetscInt,PetscDrawViewPorts**);
228 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsCreateRect(PetscDraw,PetscInt,PetscInt,PetscDrawViewPorts**);
229 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsDestroy(PetscDrawViewPorts*);
230 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsSet(PetscDrawViewPorts*,PetscInt);
231 
232 PETSC_EXTERN PetscClassId PETSC_DRAWAXIS_CLASSID;
233 
234 PETSC_EXTERN PetscErrorCode PetscDrawAxisCreate(PetscDraw,PetscDrawAxis *);
235 PETSC_EXTERN PetscErrorCode PetscDrawAxisDestroy(PetscDrawAxis*);
236 PETSC_EXTERN PetscErrorCode PetscDrawAxisDraw(PetscDrawAxis);
237 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetLimits(PetscDrawAxis,PetscReal,PetscReal,PetscReal,PetscReal);
238 PETSC_EXTERN PetscErrorCode PetscDrawAxisGetLimits(PetscDrawAxis,PetscReal*,PetscReal*,PetscReal*,PetscReal*);
239 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetHoldLimits(PetscDrawAxis,PetscBool );
240 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetColors(PetscDrawAxis,int,int,int);
241 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetLabels(PetscDrawAxis,const char[],const char[],const char[]);
242 
243 PETSC_EXTERN PetscClassId PETSC_DRAWLG_CLASSID;
244 
245 PETSC_EXTERN PetscErrorCode PetscDrawLGCreate(PetscDraw,PetscInt,PetscDrawLG *);
246 PETSC_EXTERN PetscErrorCode PetscDrawLGDestroy(PetscDrawLG*);
247 PETSC_EXTERN PetscErrorCode PetscDrawLGAddPoint(PetscDrawLG,const PetscReal*,const PetscReal*);
248 PETSC_EXTERN PetscErrorCode PetscDrawLGAddCommonPoint(PetscDrawLG,const PetscReal,const PetscReal*);
249 PETSC_EXTERN PetscErrorCode PetscDrawLGAddPoints(PetscDrawLG,PetscInt,PetscReal**,PetscReal**);
250 PETSC_EXTERN PetscErrorCode PetscDrawLGDraw(PetscDrawLG);
251 PETSC_EXTERN PetscErrorCode PetscDrawLGView(PetscDrawLG,PetscViewer);
252 PETSC_EXTERN PetscErrorCode PetscDrawLGReset(PetscDrawLG);
253 PETSC_EXTERN PetscErrorCode PetscDrawLGSetDimension(PetscDrawLG,PetscInt);
254 PETSC_EXTERN PetscErrorCode PetscDrawLGGetDimension(PetscDrawLG,PetscInt*);
255 PETSC_EXTERN PetscErrorCode PetscDrawLGSetLegend(PetscDrawLG,const char *const*);
256 PETSC_EXTERN PetscErrorCode PetscDrawLGGetAxis(PetscDrawLG,PetscDrawAxis *);
257 PETSC_EXTERN PetscErrorCode PetscDrawLGGetDraw(PetscDrawLG,PetscDraw *);
258 PETSC_EXTERN PetscErrorCode PetscDrawLGSetUseMarkers(PetscDrawLG,PetscBool);
259 PETSC_EXTERN PetscErrorCode PetscDrawLGSetLimits(PetscDrawLG,PetscReal,PetscReal,PetscReal,PetscReal);
260 PETSC_EXTERN PetscErrorCode PetscDrawLGSetColors(PetscDrawLG,const int*);
261 PETSC_EXTERN PetscErrorCode PetscDrawLGSetFromOptions(PetscDrawLG);
262 
263 PETSC_EXTERN PetscClassId PETSC_DRAWSP_CLASSID;
264 
265 PETSC_EXTERN PetscErrorCode PetscDrawSPCreate(PetscDraw,int,PetscDrawSP *);
266 PETSC_EXTERN PetscErrorCode PetscDrawSPDestroy(PetscDrawSP*);
267 PETSC_EXTERN PetscErrorCode PetscDrawSPAddPoint(PetscDrawSP,PetscReal*,PetscReal*);
268 PETSC_EXTERN PetscErrorCode PetscDrawSPAddPoints(PetscDrawSP,int,PetscReal**,PetscReal**);
269 PETSC_EXTERN PetscErrorCode PetscDrawSPDraw(PetscDrawSP,PetscBool);
270 PETSC_EXTERN PetscErrorCode PetscDrawSPReset(PetscDrawSP);
271 PETSC_EXTERN PetscErrorCode PetscDrawSPSetDimension(PetscDrawSP,int);
272 PETSC_EXTERN PetscErrorCode PetscDrawSPGetAxis(PetscDrawSP,PetscDrawAxis *);
273 PETSC_EXTERN PetscErrorCode PetscDrawSPGetDraw(PetscDrawSP,PetscDraw *);
274 PETSC_EXTERN PetscErrorCode PetscDrawSPSetLimits(PetscDrawSP,PetscReal,PetscReal,PetscReal,PetscReal);
275 PETSC_EXTERN PetscErrorCode PetscDrawLGSPDraw(PetscDrawLG,PetscDrawSP);
276 
277 PETSC_EXTERN PetscClassId PETSC_DRAWHG_CLASSID;
278 
279 PETSC_EXTERN PetscErrorCode PetscDrawHGCreate(PetscDraw,int,PetscDrawHG *);
280 PETSC_EXTERN PetscErrorCode PetscDrawHGDestroy(PetscDrawHG*);
281 PETSC_EXTERN PetscErrorCode PetscDrawHGAddValue(PetscDrawHG,PetscReal);
282 PETSC_EXTERN PetscErrorCode PetscDrawHGDraw(PetscDrawHG);
283 PETSC_EXTERN PetscErrorCode PetscDrawHGView(PetscDrawHG,PetscViewer);
284 PETSC_EXTERN PetscErrorCode PetscDrawHGReset(PetscDrawHG);
285 PETSC_EXTERN PetscErrorCode PetscDrawHGGetAxis(PetscDrawHG,PetscDrawAxis *);
286 PETSC_EXTERN PetscErrorCode PetscDrawHGGetDraw(PetscDrawHG,PetscDraw *);
287 PETSC_EXTERN PetscErrorCode PetscDrawHGSetLimits(PetscDrawHG,PetscReal,PetscReal,int,int);
288 PETSC_EXTERN PetscErrorCode PetscDrawHGSetNumberBins(PetscDrawHG,int);
289 PETSC_EXTERN PetscErrorCode PetscDrawHGSetColor(PetscDrawHG,int);
290 PETSC_EXTERN PetscErrorCode PetscDrawHGCalcStats(PetscDrawHG, PetscBool );
291 PETSC_EXTERN PetscErrorCode PetscDrawHGIntegerBins(PetscDrawHG, PetscBool );
292 
293 PETSC_EXTERN PetscClassId PETSC_DRAWBAR_CLASSID;
294 
295 PETSC_EXTERN PetscErrorCode PetscDrawBarCreate(PetscDraw,PetscDrawBar*);
296 PETSC_EXTERN PetscErrorCode PetscDrawBarSetData(PetscDrawBar,PetscInt,const PetscReal[],const char *const *);
297 PETSC_EXTERN PetscErrorCode PetscDrawBarDestroy(PetscDrawBar*);
298 PETSC_EXTERN PetscErrorCode PetscDrawBarDraw(PetscDrawBar);
299 PETSC_EXTERN PetscErrorCode PetscDrawBarSetColor(PetscDrawBar,int);
300 PETSC_EXTERN PetscErrorCode PetscDrawBarSetLimits(PetscDrawBar,PetscReal,PetscReal);
301 PETSC_EXTERN PetscErrorCode PetscDrawBarSort(PetscDrawBar,PetscBool,PetscReal);
302 PETSC_EXTERN PetscErrorCode PetscDrawBarSetFromOptions(PetscDrawBar);
303 PETSC_EXTERN PetscErrorCode PetscDrawBarGetAxis(PetscDrawBar,PetscDrawAxis*);
304 PETSC_EXTERN PetscErrorCode PetscDrawBarGetDraw(PetscDrawBar,PetscDraw*);
305 
306 /*
307     PetscViewer routines that allow you to access underlying PetscDraw objects
308 */
309 PETSC_EXTERN PetscErrorCode PetscViewerDrawGetDraw(PetscViewer,PetscInt,PetscDraw*);
310 PETSC_EXTERN PetscErrorCode PetscViewerDrawBaseAdd(PetscViewer,PetscInt);
311 PETSC_EXTERN PetscErrorCode PetscViewerDrawBaseSet(PetscViewer,PetscInt);
312 PETSC_EXTERN PetscErrorCode PetscViewerDrawGetDrawLG(PetscViewer,PetscInt,PetscDrawLG*);
313 PETSC_EXTERN PetscErrorCode PetscViewerDrawGetDrawAxis(PetscViewer,PetscInt,PetscDrawAxis*);
314 
315 PETSC_EXTERN PetscErrorCode PetscDrawUtilitySetCmap(const char[],int,unsigned char[],unsigned char[],unsigned char[]);
316 PETSC_EXTERN PetscErrorCode PetscDrawUtilitySetGamma(PetscReal);
317 
318 /*
319     Handling of X11 I/O errors in parallel
320 */
321 #if defined(PETSC_HAVE_X) && defined(PETSC_HAVE_SETJMP_H)
322 
323 #include <setjmp.h>
324 
325 PETSC_EXTERN jmp_buf PetscXIOErrorHandlerJumpBuf;
326 PETSC_EXTERN void    PetscXIOErrorHandlerJump(void *);
327 PETSC_EXTERN_TYPEDEF typedef void (*PetscXIOErrorHandler)(void *);
328 PETSC_EXTERN PetscXIOErrorHandler PetscSetXIOErrorHandler(PetscXIOErrorHandler);
329 
330 #define PetscDrawCollectiveBegin(draw) 0; do { \
331   PetscErrorCode       _Petsc_ierr; \
332   jmp_buf              _Petsc_jmpbuf; \
333   PetscXIOErrorHandler _Petsc_xioerrhdl = NULL; \
334   PetscBool            _Petsc_isdrawx, _Petsc_xioerr, _Petsc_xioerr_local = PETSC_FALSE; \
335   _Petsc_ierr = PetscObjectTypeCompare((PetscObject)(draw),PETSC_DRAW_X,&_Petsc_isdrawx);CHKERRQ(_Petsc_ierr); \
336   if (_Petsc_isdrawx) { \
337     _Petsc_ierr = PetscMemcpy(&_Petsc_jmpbuf,&PetscXIOErrorHandlerJumpBuf,sizeof(_Petsc_jmpbuf));CHKERRQ(_Petsc_ierr); \
338     _Petsc_xioerrhdl = PetscSetXIOErrorHandler(PetscXIOErrorHandlerJump); \
339     if (setjmp(PetscXIOErrorHandlerJumpBuf)) {_Petsc_xioerr_local = PETSC_TRUE; {_Petsc_ierr = PetscDrawCollectiveEnd(draw);CHKERRQ(_Petsc_ierr);} \
340   } do {} while(0)
341 
342 #define PetscDrawCollectiveEnd(draw) 0; \
343   if (_Petsc_isdrawx) { \
344     (void)PetscSetXIOErrorHandler(_Petsc_xioerrhdl); \
345     _Petsc_ierr = PetscMemcpy(&PetscXIOErrorHandlerJumpBuf,&_Petsc_jmpbuf,sizeof(PetscXIOErrorHandlerJumpBuf));CHKERRQ(_Petsc_ierr); \
346     _Petsc_ierr = MPI_Allreduce(&_Petsc_xioerr_local,&_Petsc_xioerr,1,MPIU_BOOL,MPI_LOR,PetscObjectComm((PetscObject)(draw)));CHKERRQ(_Petsc_ierr); \
347     if (_Petsc_xioerr) { \
348       _Petsc_ierr = PetscDrawSetType((draw),PETSC_DRAW_NULL);CHKERRQ(_Petsc_ierr); \
349       PetscFunctionReturn(0); \
350     } \
351   } } while(0)
352 
353 #else
354 
355 #define PetscDrawCollectiveBegin(draw) 0; do {} while(0)
356 #define PetscDrawCollectiveEnd(draw)   0; do {} while(0)
357 
358 #endif
359 
360 #endif
361