1 2 static char help[] = "Demonstrates opening and drawing in a window\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 15 CHKERRQ(PetscDrawCreate(PETSC_COMM_WORLD,0,"Title",x,y,width,height,&draw)); 16 CHKERRQ(PetscDrawSetPause(draw,2.0)); 17 CHKERRQ(PetscDrawSetFromOptions(draw)); 18 CHKERRQ(PetscDrawSetViewPort(draw,.25,.25,.75,.75)); 19 20 CHKERRQ(PetscDrawLine(draw,0.0,0.0,1.0,1.0,PETSC_DRAW_BLACK)); 21 CHKERRQ(PetscDrawString(draw,.2,.2,PETSC_DRAW_RED,"Some Text")); 22 CHKERRQ(PetscDrawString(draw,.5,.5,PETSC_DRAW_GREEN,"Some Text")); 23 CHKERRQ(PetscDrawString(draw,.2,.8,PETSC_DRAW_BLUE,"Some Text")); 24 CHKERRQ(PetscDrawFlush(draw)); 25 CHKERRQ(PetscDrawPause(draw)); 26 CHKERRQ(PetscDrawSave(draw)); 27 28 CHKERRQ(PetscDrawClear(draw)); 29 /*CHKERRQ(PetscDrawStringSetSize(draw,.5,.5));*/ 30 CHKERRQ(PetscDrawString(draw,.2,.2,PETSC_DRAW_RED,"Some Text")); 31 CHKERRQ(PetscDrawString(draw,.5,.5,PETSC_DRAW_GREEN,"Some Text")); 32 CHKERRQ(PetscDrawString(draw,.2,.8,PETSC_DRAW_BLUE,"Some Text")); 33 CHKERRQ(PetscDrawFlush(draw)); 34 CHKERRQ(PetscDrawPause(draw)); 35 CHKERRQ(PetscDrawSave(draw)); 36 37 CHKERRQ(PetscDrawResizeWindow(draw,600,600)); 38 CHKERRQ(PetscDrawGetWindowSize(draw,&width,&height)); 39 CHKERRQ(PetscDrawSetViewPort(draw,0,0,1,1)); 40 CHKERRQ(PetscDrawClear(draw)); 41 /*CHKERRQ(PetscDrawLine(draw,0.0,0.0,1.0,1.0,PETSC_DRAW_RED));*/ 42 /*CHKERRQ(PetscDrawLine(draw,0.0,1.0,1.0,0.0,PETSC_DRAW_BLUE));*/ 43 CHKERRQ(PetscDrawString(draw,.2,.2,PETSC_DRAW_RED,"Some Text\n Some Other Text")); 44 CHKERRQ(PetscDrawString(draw,.5,.5,PETSC_DRAW_RED,"ABCygj\n()[]F$")); 45 CHKERRQ(PetscDrawString(draw,0,0,PETSC_DRAW_RED,"Horizontal Text (ABCygj)")); 46 CHKERRQ(PetscDrawStringVertical(draw,0,1,PETSC_DRAW_RED,"Vertical Text")); 47 CHKERRQ(PetscDrawFlush(draw)); 48 CHKERRQ(PetscDrawPause(draw)); 49 CHKERRQ(PetscDrawSave(draw)); 50 51 CHKERRQ(PetscDrawDestroy(&draw)); 52 ierr = PetscFinalize(); 53 return ierr; 54 } 55 56 /*TEST 57 58 build: 59 requires: x 60 61 test: 62 output_file: output/ex1_1.out 63 64 TEST*/ 65