xref: /petsc/src/sys/classes/draw/interface/dpoint.c (revision 2c71b3e237ead271e4f3aa1505f92bf476e3413d)
15c6c1daeSBarry Smith 
25c6c1daeSBarry Smith /*
35c6c1daeSBarry Smith        Provides the calling sequences for all the basic PetscDraw routines.
45c6c1daeSBarry Smith */
5af0996ceSBarry Smith #include <petsc/private/drawimpl.h>  /*I "petscdraw.h" I*/
65c6c1daeSBarry Smith 
75c6c1daeSBarry Smith /*@
85c6c1daeSBarry Smith    PetscDrawPoint - PetscDraws a point onto a drawable.
95c6c1daeSBarry Smith 
105c6c1daeSBarry Smith    Not collective
115c6c1daeSBarry Smith 
125c6c1daeSBarry Smith    Input Parameters:
135c6c1daeSBarry Smith +  draw - the drawing context
145c6c1daeSBarry Smith .  xl,yl - the coordinates of the point
155c6c1daeSBarry Smith -  cl - the color of the point
165c6c1daeSBarry Smith 
175c6c1daeSBarry Smith    Level: beginner
185c6c1daeSBarry Smith 
19ba1e01c4SBarry Smith .seealso: PetscDrawPointPixel(), PetscDrawPointSetSize(), PetscDrawLine(), PetscDrawRectangle(), PetscDrawTriangle(), PetscDrawEllipse(),
20ba1e01c4SBarry Smith           PetscDrawMarker(), PetscDrawString(), PetscDrawArrow()
215c6c1daeSBarry Smith 
225c6c1daeSBarry Smith @*/
235c6c1daeSBarry Smith PetscErrorCode  PetscDrawPoint(PetscDraw draw,PetscReal xl,PetscReal yl,int cl)
245c6c1daeSBarry Smith {
255c6c1daeSBarry Smith   PetscErrorCode ierr;
265c6c1daeSBarry Smith 
275c6c1daeSBarry Smith   PetscFunctionBegin;
285c6c1daeSBarry Smith   PetscValidHeaderSpecific(draw,PETSC_DRAW_CLASSID,1);
29*2c71b3e2SJacob Faibussowitsch   PetscCheckFalse(!draw->ops->point,PETSC_COMM_SELF,PETSC_ERR_SUP,"This draw type %s does not support drawing points",((PetscObject)draw)->type_name);
305c6c1daeSBarry Smith   ierr = (*draw->ops->point)(draw,xl,yl,cl);CHKERRQ(ierr);
315c6c1daeSBarry Smith   PetscFunctionReturn(0);
325c6c1daeSBarry Smith }
335c6c1daeSBarry Smith 
345c6c1daeSBarry Smith /*@
355c6c1daeSBarry Smith    PetscDrawPointPixel - PetscDraws a point onto a drawable, in pixel coordinates
365c6c1daeSBarry Smith 
375c6c1daeSBarry Smith    Not collective
385c6c1daeSBarry Smith 
395c6c1daeSBarry Smith    Input Parameters:
405c6c1daeSBarry Smith +  draw - the drawing context
41a7e8706aSLisandro Dalcin .  x,y - the pixel coordinates of the point
42a7e8706aSLisandro Dalcin -  c - the color of the point
435c6c1daeSBarry Smith 
445c6c1daeSBarry Smith    Level: beginner
455c6c1daeSBarry Smith 
46ba1e01c4SBarry Smith .seealso: PetscDrawPoint(), PetscDrawPointSetSize()
475c6c1daeSBarry Smith 
485c6c1daeSBarry Smith @*/
49a7e8706aSLisandro Dalcin PetscErrorCode  PetscDrawPointPixel(PetscDraw draw,int x,int y,int c)
505c6c1daeSBarry Smith {
515c6c1daeSBarry Smith   PetscErrorCode ierr;
525c6c1daeSBarry Smith 
535c6c1daeSBarry Smith   PetscFunctionBegin;
545c6c1daeSBarry Smith   PetscValidHeaderSpecific(draw,PETSC_DRAW_CLASSID,1);
55*2c71b3e2SJacob Faibussowitsch   PetscCheckFalse(!draw->ops->pointpixel,PETSC_COMM_SELF,PETSC_ERR_SUP,"This draw type %s does not support drawing point pixels",((PetscObject)draw)->type_name);
56a7e8706aSLisandro Dalcin   ierr = (*draw->ops->pointpixel)(draw,x,y,c);CHKERRQ(ierr);
575c6c1daeSBarry Smith   PetscFunctionReturn(0);
585c6c1daeSBarry Smith }
598f69470aSLisandro Dalcin 
608f69470aSLisandro Dalcin /*@
618f69470aSLisandro Dalcin    PetscDrawPointSetSize - Sets the point size for future draws.  The size is
628f69470aSLisandro Dalcin    relative to the user coordinates of the window; 0.0 denotes the natural
638f69470aSLisandro Dalcin    width, 1.0 denotes the entire viewport.
648f69470aSLisandro Dalcin 
658f69470aSLisandro Dalcin    Not collective
668f69470aSLisandro Dalcin 
678f69470aSLisandro Dalcin    Input Parameters:
688f69470aSLisandro Dalcin +  draw - the drawing context
698f69470aSLisandro Dalcin -  width - the width in user coordinates
708f69470aSLisandro Dalcin 
718f69470aSLisandro Dalcin    Level: advanced
728f69470aSLisandro Dalcin 
738f69470aSLisandro Dalcin    Note:
748f69470aSLisandro Dalcin    Even a size of zero insures that a single pixel is colored.
758f69470aSLisandro Dalcin 
76ba1e01c4SBarry Smith .seealso: PetscDrawPoint(), PetscDrawMarker()
778f69470aSLisandro Dalcin @*/
788f69470aSLisandro Dalcin PetscErrorCode  PetscDrawPointSetSize(PetscDraw draw,PetscReal width)
798f69470aSLisandro Dalcin {
808f69470aSLisandro Dalcin   PetscErrorCode ierr;
818f69470aSLisandro Dalcin 
828f69470aSLisandro Dalcin   PetscFunctionBegin;
838f69470aSLisandro Dalcin   PetscValidHeaderSpecific(draw,PETSC_DRAW_CLASSID,1);
84*2c71b3e2SJacob Faibussowitsch   PetscCheckFalse(width < 0.0 || width > 1.0,PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Bad size %g, should be between 0 and 1",(double)width);
858f69470aSLisandro Dalcin   if (draw->ops->pointsetsize) {
868f69470aSLisandro Dalcin     ierr = (*draw->ops->pointsetsize)(draw,width);CHKERRQ(ierr);
878f69470aSLisandro Dalcin   }
888f69470aSLisandro Dalcin   PetscFunctionReturn(0);
898f69470aSLisandro Dalcin }
90