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 = 0, 202 PETSC_BUTTON_LEFT,PETSC_BUTTON_CENTER,PETSC_BUTTON_RIGHT, 203 PETSC_BUTTON_WHEEL_UP,PETSC_BUTTON_WHEEL_DOWN, 204 PETSC_BUTTON_LEFT_SHIFT,PETSC_BUTTON_CENTER_SHIFT,PETSC_BUTTON_RIGHT_SHIFT } PetscDrawButton; 205 206 PETSC_EXTERN PetscErrorCode PetscDrawGetMouseButton(PetscDraw,PetscDrawButton *,PetscReal*,PetscReal *,PetscReal *,PetscReal *); 207 PETSC_EXTERN PetscErrorCode PetscDrawSynchronizedGetMouseButton(PetscDraw,PetscDrawButton *,PetscReal*,PetscReal *,PetscReal *,PetscReal *); 208 209 PETSC_EXTERN PetscErrorCode PetscDrawZoom(PetscDraw,PetscErrorCode (*)(PetscDraw,void *),void *); 210 211 /*S 212 PetscDrawViewPorts - Subwindows in a PetscDraw object 213 214 Level: intermediate 215 216 Concepts: graphics 217 218 .seealso: PetscDrawViewPortsCreate(), PetscDrawViewPortsSet() 219 S*/ 220 typedef struct { 221 PetscInt nports; 222 PetscReal *xl; 223 PetscReal *xr; 224 PetscReal *yl; 225 PetscReal *yr; 226 PetscDraw draw; 227 PetscReal port_xl,port_yl,port_xr,port_yr; /* original port of parent PetscDraw */ 228 229 } PetscDrawViewPorts; 230 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsCreate(PetscDraw,PetscInt,PetscDrawViewPorts**); 231 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsCreateRect(PetscDraw,PetscInt,PetscInt,PetscDrawViewPorts**); 232 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsDestroy(PetscDrawViewPorts*); 233 PETSC_EXTERN PetscErrorCode PetscDrawViewPortsSet(PetscDrawViewPorts*,PetscInt); 234 235 PETSC_EXTERN PetscClassId PETSC_DRAWAXIS_CLASSID; 236 237 PETSC_EXTERN PetscErrorCode PetscDrawAxisCreate(PetscDraw,PetscDrawAxis *); 238 PETSC_EXTERN PetscErrorCode PetscDrawAxisDestroy(PetscDrawAxis*); 239 PETSC_EXTERN PetscErrorCode PetscDrawAxisDraw(PetscDrawAxis); 240 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetLimits(PetscDrawAxis,PetscReal,PetscReal,PetscReal,PetscReal); 241 PETSC_EXTERN PetscErrorCode PetscDrawAxisGetLimits(PetscDrawAxis,PetscReal*,PetscReal*,PetscReal*,PetscReal*); 242 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetHoldLimits(PetscDrawAxis,PetscBool ); 243 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetColors(PetscDrawAxis,int,int,int); 244 PETSC_EXTERN PetscErrorCode PetscDrawAxisSetLabels(PetscDrawAxis,const char[],const char[],const char[]); 245 246 PETSC_EXTERN PetscClassId PETSC_DRAWLG_CLASSID; 247 248 PETSC_EXTERN PetscErrorCode PetscDrawLGCreate(PetscDraw,PetscInt,PetscDrawLG *); 249 PETSC_EXTERN PetscErrorCode PetscDrawLGDestroy(PetscDrawLG*); 250 PETSC_EXTERN PetscErrorCode PetscDrawLGAddPoint(PetscDrawLG,const PetscReal*,const PetscReal*); 251 PETSC_EXTERN PetscErrorCode PetscDrawLGAddCommonPoint(PetscDrawLG,const PetscReal,const PetscReal*); 252 PETSC_EXTERN PetscErrorCode PetscDrawLGAddPoints(PetscDrawLG,PetscInt,PetscReal**,PetscReal**); 253 PETSC_EXTERN PetscErrorCode PetscDrawLGDraw(PetscDrawLG); 254 PETSC_EXTERN PetscErrorCode PetscDrawLGView(PetscDrawLG,PetscViewer); 255 PETSC_EXTERN PetscErrorCode PetscDrawLGReset(PetscDrawLG); 256 PETSC_EXTERN PetscErrorCode PetscDrawLGSetDimension(PetscDrawLG,PetscInt); 257 PETSC_EXTERN PetscErrorCode PetscDrawLGGetDimension(PetscDrawLG,PetscInt*); 258 PETSC_EXTERN PetscErrorCode PetscDrawLGSetLegend(PetscDrawLG,const char *const*); 259 PETSC_EXTERN PetscErrorCode PetscDrawLGGetAxis(PetscDrawLG,PetscDrawAxis *); 260 PETSC_EXTERN PetscErrorCode PetscDrawLGGetDraw(PetscDrawLG,PetscDraw *); 261 PETSC_EXTERN PetscErrorCode PetscDrawLGSetUseMarkers(PetscDrawLG,PetscBool); 262 PETSC_EXTERN PetscErrorCode PetscDrawLGSetLimits(PetscDrawLG,PetscReal,PetscReal,PetscReal,PetscReal); 263 PETSC_EXTERN PetscErrorCode PetscDrawLGSetColors(PetscDrawLG,const int*); 264 PETSC_EXTERN PetscErrorCode PetscDrawLGSetFromOptions(PetscDrawLG); 265 266 PETSC_EXTERN PetscClassId PETSC_DRAWSP_CLASSID; 267 268 PETSC_EXTERN PetscErrorCode PetscDrawSPCreate(PetscDraw,int,PetscDrawSP *); 269 PETSC_EXTERN PetscErrorCode PetscDrawSPDestroy(PetscDrawSP*); 270 PETSC_EXTERN PetscErrorCode PetscDrawSPAddPoint(PetscDrawSP,PetscReal*,PetscReal*); 271 PETSC_EXTERN PetscErrorCode PetscDrawSPAddPoints(PetscDrawSP,int,PetscReal**,PetscReal**); 272 PETSC_EXTERN PetscErrorCode PetscDrawSPDraw(PetscDrawSP,PetscBool); 273 PETSC_EXTERN PetscErrorCode PetscDrawSPReset(PetscDrawSP); 274 PETSC_EXTERN PetscErrorCode PetscDrawSPSetDimension(PetscDrawSP,int); 275 PETSC_EXTERN PetscErrorCode PetscDrawSPGetAxis(PetscDrawSP,PetscDrawAxis *); 276 PETSC_EXTERN PetscErrorCode PetscDrawSPGetDraw(PetscDrawSP,PetscDraw *); 277 PETSC_EXTERN PetscErrorCode PetscDrawSPSetLimits(PetscDrawSP,PetscReal,PetscReal,PetscReal,PetscReal); 278 PETSC_EXTERN PetscErrorCode PetscDrawLGSPDraw(PetscDrawLG,PetscDrawSP); 279 280 PETSC_EXTERN PetscClassId PETSC_DRAWHG_CLASSID; 281 282 PETSC_EXTERN PetscErrorCode PetscDrawHGCreate(PetscDraw,int,PetscDrawHG *); 283 PETSC_EXTERN PetscErrorCode PetscDrawHGDestroy(PetscDrawHG*); 284 PETSC_EXTERN PetscErrorCode PetscDrawHGAddValue(PetscDrawHG,PetscReal); 285 PETSC_EXTERN PetscErrorCode PetscDrawHGDraw(PetscDrawHG); 286 PETSC_EXTERN PetscErrorCode PetscDrawHGView(PetscDrawHG,PetscViewer); 287 PETSC_EXTERN PetscErrorCode PetscDrawHGReset(PetscDrawHG); 288 PETSC_EXTERN PetscErrorCode PetscDrawHGGetAxis(PetscDrawHG,PetscDrawAxis *); 289 PETSC_EXTERN PetscErrorCode PetscDrawHGGetDraw(PetscDrawHG,PetscDraw *); 290 PETSC_EXTERN PetscErrorCode PetscDrawHGSetLimits(PetscDrawHG,PetscReal,PetscReal,int,int); 291 PETSC_EXTERN PetscErrorCode PetscDrawHGSetNumberBins(PetscDrawHG,int); 292 PETSC_EXTERN PetscErrorCode PetscDrawHGSetColor(PetscDrawHG,int); 293 PETSC_EXTERN PetscErrorCode PetscDrawHGCalcStats(PetscDrawHG, PetscBool ); 294 PETSC_EXTERN PetscErrorCode PetscDrawHGIntegerBins(PetscDrawHG, PetscBool ); 295 296 PETSC_EXTERN PetscClassId PETSC_DRAWBAR_CLASSID; 297 298 PETSC_EXTERN PetscErrorCode PetscDrawBarCreate(PetscDraw,PetscDrawBar*); 299 PETSC_EXTERN PetscErrorCode PetscDrawBarSetData(PetscDrawBar,PetscInt,const PetscReal[],const char *const *); 300 PETSC_EXTERN PetscErrorCode PetscDrawBarDestroy(PetscDrawBar*); 301 PETSC_EXTERN PetscErrorCode PetscDrawBarDraw(PetscDrawBar); 302 PETSC_EXTERN PetscErrorCode PetscDrawBarSetColor(PetscDrawBar,int); 303 PETSC_EXTERN PetscErrorCode PetscDrawBarSetLimits(PetscDrawBar,PetscReal,PetscReal); 304 PETSC_EXTERN PetscErrorCode PetscDrawBarSort(PetscDrawBar,PetscBool,PetscReal); 305 PETSC_EXTERN PetscErrorCode PetscDrawBarSetFromOptions(PetscDrawBar); 306 PETSC_EXTERN PetscErrorCode PetscDrawBarGetAxis(PetscDrawBar,PetscDrawAxis*); 307 PETSC_EXTERN PetscErrorCode PetscDrawBarGetDraw(PetscDrawBar,PetscDraw*); 308 309 /* 310 PetscViewer routines that allow you to access underlying PetscDraw objects 311 */ 312 PETSC_EXTERN PetscErrorCode PetscViewerDrawGetDraw(PetscViewer,PetscInt,PetscDraw*); 313 PETSC_EXTERN PetscErrorCode PetscViewerDrawBaseAdd(PetscViewer,PetscInt); 314 PETSC_EXTERN PetscErrorCode PetscViewerDrawBaseSet(PetscViewer,PetscInt); 315 PETSC_EXTERN PetscErrorCode PetscViewerDrawGetDrawLG(PetscViewer,PetscInt,PetscDrawLG*); 316 PETSC_EXTERN PetscErrorCode PetscViewerDrawGetDrawAxis(PetscViewer,PetscInt,PetscDrawAxis*); 317 318 PETSC_EXTERN PetscErrorCode PetscDrawUtilitySetCmap(const char[],int,unsigned char[],unsigned char[],unsigned char[]); 319 PETSC_EXTERN PetscErrorCode PetscDrawUtilitySetGamma(PetscReal); 320 321 /* 322 Handling of X11 I/O errors in parallel 323 */ 324 #if defined(PETSC_HAVE_X) && defined(PETSC_HAVE_SETJMP_H) 325 326 #include <setjmp.h> 327 328 PETSC_EXTERN jmp_buf PetscXIOErrorHandlerJumpBuf; 329 PETSC_EXTERN void PetscXIOErrorHandlerJump(void *); 330 PETSC_EXTERN_TYPEDEF typedef void (*PetscXIOErrorHandler)(void *); 331 PETSC_EXTERN PetscXIOErrorHandler PetscSetXIOErrorHandler(PetscXIOErrorHandler); 332 333 #define PetscDrawCollectiveBegin(draw) 0; do { \ 334 PetscErrorCode _Petsc_ierr; \ 335 jmp_buf _Petsc_jmpbuf; \ 336 PetscXIOErrorHandler _Petsc_xioerrhdl = NULL; \ 337 PetscBool _Petsc_isdrawx, _Petsc_xioerr, _Petsc_xioerr_local = PETSC_FALSE; \ 338 _Petsc_ierr = PetscObjectTypeCompare((PetscObject)(draw),PETSC_DRAW_X,&_Petsc_isdrawx);CHKERRQ(_Petsc_ierr); \ 339 if (_Petsc_isdrawx) { \ 340 _Petsc_ierr = PetscMemcpy(&_Petsc_jmpbuf,&PetscXIOErrorHandlerJumpBuf,sizeof(_Petsc_jmpbuf));CHKERRQ(_Petsc_ierr); \ 341 _Petsc_xioerrhdl = PetscSetXIOErrorHandler(PetscXIOErrorHandlerJump); \ 342 if (setjmp(PetscXIOErrorHandlerJumpBuf)) {_Petsc_xioerr_local = PETSC_TRUE; {_Petsc_ierr = PetscDrawCollectiveEnd(draw);CHKERRQ(_Petsc_ierr);} \ 343 } do {} while(0) 344 345 #define PetscDrawCollectiveEnd(draw) 0; \ 346 if (_Petsc_isdrawx) { \ 347 (void)PetscSetXIOErrorHandler(_Petsc_xioerrhdl); \ 348 _Petsc_ierr = PetscMemcpy(&PetscXIOErrorHandlerJumpBuf,&_Petsc_jmpbuf,sizeof(PetscXIOErrorHandlerJumpBuf));CHKERRQ(_Petsc_ierr); \ 349 _Petsc_ierr = MPI_Allreduce(&_Petsc_xioerr_local,&_Petsc_xioerr,1,MPIU_BOOL,MPI_LOR,PetscObjectComm((PetscObject)(draw)));CHKERRQ(_Petsc_ierr); \ 350 if (_Petsc_xioerr) { \ 351 _Petsc_ierr = PetscDrawSetType((draw),PETSC_DRAW_NULL);CHKERRQ(_Petsc_ierr); \ 352 PetscFunctionReturn(0); \ 353 } \ 354 } } while(0) 355 356 #else 357 358 #define PetscDrawCollectiveBegin(draw) 0; do {} while(0) 359 #define PetscDrawCollectiveEnd(draw) 0; do {} while(0) 360 361 #endif 362 363 #endif 364