1c4762a1bSJed Brown 2c4762a1bSJed Brown static char help[] = "Demonstrates use of PetscDrawZoom()\n"; 3c4762a1bSJed Brown 4c4762a1bSJed Brown #if defined(PETSC_APPLE_FRAMEWORK) 5c4762a1bSJed Brown 6c4762a1bSJed Brown #include <PETSc/petscsys.h> 7c4762a1bSJed Brown #include <PETSc/petscdraw.h> 8c4762a1bSJed Brown #else 9c4762a1bSJed Brown #include <petscsys.h> 10c4762a1bSJed Brown #include <petscdraw.h> 11c4762a1bSJed Brown #endif 12c4762a1bSJed Brown 13d71ae5a4SJacob Faibussowitsch PetscErrorCode zoomfunction(PetscDraw draw, void *dummy) 14d71ae5a4SJacob Faibussowitsch { 15*3ba16761SJacob Faibussowitsch MPI_Comm comm; 16c4762a1bSJed Brown PetscMPIInt size, rank; 17c4762a1bSJed Brown 18*3ba16761SJacob Faibussowitsch PetscFunctionBeginUser; 19*3ba16761SJacob Faibussowitsch PetscCall(PetscObjectGetComm((PetscObject)draw, &comm)); 209566063dSJacob Faibussowitsch PetscCallMPI(MPI_Comm_size(comm, &size)); 219566063dSJacob Faibussowitsch PetscCallMPI(MPI_Comm_rank(comm, &rank)); 22*3ba16761SJacob Faibussowitsch for (int i = rank; i < 256; i += size) { 23c4762a1bSJed Brown PetscReal y = ((PetscReal)i) / (256 - 1); 249566063dSJacob Faibussowitsch PetscCall(PetscDrawLine(draw, 0.0, y, 1.0, y, i)); 25c4762a1bSJed Brown } 26*3ba16761SJacob Faibussowitsch PetscFunctionReturn(PETSC_SUCCESS); 27c4762a1bSJed Brown } 28c4762a1bSJed Brown 29d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv) 30d71ae5a4SJacob Faibussowitsch { 31c4762a1bSJed Brown int x = 0, y = 0, width = 256, height = 256; 32c4762a1bSJed Brown PetscDraw draw; 33c4762a1bSJed Brown 34327415f7SBarry Smith PetscFunctionBeginUser; 359566063dSJacob Faibussowitsch PetscCall(PetscInitialize(&argc, &argv, NULL, help)); 369566063dSJacob Faibussowitsch PetscCall(PetscDrawCreate(PETSC_COMM_WORLD, NULL, "Title", x, y, width, height, &draw)); 379566063dSJacob Faibussowitsch PetscCall(PetscDrawSetFromOptions(draw)); 389566063dSJacob Faibussowitsch PetscCall(PetscDrawZoom(draw, zoomfunction, NULL)); 399566063dSJacob Faibussowitsch PetscCall(PetscDrawDestroy(&draw)); 409566063dSJacob Faibussowitsch PetscCall(PetscFinalize()); 41b122ec5aSJacob Faibussowitsch return 0; 42c4762a1bSJed Brown } 43c4762a1bSJed Brown 44c4762a1bSJed Brown /*TEST 45c4762a1bSJed Brown 46c4762a1bSJed Brown build: 47c4762a1bSJed Brown requires: x 48c4762a1bSJed Brown 49c4762a1bSJed Brown test: 50c4762a1bSJed Brown output_file: output/ex1_1.out 51c4762a1bSJed Brown 52c4762a1bSJed Brown test: 53c4762a1bSJed Brown suffix: db 54c4762a1bSJed Brown args: -draw_double_buffer 0 55c4762a1bSJed Brown output_file: output/ex1_1.out 56c4762a1bSJed Brown 57c4762a1bSJed Brown test: 58c4762a1bSJed Brown suffix: df 59c4762a1bSJed Brown args: -draw_fast 60c4762a1bSJed Brown output_file: output/ex1_1.out 61c4762a1bSJed Brown 62c4762a1bSJed Brown test: 63c4762a1bSJed Brown suffix: dv 64c4762a1bSJed Brown args: -draw_virtual 65c4762a1bSJed Brown output_file: output/ex1_1.out 66c4762a1bSJed Brown 67c4762a1bSJed Brown TEST*/ 68