Actual source code: ex10.c
1: /*$Id: ex10.c,v 1.16 2001/04/10 19:34:20 bsmith Exp $*/
2: static char help[] = "Tests repeatedly setting a window type.n";
4: #include petsc.h
6: int main(int argc,char **argv)
7: {
8: PetscDraw draw;
9: int ierr,x = 0,y = 0,width = 300,height = 300;
10:
11: PetscInitialize(&argc,&argv,(char*)0,help);
13: PetscDrawCreate(PETSC_COMM_WORLD,0,"Title",x,y,width,height,&draw);
14: #if defined (PETSC_HAVE_X11)
15: PetscDrawSetType(draw,"x");
16: PetscDrawSetType(draw,"null");
17: PetscDrawSetType(draw,"x");
18: #else
19: PetscDrawSetType(draw,"null");
20: #endif
21: PetscDrawSetViewPort(draw,.25,.25,.75,.75);
22: PetscDrawLine(draw,0.0,0.0,1.0,1.0,PETSC_DRAW_BLACK);
23: PetscDrawString(draw,.2,.2,PETSC_DRAW_RED,"Some Text");
24: PetscDrawStringSetSize(draw,.5,.5);
25: PetscDrawString(draw,.2,.2,PETSC_DRAW_BLUE,"Some Text");
26: PetscDrawFlush(draw);
27: PetscSleep(2);
28: PetscDrawClear(draw); PetscDrawFlush(draw);
29: PetscDrawResizeWindow(draw,600,600);
30: PetscSleep(2);
31: PetscDrawLine(draw,0.0,1.0,1.0,0.0,PETSC_DRAW_BLUE);
32: PetscDrawFlush(draw);
33: PetscSleep(2);
34: PetscDrawDestroy(draw);
35: PetscFinalize();
36: return 0;
37: }
38: