experimental: trying if custom text underlining algo can be implemented

Author: dk

class/Drawable.cls

@@ -76,6 +76,7 @@ object Prima::Drawable ( Prima::Component)
 	static SV *  render_polyline( SV * obj, SV * points, HV * profile);
 	import Handle render_pattern( SV * obj, SV * pattern, HV * profile);
 	static SV *  render_spline( SV * obj, SV * points, HV * profile);
+	method SV *  render_underline(SV * glyphs);
 	method Bool  graphic_context_push();
 	method Bool  graphic_context_pop();
 
@@ -99,6 +100,7 @@ object Prima::Drawable ( Prima::Component)
 	PFontABC font_abc_ascii;
 	PList    font_abc_unicode;
 	PList    font_abc_glyphs;
+	PList    font_def_glyphs;
 	unsigned long * font_abc_glyphs_ranges;
 	int             font_abc_glyphs_n_ranges;
 

class/Drawable/fonts.c

@@ -17,6 +17,13 @@ Drawable_clear_font_abc_caches( Handle self)
 		plist_destroy( u);
 		var-> font_abc_glyphs = NULL;
 	}
+	if (( u = var-> font_def_glyphs)) {
+		int i;
+		for ( i = 0; i < u-> count; i += 2)
+			free(( void*) u-> items[ i + 1]);
+		plist_destroy( u);
+		var-> font_def_glyphs = NULL;
+	}
 	if (( u = var-> font_abc_unicode)) {
 		int i;
 		for ( i = 0; i < u-> count; i += 2)

class/Drawable/line_ends.c

@@ -387,6 +387,68 @@ Drawable_lineEndIndex( Handle self, Bool set, int index, SV *lineEnd)
 	return NULL_SV;
 }
 
+int
+Drawable_resolve_line_end_index( DrawablePaintState *gs, int index)
+{
+	int le = gs->line_end[index].type;
+	while ( le == leDefault ) {
+		switch ( index ) {
+		case leiLineTail:
+			le = leRound;
+			break;
+		case leiLineHead:
+		case leiArrowTail:
+			index = leiLineTail;
+			le = gs->line_end[index].type;
+			break;
+		case leiArrowHead:
+			index = leiLineHead;
+			le = gs->line_end[index].type;
+			break;
+		default:;
+		}
+	}
+	return index;
+}
+
+NRect
+Drawable_line_end_box( DrawablePaintState *gs, int index)
+{
+	NRect r = {0,0,0,0};
+	LineEnd *le = gs->line_end + index;
+
+	switch ( le->type ) {
+	case leRound:
+	case leSquare:
+		r.left = r.bottom = r.right = r.top = 0.5;
+		break;
+	case leCustom: {
+		int k;
+		PPath p = le->path;
+		for ( k = 0; k < p->n_commands; k++) {
+			int l;
+			PPathCommand pc = p->commands[k];
+			double *pts = pc->args;
+			for ( l = 0; l < pc->n_args; l++) {
+				if ( *pts < r.left )
+					r.left = *pts;
+				if ( *pts > r.right )
+					r.right = *pts;
+				pts++;
+				if ( *pts < r.bottom )
+					r.bottom = *pts;
+				if ( *pts > r.top )
+					r.top = *pts;
+				pts++;
+			}
+		}
+		break;
+	}
+	default:;
+	}
+
+	return r;
+}
 
 #ifdef __cplusplus
 }

class/Drawable/text.c

@@ -393,7 +393,7 @@ Drawable_get_text_box( Handle self, SV * text, int from, int len )
 		GlyphsOutRec t;
 		dmCHECK(NULL_SV);
 		if (!Drawable_read_glyphs(&t, text, 0, "Drawable::get_text_box"))
-			return false;
+			return newRV_noinc(( SV *) newAV());
 		if (( len = Drawable_check_length(from,len,t.len)) == 0)
 			return newRV_noinc(( SV *) newAV());
 		Drawable_hop_glyphs(&t, from, len);