Actual source code: dpause.c

      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: }