Date: 2022-03-31T04:45:59+00:00

Actual source code: dmarker.c

      2: /*
      3:        Provides the calling sequences for all the basic PetscDraw routines.
      4: */
      5: #include <petsc/private/drawimpl.h>
      6: const char *const PetscDrawMarkerTypes[]     = {"CROSS","POINT","PLUS","CIRCLE","PetscDrawMarkerType","PETSC_DRAW_MARKER_",NULL};

      8: /*@
      9:    PetscDrawMarker - PetscDraws a marker onto a drawable.

     11:    Not collective

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

     18:    Level: beginner

     20: .seealso: PetscDrawPoint(), PetscDrawString(), PetscDrawSetMarkerType(), PetscDrawGetMarkerType()

     22: @*/
     23: PetscErrorCode  PetscDrawMarker(PetscDraw draw,PetscReal xl,PetscReal yl,int cl)
     24: {
     26:   if (draw->markertype == PETSC_DRAW_MARKER_CROSS) {
     27:     if (draw->ops->coordinatetopixel && draw->ops->pointpixel) {
     28:       int i,j,k;
     29:       (*draw->ops->coordinatetopixel)(draw,xl,yl,&i,&j);
     30:       for (k=-2; k<=2; k++) {
     31:         (*draw->ops->pointpixel)(draw,i+k,j+k,cl);
     32:         (*draw->ops->pointpixel)(draw,i+k,j-k,cl);
     33:       }
     34:     } else if (draw->ops->string) {
     35:        (*draw->ops->string)(draw,xl,yl,cl,"x");
     36:     } else SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"No support for drawing marker type CROSS");
     37:   } else if (draw->markertype == PETSC_DRAW_MARKER_PLUS) {
     38:     if (draw->ops->coordinatetopixel && draw->ops->pointpixel) {
     39:       int i,j,k;
     40:       (*draw->ops->coordinatetopixel)(draw,xl,yl,&i,&j);
     41:       for (k=-2; k<=2; k++) {
     42:         (*draw->ops->pointpixel)(draw,i,j+k,cl);
     43:         (*draw->ops->pointpixel)(draw,i+k,j,cl);
     44:       }
     45:     } else if (draw->ops->string) {
     46:        (*draw->ops->string)(draw,xl,yl,cl,"+");
     47:     } else SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"No support for drawing marker type PLUS");
     48:   } else if (draw->markertype == PETSC_DRAW_MARKER_CIRCLE) {
     49:     if (draw->ops->coordinatetopixel && draw->ops->pointpixel) {
     50:       int i,j,k;
     51:       (*draw->ops->coordinatetopixel)(draw,xl,yl,&i,&j);
     52:       for (k=-1; k<=1; k++) {
     53:         (*draw->ops->pointpixel)(draw,i+2,j+k,cl);
     54:         (*draw->ops->pointpixel)(draw,i-2,j+k,cl);
     55:         (*draw->ops->pointpixel)(draw,i+k,j+2,cl);
     56:         (*draw->ops->pointpixel)(draw,i+k,j-2,cl);
     57:       }
     58:     } else if (draw->ops->string) {
     59:        (*draw->ops->string)(draw,xl,yl,cl,"+");
     60:     } else SETERRQ(PETSC_COMM_SELF,PETSC_ERR_SUP,"No support for drawing marker type CIRCLE");
     61:   } else {
     62:     (*draw->ops->point)(draw,xl,yl,cl);
     63:   }
     64:   return 0;
     65: }

     67: /*@
     68:    PetscDrawSetMarkerType - sets the type of marker to display with PetscDrawMarker()

     70:    Not collective

     72:    Input Parameters:
     73: +  draw - the drawing context
     74: -  mtype - either PETSC_DRAW_MARKER_CROSS (default) or PETSC_DRAW_MARKER_POINT

     76:    Options Database:
     77: .  -draw_marker_type - x or point

     79:    Level: beginner

     81: .seealso: PetscDrawPoint(), PetscDrawMarker(), PetscDrawGetMarkerType()

     83: @*/
     84: PetscErrorCode  PetscDrawSetMarkerType(PetscDraw draw,PetscDrawMarkerType mtype)
     85: {
     87:   draw->markertype = mtype;
     88:   return 0;
     89: }

     91: /*@
     92:    PetscDrawGetMarkerType - gets the type of marker to display with PetscDrawMarker()

     94:    Not collective

     96:    Input Parameters:
     97: +  draw - the drawing context
     98: -  mtype - either PETSC_DRAW_MARKER_CROSS (default) or PETSC_DRAW_MARKER_POINT

    100:    Level: beginner

    102: .seealso: PetscDrawPoint(), PetscDrawMarker(), PetscDrawSetMarkerType()

    104: @*/
    105: PetscErrorCode  PetscDrawGetMarkerType(PetscDraw draw,PetscDrawMarkerType *mtype)
    106: {
    108:   *mtype = draw->markertype;
    109:   return 0;
    110: }