1*5c6c1daeSBarry Smith 2*5c6c1daeSBarry Smith /* 3*5c6c1daeSBarry Smith Provides the calling sequences for all the basic PetscDraw routines. 4*5c6c1daeSBarry Smith */ 5*5c6c1daeSBarry Smith #include <petsc-private/drawimpl.h> /*I "petscdraw.h" I*/ 6*5c6c1daeSBarry Smith 7*5c6c1daeSBarry Smith #undef __FUNCT__ 8*5c6c1daeSBarry Smith #define __FUNCT__ "PetscDrawPoint" 9*5c6c1daeSBarry Smith /*@ 10*5c6c1daeSBarry Smith PetscDrawPoint - PetscDraws a point onto a drawable. 11*5c6c1daeSBarry Smith 12*5c6c1daeSBarry Smith Not collective 13*5c6c1daeSBarry Smith 14*5c6c1daeSBarry Smith Input Parameters: 15*5c6c1daeSBarry Smith + draw - the drawing context 16*5c6c1daeSBarry Smith . xl,yl - the coordinates of the point 17*5c6c1daeSBarry Smith - cl - the color of the point 18*5c6c1daeSBarry Smith 19*5c6c1daeSBarry Smith Level: beginner 20*5c6c1daeSBarry Smith 21*5c6c1daeSBarry Smith Concepts: point^drawing 22*5c6c1daeSBarry Smith Concepts: drawing^point 23*5c6c1daeSBarry Smith 24*5c6c1daeSBarry Smith .seealso: PetscDrawPointSetSize() 25*5c6c1daeSBarry Smith 26*5c6c1daeSBarry Smith @*/ 27*5c6c1daeSBarry Smith PetscErrorCode PetscDrawPoint(PetscDraw draw,PetscReal xl,PetscReal yl,int cl) 28*5c6c1daeSBarry Smith { 29*5c6c1daeSBarry Smith PetscErrorCode ierr; 30*5c6c1daeSBarry Smith PetscBool isnull; 31*5c6c1daeSBarry Smith 32*5c6c1daeSBarry Smith PetscFunctionBegin; 33*5c6c1daeSBarry Smith PetscValidHeaderSpecific(draw,PETSC_DRAW_CLASSID,1); 34*5c6c1daeSBarry Smith ierr = PetscObjectTypeCompare((PetscObject)draw,PETSC_DRAW_NULL,&isnull);CHKERRQ(ierr); 35*5c6c1daeSBarry Smith if (isnull) PetscFunctionReturn(0); 36*5c6c1daeSBarry Smith ierr = (*draw->ops->point)(draw,xl,yl,cl);CHKERRQ(ierr); 37*5c6c1daeSBarry Smith PetscFunctionReturn(0); 38*5c6c1daeSBarry Smith } 39*5c6c1daeSBarry Smith 40*5c6c1daeSBarry Smith #undef __FUNCT__ 41*5c6c1daeSBarry Smith #define __FUNCT__ "PetscDrawPointPixel" 42*5c6c1daeSBarry Smith /*@ 43*5c6c1daeSBarry Smith PetscDrawPointPixel - PetscDraws a point onto a drawable, in pixel coordinates 44*5c6c1daeSBarry Smith 45*5c6c1daeSBarry Smith Not collective 46*5c6c1daeSBarry Smith 47*5c6c1daeSBarry Smith Input Parameters: 48*5c6c1daeSBarry Smith + draw - the drawing context 49*5c6c1daeSBarry Smith . xl,yl - the coordinates of the point 50*5c6c1daeSBarry Smith - cl - the color of the point 51*5c6c1daeSBarry Smith 52*5c6c1daeSBarry Smith Level: beginner 53*5c6c1daeSBarry Smith 54*5c6c1daeSBarry Smith Concepts: point^drawing 55*5c6c1daeSBarry Smith Concepts: drawing^point 56*5c6c1daeSBarry Smith 57*5c6c1daeSBarry Smith .seealso: PetscDrawPointSetSize() 58*5c6c1daeSBarry Smith 59*5c6c1daeSBarry Smith @*/ 60*5c6c1daeSBarry Smith PetscErrorCode PetscDrawPointPixel(PetscDraw draw,PetscInt xl,PetscInt yl,int cl) 61*5c6c1daeSBarry Smith { 62*5c6c1daeSBarry Smith PetscErrorCode ierr; 63*5c6c1daeSBarry Smith PetscBool isnull; 64*5c6c1daeSBarry Smith 65*5c6c1daeSBarry Smith PetscFunctionBegin; 66*5c6c1daeSBarry Smith PetscValidHeaderSpecific(draw,PETSC_DRAW_CLASSID,1); 67*5c6c1daeSBarry Smith ierr = PetscObjectTypeCompare((PetscObject)draw,PETSC_DRAW_NULL,&isnull);CHKERRQ(ierr); 68*5c6c1daeSBarry Smith if (isnull) PetscFunctionReturn(0); 69*5c6c1daeSBarry Smith ierr = (*draw->ops->pointpixel)(draw,xl,yl,cl);CHKERRQ(ierr); 70*5c6c1daeSBarry Smith PetscFunctionReturn(0); 71*5c6c1daeSBarry Smith } 72