Date: 2013-07-02T14:38:17+00:00

Actual source code: dtextv.c
petsc-3.4.2 2013-07-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: }