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: }