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

  8: /*@
  9:    PetscDrawPause - Waits n seconds or until user input, depending on input
 10:                to PetscDrawSetPause().

 12:    Collective operation on PetscDraw object.

 14:    Input Parameter:
 15: .  draw - the drawing context

 17:    Level: beginner

 19:    Concepts: waiting^for user input
 20:    Concepts: drawing^waiting
 21:    Concepts: graphics^waiting

 23: .seealso: PetscDrawSetPause(), PetscDrawGetPause()
 24: @*/
 25: PetscErrorCode  PetscDrawPause(PetscDraw draw)
 26: {

 31:   if (draw->ops->pause) {
 32:     (*draw->ops->pause)(draw);
 33:   }
 34:   return(0);
 35: }

 39: /*@
 40:    PetscDrawSetPause - Sets the amount of time that program pauses after
 41:    a PetscDrawPause() is called.

 43:    Logically Collective on PetscDraw

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

 49:    Level: intermediate

 51:    Note:
 52:    By default the pause time is zero unless the -draw_pause option is given
 53:    during PetscDrawCreate().

 55:    Concepts: drawing^waiting

 57: .seealso: PetscDrawGetPause(), PetscDrawPause()
 58: @*/
 59: PetscErrorCode  PetscDrawSetPause(PetscDraw draw,PetscReal lpause)
 60: {
 64:   draw->pause = lpause;
 65:   return(0);
 66: }

 70: /*@
 71:    PetscDrawGetPause - Gets the amount of time that program pauses after
 72:    a PetscDrawPause() is called.

 74:    Not collective

 76:    Input Parameters:
 77: +  draw   - the drawing object
 78: -  lpause - number of seconds to pause, -1 implies until user input

 80:    Level: intermediate

 82:    Note:
 83:    By default the pause time is zero unless the -draw_pause option is given

 85:    Concepts: waiting^for user input
 86:    Concepts: drawing^waiting
 87:    Concepts: graphics^waiting

 89: .seealso: PetscDrawSetPause(), PetscDrawPause()
 90: @*/
 91: PetscErrorCode  PetscDrawGetPause(PetscDraw draw,PetscReal *lpause)
 92: {
 96:   *lpause = draw->pause;
 97:   return(0);
 98: }