int main(int argc,char **argv)
{
PetscDraw draw;
PetscErrorCode ierr;
int x = 0,y = 0,width = 300,height = 300;
ierr = PetscInitialize(&argc,&argv,NULL,help);CHKERRQ(ierr);
ierr = PetscDrawCreate(PETSC_COMM_WORLD,0,"Title",x,y,width,height,&draw);CHKERRQ(ierr);
ierr = PetscDrawSetPause(draw,2.0);CHKERRQ(ierr);
ierr = PetscDrawSetFromOptions(draw);CHKERRQ(ierr);
ierr = PetscDrawSetViewPort(draw,.25,.25,.75,.75);CHKERRQ(ierr);
ierr = PetscDrawLine(draw,0.0,0.0,1.0,1.0,PETSC_DRAW_BLACK);CHKERRQ(ierr);
ierr = PetscDrawString(draw,.2,.2,PETSC_DRAW_RED,"Some Text");CHKERRQ(ierr);
ierr = PetscDrawString(draw,.5,.5,PETSC_DRAW_GREEN,"Some Text");CHKERRQ(ierr);
ierr = PetscDrawString(draw,.2,.8,PETSC_DRAW_BLUE,"Some Text");CHKERRQ(ierr);
ierr = PetscDrawFlush(draw);CHKERRQ(ierr);
ierr = PetscDrawPause(draw);CHKERRQ(ierr);
ierr = PetscDrawSave(draw);CHKERRQ(ierr);
ierr = PetscDrawClear(draw);CHKERRQ(ierr);
/*ierr = PetscDrawStringSetSize(draw,.5,.5);CHKERRQ(ierr);*/
ierr = PetscDrawString(draw,.2,.2,PETSC_DRAW_RED,"Some Text");CHKERRQ(ierr);
ierr = PetscDrawString(draw,.5,.5,PETSC_DRAW_GREEN,"Some Text");CHKERRQ(ierr);
ierr = PetscDrawString(draw,.2,.8,PETSC_DRAW_BLUE,"Some Text");CHKERRQ(ierr);
ierr = PetscDrawFlush(draw);CHKERRQ(ierr);
ierr = PetscDrawPause(draw);CHKERRQ(ierr);
ierr = PetscDrawSave(draw);CHKERRQ(ierr);
ierr = PetscDrawResizeWindow(draw,600,600);CHKERRQ(ierr);
ierr = PetscDrawGetWindowSize(draw,&width,&height);CHKERRQ(ierr);
ierr = PetscDrawSetViewPort(draw,0,0,1,1);CHKERRQ(ierr);
ierr = PetscDrawClear(draw);CHKERRQ(ierr);
/*ierr = PetscDrawLine(draw,0.0,0.0,1.0,1.0,PETSC_DRAW_RED);CHKERRQ(ierr);*/
/*ierr = PetscDrawLine(draw,0.0,1.0,1.0,0.0,PETSC_DRAW_BLUE);CHKERRQ(ierr);*/
ierr = PetscDrawString(draw,.2,.2,PETSC_DRAW_RED,"Some Text\n Some Other Text");CHKERRQ(ierr);
ierr = PetscDrawString(draw,.5,.5,PETSC_DRAW_RED,"ABCygj\n()[]F$");CHKERRQ(ierr);
ierr = PetscDrawString(draw,0,0,PETSC_DRAW_RED,"Horizontal Text (ABCygj)");CHKERRQ(ierr);
ierr = PetscDrawStringVertical(draw,0,1,PETSC_DRAW_RED,"Vertical Text");CHKERRQ(ierr);
ierr = PetscDrawFlush(draw);CHKERRQ(ierr);
ierr = PetscDrawPause(draw);CHKERRQ(ierr);
ierr = PetscDrawSave(draw);CHKERRQ(ierr);
ierr = PetscDrawDestroy(&draw);CHKERRQ(ierr);
ierr = PetscFinalize();
return ierr;
}
/*@
PetscDrawAxisDraw - PetscDraws an axis.
Not Collective (ignored on all processors except processor 0 of PetscDrawAxis)
Input Parameter:
. axis - Axis structure
Level: advanced
Note:
This draws the actual axis. The limits etc have already been set.
By picking special routines for the ticks and labels, special
effects may be generated. These routines are part of the Axis
structure (axis).
@*/
PetscErrorCode PetscDrawAxisDraw(PetscDrawAxis axis)
{
int i,ntick,numx,numy,ac = axis->ac,tc = axis->tc,cc = axis->cc,rank;
size_t len;
PetscReal tickloc[MAXSEGS],sep,h,w,tw,th,xl,xr,yl,yr;
char *p;
PetscDraw draw = axis->win;
PetscErrorCode ierr;
PetscFunctionBegin;
if (!axis) PetscFunctionReturn(0);
ierr = MPI_Comm_rank(PetscObjectComm((PetscObject)axis),&rank);CHKERRQ(ierr);
if (rank) PetscFunctionReturn(0);
if (axis->xlow == axis->xhigh) {axis->xlow -= .5; axis->xhigh += .5;}
/* if ((axis->yhigh - axis->ylow) <= 1.e-5*PetscMax(PetscAbsReal(axis->yhigh),PetscAbsReal(axis->ylow))) {
axis->ylow -= 1.e-5*PetscMax(PetscAbsReal(axis->yhigh),PetscAbsReal(axis->ylow));
axis->yhigh += 1.e-5*PetscMax(PetscAbsReal(axis->yhigh),PetscAbsReal(axis->ylow));
} */
if (axis->ylow == axis->yhigh) {axis->ylow -= .5; axis->yhigh += .5;}
xl = axis->xlow; xr = axis->xhigh; yl = axis->ylow; yr = axis->yhigh;
ierr = PetscDrawSetCoordinates(draw,xl,yl,xr,yr);CHKERRQ(ierr);
ierr = PetscDrawStringGetSize(draw,&tw,&th);CHKERRQ(ierr);
numx = (int)(.15*(xr-xl)/tw); if (numx > 6) numx = 6;if (numx< 2) numx = 2;
numy = (int)(.50*(yr-yl)/th); if (numy > 6) numy = 6;if (numy< 2) numy = 2;
xl -= 11*tw; xr += 2*tw; yl -= 2.5*th; yr += 2*th;
if (axis->xlabel) yl -= 2*th;
if (axis->ylabel) xl -= 2*tw;
ierr = PetscDrawSetCoordinates(draw,xl,yl,xr,yr);CHKERRQ(ierr);
ierr = PetscDrawStringGetSize(draw,&tw,&th);CHKERRQ(ierr);
ierr = PetscDrawLine(draw,axis->xlow,axis->ylow,axis->xhigh,axis->ylow,ac);CHKERRQ(ierr);
ierr = PetscDrawLine(draw,axis->xlow,axis->ylow,axis->xlow,axis->yhigh,ac);CHKERRQ(ierr);
if (axis->toplabel) {
ierr = PetscStrlen(axis->toplabel,&len);CHKERRQ(ierr);
w = xl + .5*(xr - xl) - .5*len*tw;
h = axis->yhigh;
ierr = PetscDrawString(draw,w,h,cc,axis->toplabel);CHKERRQ(ierr);
}
/* PetscDraw the ticks and labels */
if (axis->xticks) {
ierr = (*axis->xticks)(axis->xlow,axis->xhigh,numx,&ntick,tickloc,MAXSEGS);CHKERRQ(ierr);
/* PetscDraw in tick marks */
for (i=0; i<ntick; i++) {
ierr = PetscDrawLine(draw,tickloc[i],axis->ylow-.5*th,tickloc[i],axis->ylow+.5*th,tc);CHKERRQ(ierr);
}
/* label ticks */
for (i=0; i<ntick; i++) {
if (axis->xlabelstr) {
if (i < ntick - 1) sep = tickloc[i+1] - tickloc[i];
else if (i > 0) sep = tickloc[i] - tickloc[i-1];
else sep = 0.0;
ierr = (*axis->xlabelstr)(tickloc[i],sep,&p);CHKERRQ(ierr);
ierr = PetscStrlen(p,&len);CHKERRQ(ierr);
w = .5*len*tw;
ierr = PetscDrawString(draw,tickloc[i]-w,axis->ylow-1.2*th,cc,p);CHKERRQ(ierr);
}
}
}
if (axis->xlabel) {
ierr = PetscStrlen(axis->xlabel,&len);CHKERRQ(ierr);
w = xl + .5*(xr - xl) - .5*len*tw;
h = axis->ylow - 2.5*th;
ierr = PetscDrawString(draw,w,h,cc,axis->xlabel);CHKERRQ(ierr);
}
if (axis->yticks) {
ierr = (*axis->yticks)(axis->ylow,axis->yhigh,numy,&ntick,tickloc,MAXSEGS);CHKERRQ(ierr);
/* PetscDraw in tick marks */
for (i=0; i<ntick; i++) {
ierr = PetscDrawLine(draw,axis->xlow -.5*tw,tickloc[i],axis->xlow+.5*tw,tickloc[i],tc);CHKERRQ(ierr);
}
/* label ticks */
for (i=0; i<ntick; i++) {
if (axis->ylabelstr) {
if (i < ntick - 1) sep = tickloc[i+1] - tickloc[i];
else if (i > 0) sep = tickloc[i] - tickloc[i-1];
else sep = 0.0;
ierr = (*axis->xlabelstr)(tickloc[i],sep,&p);CHKERRQ(ierr);
ierr = PetscStrlen(p,&len);CHKERRQ(ierr);
w = axis->xlow - len * tw - 1.2*tw;
ierr = PetscDrawString(draw,w,tickloc[i]-.5*th,cc,p);CHKERRQ(ierr);
}
}
}
if (axis->ylabel) {
ierr = PetscStrlen(axis->ylabel,&len);CHKERRQ(ierr);
h = yl + .5*(yr - yl) + .5*len*th;
w = xl + 1.5*tw;
ierr = PetscDrawStringVertical(draw,w,h,cc,axis->ylabel);CHKERRQ(ierr);
}
PetscFunctionReturn(0);
}