1 2 static char help[] = "Tests repeatedly setting a window type.\n"; 3 4 #include <petscsys.h> 5 #include <petscdraw.h> 6 7 int main(int argc,char **argv) 8 { 9 PetscDraw draw; 10 PetscErrorCode ierr; 11 int x = 0,y = 0,width = 300,height = 300; 12 13 ierr = PetscInitialize(&argc,&argv,NULL,help);if (ierr) return ierr; 14 CHKERRQ(PetscDrawCreate(PETSC_COMM_WORLD,0,"Title",x,y,width,height,&draw)); 15 #if defined(PETSC_HAVE_X) 16 CHKERRQ(PetscDrawSetType(draw,"x")); 17 CHKERRQ(PetscDrawSetType(draw,"null")); 18 CHKERRQ(PetscDrawSetType(draw,"x")); 19 #else 20 CHKERRQ(PetscDrawSetType(draw,"null")); 21 #endif 22 CHKERRQ(PetscDrawSetFromOptions(draw)); 23 CHKERRQ(PetscDrawSetViewPort(draw,.25,.25,.75,.75)); 24 CHKERRQ(PetscDrawClear(draw)); 25 CHKERRQ(PetscDrawLine(draw,0.0,0.0,1.0,1.0,PETSC_DRAW_BLACK)); 26 CHKERRQ(PetscDrawString(draw,.2,.2,PETSC_DRAW_RED,"Some Text")); 27 CHKERRQ(PetscDrawStringSetSize(draw,.5,.5)); 28 CHKERRQ(PetscDrawString(draw,.2,.2,PETSC_DRAW_BLUE,"Some Text")); 29 CHKERRQ(PetscDrawFlush(draw)); 30 CHKERRQ(PetscSleep(2)); 31 CHKERRQ(PetscDrawResizeWindow(draw,600,600)); 32 CHKERRQ(PetscDrawClear(draw)); 33 CHKERRQ(PetscSleep(2)); 34 CHKERRQ(PetscDrawLine(draw,0.0,1.0,1.0,0.0,PETSC_DRAW_BLUE)); 35 CHKERRQ(PetscDrawFlush(draw)); 36 CHKERRQ(PetscSleep(2)); 37 CHKERRQ(PetscDrawDestroy(&draw)); 38 ierr = PetscFinalize(); 39 return ierr; 40 } 41 42 /*TEST 43 44 build: 45 requires: x 46 47 test: 48 output_file: output/ex1_1.out 49 50 TEST*/ 51