Actual source code: dtextv.c

  1: /*
  2:        Provides the calling sequences for all the basic PetscDraw routines.
  3: */
 4:  #include src/sys/src/draw/drawimpl.h

  8: /*@C
  9:    PetscDrawStringVertical - PetscDraws text onto a drawable.

 11:    Not Collective

 13:    Input Parameters:
 14: +  draw - the drawing context
 15: .  xl,yl - the coordinates of upper left corner of text
 16: .  cl - the color of the text
 17: -  text - the text to draw

 19:    Level: beginner

 21:    Concepts: string^drawing vertical

 23: .seealso: PetscDrawString()

 25: @*/
 26: PetscErrorCode PetscDrawStringVertical(PetscDraw draw,PetscReal xl,PetscReal yl,int cl,const char text[])
 27: {
 29:   PetscTruth isnull;

 34:   PetscTypeCompare((PetscObject)draw,PETSC_DRAW_NULL,&isnull);
 35:   if (isnull) return(0);
 36:   (*draw->ops->stringvertical)(draw,xl,yl,cl,text);
 37:   return(0);
 38: }