--- a/GraphicsContext.st	Mon Jul 05 11:31:27 1999 +0200
+++ b/GraphicsContext.st	Wed Jul 07 00:07:18 1999 +0200
@@ -1105,15 +1105,31 @@
 "/    h := 5.
 "/    w := 14.
 
+"/    pattern := #[
+"/                 2r00000001 2r11100000
+"/                 2r00000010 2r00010000
+"/                 2r10000100 2r00000000
+"/                 2r01111000 2r00000000
+"/                ].
+"/    h := 4.
+"/    w := 12.
+"/
+"/    pattern := #[
+"/                 2r00000011 
+"/                 2r11001100 
+"/                 2r00110000 
+"/                ].
+"/    h := 3.
+"/    w := 8.
+
     pattern := #[
-                 2r00000001 2r11100000
-                 2r00000010 2r00010000
-                 2r10000100 2r00000000
-                 2r01111000 2r00000000
+                 2r11000000 
+                 2r00110000 
                 ].
-    h := 4.
-    w := 12.
-    form := Form width:16 height:h fromArray:pattern.
+    h := 2.
+    w := 4.
+
+    form := Form width:w height:h fromArray:pattern.
 
     oldClip := self clippingRectangleOrNil.
     self clippingRectangle:((x0 @ y0) corner:(x1 @ (y0+h))).
@@ -1126,7 +1142,7 @@
     self clippingRectangle:oldClip
 
     "Created: / 28.10.1998 / 15:31:41 / cg"
-    "Modified: / 28.10.1998 / 15:41:55 / cg"
+    "Modified: / 7.7.1999 / 00:08:30 / cg"
 !
 
 displayLineFromX:x0 y:y0 toX:x1 y:y1
@@ -2136,6 +2152,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.78 1999-06-09 17:16:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.79 1999-07-06 22:07:18 cg Exp $'
 ! !
 GraphicsContext initialize!