2: /*
  3:        Provides the calling sequences for all the basic PetscDraw routines.
  4: */
  5: #include <../src/sys/draw/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:   (*draw->ops->stringvertical)(draw,xl,yl,cl,text);
 38:   return(0);
 39: }