#include <Xlib.h>
#include <math.h>

XDrawString(Display *display,Drawable dw,GC gc,int x,int y,char * ss, int sz,double angl)
{

XPoint *p;
Pixmap tmp_pix;
GC t_gc;
XImage *image;

double sv  = sin(angl);
double cv  = cos(angl);
double sh  = sin(angl+M_PI);
double ch  = cos(angl);

if (fabs(sv) <  0 . 0001 ) sv =  0 ;
if (fabs(cv) <  0 . 0001 ) cv =  0 ;
if (fabs(sh) <  0 . 0001 ) sh =  0 ;
if (fabs(ch) <  0 . 0001 ) ch =  0 ;


t_gc=XCreateGC(display,dw, 0 ,NULL);
XCopyGC(display,gc,0x007fffff,t_gc);

XGCValues v;
XGetGCValues(display,gc,GCFont,&v);
XFontStruct *f;
f=XQueryFont(display,v.font);


int height_c= 10 ;
int width_p= 10 ;

if(f!= 0 ) {
	height_c=f->max_bounds.ascent + f->max_bounds.descent;
  	width_p  = XTextWidth(f,  "W" ,  1 ) +  1 ;
}

int yb = height_c - f->descent;

int wd=sz*width_p+ 5 ;
int hg=height_c;

tmp_pix= XCreatePixmap(display, dw,wd,hg, 8 );
XSetForeground(display,t_gc,WhitePixel(display, 0 ));
XFillRectangle(display,tmp_pix,t_gc,  0 ,  0 ,wd,hg);
XSetForeground(display,t_gc,BlackPixel(display, 0 ));
XSetBackground(display,t_gc,WhitePixel(display, 0 ));

XDrawString(display,tmp_pix,t_gc, 0 ,yb,ss,sz);
image = XGetImage(display,tmp_pix,  0 ,  0 ,wd,hg, 1 ,XYPixmap);

p=new (XPoint) [wd*hg];
if(p== 0 )return;
int q= 0 ;
double xt;
double xn = x;
double yt;
double yn = y;


for(int i= 0 ;i<hg;i++) {
	xt=xn;
	yt=yn;
	for(int j= 0 ;j<wd;j++) {
		if(XGetPixel(image,j,i) == BlackPixel(display, 0 )) {
			p[q].x=xt;
			p[q].y=yt-hg*cv;
			++q;
		}
		xt+=ch;
		yt+=sh;
	}
	xn+=sv;
	yn+=cv;
}
XDrawPoints(display, dw,gc,p,q, CoordModeOrigin);
delete [] p;
XFreeGC(display,t_gc);
return;
}