1: /*
  2:        Provides the calling sequences for all the basic PetscDraw routines.
  3: */
  4: #include <petsc/private/drawimpl.h>
  6: /*@
  7:    PetscDrawPause - Waits n seconds or until user input, depending on input
  8:                to PetscDrawSetPause().
 10:    Collective operation on PetscDraw object.
 12:    Input Parameter:
 13: .  draw - the drawing context
 15:    Level: beginner
 17: .seealso: PetscDrawSetPause(), PetscDrawGetPause()
 18: @*/
 19: PetscErrorCode  PetscDrawPause(PetscDraw draw)
 20: {
 25:   if (draw->ops->pause) {
 26:     (*draw->ops->pause)(draw);
 27:   }
 28:   return(0);
 29: }
 31: /*@
 32:    PetscDrawSetPause - Sets the amount of time that program pauses after
 33:    a PetscDrawPause() is called.
 35:    Logically Collective on PetscDraw
 37:    Input Parameters:
 38: +  draw   - the drawing object
 39: -  lpause - number of seconds to pause, -1 implies until user input, -2 pauses only on the PetscDrawDestroy()
 41:    Level: intermediate
 43:    Note:
 44:    By default the pause time is zero unless the -draw_pause option is given
 45:    during PetscDrawCreate().
 47: .seealso: PetscDrawGetPause(), PetscDrawPause()
 48: @*/
 49: PetscErrorCode  PetscDrawSetPause(PetscDraw draw,PetscReal lpause)
 50: {
 54:   draw->pause = lpause;
 55:   return(0);
 56: }
 58: /*@
 59:    PetscDrawGetPause - Gets the amount of time that program pauses after
 60:    a PetscDrawPause() is called.
 62:    Not collective
 64:    Input Parameters:
 65: +  draw   - the drawing object
 66: -  lpause - number of seconds to pause, -1 implies until user input
 68:    Level: intermediate
 70:    Note:
 71:    By default the pause time is zero unless the -draw_pause option is given
 73: .seealso: PetscDrawSetPause(), PetscDrawPause()
 74: @*/
 75: PetscErrorCode  PetscDrawGetPause(PetscDraw draw,PetscReal *lpause)
 76: {
 80:   *lpause = draw->pause;
 81:   return(0);
 82: }