xref: /petsc/src/sys/classes/draw/interface/dcoor.c (revision 5c6c1daec53e1d9ab0bec9db5309fd8fc7645b8d)
1*5c6c1daeSBarry Smith 
2*5c6c1daeSBarry Smith /*
3*5c6c1daeSBarry Smith        Provides the calling sequences for all the basic PetscDraw routines.
4*5c6c1daeSBarry Smith */
5*5c6c1daeSBarry Smith #include <petsc-private/drawimpl.h>  /*I "petscdraw.h" I*/
6*5c6c1daeSBarry Smith 
7*5c6c1daeSBarry Smith #undef __FUNCT__
8*5c6c1daeSBarry Smith #define __FUNCT__ "PetscDrawSetCoordinates"
9*5c6c1daeSBarry Smith /*@
10*5c6c1daeSBarry Smith    PetscDrawSetCoordinates - Sets the application coordinates of the corners of
11*5c6c1daeSBarry Smith    the window (or page).
12*5c6c1daeSBarry Smith 
13*5c6c1daeSBarry Smith    Not collective
14*5c6c1daeSBarry Smith 
15*5c6c1daeSBarry Smith    Input Parameters:
16*5c6c1daeSBarry Smith +  draw - the drawing object
17*5c6c1daeSBarry Smith -  xl,yl,xr,yr - the coordinates of the lower left corner and upper
18*5c6c1daeSBarry Smith                  right corner of the drawing region.
19*5c6c1daeSBarry Smith 
20*5c6c1daeSBarry Smith    Level: advanced
21*5c6c1daeSBarry Smith 
22*5c6c1daeSBarry Smith    Concepts: drawing^coordinates
23*5c6c1daeSBarry Smith    Concepts: graphics^coordinates
24*5c6c1daeSBarry Smith 
25*5c6c1daeSBarry Smith .seealso: PetscDrawGetCoordinates()
26*5c6c1daeSBarry Smith 
27*5c6c1daeSBarry Smith @*/
28*5c6c1daeSBarry Smith PetscErrorCode  PetscDrawSetCoordinates(PetscDraw draw,PetscReal xl,PetscReal yl,PetscReal xr,PetscReal yr)
29*5c6c1daeSBarry Smith {
30*5c6c1daeSBarry Smith   PetscErrorCode ierr;
31*5c6c1daeSBarry Smith 
32*5c6c1daeSBarry Smith   PetscFunctionBegin;
33*5c6c1daeSBarry Smith   PetscValidHeaderSpecific(draw,PETSC_DRAW_CLASSID,1);
34*5c6c1daeSBarry Smith   draw->coor_xl = xl; draw->coor_yl = yl;
35*5c6c1daeSBarry Smith   draw->coor_xr = xr; draw->coor_yr = yr;
36*5c6c1daeSBarry Smith   if (draw->ops->setcoordinates) {
37*5c6c1daeSBarry Smith     ierr = (*draw->ops->setcoordinates)(draw,xl,yl,xr,yr);CHKERRQ(ierr);
38*5c6c1daeSBarry Smith   }
39*5c6c1daeSBarry Smith   PetscFunctionReturn(0);
40*5c6c1daeSBarry Smith }
41*5c6c1daeSBarry Smith 
42