The R Project SVN – R – Diff – /trunk/src/extra/graphapp/drawtext.c

 #define COMPRESS_WHITESPACE 0
 static const char *get_next_line(char *line, int width, const char *s)
+{
-	const char *t; char  *k;
+    const char *t; char  *k;
-	int	word_width, line_width;
+    int	word_width, line_width;
-	int	sp, tab, nl;
+    int	sp, tab, nl;
-	line_width  = 0;
+    line_width  = 0;
-	for (t=s, k=line; *t!='\0'; line=k, s=t)
+    for (t=s, k=line; *t!='\0'; line=k, s=t)
+    {
+	for (nl=tab=sp=0; (*t!='\0') && isspace(*t) && !nl; t++)
+	{
-		for (nl=tab=sp=0; (*t!='\0') && isspace(*t) && !nl; t++)
-		{
 #if COMPRESS_WHITESPACE
-			if (*t == '\n') nl++;
+	    if (*t == '\n') nl++;
-			else if (*t == '\t') tab++;
+	    else if (*t == '\t') tab++;
-			else sp++;
+	    else sp++;
 #else
-			if (*t == '\n') nl++;
+	    if (*t == '\n') nl++;
-			else if (*t == '\t') { /* expand tabs */
+	    else if (*t == '\t') { /* expand tabs */
-				for (tab=4; tab; tab--)
+		for (tab=4; tab; tab--)
-					*k++ = ' ';
+		    *k++ = ' ';
-			}
+	    }
-			else
+	    else
-				*k++ = *t;
+		*k++ = *t;
 #endif
-		}
+	}
-		s = t;
-		if (nl)      	{ *k++ = '\n'; break; }
-		else if (tab)	{ *k++ = ' '; *k++ = ' '; }
-		else if (sp) 	{ *k++ = ' ';  }
-		/* fetch the next word to draw */
-		for (*k='\0'; (*t!='\0') && !isspace(*t); *k='\0') {
-			if (*t == '-') {
-				*k++ = *t++;
-				*k = '\0';
-				break;
-			}
-			*k++ = *t++;
+	s = t;
-		}
+	if (nl)	{ *k++ = '\n'; break; }
+	else if (tab)	{ *k++ = ' '; *k++ = ' '; }
+	else if (sp)	{ *k++ = ' ';  }
-		/* determine where the word should be drawn */
+	/* fetch the next word to draw */
+	for (*k='\0'; (*t!='\0') && !isspace(*t); *k='\0') {
+	    if (*t == '-') {
+		*k++ = *t++;
+		*k = '\0';
+		break;
+	    }
+	    *k++ = *t++;
+	}
-		while (((word_width = strwidth(current->fnt,line)) > width)
+	/* determine where the word should be drawn */
-				&& (k>line))
-		{
-			*(--k) = '\0';
-			--t;
-		}
-		if (word_width > (width - line_width)) {
+	while (((word_width = strwidth(current->fnt,line)) > width)
-			k = line;
+	       && (k>line))
+	{
-			break;
+	    *(--k) = '\0';
-		} else
+	    --t;
-			line_width += word_width;
+	}
+	if (word_width > (width - line_width)) {
-	*k = '\0';
+	    k = line;
+	    break;
+	} else
+	    line_width += word_width;
+    }
+    *k = '\0';
-	return (*s == '\0') ? NULL : s;
+    return (*s == '\0') ? NULL : s;
+}
 int textheight(int width, const char *s)
+{
-	int y;
+    int y;
-	char line[256];
+    char line[256];
-	int height;
+    int height;
-	height = getheight(current->fnt);
+    height = getheight(current->fnt);
+    for(y=0; s; y+=height)
+    {
+	s = get_next_line(line, width, s);
+    }
-	for(y=0; s; y+=height)
-	{
-		s = get_next_line(line, width, s);
-	}
-	return y;
+    return y;
+}
 static const char *draw_text_left(char *line, rect r, int line_height,
 				  int underline, const char *s)
+{
-	char *k;
+    char *k;
-	point p;
+    point p;
-	int width, height;
+    int width, height;
-	font f;
+    font f;
-	f = current->fnt;
+    f = current->fnt;
-	for(p=pt(r.x,r.y); (p.y<=r.y+r.height) && (s); p.y+=line_height)
+    for(p=pt(r.x,r.y); (p.y<=r.y+r.height) && (s); p.y+=line_height)
-	{
+    {
-		s = get_next_line(line, r.width, s);
+	s = get_next_line(line, r.width, s);
-		for (k=line; *k!='\0'; k++)
+	for (k=line; *k!='\0'; k++)
-			continue;
+	    continue;
-		for (--k; (k>=line) && isspace(*k); k--)
+	for (--k; (k>=line) && isspace(*k); k--)
-			*k = '\0';
+	    *k = '\0';
-		drawstr(p, line);
+	drawstr(p, line);
-		if (underline) {
+	if (underline) {
-			width = strwidth(f, line);
+	    width = strwidth(f, line);
-			height = p.y+getheight(f)-getdescent(f)+2;
+	    height = p.y+getheight(f)-getdescent(f)+2;
-			drawline(pt(p.x+1, height), pt(p.x+width-1, height));
+	    drawline(pt(p.x+1, height), pt(p.x+width-1, height));
-		}
+	}
+    }
-	return s;
+    return s;
+}
 static const char *draw_text_right(char *line, rect r, int line_height,
 			     int underline, const char *s)
+{
-	char *k;
+    char *k;
-	int w;
+    int w;
-	point p;
+    point p;
-	int width, height;
+    int width, height;
-	font f;
+    font f;
-	f = current->fnt;
+    f = current->fnt;
-	for(p=pt(r.x,r.y); (p.y<=r.y+r.height) && (s); p.y+=line_height)
+    for(p=pt(r.x,r.y); (p.y<=r.y+r.height) && (s); p.y+=line_height)
-	{
+    {
-		s = get_next_line(line, r.width, s);
+	s = get_next_line(line, r.width, s);
-		for (k=line; *k!='\0'; k++)
+	for (k=line; *k!='\0'; k++)
-			continue;
+	    continue;
-		for (--k; (k>=line) && isspace(*k); k--)
+	for (--k; (k>=line) && isspace(*k); k--)
-			*k = '\0';
+	    *k = '\0';
-		for (k=line; (*k!='\0') && isspace(*k); k++)
+	for (k=line; (*k!='\0') && isspace(*k); k++)
-			continue;
+	    continue;
-		w = strwidth(current->fnt, k);
+	w = strwidth(current->fnt, k);
-		p.x = r.x+r.width - w;
+	p.x = r.x+r.width - w;
-		drawstr(p, k);
+	drawstr(p, k);
-		if (underline) {
+	if (underline) {
-			width = strwidth(f, k);
+	    width = strwidth(f, k);
-			height = p.y+getheight(f)-getdescent(f)+2;
+	    height = p.y+getheight(f)-getdescent(f)+2;
-			drawline(pt(p.x+1, height), pt(p.x+width-1, height));
+	    drawline(pt(p.x+1, height), pt(p.x+width-1, height));
-		}
+	}
+    }
-	return s;
+    return s;
+}
 static const char *draw_text_centered(char *line, rect r, int line_height,
 				      int underline, const char *s)
+{
-	char *k;
+    char *k;
-	int w;
+    int w;
-	point p;
+    point p;
-	int width, height;
+    int width, height;
-	font f;
+    font f;
-	f = current->fnt;
+    f = current->fnt;
-	for(p=pt(r.x,r.y); (p.y<=r.y+r.height) && (s); p.y+=line_height)
+    for(p=pt(r.x,r.y); (p.y<=r.y+r.height) && (s); p.y+=line_height)
-	{
+    {
-		s = get_next_line(line, r.width, s);
+	s = get_next_line(line, r.width, s);
-		for (k=line; *k!='\0'; k++)
+	for (k=line; *k!='\0'; k++)
-			continue;
+	    continue;
-		for (--k; (k>=line) && isspace(*k); k--)
+	for (--k; (k>=line) && isspace(*k); k--)
-			*k = '\0';
+	    *k = '\0';
-		for(k=line; (*k!='\0') && isspace(*k); k++)
+	for(k=line; (*k!='\0') && isspace(*k); k++)
-			continue;
+	    continue;
-		w = strwidth(current->fnt, k);
+	w = strwidth(current->fnt, k);
-		p.x = r.x + (r.width-w)/2;
+	p.x = r.x + (r.width-w)/2;
-		drawstr(p, k);
+	drawstr(p, k);
-		if (underline) {
+	if (underline) {
-			width = strwidth(f, k);
+	    width = strwidth(f, k);
-			height = p.y+getheight(f)-getdescent(f)+2;
+	    height = p.y+getheight(f)-getdescent(f)+2;
-			drawline(pt(p.x+1, height), pt(p.x+width-1, height));
+	    drawline(pt(p.x+1, height), pt(p.x+width-1, height));
-		}
+	}
+    }
-	return s;
+    return s;
+}
 static const char *draw_text_justified(char *line, rect r, int line_height,
 				       int underline, const char *s)
+{
-	char *j, *k;
+    char *j, *k;
-	int w, xw, nl, sc, sw, space_width;
+    int w, xw, nl, sc, sw, space_width;
-	point p;
+    point p;
-	int width, height;
+    int width, height;
-	font f;
+    font f;
-	space_width = strwidth(current->fnt, " ");
+    space_width = strwidth(current->fnt, " ");
-	f = current->fnt;
+    f = current->fnt;
-	for(p=pt(r.x,r.y); (p.y<=r.y+r.height) && (s); p.y+=line_height)
+    for(p=pt(r.x,r.y); (p.y<=r.y+r.height) && (s); p.y+=line_height)
-	{
+    {
-		s = get_next_line(line, r.width, s);
+	s = get_next_line(line, r.width, s);
-		p.x = r.x;
+	p.x = r.x;
-		for(j=line; (*j!='\0') && isspace(*j); j++)
+	for(j=line; (*j!='\0') && isspace(*j); j++)
-			p.x += space_width;
+	    p.x += space_width;
-		for (sc=0, k=j; *k!='\0'; k++)
+	for (sc=0, k=j; *k!='\0'; k++)
-			if (isspace(*k))
+	    if (isspace(*k))
-				sc++;
+		sc++;
-		for (nl=0, --k; (k>=j) && isspace(*k); k--) {
+	for (nl=0, --k; (k>=j) && isspace(*k); k--) {
-			if (*k == '\n')
+	    if (*k == '\n')
-				nl++;
+		nl++;
-			*k = '\0';
+	    *k = '\0';
-			sc--;
+	    sc--;
-		}
+	}
-		if ((sc==0) || nl || (! s)) {
+	if ((sc==0) || nl || (! s)) {
-			drawstr(p, j);
+	    drawstr(p, j);
-			width = strwidth(f, j);
+	    width = strwidth(f, j);
-		}
+	}
-		else {
+	else {
-			w = strwidth(f, j);
+	    w = strwidth(f, j);
-			sw = space_width + (r.x+r.width-p.x-w)/sc;
+	    sw = space_width + (r.x+r.width-p.x-w)/sc;
-			xw = (r.x+r.width-p.x-w)%sc;
+	    xw = (r.x+r.width-p.x-w)%sc;
-			for(j=strtok(j," "); j; j=strtok(NULL," "))
+	    for(j=strtok(j," "); j; j=strtok(NULL," "))
-			{
+	    {
-				drawstr(p, j);
+		drawstr(p, j);
-				p.x += sw + strwidth(f, j);
+		p.x += sw + strwidth(f, j);
-				if (xw) {
+		if (xw) {
-					p.x++;
+		    p.x++;
-					xw--;
+		    xw--;
-				}
-			}
-			width = r.width;
-		}
-		if (underline) {
-			height = p.y+getheight(f)-getdescent(f)+2;
-			drawline(pt(p.x+1, height), pt(p.x+width-1, height));
+		}
+	    }
+	    width = r.width;
+	}
+	if (underline) {
+	    height = p.y+getheight(f)-getdescent(f)+2;
+	    drawline(pt(p.x+1, height), pt(p.x+width-1, height));
+	}
+    }
-	return s;
+    return s;
+}
 const char *drawtext(rect r, int alignment, const char *s)
+{
-	int h;
+    int h;
-	int nlines;
+    int nlines;
-	int line_height;
+    int line_height;
-	int u = 0;
+    int u = 0;
-	rect clip;
+    rect clip;
-	const char *remains;
+    const char *remains;
-	char line[256];
+    char line[256];
-	initapp(0,0);
+    initapp(0,0);
-	if (! s) return (char *) NULL;
+    if (! s) return (char *) NULL;
-	if (! current->fnt)
+    if (! current->fnt)
-		current->fnt = SystemFont;
+	current->fnt = SystemFont;
-	clip = getcliprect();
+    clip = getcliprect();
-	setcliprect(r);
+    setcliprect(r);
-	line_height = getheight(current->fnt);
+    line_height = getheight(current->fnt);
-	if ((alignment & VCenter) == VCenter) {
+    if ((alignment & VCenter) == VCenter) {
-		h = textheight(r.width, s);
+	h = textheight(r.width, s);
-		if (h < r.height)
+	if (h < r.height)
-			r.y += (r.height-h)/2;
+	    r.y += (r.height-h)/2;
-	}
+    }
-	else if ((alignment & VJustify) == VJustify) {
+    else if ((alignment & VJustify) == VJustify) {
-		h = textheight(r.width, s);
+	h = textheight(r.width, s);
-		if (h < r.height) {
+	if (h < r.height) {
-			nlines = h / line_height;
+	    nlines = h / line_height;
-			if (nlines > 1)
+	    if (nlines > 1)
-				line_height += ((r.height-h) / (nlines-1));
+		line_height += ((r.height-h) / (nlines-1));
-		}
+	}
+    }
-	else if ((alignment & AlignBottom) == AlignBottom) {
+    else if ((alignment & AlignBottom) == AlignBottom) {
-		h = textheight(r.width, s);
+	h = textheight(r.width, s);
-		if (h < r.height)
+	if (h < r.height)
-			r.y += (r.height-h);
+	    r.y += (r.height-h);
-	}
+    }
-	u = (alignment & Underline);
+    u = (alignment & Underline);
-	if ((alignment & Center) == Center)
+    if ((alignment & Center) == Center)
-		remains = draw_text_centered(line, r, line_height, u, s);
+	remains = draw_text_centered(line, r, line_height, u, s);
-	else if ((alignment & Justify) == Justify)
+    else if ((alignment & Justify) == Justify)
-		remains = draw_text_justified(line, r, line_height, u, s);
+	remains = draw_text_justified(line, r, line_height, u, s);
-	else if ((alignment & AlignRight) == AlignRight)
+    else if ((alignment & AlignRight) == AlignRight)
-		remains = draw_text_right(line, r, line_height, u, s);
+	remains = draw_text_right(line, r, line_height, u, s);
-	else
+    else
-		remains = draw_text_left(line, r, line_height, u, s);
+	remains = draw_text_left(line, r, line_height, u, s);
-	setcliprect(clip);
+    setcliprect(clip);
-	return remains;
+    return remains;
+}
 int gprintf(const char *fmt, ...)
+{
-	static point p = {0,0};
+    static point p = {0,0};
-	int count;
+    int count;
-	int line_height;
+    int line_height;
-	char *s, *t;
+    char *s, *t;
-	va_list argptr;
+    va_list argptr;
-	char str[256];
+    char str[256];
-	va_start(argptr, fmt);
+    va_start(argptr, fmt);
-	count = vsprintf(str, fmt, argptr);
+    count = vsprintf(str, fmt, argptr);
-	initapp(0,0);
+    initapp(0,0);
-	if (! current->fnt)
+    if (! current->fnt)
-		current->fnt = SystemFont;
+	current->fnt = SystemFont;
-	line_height = getheight(current->fnt);
+    line_height = getheight(current->fnt);
-	for (s=t=str; *s!='\0'; t++) {
+    for (s=t=str; *s!='\0'; t++) {
-		if (current->p.y != p.y) {
+	if (current->p.y != p.y) {
-			/* typewriter ping! */
+	    /* typewriter ping! */
-			p = current->p;
+	    p = current->p;
-		}
+	}
-		if (*t == '\n') {
+	if (*t == '\n') {
-		/* print everything from s to t and move point down */
+	    /* print everything from s to t and move point down */
-			*t = '\0';
+	    *t = '\0';
-			drawstr(p, s);
+	    drawstr(p, s);
-			current->p.y += line_height;
+	    current->p.y += line_height;
-			/* go past the substring just printed */
+	    /* go past the substring just printed */
-			s = t+1;
+	    s = t+1;
-		}
+	}
-		else if (*t == '\0') {
+	else if (*t == '\0') {
-			/* print final string without newline */
+	    /* print final string without newline */
-			p.x += drawstr(p, s);
+	    p.x += drawstr(p, s);
-			/* go to end of string, signal termination */
+	    /* go to end of string, signal termination */
-			s = t;
+	    s = t;
-		}
+	}
+    }
-	va_end(argptr);
+    va_end(argptr);
-	return count;
+    return count;
+}

The R Project SVN R

(root)/trunk/src/extra/graphapp/drawtext.c – Rev 42521 → 45017