15c6c1daeSBarry Smith 25c6c1daeSBarry Smith /* 35c6c1daeSBarry Smith Provides the calling sequences for all the basic PetscDraw routines. 45c6c1daeSBarry Smith */ 5*af0996ceSBarry 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 245c6c1daeSBarry Smith .seealso: PetscDrawPointSetSize() 255c6c1daeSBarry Smith 265c6c1daeSBarry Smith @*/ 275c6c1daeSBarry Smith PetscErrorCode PetscDrawPoint(PetscDraw draw,PetscReal xl,PetscReal yl,int cl) 285c6c1daeSBarry Smith { 295c6c1daeSBarry Smith PetscErrorCode ierr; 305c6c1daeSBarry Smith PetscBool isnull; 315c6c1daeSBarry Smith 325c6c1daeSBarry Smith PetscFunctionBegin; 335c6c1daeSBarry Smith PetscValidHeaderSpecific(draw,PETSC_DRAW_CLASSID,1); 345c6c1daeSBarry Smith ierr = PetscObjectTypeCompare((PetscObject)draw,PETSC_DRAW_NULL,&isnull);CHKERRQ(ierr); 355c6c1daeSBarry Smith if (isnull) PetscFunctionReturn(0); 365c6c1daeSBarry Smith ierr = (*draw->ops->point)(draw,xl,yl,cl);CHKERRQ(ierr); 375c6c1daeSBarry Smith PetscFunctionReturn(0); 385c6c1daeSBarry Smith } 395c6c1daeSBarry Smith 405c6c1daeSBarry Smith #undef __FUNCT__ 415c6c1daeSBarry Smith #define __FUNCT__ "PetscDrawPointPixel" 425c6c1daeSBarry Smith /*@ 435c6c1daeSBarry Smith PetscDrawPointPixel - PetscDraws a point onto a drawable, in pixel coordinates 445c6c1daeSBarry Smith 455c6c1daeSBarry Smith Not collective 465c6c1daeSBarry Smith 475c6c1daeSBarry Smith Input Parameters: 485c6c1daeSBarry Smith + draw - the drawing context 495c6c1daeSBarry Smith . xl,yl - the coordinates of the point 505c6c1daeSBarry Smith - cl - the color of the point 515c6c1daeSBarry Smith 525c6c1daeSBarry Smith Level: beginner 535c6c1daeSBarry Smith 545c6c1daeSBarry Smith Concepts: point^drawing 555c6c1daeSBarry Smith Concepts: drawing^point 565c6c1daeSBarry Smith 575c6c1daeSBarry Smith .seealso: PetscDrawPointSetSize() 585c6c1daeSBarry Smith 595c6c1daeSBarry Smith @*/ 605c6c1daeSBarry Smith PetscErrorCode PetscDrawPointPixel(PetscDraw draw,PetscInt xl,PetscInt yl,int cl) 615c6c1daeSBarry Smith { 625c6c1daeSBarry Smith PetscErrorCode ierr; 635c6c1daeSBarry Smith PetscBool isnull; 645c6c1daeSBarry Smith 655c6c1daeSBarry Smith PetscFunctionBegin; 665c6c1daeSBarry Smith PetscValidHeaderSpecific(draw,PETSC_DRAW_CLASSID,1); 675c6c1daeSBarry Smith ierr = PetscObjectTypeCompare((PetscObject)draw,PETSC_DRAW_NULL,&isnull);CHKERRQ(ierr); 685c6c1daeSBarry Smith if (isnull) PetscFunctionReturn(0); 695c6c1daeSBarry Smith ierr = (*draw->ops->pointpixel)(draw,xl,yl,cl);CHKERRQ(ierr); 705c6c1daeSBarry Smith PetscFunctionReturn(0); 715c6c1daeSBarry Smith } 72