diff -r 000000000000 -r 1918ee327afb tests/arthur/data/qps/text.qps
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/arthur/data/qps/text.qps	Mon Jan 11 14:00:40 2010 +0000
@@ -0,0 +1,122 @@
+drawText -5 5 "Text that is drawn outside the bounds..."
+
+translate 20 20
+begin_block text_drawing
+save
+  setFont "sansserif" 10 normal
+  drawText 0 20 "sansserif 10pt, normal"
+  
+  setFont "sansserif" 12 normal
+  drawText 0 40 "sansserif 12pt, normal"
+  
+  setFont "sansserif" 10 bold
+  drawText 0 60 "sansserif 12pt, bold"
+  
+  setFont "sansserif" 10 bold italic
+  drawText 0 80 "sansserif 10pt, bold italic"
+  
+  
+  translate 0 100
+  setPen #7fff0000
+  
+  setFont "sansserif" 10 normal
+  drawText 0 20 "alpha sansserif 10pt, normal"
+  
+  setFont "sansserif" 12 normal
+  drawText 0 40 "alpha sansserif 12pt, normal"
+  
+  setFont "sansserif" 10 bold
+  drawText 0 60 "alpha sansserif 12pt, bold"
+  
+  setFont "sansserif" 10 bold italic
+  drawText 0 80 "alpha sansserif 10pt, bold italic"
+  
+  
+  translate 0 100
+  setPen black
+  save
+    scale 0.9 0.9
+  
+    setFont "sansserif" 10 normal
+    drawText 0 20 "scaled sansserif 10pt, normal"
+  
+    setFont "sansserif" 12 normal
+    drawText 0 40 "scaled sansserif 12pt, normal"
+  
+    setFont "sansserif" 10 bold
+    drawText 0 60 "scaled sansserif 12pt, bold"
+  
+    setFont "sansserif" 10 bold italic
+    drawText 0 80 "scaled sansserif 10pt, bold italic"
+  restore
+
+  translate 0 100
+  setPen black
+  save
+    translate 200 90
+    rotate 185
+  
+    setFont "sansserif" 10 normal
+    drawText 0 20 "scaled sansserif 10pt, normal"
+  
+    setFont "sansserif" 12 normal
+    drawText 0 40 "scaled sansserif 12pt, normal"
+  
+    setFont "sansserif" 10 bold
+    drawText 0 60 "scaled sansserif 12pt, bold"
+  
+    setFont "sansserif" 10 bold italic
+    drawText 0 80 "scaled sansserif 10pt, bold italic"
+  restore
+  
+  translate 0 100
+  gradient_appendStop 0 red
+  gradient_appendStop 0.5 #00ff00
+  gradient_appendStop 1 blue
+  gradient_setLinear 0 0 200 0
+  setPen brush
+  
+  setFont "sansserif" 10 normal
+  drawText 0 0 "gradient sansserif 10pt, normal"
+  
+  setFont "sansserif" 12 normal
+  drawText 0 20 "gradient sansserif 12pt, normal"
+  
+  setFont "sansserif" 10 bold
+  drawText 0 40 "gradient sansserif 12pt, bold"
+  
+  setFont "sansserif" 10 bold italic
+  drawText 0 60 "gradient sansserif 10pt, bold italic"
+restore
+end_block
+
+translate 250 0
+drawText 25 520 "clipped to rectangle"
+save
+  setPen #3f000000
+  setBrush nobrush
+  drawRect 20 0 100 500
+  setClipRect 20 0 100 500
+  setPen black
+  repeat_block text_drawing
+restore
+
+translate 150 0
+drawText 25 520 "clipped to path"
+save 
+  path_moveTo clip 20 0
+  path_cubicTo clip 0 200  40 400  20 400
+  path_lineTo clip 30 500
+  path_lineTo clip 30 0
+  path_lineTo clip 40 0
+  path_lineTo clip 40 500
+  path_lineTo clip 120 500
+  path_lineTo clip 120 0
+  path_lineTo clip 20 0
+  setPen #3f000000
+  setBrush nobrush
+  drawPath clip
+  setClipPath clip
+  setPen black
+  repeat_block text_drawing
+restore