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 #undef __FUNCT__ 85c6c1daeSBarry Smith #define __FUNCT__ "PetscDrawPoint" 95c6c1daeSBarry Smith /*@ 105c6c1daeSBarry Smith PetscDrawPoint - PetscDraws a point onto a drawable. 115c6c1daeSBarry Smith 125c6c1daeSBarry Smith Not collective 135c6c1daeSBarry Smith 145c6c1daeSBarry Smith Input Parameters: 155c6c1daeSBarry Smith + draw - the drawing context 165c6c1daeSBarry Smith . xl,yl - the coordinates of the point 175c6c1daeSBarry Smith - cl - the color of the point 185c6c1daeSBarry Smith 195c6c1daeSBarry Smith Level: beginner 205c6c1daeSBarry Smith 215c6c1daeSBarry Smith Concepts: point^drawing 225c6c1daeSBarry Smith Concepts: drawing^point 235c6c1daeSBarry Smith 24*ba1e01c4SBarry Smith .seealso: PetscDrawPointPixel(), PetscDrawPointSetSize(), PetscDrawLine(), PetscDrawRectangle(), PetscDrawTriangle(), PetscDrawEllipse(), 25*ba1e01c4SBarry Smith PetscDrawMarker(), PetscDrawString(), PetscDrawArrow() 265c6c1daeSBarry Smith 275c6c1daeSBarry Smith @*/ 285c6c1daeSBarry Smith PetscErrorCode PetscDrawPoint(PetscDraw draw,PetscReal xl,PetscReal yl,int cl) 295c6c1daeSBarry Smith { 305c6c1daeSBarry Smith PetscErrorCode ierr; 315c6c1daeSBarry Smith 325c6c1daeSBarry Smith PetscFunctionBegin; 335c6c1daeSBarry Smith PetscValidHeaderSpecific(draw,PETSC_DRAW_CLASSID,1); 348f69470aSLisandro Dalcin if (!draw->ops->point) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_SUP,"This draw type %s does not support drawing points",((PetscObject)draw)->type_name); 355c6c1daeSBarry Smith ierr = (*draw->ops->point)(draw,xl,yl,cl);CHKERRQ(ierr); 365c6c1daeSBarry Smith PetscFunctionReturn(0); 375c6c1daeSBarry Smith } 385c6c1daeSBarry Smith 395c6c1daeSBarry Smith #undef __FUNCT__ 405c6c1daeSBarry Smith #define __FUNCT__ "PetscDrawPointPixel" 415c6c1daeSBarry Smith /*@ 425c6c1daeSBarry Smith PetscDrawPointPixel - PetscDraws a point onto a drawable, in pixel coordinates 435c6c1daeSBarry Smith 445c6c1daeSBarry Smith Not collective 455c6c1daeSBarry Smith 465c6c1daeSBarry Smith Input Parameters: 475c6c1daeSBarry Smith + draw - the drawing context 48a7e8706aSLisandro Dalcin . x,y - the pixel coordinates of the point 49a7e8706aSLisandro Dalcin - c - the color of the point 505c6c1daeSBarry Smith 515c6c1daeSBarry Smith Level: beginner 525c6c1daeSBarry Smith 535c6c1daeSBarry Smith Concepts: point^drawing 545c6c1daeSBarry Smith Concepts: drawing^point 555c6c1daeSBarry Smith 56*ba1e01c4SBarry Smith .seealso: PetscDrawPoint(), PetscDrawPointSetSize() 575c6c1daeSBarry Smith 585c6c1daeSBarry Smith @*/ 59a7e8706aSLisandro Dalcin PetscErrorCode PetscDrawPointPixel(PetscDraw draw,int x,int y,int c) 605c6c1daeSBarry Smith { 615c6c1daeSBarry Smith PetscErrorCode ierr; 625c6c1daeSBarry Smith 635c6c1daeSBarry Smith PetscFunctionBegin; 645c6c1daeSBarry Smith PetscValidHeaderSpecific(draw,PETSC_DRAW_CLASSID,1); 658f69470aSLisandro Dalcin if (!draw->ops->pointpixel) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_SUP,"This draw type %s does not support drawing point pixels",((PetscObject)draw)->type_name); 66a7e8706aSLisandro Dalcin ierr = (*draw->ops->pointpixel)(draw,x,y,c);CHKERRQ(ierr); 675c6c1daeSBarry Smith PetscFunctionReturn(0); 685c6c1daeSBarry Smith } 698f69470aSLisandro Dalcin 708f69470aSLisandro Dalcin #undef __FUNCT__ 718f69470aSLisandro Dalcin #define __FUNCT__ "PetscDrawPointSetSize" 728f69470aSLisandro Dalcin /*@ 738f69470aSLisandro Dalcin PetscDrawPointSetSize - Sets the point size for future draws. The size is 748f69470aSLisandro Dalcin relative to the user coordinates of the window; 0.0 denotes the natural 758f69470aSLisandro Dalcin width, 1.0 denotes the entire viewport. 768f69470aSLisandro Dalcin 778f69470aSLisandro Dalcin Not collective 788f69470aSLisandro Dalcin 798f69470aSLisandro Dalcin Input Parameters: 808f69470aSLisandro Dalcin + draw - the drawing context 818f69470aSLisandro Dalcin - width - the width in user coordinates 828f69470aSLisandro Dalcin 838f69470aSLisandro Dalcin Level: advanced 848f69470aSLisandro Dalcin 858f69470aSLisandro Dalcin Note: 868f69470aSLisandro Dalcin Even a size of zero insures that a single pixel is colored. 878f69470aSLisandro Dalcin 888f69470aSLisandro Dalcin Concepts: point^drawing size 898f69470aSLisandro Dalcin 90*ba1e01c4SBarry Smith .seealso: PetscDrawPoint(), PetscDrawMarker() 918f69470aSLisandro Dalcin @*/ 928f69470aSLisandro Dalcin PetscErrorCode PetscDrawPointSetSize(PetscDraw draw,PetscReal width) 938f69470aSLisandro Dalcin { 948f69470aSLisandro Dalcin PetscErrorCode ierr; 958f69470aSLisandro Dalcin 968f69470aSLisandro Dalcin PetscFunctionBegin; 978f69470aSLisandro Dalcin PetscValidHeaderSpecific(draw,PETSC_DRAW_CLASSID,1); 988f69470aSLisandro Dalcin if (width < 0.0 || width > 1.0) SETERRQ1(PETSC_COMM_SELF,PETSC_ERR_ARG_OUTOFRANGE,"Bad size %g, should be between 0 and 1",(double)width); 998f69470aSLisandro Dalcin if (draw->ops->pointsetsize) { 1008f69470aSLisandro Dalcin ierr = (*draw->ops->pointsetsize)(draw,width);CHKERRQ(ierr); 1018f69470aSLisandro Dalcin } 1028f69470aSLisandro Dalcin PetscFunctionReturn(0); 1038f69470aSLisandro Dalcin } 104