--- a/Depth1Image.st	Sat Dec 11 02:34:56 1993 +0100
+++ b/Depth1Image.st	Sat Dec 11 02:36:44 1993 +0100
@@ -23,7 +23,7 @@
 
 this class represents bilevel (1 bit / pixel) images
 
-$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.2 1993-10-13 00:45:03 claus Exp $
+$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.3 1993-12-11 01:26:39 claus Exp $
 
 written summer 93 by claus
 '!
@@ -279,14 +279,14 @@
     ].
 
     srcIndex := srcIndex + (x1 // 8).
-    mask := #(2r10000000 
+    mask := #[2r10000000 
               2r01000000
               2r00100000
               2r00010000
               2r00001000
               2r00000100
               2r00000010
-              2r00000001) at:((x1 \\ 8) + 1).
+              2r00000001] at:((x1 \\ 8) + 1).
 
     x1 to:x2 do:[:x |
         byte := bytes at:srcIndex.
@@ -367,6 +367,7 @@
                 break;
 
             case 4:
+                /* tuned for this common case */
                 while (_pixels > 0) {
                     _byte = *srcP++;
                     byte1 = mag1[_byte >> 4];