1 2 static char help[] = "Demonstrates use of color map\n"; 3 4 5 #include <petscsys.h> 6 #include <petscdraw.h> 7 8 int main(int argc,char **argv) 9 { 10 PetscDraw draw; 11 PetscMPIInt size,rank; 12 PetscErrorCode ierr; 13 int x = 0,y = 0,width = 256,height = 256,i; 14 15 ierr = PetscInitialize(&argc,&argv,NULL,help);if (ierr) return ierr; 16 ierr = PetscDrawCreate(PETSC_COMM_WORLD,0,"Title",x,y,width,height,&draw);CHKERRQ(ierr); 17 ierr = PetscDrawSetFromOptions(draw);CHKERRQ(ierr); 18 ierr = MPI_Comm_size(PETSC_COMM_WORLD,&size);CHKERRQ(ierr); 19 ierr = MPI_Comm_rank(PETSC_COMM_WORLD,&rank);CHKERRQ(ierr); 20 for (i=rank; i<height; i+=size) { 21 PetscReal y = ((PetscReal)i)/(height-1); 22 ierr = PetscDrawLine(draw,0.0,y,1.0,y,i%256);CHKERRQ(ierr); 23 } 24 ierr = PetscDrawFlush(draw);CHKERRQ(ierr); 25 ierr = PetscDrawPause(draw);CHKERRQ(ierr); 26 ierr = PetscDrawSave(draw);CHKERRQ(ierr); 27 ierr = PetscDrawDestroy(&draw);CHKERRQ(ierr); 28 ierr = PetscFinalize(); 29 return ierr; 30 } 31 32 33 34 /*TEST 35 36 build: 37 requires: x 38 39 test: 40 output_file: output/ex1_1.out 41 42 TEST*/ 43