Actual source code: ex4.c

  2: static char help[] = "Demonstrates use of PetscDrawZoom()\n";

 4:  #include petscsys.h

  8: PetscErrorCode zoomfunction(PetscDraw draw,void *dummy)
  9: {
 11:   int            i;

 13:   for (i=0; i<256; i++) {
 14:     PetscDrawLine(draw,0.0,((PetscReal)i)/256.,1.0,((PetscReal)i)/256.,i);
 15:   }
 16:   return 0;
 17: }

 21: int main(int argc,char **argv)
 22: {
 23:   PetscDraw      draw;
 24:   int            x = 0,y = 0,width = 256,height = 256;

 27:   PetscInitialize(&argc,&argv,(char*)0,help);

 29:   /* PetscDrawOpenX(PETSC_COMM_SELF,0,"Title",x,y,width,height,&draw);*/
 30:   PetscDrawCreate(PETSC_COMM_SELF,0,"Title",x,y,width,height,&draw);
 31:   PetscDrawSetFromOptions(draw);
 32:   PetscDrawZoom(draw,zoomfunction,PETSC_NULL);
 33:   PetscDrawDestroy(draw);
 34:   PetscFinalize();
 35:   return 0;
 36: }

 38: