1 #include "coxplot.h"
2
3 /*-----------------------------------------------------------------
4 Writes a character string at subjective location (x,y).
5 isiz = size of characters (in units of 0.001 * pagewidth)
6 ior = orientation in integer degrees CCW from horizontal
7 icent = centering option:
8 +1 => (x,y) is center of right edge of last character
9 0 => (x,y) is center of entire string
10 -1 => (x,y) is center of left edge of first character
11 -2 => (x,y) is is lower left corner of string
12 The characters are written with lines defined by the original
13 NCAR font.
14 -------------------------------------------------------------------*/
plotpak_pwrit(float x,float y,char * ch,int isiz,int ior,int icent)15 void plotpak_pwrit( float x , float y , char * ch , int isiz , int ior , int icent )
16 {
17 real xx=x , yy=y ;
18 integer nch=strlen(ch) , iisiz=isiz , iior=ior , iicent=icent ;
19 ftnlen ch_len = nch ;
20 pwrit_( &xx , &yy , ch , &nch , &iisiz , &iior , &iicent , ch_len ) ;
21 }
22
23