xref: /petsc/src/sys/classes/draw/tests/ex1.c (revision 5f80ce2ab25dff0f4601e710601cbbcecf323266)
1c4762a1bSJed Brown 
2c4762a1bSJed Brown static char help[] = "Demonstrates opening and drawing in a window\n";
3c4762a1bSJed Brown 
4c4762a1bSJed Brown #include <petscsys.h>
5c4762a1bSJed Brown #include <petscdraw.h>
6c4762a1bSJed Brown 
7c4762a1bSJed Brown int main(int argc,char **argv)
8c4762a1bSJed Brown {
9c4762a1bSJed Brown   PetscDraw      draw;
10c4762a1bSJed Brown   PetscErrorCode ierr;
11c4762a1bSJed Brown   int            x = 0,y = 0,width = 300,height = 300;
12c4762a1bSJed Brown 
13c4762a1bSJed Brown   ierr = PetscInitialize(&argc,&argv,NULL,help);if (ierr) return ierr;
14c4762a1bSJed Brown 
15*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawCreate(PETSC_COMM_WORLD,0,"Title",x,y,width,height,&draw));
16*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawSetPause(draw,2.0));
17*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawSetFromOptions(draw));
18*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawSetViewPort(draw,.25,.25,.75,.75));
19c4762a1bSJed Brown 
20*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawLine(draw,0.0,0.0,1.0,1.0,PETSC_DRAW_BLACK));
21*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawString(draw,.2,.2,PETSC_DRAW_RED,"Some Text"));
22*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawString(draw,.5,.5,PETSC_DRAW_GREEN,"Some Text"));
23*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawString(draw,.2,.8,PETSC_DRAW_BLUE,"Some Text"));
24*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawFlush(draw));
25*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawPause(draw));
26*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawSave(draw));
27c4762a1bSJed Brown 
28*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawClear(draw));
29*5f80ce2aSJacob Faibussowitsch   /*CHKERRQ(PetscDrawStringSetSize(draw,.5,.5));*/
30*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawString(draw,.2,.2,PETSC_DRAW_RED,"Some Text"));
31*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawString(draw,.5,.5,PETSC_DRAW_GREEN,"Some Text"));
32*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawString(draw,.2,.8,PETSC_DRAW_BLUE,"Some Text"));
33*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawFlush(draw));
34*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawPause(draw));
35*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawSave(draw));
36c4762a1bSJed Brown 
37*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawResizeWindow(draw,600,600));
38*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawGetWindowSize(draw,&width,&height));
39*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawSetViewPort(draw,0,0,1,1));
40*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawClear(draw));
41*5f80ce2aSJacob Faibussowitsch   /*CHKERRQ(PetscDrawLine(draw,0.0,0.0,1.0,1.0,PETSC_DRAW_RED));*/
42*5f80ce2aSJacob Faibussowitsch   /*CHKERRQ(PetscDrawLine(draw,0.0,1.0,1.0,0.0,PETSC_DRAW_BLUE));*/
43*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawString(draw,.2,.2,PETSC_DRAW_RED,"Some Text\n  Some Other Text"));
44*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawString(draw,.5,.5,PETSC_DRAW_RED,"ABCygj\n()[]F$"));
45*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawString(draw,0,0,PETSC_DRAW_RED,"Horizontal Text (ABCygj)"));
46*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawStringVertical(draw,0,1,PETSC_DRAW_RED,"Vertical Text"));
47*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawFlush(draw));
48*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawPause(draw));
49*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawSave(draw));
50c4762a1bSJed Brown 
51*5f80ce2aSJacob Faibussowitsch   CHKERRQ(PetscDrawDestroy(&draw));
52c4762a1bSJed Brown   ierr = PetscFinalize();
53c4762a1bSJed Brown   return ierr;
54c4762a1bSJed Brown }
55c4762a1bSJed Brown 
56c4762a1bSJed Brown /*TEST
57c4762a1bSJed Brown 
58c4762a1bSJed Brown    build:
59c4762a1bSJed Brown      requires: x
60c4762a1bSJed Brown 
61c4762a1bSJed Brown    test:
62c4762a1bSJed Brown      output_file: output/ex1_1.out
63c4762a1bSJed Brown 
64c4762a1bSJed Brown TEST*/
65