2: /*
  3:        Provides the calling sequences for all the basic PetscDraw routines.
  4: */
  5: #include <petsc/private/drawimpl.h>

  7: /*@
  8:    PetscDrawSetCoordinates - Sets the application coordinates of the corners of
  9:    the window (or page).

 11:    Not collective

 13:    Input Parameters:
 14: +  draw - the drawing object
 15: -  xl,yl,xr,yr - the coordinates of the lower left corner and upper
 16:                  right corner of the drawing region.

 18:    Level: advanced

 20: .seealso: PetscDrawGetCoordinates()

 22: @*/
 23: PetscErrorCode  PetscDrawSetCoordinates(PetscDraw draw,PetscReal xl,PetscReal yl,PetscReal xr,PetscReal yr)
 24: {
 26:   draw->coor_xl = xl; draw->coor_yl = yl;
 27:   draw->coor_xr = xr; draw->coor_yr = yr;
 28:   if (draw->ops->setcoordinates) {
 29:     (*draw->ops->setcoordinates)(draw,xl,yl,xr,yr);
 30:   }
 31:   return 0;
 32: }

 34: /*@
 35:    PetscDrawGetCoordinates - Gets the application coordinates of the corners of
 36:    the window (or page).

 38:    Not Collective

 40:    Input Parameter:
 41: .  draw - the drawing object

 43:    Level: advanced

 45:    Output Parameters:
 46: +  xl - the horizontal coordinate of the lower left corner of the drawing region.
 47: .  yl - the vertical coordinate of the lower left corner of the drawing region.
 48: .  xr - the horizontal coordinate of the upper right corner of the drawing region.
 49: -  yr - the vertical coordinate of the upper right corner of the drawing region.

 51: .seealso: PetscDrawSetCoordinates()

 53: @*/
 54: PetscErrorCode  PetscDrawGetCoordinates(PetscDraw draw,PetscReal *xl,PetscReal *yl,PetscReal *xr,PetscReal *yr)
 55: {
 61:   *xl = draw->coor_xl; *yl = draw->coor_yl;
 62:   *xr = draw->coor_xr; *yr = draw->coor_yr;
 63:   return 0;
 64: }