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: {
 22:   if (draw->ops->pause) {
 23:     (*draw->ops->pause)(draw);
 24:   }
 25:   return 0;
 26: }

 28: /*@
 29:    PetscDrawSetPause - Sets the amount of time that program pauses after
 30:    a PetscDrawPause() is called.

 32:    Logically Collective on PetscDraw

 34:    Input Parameters:
 35: +  draw   - the drawing object
 36: -  lpause - number of seconds to pause, -1 implies until user input, -2 pauses only on the PetscDrawDestroy()

 38:    Level: intermediate

 40:    Note:
 41:    By default the pause time is zero unless the -draw_pause option is given
 42:    during PetscDrawCreate().

 44: .seealso: PetscDrawGetPause(), PetscDrawPause()
 45: @*/
 46: PetscErrorCode  PetscDrawSetPause(PetscDraw draw,PetscReal lpause)
 47: {
 50:   draw->pause = lpause;
 51:   return 0;
 52: }

 54: /*@
 55:    PetscDrawGetPause - Gets the amount of time that program pauses after
 56:    a PetscDrawPause() is called.

 58:    Not collective

 60:    Input Parameters:
 61: +  draw   - the drawing object
 62: -  lpause - number of seconds to pause, -1 implies until user input

 64:    Level: intermediate

 66:    Note:
 67:    By default the pause time is zero unless the -draw_pause option is given

 69: .seealso: PetscDrawSetPause(), PetscDrawPause()
 70: @*/
 71: PetscErrorCode  PetscDrawGetPause(PetscDraw draw,PetscReal *lpause)
 72: {
 75:   *lpause = draw->pause;
 76:   return 0;
 77: }