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