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