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