[teklib-general] changeset in /hg/teklib/current: added strip test

[Franciska Schulze]

changeset f322740eedee in /hg/teklib/current
details: http://teklib.org:8001/hg/teklib/current?cmd=changeset;node=f322740eedee
description:
	added strip test

diffs (39 lines):

diff -r c9390d6c4d47 -r f322740eedee src/visual/tests/fonts.c
--- a/src/visual/tests/fonts.c	Sun Nov 11 17:47:45 2007 +0100
+++ b/src/visual/tests/fonts.c	Sun Nov 11 17:48:23 2007 +0100
@@ -118,6 +118,35 @@ TVOID fonttest(TAPTR v, TVPEN *pentab)
 		init_done = TTRUE;
 	}
 
+	{
+		TTAGITEM stags[2];
+		TVPEN penarray[4];
+		TINT a1[6] = {
+			0,   300,
+			300,   0,
+			300, 600,
+		};
+
+		TINT a2[8] = {
+			600, 200,
+			300, 200,
+			600, 400,
+			300, 400,
+		};
+
+		penarray[0] = pentab[0];
+		penarray[1] = pentab[0];
+		penarray[2] = pentab[0];
+		penarray[3] = pentab[3];
+
+		stags[0].tti_Tag = TVisual_PenArray;
+		stags[0].tti_Value = (TTAG) &penarray;
+		stags[1].tti_Tag = TTAG_DONE;
+
+		TVisualDrawStrip(v, a1, 3, stags);
+		TVisualDrawStrip(v, a2, 4, stags);
+	}
+
 	TVisualText(v, 10, 10+fh, buf, TStrLen(buf), pentab[0], TVPEN_UNDEFINED);
 }