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

  9: /*@
 10:    PetscDrawPoint - PetscDraws a point onto a drawable.

 12:    Not collective

 14:    Input Parameters:
 15: +  draw - the drawing context
 16: .  xl,yl - the coordinates of the point
 17: -  cl - the color of the point

 19:    Level: beginner

 21:    Concepts: point^drawing
 22:    Concepts: drawing^point

 24: .seealso: PetscDrawPointSetSize()

 26: @*/
 27: PetscErrorCode  PetscDrawPoint(PetscDraw draw,PetscReal xl,PetscReal yl,int cl)
 28: {
 30:   PetscBool      isnull;

 34:   PetscObjectTypeCompare((PetscObject)draw,PETSC_DRAW_NULL,&isnull);
 35:   if (isnull) return(0);
 36:   (*draw->ops->point)(draw,xl,yl,cl);
 37:   return(0);
 38: }

 42: /*@
 43:    PetscDrawPointPixel - PetscDraws a point onto a drawable, in pixel coordinates

 45:    Not collective

 47:    Input Parameters:
 48: +  draw - the drawing context
 49: .  xl,yl - the coordinates of the point
 50: -  cl - the color of the point

 52:    Level: beginner

 54:    Concepts: point^drawing
 55:    Concepts: drawing^point

 57: .seealso: PetscDrawPointSetSize()

 59: @*/
 60: PetscErrorCode  PetscDrawPointPixel(PetscDraw draw,PetscInt xl,PetscInt yl,int cl)
 61: {
 63:   PetscBool      isnull;

 67:   PetscObjectTypeCompare((PetscObject)draw,PETSC_DRAW_NULL,&isnull);
 68:   if (isnull) return(0);
 69:   (*draw->ops->pointpixel)(draw,xl,yl,cl);
 70:   return(0);
 71: }