Actual source code: dtextv.c
 
   petsc-3.6.2 2015-10-02
   
  2: /*
  3:        Provides the calling sequences for all the basic PetscDraw routines.
  4: */
  5: #include <petsc/private/drawimpl.h>  /*I "petscdraw.h" I*/
  9: /*@C
 10:    PetscDrawStringVertical - PetscDraws text onto a drawable.
 12:    Not Collective
 14:    Input Parameters:
 15: +  draw - the drawing context
 16: .  xl,yl - the coordinates of upper left corner of text
 17: .  cl - the color of the text
 18: -  text - the text to draw
 20:    Level: beginner
 22:    Concepts: string^drawing vertical
 24: .seealso: PetscDrawString()
 26: @*/
 27: PetscErrorCode  PetscDrawStringVertical(PetscDraw draw,PetscReal xl,PetscReal yl,int cl,const char text[])
 28: {
 30:   PetscBool      isnull;
 35:   PetscObjectTypeCompare((PetscObject)draw,PETSC_DRAW_NULL,&isnull);
 36:   if (isnull) return(0);
 37:   if (!draw->ops->stringvertical) SETERRQ(PetscObjectComm((PetscObject)draw),PETSC_ERR_SUP,"No support for vertical strings");
 38:   (*draw->ops->stringvertical)(draw,xl,yl,cl,text);
 39:   return(0);
 40: }