1c4762a1bSJed Brown static char help[] = "Tests repeatedly setting a window type.\n"; 2c4762a1bSJed Brown 3c4762a1bSJed Brown #include <petscsys.h> 4c4762a1bSJed Brown #include <petscdraw.h> 5c4762a1bSJed Brown 6d71ae5a4SJacob Faibussowitsch int main(int argc, char **argv) 7d71ae5a4SJacob Faibussowitsch { 8c4762a1bSJed Brown PetscDraw draw; 9c4762a1bSJed Brown int x = 0, y = 0, width = 300, height = 300; 10c4762a1bSJed Brown 11327415f7SBarry Smith PetscFunctionBeginUser; 129566063dSJacob Faibussowitsch PetscCall(PetscInitialize(&argc, &argv, NULL, help)); 139566063dSJacob Faibussowitsch PetscCall(PetscDrawCreate(PETSC_COMM_WORLD, 0, "Title", x, y, width, height, &draw)); 14c4762a1bSJed Brown #if defined(PETSC_HAVE_X) 159566063dSJacob Faibussowitsch PetscCall(PetscDrawSetType(draw, "x")); 169566063dSJacob Faibussowitsch PetscCall(PetscDrawSetType(draw, "null")); 179566063dSJacob Faibussowitsch PetscCall(PetscDrawSetType(draw, "x")); 18c4762a1bSJed Brown #else 199566063dSJacob Faibussowitsch PetscCall(PetscDrawSetType(draw, "null")); 20c4762a1bSJed Brown #endif 219566063dSJacob Faibussowitsch PetscCall(PetscDrawSetFromOptions(draw)); 229566063dSJacob Faibussowitsch PetscCall(PetscDrawSetViewPort(draw, .25, .25, .75, .75)); 239566063dSJacob Faibussowitsch PetscCall(PetscDrawClear(draw)); 249566063dSJacob Faibussowitsch PetscCall(PetscDrawLine(draw, 0.0, 0.0, 1.0, 1.0, PETSC_DRAW_BLACK)); 259566063dSJacob Faibussowitsch PetscCall(PetscDrawString(draw, .2, .2, PETSC_DRAW_RED, "Some Text")); 269566063dSJacob Faibussowitsch PetscCall(PetscDrawStringSetSize(draw, .5, .5)); 279566063dSJacob Faibussowitsch PetscCall(PetscDrawString(draw, .2, .2, PETSC_DRAW_BLUE, "Some Text")); 289566063dSJacob Faibussowitsch PetscCall(PetscDrawFlush(draw)); 299566063dSJacob Faibussowitsch PetscCall(PetscSleep(2)); 309566063dSJacob Faibussowitsch PetscCall(PetscDrawResizeWindow(draw, 600, 600)); 319566063dSJacob Faibussowitsch PetscCall(PetscDrawClear(draw)); 329566063dSJacob Faibussowitsch PetscCall(PetscSleep(2)); 339566063dSJacob Faibussowitsch PetscCall(PetscDrawLine(draw, 0.0, 1.0, 1.0, 0.0, PETSC_DRAW_BLUE)); 349566063dSJacob Faibussowitsch PetscCall(PetscDrawFlush(draw)); 359566063dSJacob Faibussowitsch PetscCall(PetscSleep(2)); 369566063dSJacob Faibussowitsch PetscCall(PetscDrawDestroy(&draw)); 379566063dSJacob Faibussowitsch PetscCall(PetscFinalize()); 38b122ec5aSJacob Faibussowitsch return 0; 39c4762a1bSJed Brown } 40c4762a1bSJed Brown 41c4762a1bSJed Brown /*TEST 42c4762a1bSJed Brown 43c4762a1bSJed Brown build: 44c4762a1bSJed Brown requires: x 45c4762a1bSJed Brown 46c4762a1bSJed Brown test: 47*3886731fSPierre Jolivet output_file: output/empty.out 48c4762a1bSJed Brown 49c4762a1bSJed Brown TEST*/ 50