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