1 /*
2 Interface to the PETSc graphics
3 */
4 #pragma once
5 #include <petscsys.h>
6 #include <petscdrawtypes.h>
7
8 /* MANSEC = Sys */
9 /* SUBMANSEC = Draw */
10
11 PETSC_EXTERN PetscClassId PETSC_DRAW_CLASSID;
12
13 PETSC_EXTERN PetscFunctionList PetscDrawList;
14 PETSC_EXTERN PetscErrorCode PetscDrawInitializePackage(void);
15 PETSC_EXTERN PetscErrorCode PetscDrawFinalizePackage(void);
16 PETSC_EXTERN PetscErrorCode PetscDrawRegister(const char[], PetscErrorCode (*)(PetscDraw));
17
18 PETSC_EXTERN PetscErrorCode PetscDrawGetType(PetscDraw, PetscDrawType *);
19 PETSC_EXTERN PetscErrorCode PetscDrawSetType(PetscDraw, PetscDrawType);
20 PETSC_EXTERN PetscErrorCode PetscDrawCreate(MPI_Comm, const char[], const char[], int, int, int, int, PetscDraw *);
21 PETSC_EXTERN PetscErrorCode PetscDrawSetOptionsPrefix(PetscDraw, const char[]);
22 PETSC_EXTERN PetscErrorCode PetscDrawSetFromOptions(PetscDraw);
23 PETSC_EXTERN PetscErrorCode PetscDrawSetSave(PetscDraw, const char[]);
24 PETSC_EXTERN PetscErrorCode PetscDrawSetSaveMovie(PetscDraw, const char[]);
25 PETSC_EXTERN PetscErrorCode PetscDrawSetSaveFinalImage(PetscDraw, const char[]);
26 PETSC_EXTERN PetscErrorCode PetscDrawView(PetscDraw, PetscViewer);
27 PETSC_EXTERN PetscErrorCode PetscDrawViewFromOptions(PetscDraw, PetscObject, const char[]);
28
29 /*
30 Number of basic colors in the draw routines, the others are used
31 for a uniform colormap.
32 */
33 #define PETSC_DRAW_BASIC_COLORS 33
34
35 #define PETSC_DRAW_ROTATE -1 /* will rotate through the colors, start with 2 */
36 #define PETSC_DRAW_WHITE 0
37 #define PETSC_DRAW_BLACK 1
38 #define PETSC_DRAW_RED 2
39 #define PETSC_DRAW_GREEN 3
40 #define PETSC_DRAW_CYAN 4
41 #define PETSC_DRAW_BLUE 5
42 #define PETSC_DRAW_MAGENTA 6
43 #define PETSC_DRAW_AQUAMARINE 7
44 #define PETSC_DRAW_FORESTGREEN 8
45 #define PETSC_DRAW_ORANGE 9
46 #define PETSC_DRAW_VIOLET 10
47 #define PETSC_DRAW_BROWN 11
48 #define PETSC_DRAW_PINK 12
49 #define PETSC_DRAW_CORAL 13
50 #define PETSC_DRAW_GRAY 14
51 #define PETSC_DRAW_YELLOW 15
52
53 #define PETSC_DRAW_GOLD 16
54 #define PETSC_DRAW_LIGHTPINK 17
55 #define PETSC_DRAW_MEDIUMTURQUOISE 18
56 #define PETSC_DRAW_KHAKI 19
57 #define PETSC_DRAW_DIMGRAY 20
58 #define PETSC_DRAW_YELLOWGREEN 21
59 #define PETSC_DRAW_SKYBLUE 22
60 #define PETSC_DRAW_DARKGREEN 23
61 #define PETSC_DRAW_NAVYBLUE 24
62 #define PETSC_DRAW_SANDYBROWN 25
63 #define PETSC_DRAW_CADETBLUE 26
64 #define PETSC_DRAW_POWDERBLUE 27
65 #define PETSC_DRAW_DEEPPINK 28
66 #define PETSC_DRAW_THISTLE 29
67 #define PETSC_DRAW_LIMEGREEN 30
68 #define PETSC_DRAW_LAVENDERBLUSH 31
69 #define PETSC_DRAW_PLUM 32
70 #define PETSC_DRAW_MAXCOLOR 256
71
72 /*MC
73 PetscDrawRealToColor - Maps a real value within an interval to a color.
74 The color is an integer value in the range [`PETSC_DRAW_BASIC_COLORS` to 255]
75 that can be passed to various drawing routines.
76
77 Synopsis:
78 #include <petscdraw.h>
79 int PetscDrawRealToColor(PetscReal value,PetscReal min,PetscReal max)
80
81 Not Collective
82
83 Input Parameters:
84 + value - value to map within the interval [`min`, `max`]
85 . min - lower end of interval
86 - max - upper end of interval
87
88 Returns:
89 The result as integer
90
91 Level: intermediate
92
93 Note:
94 Values outside the interval [`min`, `max`] are clipped.
95
96 .seealso: `PetscDraw`, `PetscDrawPointPixel()`, `PetscDrawPoint()`, `PetscDrawLine()`, `PetscDrawTriangle()`, `PetscDrawRectangle()`
97 M*/
PetscDrawRealToColor(PetscReal value,PetscReal min,PetscReal max)98 static inline int PetscDrawRealToColor(PetscReal value, PetscReal min, PetscReal max)
99 {
100 value = PetscClipInterval(value, min, max);
101 return PETSC_DRAW_BASIC_COLORS + (int)((255 - PETSC_DRAW_BASIC_COLORS) * (value - min) / (max - min));
102 }
103
104 PETSC_EXTERN PetscErrorCode PetscDrawOpenX(MPI_Comm, const char[], const char[], int, int, int, int, PetscDraw *);
105
106 #define PETSC_DRAW_FULL_SIZE -3
107 #define PETSC_DRAW_HALF_SIZE -4
108 #define PETSC_DRAW_THIRD_SIZE -5
109 #define PETSC_DRAW_QUARTER_SIZE -6
110
111 PETSC_EXTERN PetscErrorCode PetscDrawOpenImage(MPI_Comm, const char[], int, int, PetscDraw *);
112 PETSC_EXTERN PetscErrorCode PetscDrawOpenNull(MPI_Comm, PetscDraw *);
113 PETSC_EXTERN PetscErrorCode PetscDrawDestroy(PetscDraw *);
114 PETSC_EXTERN PetscErrorCode PetscDrawIsNull(PetscDraw, PetscBool *);
115
116 PETSC_EXTERN PetscErrorCode PetscDrawGetPopup(PetscDraw, PetscDraw *);
117 PETSC_EXTERN PetscErrorCode PetscDrawScalePopup(PetscDraw, PetscReal, PetscReal);
118
119 PETSC_EXTERN PetscErrorCode PetscDrawCheckResizedWindow(PetscDraw);
120 PETSC_EXTERN PetscErrorCode PetscDrawResizeWindow(PetscDraw, int, int);
121 PETSC_EXTERN PetscErrorCode PetscDrawGetWindowSize(PetscDraw, int *, int *);
122 PETSC_EXTERN PetscErrorCode PetscDrawPixelToCoordinate(PetscDraw, int, int, PetscReal *, PetscReal *);
123 PETSC_EXTERN PetscErrorCode PetscDrawCoordinateToPixel(PetscDraw, PetscReal, PetscReal, int *, int *);
124
125 PETSC_EXTERN PetscErrorCode PetscDrawIndicatorFunction(PetscDraw, PetscReal, PetscReal, PetscReal, PetscReal, int, PetscErrorCode (*)(void *, PetscReal, PetscReal, PetscBool *), void *);
126
127 PETSC_EXTERN PetscErrorCode PetscDrawLine(PetscDraw, PetscReal, PetscReal, PetscReal, PetscReal, int);
128 PETSC_EXTERN PetscErrorCode PetscDrawArrow(PetscDraw, PetscReal, PetscReal, PetscReal, PetscReal, int);
129 PETSC_EXTERN PetscErrorCode PetscDrawLineSetWidth(PetscDraw, PetscReal);
130 PETSC_EXTERN PetscErrorCode PetscDrawLineGetWidth(PetscDraw, PetscReal *);
131
132 /*E
133 PetscDrawMarkerType - How a "mark" is indicate in a figure
134
135 Values:
136 + `PETSC_MARKER_CROSS` - a small pixel based x symbol or the character x if that is not available
137 . `PETSC_MARKER_PLUS` - a small pixel based + symbol or the character + if that is not available
138 . `PETSC_MARKER_CIRCLE` - a small pixel based circle symbol or the character o if that is not available
139 - `PETSC_MARKER_POINT` - the make obtained with `PetscDrawPoint()`
140
141 Level: intermediate
142
143 .seealso: `PetscDraw`, `PetscDrawMarker()`, `PetscDrawSetMarkerType()`
144 E*/
145 typedef enum {
146 PETSC_DRAW_MARKER_CROSS,
147 PETSC_DRAW_MARKER_POINT,
148 PETSC_DRAW_MARKER_PLUS,
149 PETSC_DRAW_MARKER_CIRCLE
150 } PetscDrawMarkerType;
151 PETSC_EXTERN const char *const PetscDrawMarkerTypes[];
152
153 PETSC_EXTERN PetscErrorCode PetscDrawMarker(PetscDraw, PetscReal, PetscReal, int);
154 PETSC_EXTERN PetscErrorCode PetscDrawSetMarkerType(PetscDraw, PetscDrawMarkerType);
155 PETSC_EXTERN PetscErrorCode PetscDrawGetMarkerType(PetscDraw, PetscDrawMarkerType *);
156
157 PETSC_EXTERN PetscErrorCode PetscDrawPoint(PetscDraw, PetscReal, PetscReal, int);
158 PETSC_EXTERN PetscErrorCode PetscDrawPointPixel(PetscDraw, int, int, int);
159 PETSC_EXTERN PetscErrorCode PetscDrawPointSetSize(PetscDraw, PetscReal);
160
161 PETSC_EXTERN PetscErrorCode PetscDrawRectangle(PetscDraw, PetscReal, PetscReal, PetscReal, PetscReal, int, int, int, int);
162 PETSC_EXTERN PetscErrorCode PetscDrawTriangle(PetscDraw, PetscReal, PetscReal, PetscReal, PetscReal, PetscReal, PetscReal, int, int, int);
163 PETSC_EXTERN PetscErrorCode PetscDrawEllipse(PetscDraw, PetscReal, PetscReal, PetscReal, PetscReal, int);
164 PETSC_EXTERN PetscErrorCode PetscDrawTensorContourPatch(PetscDraw, int, int, PetscReal *, PetscReal *, PetscReal, PetscReal, PetscReal *);
165 PETSC_EXTERN PetscErrorCode PetscDrawTensorContour(PetscDraw, int, int, const PetscReal[], const PetscReal[], PetscReal *);
166
167 PETSC_EXTERN PetscErrorCode PetscDrawString(PetscDraw, PetscReal, PetscReal, int, const char[]);
168 PETSC_EXTERN PetscErrorCode PetscDrawStringCentered(PetscDraw, PetscReal, PetscReal, int, const char[]);
169 PETSC_EXTERN PetscErrorCode PetscDrawStringBoxed(PetscDraw, PetscReal, PetscReal, int, int, const char[], PetscReal *, PetscReal *);
170 PETSC_EXTERN PetscErrorCode PetscDrawStringVertical(PetscDraw, PetscReal, PetscReal, int, const char[]);
171 PETSC_EXTERN PetscErrorCode PetscDrawStringSetSize(PetscDraw, PetscReal, PetscReal);
172 PETSC_EXTERN PetscErrorCode PetscDrawStringGetSize(PetscDraw, PetscReal *, PetscReal *);
173
174 PETSC_EXTERN PetscErrorCode PetscDrawSetViewPort(PetscDraw, PetscReal, PetscReal, PetscReal, PetscReal);
175 PETSC_EXTERN PetscErrorCode PetscDrawGetViewPort(PetscDraw, PetscReal *, PetscReal *, PetscReal *, PetscReal *);
176 PETSC_EXTERN PetscErrorCode PetscDrawSplitViewPort(PetscDraw);
177
178 PETSC_EXTERN PetscErrorCode PetscDrawSetCoordinates(PetscDraw, PetscReal, PetscReal, PetscReal, PetscReal);
179 PETSC_EXTERN PetscErrorCode PetscDrawGetCoordinates(PetscDraw, PetscReal *, PetscReal *, PetscReal *, PetscReal *);
180
181 PETSC_EXTERN PetscErrorCode PetscDrawSetTitle(PetscDraw, const char[]);
182 PETSC_EXTERN PetscErrorCode PetscDrawAppendTitle(PetscDraw, const char[]);
183 PETSC_EXTERN PetscErrorCode PetscDrawGetTitle(PetscDraw, const char *[]);
184
185 PETSC_EXTERN PetscErrorCode PetscDrawSetPause(PetscDraw, PetscReal);
186 PETSC_EXTERN PetscErrorCode PetscDrawGetPause(PetscDraw, PetscReal *);
187 PETSC_EXTERN PetscErrorCode PetscDrawPause(PetscDraw);
188 PETSC_EXTERN PetscErrorCode PetscDrawSetDoubleBuffer(PetscDraw);
189 PETSC_EXTERN PetscErrorCode PetscDrawClear(PetscDraw);
190 PETSC_EXTERN PetscErrorCode PetscDrawFlush(PetscDraw);
191 PETSC_EXTERN PetscErrorCode PetscDrawSave(PetscDraw);
192 PETSC_EXTERN PetscErrorCode PetscDrawSaveMovie(PetscDraw);
193 PETSC_EXTERN PetscErrorCode PetscDrawBOP(PetscDraw);
194 PETSC_EXTERN PetscErrorCode PetscDrawEOP(PetscDraw);
195
196 PETSC_EXTERN PetscErrorCode PetscDrawSetDisplay(PetscDraw, const char[]);
197 PETSC_EXTERN PetscErrorCode PetscDrawGetSingleton(PetscDraw, PetscDraw *);
198 PETSC_EXTERN PetscErrorCode PetscDrawRestoreSingleton(PetscDraw, PetscDraw *);
199
200 PETSC_EXTERN PetscErrorCode PetscDrawGetCurrentPoint(PetscDraw, PetscReal *, PetscReal *);
201 PETSC_EXTERN PetscErrorCode PetscDrawSetCurrentPoint(PetscDraw, PetscReal, PetscReal);
202 PETSC_EXTERN PetscErrorCode PetscDrawPushCurrentPoint(PetscDraw, PetscReal, PetscReal);
203 PETSC_EXTERN PetscErrorCode PetscDrawPopCurrentPoint(PetscDraw);
204 PETSC_EXTERN PetscErrorCode PetscDrawGetBoundingBox(PetscDraw, PetscReal *, PetscReal *, PetscReal *, PetscReal *);
205
206 PETSC_EXTERN PetscErrorCode PetscDrawSetVisible(PetscDraw, PetscBool);
207
208 /*E
209 PetscDrawButton - Used to determine which button was pressed
210
211 Values:
212 + `PETSC_BUTTON_NONE` - no button was pressed
213 . `PETSC_BUTTON_LEFT` - the left button
214 . `PETSC_BUTTON_CENTER` - the center button
215 . `PETSC_BUTTON_RIGHT` - the right button
216 . `PETSC_BUTTON_WHEEL_UP` - the wheel was moved up
217 . `PETSC_BUTTON_WHEEL_DOWN` - the wheel was moved down
218 . `PETSC_BUTTON_LEFT_SHIFT` - the left button and the shift key
219 . `PETSC_BUTTON_CENTER_SHIFT`- the center button and the shift key
220 - `PETSC_BUTTON_RIGHT_SHIFT` - the right button and the shift key
221
222 Level: intermediate
223
224 .seealso: `PetscDraw`, `PetscDrawGetMouseButton()`
225 E*/
226 typedef enum {
227 PETSC_BUTTON_NONE,
228 PETSC_BUTTON_LEFT,
229 PETSC_BUTTON_CENTER,
230 PETSC_BUTTON_RIGHT,
231 PETSC_BUTTON_WHEEL_UP,
232 PETSC_BUTTON_WHEEL_DOWN,
233 PETSC_BUTTON_LEFT_SHIFT,
234 PETSC_BUTTON_CENTER_SHIFT,
235 PETSC_BUTTON_RIGHT_SHIFT
236 } PetscDrawButton;
237
238 PETSC_EXTERN PetscErrorCode PetscDrawGetMouseButton(PetscDraw, PetscDrawButton *, PetscReal *, PetscReal *, PetscReal *, PetscReal *);
239
240 PETSC_EXTERN PetscErrorCode PetscDrawZoom(PetscDraw, PetscErrorCode (*)(PetscDraw, void *), void *);
241
242 /*S
243 PetscDrawViewPorts - Object representing subwindows in a `PetscDraw` object
244
245 Level: intermediate
246
247 .seealso: `PetscDraw`, `PetscDrawViewPortsCreate()`, `PetscDrawViewPortsSet()`
248 S*/
249 typedef struct {
250 PetscInt nports;
251 PetscReal *xl;
252 PetscReal *xr;
253 PetscReal *yl;
254 PetscReal *yr;
255 PetscDraw draw;
256 PetscReal port_xl, port_yl, port_xr, port_yr; /* original port of parent PetscDraw */
257 } PetscDrawViewPorts;
258 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsCreate(PetscDraw, PetscInt, PetscDrawViewPorts **);
259 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsCreateRect(PetscDraw, PetscInt, PetscInt, PetscDrawViewPorts **);
260 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsDestroy(PetscDrawViewPorts *);
261 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsSet(PetscDrawViewPorts *, PetscInt);
262
263 PETSC_EXTERN PetscClassId PETSC_DRAWAXIS_CLASSID;
264
265 PETSC_EXTERN PetscErrorCode PetscDrawAxisCreate(PetscDraw, PetscDrawAxis *);
266 PETSC_EXTERN PetscErrorCode PetscDrawAxisDestroy(PetscDrawAxis *);
267 PETSC_EXTERN PetscErrorCode PetscDrawAxisDraw(PetscDrawAxis);
268 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetLimits(PetscDrawAxis, PetscReal, PetscReal, PetscReal, PetscReal);
269 PETSC_EXTERN PetscErrorCode PetscDrawAxisGetLimits(PetscDrawAxis, PetscReal *, PetscReal *, PetscReal *, PetscReal *);
270 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetHoldLimits(PetscDrawAxis, PetscBool);
271 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetColors(PetscDrawAxis, int, int, int);
272 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetLabels(PetscDrawAxis, const char[], const char[], const char[]);
273
274 PETSC_EXTERN PetscClassId PETSC_DRAWLG_CLASSID;
275
276 PETSC_EXTERN PetscErrorCode PetscDrawLGCreate(PetscDraw, PetscInt, PetscDrawLG *);
277 PETSC_EXTERN PetscErrorCode PetscDrawLGDestroy(PetscDrawLG *);
278 PETSC_EXTERN PetscErrorCode PetscDrawLGAddPoint(PetscDrawLG, const PetscReal *, const PetscReal *);
279 PETSC_EXTERN PetscErrorCode PetscDrawLGAddCommonPoint(PetscDrawLG, const PetscReal, const PetscReal *);
280 PETSC_EXTERN PetscErrorCode PetscDrawLGAddPoints(PetscDrawLG, PetscInt, PetscReal **, PetscReal **);
281 PETSC_EXTERN PetscErrorCode PetscDrawLGDraw(PetscDrawLG);
282 PETSC_EXTERN PetscErrorCode PetscDrawLGSave(PetscDrawLG);
283 PETSC_EXTERN PetscErrorCode PetscDrawLGView(PetscDrawLG, PetscViewer);
284 PETSC_EXTERN PetscErrorCode PetscDrawLGReset(PetscDrawLG);
285 PETSC_EXTERN PetscErrorCode PetscDrawLGSetDimension(PetscDrawLG, PetscInt);
286 PETSC_EXTERN PetscErrorCode PetscDrawLGGetDimension(PetscDrawLG, PetscInt *);
287 PETSC_EXTERN PetscErrorCode PetscDrawLGSetLegend(PetscDrawLG, const char *const *);
288 PETSC_EXTERN PetscErrorCode PetscDrawLGGetAxis(PetscDrawLG, PetscDrawAxis *);
289 PETSC_EXTERN PetscErrorCode PetscDrawLGGetDraw(PetscDrawLG, PetscDraw *);
290 PETSC_EXTERN PetscErrorCode PetscDrawLGSetUseMarkers(PetscDrawLG, PetscBool);
291 PETSC_EXTERN PetscErrorCode PetscDrawLGSetLimits(PetscDrawLG, PetscReal, PetscReal, PetscReal, PetscReal);
292 PETSC_EXTERN PetscErrorCode PetscDrawLGSetColors(PetscDrawLG, const int[]);
293 PETSC_EXTERN PetscErrorCode PetscDrawLGSetOptionsPrefix(PetscDrawLG, const char[]);
294 PETSC_EXTERN PetscErrorCode PetscDrawLGSetFromOptions(PetscDrawLG);
295 PETSC_EXTERN PetscErrorCode PetscDrawLGGetData(PetscDrawLG, PetscInt *, PetscInt *, const PetscReal *[], const PetscReal *[]);
296
297 PETSC_EXTERN PetscClassId PETSC_DRAWSP_CLASSID;
298
299 PETSC_EXTERN PetscErrorCode PetscDrawSPCreate(PetscDraw, int, PetscDrawSP *);
300 PETSC_EXTERN PetscErrorCode PetscDrawSPDestroy(PetscDrawSP *);
301 PETSC_EXTERN PetscErrorCode PetscDrawSPAddPoint(PetscDrawSP, PetscReal *, PetscReal *);
302 PETSC_EXTERN PetscErrorCode PetscDrawSPAddPoints(PetscDrawSP, int, PetscReal **, PetscReal **);
303 PETSC_EXTERN PetscErrorCode PetscDrawSPDraw(PetscDrawSP, PetscBool);
304 PETSC_EXTERN PetscErrorCode PetscDrawSPSave(PetscDrawSP);
305 PETSC_EXTERN PetscErrorCode PetscDrawSPReset(PetscDrawSP);
306 PETSC_EXTERN PetscErrorCode PetscDrawSPGetDimension(PetscDrawSP, int *);
307 PETSC_EXTERN PetscErrorCode PetscDrawSPSetDimension(PetscDrawSP, int);
308 PETSC_EXTERN PetscErrorCode PetscDrawSPGetAxis(PetscDrawSP, PetscDrawAxis *);
309 PETSC_EXTERN PetscErrorCode PetscDrawSPGetDraw(PetscDrawSP, PetscDraw *);
310 PETSC_EXTERN PetscErrorCode PetscDrawSPSetLimits(PetscDrawSP, PetscReal, PetscReal, PetscReal, PetscReal);
311 PETSC_EXTERN PetscErrorCode PetscDrawLGSPDraw(PetscDrawLG, PetscDrawSP);
312 PETSC_EXTERN PetscErrorCode PetscDrawSPAddPointColorized(PetscDrawSP, PetscReal *, PetscReal *, PetscReal *);
313
314 PETSC_EXTERN PetscClassId PETSC_DRAWHG_CLASSID;
315
316 PETSC_EXTERN PetscErrorCode PetscDrawHGCreate(PetscDraw, int, PetscDrawHG *);
317 PETSC_EXTERN PetscErrorCode PetscDrawHGDestroy(PetscDrawHG *);
318 PETSC_EXTERN PetscErrorCode PetscDrawHGAddValue(PetscDrawHG, PetscReal);
319 PETSC_EXTERN PetscErrorCode PetscDrawHGAddWeightedValue(PetscDrawHG, PetscReal, PetscReal);
320 PETSC_EXTERN PetscErrorCode PetscDrawHGDraw(PetscDrawHG);
321 PETSC_EXTERN PetscErrorCode PetscDrawHGSave(PetscDrawHG);
322 PETSC_EXTERN PetscErrorCode PetscDrawHGView(PetscDrawHG, PetscViewer);
323 PETSC_EXTERN PetscErrorCode PetscDrawHGReset(PetscDrawHG);
324 PETSC_EXTERN PetscErrorCode PetscDrawHGGetAxis(PetscDrawHG, PetscDrawAxis *);
325 PETSC_EXTERN PetscErrorCode PetscDrawHGGetDraw(PetscDrawHG, PetscDraw *);
326 PETSC_EXTERN PetscErrorCode PetscDrawHGSetLimits(PetscDrawHG, PetscReal, PetscReal, int, int);
327 PETSC_EXTERN PetscErrorCode PetscDrawHGSetNumberBins(PetscDrawHG, int);
328 PETSC_EXTERN PetscErrorCode PetscDrawHGSetColor(PetscDrawHG, int);
329 PETSC_EXTERN PetscErrorCode PetscDrawHGCalcStats(PetscDrawHG, PetscBool);
330 PETSC_EXTERN PetscErrorCode PetscDrawHGIntegerBins(PetscDrawHG, PetscBool);
331
332 PETSC_EXTERN PetscClassId PETSC_DRAWBAR_CLASSID;
333
334 PETSC_EXTERN PetscErrorCode PetscDrawBarCreate(PetscDraw, PetscDrawBar *);
335 PETSC_EXTERN PetscErrorCode PetscDrawBarSetData(PetscDrawBar, PetscInt, const PetscReal[], const char *const *);
336 PETSC_EXTERN PetscErrorCode PetscDrawBarDestroy(PetscDrawBar *);
337 PETSC_EXTERN PetscErrorCode PetscDrawBarDraw(PetscDrawBar);
338 PETSC_EXTERN PetscErrorCode PetscDrawBarSave(PetscDrawBar);
339 PETSC_EXTERN PetscErrorCode PetscDrawBarSetColor(PetscDrawBar, int);
340 PETSC_EXTERN PetscErrorCode PetscDrawBarSetLimits(PetscDrawBar, PetscReal, PetscReal);
341 PETSC_EXTERN PetscErrorCode PetscDrawBarSort(PetscDrawBar, PetscBool, PetscReal);
342 PETSC_EXTERN PetscErrorCode PetscDrawBarSetFromOptions(PetscDrawBar);
343 PETSC_EXTERN PetscErrorCode PetscDrawBarGetAxis(PetscDrawBar, PetscDrawAxis *);
344 PETSC_EXTERN PetscErrorCode PetscDrawBarGetDraw(PetscDrawBar, PetscDraw *);
345
346 PETSC_EXTERN PetscErrorCode PetscDrawUtilitySetCmap(const char[], int, unsigned char[], unsigned char[], unsigned char[]);
347 PETSC_EXTERN PetscErrorCode PetscDrawUtilitySetGamma(PetscReal);
348
349 /*
350 Handling of X11 I/O window resizing, window closing and errors in parallel
351 */
352 #if PetscDefined(HAVE_X) && PetscDefined(HAVE_SETJMP_H)
353 #include <setjmp.h>
354
355 PETSC_EXTERN jmp_buf PetscXIOErrorHandlerJumpBuf;
356 PETSC_EXTERN void PetscXIOErrorHandlerJump(void *);
357 PETSC_EXTERN_TYPEDEF typedef void PetscXIOErrorHandlerFn(void *);
358 PETSC_EXTERN_TYPEDEF typedef PetscXIOErrorHandlerFn *PetscXIOErrorHandler;
359 PETSC_EXTERN PetscXIOErrorHandlerFn *PetscSetXIOErrorHandler(PetscXIOErrorHandlerFn *);
360
361 /*MC
362 PetscDrawCollectiveBegin - Begins a set of draw operations
363
364 Collective
365
366 Synopsis:
367 #include <petscdraw.h>
368 PetscErrorCode PetscDrawCollectiveBegin(PetscDraw draw)
369
370 Collective
371
372 Input Parameter:
373 . draw - the draw object
374
375 Level: advanced
376
377 Notes:
378 This is a macro that handles its own error checking, it does not return an error code.
379
380 The set of operations needs to be ended by a call to `PetscDrawCollectiveEnd()`.
381
382 X windows draw operations that are enclosed by these routines handle correctly resizing or closing of
383 the window without crashing the program.
384
385 Developer Note:
386 This only applies to X windows and so should have a more specific name such as `PetscDrawXCollectiveBegin()`
387
388 .seealso: `PetscDraw`, `PetscDrawCollectiveEnd()`
389 M*/
390 #define PetscDrawCollectiveBegin(draw) \
391 do { \
392 jmp_buf _Petsc_jmpbuf; \
393 PetscXIOErrorHandlerFn *volatile _Petsc_xioerrhdl = PETSC_NULLPTR; \
394 PetscBool _Petsc_isdrawx, _Petsc_xioerr = PETSC_FALSE; \
395 PetscCall(PetscObjectTypeCompare((PetscObject)(draw), PETSC_DRAW_X, &_Petsc_isdrawx)); \
396 if (_Petsc_isdrawx) { \
397 PetscCall(PetscMemcpy(&_Petsc_jmpbuf, &PetscXIOErrorHandlerJumpBuf, sizeof(_Petsc_jmpbuf))); \
398 _Petsc_xioerrhdl = PetscSetXIOErrorHandler(PetscXIOErrorHandlerJump); \
399 if (setjmp(PetscXIOErrorHandlerJumpBuf)) { \
400 _Petsc_xioerr = PETSC_TRUE; \
401 do { \
402 PetscDrawCollectiveEnd(draw); \
403 } \
404 } \
405 do { \
406 } while (0)
407
408 /*MC
409 PetscDrawCollectiveEnd - Ends a set of draw operations begun with `PetscDrawCollectiveBegin()`
410
411 Collective
412
413 Synopsis:
414 #include <petscdraw.h>
415 PetscErrorCode PetscDrawCollectiveEnd(PetscDraw draw)
416
417 Collective
418
419 Input Parameter:
420 . draw - the draw object
421
422 Level: advanced
423
424 Notes:
425 This is a macro that handles its own error checking, it does not return an error code.
426
427 X windows draw operations that are enclosed by these routines handle correctly resizing or closing of
428 the window without crashing the program.
429
430 Developer Note:
431 This only applies to X windows and so should have a more specific name such as `PetscDrawXCollectiveEnd()`
432
433 .seealso: `PetscDraw`, `PetscDrawCollectiveBegin()`
434 M*/
435 #define PetscDrawCollectiveEnd(draw) \
436 if (_Petsc_isdrawx) { \
437 (void)PetscSetXIOErrorHandler(_Petsc_xioerrhdl); \
438 PetscCall(PetscMemcpy(&PetscXIOErrorHandlerJumpBuf, &_Petsc_jmpbuf, sizeof(PetscXIOErrorHandlerJumpBuf))); \
439 PetscCallMPI(MPIU_Allreduce(MPI_IN_PLACE, &_Petsc_xioerr, 1, MPI_C_BOOL, MPI_LOR, PetscObjectComm((PetscObject)(draw)))); \
440 if (_Petsc_xioerr) { \
441 PetscCall(PetscDrawSetType((draw), PETSC_DRAW_NULL)); \
442 PetscFunctionReturn(PETSC_SUCCESS); \
443 } \
444 } \
445 } \
446 while (0)
447
448 #else
449 #define PetscDrawCollectiveBegin(draw)
450 #define PetscDrawCollectiveEnd(draw)
451 #endif /* PetscDefined(HAVE_X) && PetscDefined(HAVE_SETJMP_H) */
452
453 PETSC_EXTERN PetscErrorCode PetscViewerDrawGetDrawType(PetscViewer, PetscDrawType *);
454 PETSC_EXTERN PetscErrorCode PetscViewerDrawSetTitle(PetscViewer, const char[]);
455 PETSC_EXTERN PetscErrorCode PetscViewerDrawGetTitle(PetscViewer, const char *[]);
456 PETSC_EXTERN PetscErrorCode PetscViewerDrawGetDraw(PetscViewer, PetscInt, PetscDraw *);
457 PETSC_EXTERN PetscErrorCode PetscViewerDrawBaseAdd(PetscViewer, PetscInt);
458 PETSC_EXTERN PetscErrorCode PetscViewerDrawBaseSet(PetscViewer, PetscInt);
459 PETSC_EXTERN PetscErrorCode PetscViewerDrawGetDrawLG(PetscViewer, PetscInt, PetscDrawLG *);
460 PETSC_EXTERN PetscErrorCode PetscViewerDrawGetDrawAxis(PetscViewer, PetscInt, PetscDrawAxis *);
461