--- a/Form.st Mon Apr 22 23:41:34 1996 +0200
+++ b/Form.st Tue Apr 23 10:21:47 1996 +0200
@@ -362,841 +362,705 @@
2r11101110)
!
-dither10in64
- "return a pattern for dithering"
-
- ^ #[2r10001000
- 2r00000000
- 2r00101010
- 2r00000000
- 2r10001000
- 2r00000000
- 2r10100010
- 2r00000000]
-!
-
-dither11in64
- "return a pattern for dithering"
-
- ^ #[2r10001000
- 2r00000000
- 2r00101010
- 2r00000000
- 2r10001000
- 2r00000000
- 2r10101010
- 2r00000000]
-!
-
-dither12in64
- "return a pattern for dithering"
-
- ^ #[2r10001000
- 2r00000000
- 2r10101010
- 2r00000000
- 2r10001000
- 2r00000000
- 2r10101010
- 2r00000000]
-!
-
-dither13in64
- "return a pattern for dithering"
-
- ^ #[2r10001000
- 2r00000000
- 2r10101010
- 2r00000000
- 2r10101000
- 2r00000000
- 2r10101010
- 2r00000000]
-!
-
-dither14in64
- "return a pattern for dithering"
-
- ^ #[2r10001010
- 2r00000000
- 2r10101010
- 2r00000000
- 2r10101000
- 2r00000000
- 2r10101010
- 2r00000000]
-!
-
-dither15in64
- "return a pattern for dithering"
-
- ^ #[2r10001010
- 2r00000000
- 2r10101010
- 2r00000000
- 2r10101010
- 2r00000000
- 2r10101010
- 2r00000000]
-!
-
-dither16in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r00000000
- 2r10101010
- 2r00000000
- 2r10101010
- 2r00000000
- 2r10101010
- 2r00000000]
-!
-
-dither17in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000000
- 2r10101010
- 2r00000000
- 2r10101010
- 2r00000000
- 2r10101010
- 2r00000000]
-!
-
-dither18in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000000
- 2r10101010
- 2r00000000
- 2r10101010
- 2r00000100
- 2r10101010
- 2r00000000]
-!
-
-dither19in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000000
- 2r10101010
- 2r00000000
- 2r10101010
- 2r01000100
- 2r10101010
- 2r00000000]
-!
-
-dither1in64
- "return a pattern for dithering"
-
- ^ #[2r10000000
- 2r00000000
- 2r00000000
- 2r00000000
- 2r00000000
- 2r00000000
- 2r00000000
- 2r00000000]
-!
-
-dither20in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000100
- 2r10101010
- 2r00000000
- 2r10101010
- 2r01000100
- 2r10101010
- 2r00000000]
-!
-
-dither21in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000100
- 2r10101010
- 2r00000000
- 2r10101010
- 2r01000100
- 2r10101010
- 2r00000001]
-!
-
-dither22in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000100
- 2r10101010
- 2r00010000
- 2r10101010
- 2r01000100
- 2r10101010
- 2r00000001]
-!
-
-dither23in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000100
- 2r10101010
- 2r00010001
- 2r10101010
- 2r01000100
- 2r10101010
- 2r00000001]
-!
-
-dither24in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000100
- 2r10101010
- 2r00010001
- 2r10101010
- 2r01000100
- 2r10101010
- 2r00010001]
-!
-
-dither25in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000100
- 2r10101010
- 2r00010001
- 2r10101010
- 2r01000100
- 2r10101010
- 2r01010001]
-!
-
-dither26in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000100
- 2r10101010
- 2r00010101
- 2r10101010
- 2r01000100
- 2r10101010
- 2r01010001]
-!
-
-dither27in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000100
- 2r10101010
- 2r00010101
- 2r10101010
- 2r01000100
- 2r10101010
- 2r01010101]
-!
-
-dither28in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000100
- 2r10101010
- 2r01010101
- 2r10101010
- 2r01000100
- 2r10101010
- 2r01010101]
-!
-
-dither29in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000100
- 2r10101010
- 2r01010101
- 2r10101010
- 2r01010100
- 2r10101010
- 2r01010101]
-!
-
-dither2in64
- "return a pattern for dithering"
-
- ^ #[2r10000000
- 2r00000000
- 2r00000000
- 2r00000000
- 2r00001000
- 2r00000000
- 2r00000000
- 2r00000000]
-!
-
-dither30in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000101
- 2r10101010
- 2r01010101
- 2r10101010
- 2r01010100
- 2r10101010
- 2r01010101]
-!
-
-dither31in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01000101
- 2r10101010
- 2r01010101
- 2r10101010
- 2r01010101
- 2r10101010
- 2r01010101]
-!
-
-dither32in64
- "return a pattern for dithering"
-
- ^ #[2r10101010
- 2r01010101
- 2r10101010
- 2r01010101
- 2r10101010
- 2r01010101
- 2r10101010
- 2r01010101]
-!
-
-dither33in64
- "return a pattern for dithering"
-
- ^ #[2r11101010
- 2r01010101
- 2r10101010
- 2r01010101
- 2r10101010
- 2r01010101
- 2r10101010
- 2r01010101]
-!
-
-dither34in64
- "return a pattern for dithering"
-
- ^ #[2r11101010
- 2r01010101
- 2r10101010
- 2r01010101
- 2r10101110
- 2r01010101
- 2r10101010
- 2r01010101]
-!
-
-dither35in64
- "return a pattern for dithering"
-
- ^ #[2r11101010
- 2r01010101
- 2r10101010
- 2r01010101
- 2r11101110
- 2r01010101
- 2r10101010
- 2r01010101]
-!
-
-dither36in64
- "return a pattern for dithering"
-
- ^ #[2r11101110
- 2r01010101
- 2r10101010
- 2r01010101
- 2r11101110
- 2r01010101
- 2r10101010
- 2r01010101]
-!
-
-dither37in64
- "return a pattern for dithering"
-
- ^ #[2r11101110
- 2r01010101
- 2r10101010
- 2r01010101
- 2r11101110
- 2r01010101
- 2r10101011
- 2r01010101]
-!
-
-dither38in64
- "return a pattern for dithering"
-
- ^ #[2r11101110
- 2r01010101
- 2r10111010
- 2r01010101
- 2r11101110
- 2r01010101
- 2r10101011
- 2r01010101]
-!
-
-dither39in64
- "return a pattern for dithering"
-
- ^ #[2r11101110
- 2r01010101
- 2r10111011
- 2r01010101
- 2r11101110
- 2r01010101
- 2r10101011
- 2r01010101]
-!
-
-dither3in64
- "return a pattern for dithering"
-
- ^ #[2r10000000
- 2r00000000
- 2r00000000
- 2r00000000
- 2r10001000
- 2r00000000
- 2r00000000
- 2r00000000]
-!
-
-dither40in64
- "return a pattern for dithering"
-
- ^ #[2r11101110
- 2r01010101
- 2r10111011
- 2r01010101
- 2r11101110
- 2r01010101
- 2r10111011
- 2r01010101]
-!
-
-dither41in64
- "return a pattern for dithering"
-
- ^ #[2r11101110
- 2r01010101
- 2r10111011
- 2r01010101
- 2r11101110
- 2r01010101
- 2r11111011
- 2r01010101]
-!
-
-dither42in64
- "return a pattern for dithering"
-
- ^ #[2r11101110
- 2r01010101
- 2r10111111
- 2r01010101
- 2r11101110
- 2r01010101
- 2r11111011
- 2r01010101]
-!
-
-dither43in64
- "return a pattern for dithering"
-
- ^ #[2r11101110
- 2r01010101
- 2r10111111
- 2r01010101
- 2r11101110
- 2r01010101
- 2r11111111
- 2r01010101]
-!
-
-dither44in64
- "return a pattern for dithering"
-
- ^ #[2r11101110
- 2r01010101
- 2r11111111
- 2r01010101
- 2r11101110
- 2r01010101
- 2r11111111
- 2r01010101]
-!
-
-dither45in64
- "return a pattern for dithering"
-
- ^ #[2r11101110
- 2r01010101
- 2r11111111
- 2r01010101
- 2r11111110
- 2r01010101
- 2r11111111
- 2r01010101]
-!
-
-dither46in64
- "return a pattern for dithering"
-
- ^ #[2r11101111
- 2r01010101
- 2r11111111
- 2r01010101
- 2r11111110
- 2r01010101
- 2r11111111
- 2r01010101]
-!
-
-dither47in64
- "return a pattern for dithering"
-
- ^ #[2r11101111
- 2r01010101
- 2r11111111
- 2r01010101
- 2r11111111
- 2r01010101
- 2r11111111
- 2r01010101]
-!
-
-dither48in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01010101
- 2r11111111
- 2r01010101
- 2r11111111
- 2r01010101
- 2r11111111
- 2r01010101]
-!
-
-dither49in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110101
- 2r11111111
- 2r01010101
- 2r11111111
- 2r01010101
- 2r11111111
- 2r01010101]
-!
-
-dither4in64
- "return a pattern for dithering"
-
- ^ #[2r10001000
- 2r00000000
- 2r00000000
- 2r00000000
- 2r10001000
- 2r00000000
- 2r00000000
- 2r00000000]
-!
-
-dither50in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110101
- 2r11111111
- 2r01010101
- 2r11111111
- 2r01010111
- 2r11111111
- 2r01010101]
-!
-
-dither51in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110101
- 2r11111111
- 2r01010101
- 2r11111111
- 2r01110111
- 2r11111111
- 2r01010101]
-!
-
-dither52in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110111
- 2r11111111
- 2r01010101
- 2r11111111
- 2r01110111
- 2r11111111
- 2r01010101]
-!
-
-dither53in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110111
- 2r11111111
- 2r01010101
- 2r11111111
- 2r01110111
- 2r11111111
- 2r11010101]
-!
-
-dither54in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110111
- 2r11111111
- 2r01011101
- 2r11111111
- 2r01110111
- 2r11111111
- 2r11010101]
-!
-
-dither55in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110111
- 2r11111111
- 2r11011101
- 2r11111111
- 2r01110111
- 2r11111111
- 2r11010101]
-!
-
-dither56in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110111
- 2r11111111
- 2r11011101
- 2r11111111
- 2r01110111
- 2r11111111
- 2r11011101]
-!
-
-dither57in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110111
- 2r11111111
- 2r11011101
- 2r11111111
- 2r01110111
- 2r11111111
- 2r11111101]
-!
-
-dither58in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110111
- 2r11111111
- 2r11011111
- 2r11111111
- 2r01110111
- 2r11111111
- 2r11111101]
-!
-
-dither59in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110111
- 2r11111111
- 2r11011111
- 2r11111111
- 2r01110111
- 2r11111111
- 2r11111111]
-!
-
-dither5in64
- "return a pattern for dithering"
-
- ^ #[2r10001000
- 2r00000000
- 2r00000000
- 2r00000000
- 2r10001000
- 2r00000000
- 2r00000010
- 2r00000000]
-!
-
-dither60in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110111
- 2r11111111
- 2r11111111
- 2r11111111
- 2r01110111
- 2r11111111
- 2r11111111]
-!
-
-dither61in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r01110111
- 2r11111111
- 2r11111111
- 2r11111111
- 2r01111111
- 2r11111111
- 2r11111111]
-!
-
-dither62in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r11110111
- 2r11111111
- 2r11111111
- 2r11111111
- 2r01111111
- 2r11111111
- 2r11111111]
-!
-
-dither63in64
- "return a pattern for dithering"
-
- ^ #[2r11111111
- 2r11110111
- 2r11111111
- 2r11111111
- 2r11111111
- 2r11111111
- 2r11111111
- 2r11111111]
-!
-
-dither6in64
- "return a pattern for dithering"
-
- ^ #[2r10001000
- 2r00000000
- 2r00100000
- 2r00000000
- 2r10001000
- 2r00000000
- 2r00000010
- 2r00000000]
-!
-
-dither7in64
- "return a pattern for dithering"
-
- ^ #[2r10001000
- 2r00000000
- 2r00100010
- 2r00000000
- 2r10001000
- 2r00000000
- 2r00000010
- 2r00000000]
-!
-
-dither8in64
- "return a pattern for dithering"
-
- ^ #[2r10001000
- 2r00000000
- 2r00100010
- 2r00000000
- 2r10001000
- 2r00000000
- 2r00100010
- 2r00000000]
-!
-
-dither9in64
- "return a pattern for dithering"
-
- ^ #[2r10001000
- 2r00000000
- 2r00100010
- 2r00000000
- 2r10001000
- 2r00000000
- 2r10100010
- 2r00000000]
-!
-
ditherBitsForXin64:x
"return a dither pattern for x/64; x in 1..63"
- |sel|
+ ^ #(
+
+ "/ 1in64
+
+ #[2r10000000
+ 2r00000000
+ 2r00000000
+ 2r00000000
+ 2r00000000
+ 2r00000000
+ 2r00000000
+ 2r00000000]
+
+ "/ 2in64
+
+ #[2r10000000
+ 2r00000000
+ 2r00000000
+ 2r00000000
+ 2r00001000
+ 2r00000000
+ 2r00000000
+ 2r00000000]
+
+ "/ 3in64
+
+ #[2r10000000
+ 2r00000000
+ 2r00000000
+ 2r00000000
+ 2r10001000
+ 2r00000000
+ 2r00000000
+ 2r00000000]
+ "/ 4in64
+
+ #[2r10001000
+ 2r00000000
+ 2r00000000
+ 2r00000000
+ 2r10001000
+ 2r00000000
+ 2r00000000
+ 2r00000000]
+
+ "/ 5in64
+
+ #[2r10001000
+ 2r00000000
+ 2r00000000
+ 2r00000000
+ 2r10001000
+ 2r00000000
+ 2r00000010
+ 2r00000000]
+
+ "/ 6in64
+
+ #[2r10001000
+ 2r00000000
+ 2r00100000
+ 2r00000000
+ 2r10001000
+ 2r00000000
+ 2r00000010
+ 2r00000000]
+
+ "/ 7in64
+
+ #[2r10001000
+ 2r00000000
+ 2r00100010
+ 2r00000000
+ 2r10001000
+ 2r00000000
+ 2r00000010
+ 2r00000000]
+
+ "/ 8in64
+
+ #[2r10001000
+ 2r00000000
+ 2r00100010
+ 2r00000000
+ 2r10001000
+ 2r00000000
+ 2r00100010
+ 2r00000000]
+
+ "/ 9in64
+
+ #[2r10001000
+ 2r00000000
+ 2r00100010
+ 2r00000000
+ 2r10001000
+ 2r00000000
+ 2r10100010
+ 2r00000000]
+
+ /* 10 */
+ #[2r10001000
+ 2r00000000
+ 2r00101010
+ 2r00000000
+ 2r10001000
+ 2r00000000
+ 2r10100010
+ 2r00000000]
+
+ "/ 11in64
+
+ #[2r10001000
+ 2r00000000
+ 2r00101010
+ 2r00000000
+ 2r10001000
+ 2r00000000
+ 2r10101010
+ 2r00000000]
+
+ "/ 12in64
+
+ #[2r10001000
+ 2r00000000
+ 2r10101010
+ 2r00000000
+ 2r10001000
+ 2r00000000
+ 2r10101010
+ 2r00000000]
+
+ "/ 13in64
+
+ #[2r10001000
+ 2r00000000
+ 2r10101010
+ 2r00000000
+ 2r10101000
+ 2r00000000
+ 2r10101010
+ 2r00000000]
+
+ "/ 14in64
+
+ #[2r10001010
+ 2r00000000
+ 2r10101010
+ 2r00000000
+ 2r10101000
+ 2r00000000
+ 2r10101010
+ 2r00000000]
+
+ "/ 15in64
+
+ #[2r10001010
+ 2r00000000
+ 2r10101010
+ 2r00000000
+ 2r10101010
+ 2r00000000
+ 2r10101010
+ 2r00000000]
+
+ "/ 16in64
+
+ #[2r10101010
+ 2r00000000
+ 2r10101010
+ 2r00000000
+ 2r10101010
+ 2r00000000
+ 2r10101010
+ 2r00000000]
+
+ "/ 17in64
+
+ #[2r10101010
+ 2r01000000
+ 2r10101010
+ 2r00000000
+ 2r10101010
+ 2r00000000
+ 2r10101010
+ 2r00000000]
+
+ "/ 18in64
+
+ #[2r10101010
+ 2r01000000
+ 2r10101010
+ 2r00000000
+ 2r10101010
+ 2r00000100
+ 2r10101010
+ 2r00000000]
+
+ "/ 19in64
+
+ #[2r10101010
+ 2r01000000
+ 2r10101010
+ 2r00000000
+ 2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00000000]
+
+ "/ 20in64
+
+ #[2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00000000
+ 2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00000000]
+
+ "/ 21in64
+
+ #[2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00000000
+ 2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00000001]
+
+ "/ 22in64
+
+ #[2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00010000
+ 2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00000001]
+
+ "/ 23in64
+
+ #[2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00010001
+ 2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00000001]
+
+ "/ 24in64
+
+ #[2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00010001
+ 2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00010001]
+
+ "/ 25in64
+
+ #[2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00010001
+ 2r10101010
+ 2r01000100
+ 2r10101010
+ 2r01010001]
+
+ "/ 26in64
+
+ #[2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00010101
+ 2r10101010
+ 2r01000100
+ 2r10101010
+ 2r01010001]
+
+ "/ 27in64
+
+ #[2r10101010
+ 2r01000100
+ 2r10101010
+ 2r00010101
+ 2r10101010
+ 2r01000100
+ 2r10101010
+ 2r01010101]
+
+ "/ 28in64
+
+ #[2r10101010
+ 2r01000100
+ 2r10101010
+ 2r01010101
+ 2r10101010
+ 2r01000100
+ 2r10101010
+ 2r01010101]
+
+ "/ 29in64
+
+ #[2r10101010
+ 2r01000100
+ 2r10101010
+ 2r01010101
+ 2r10101010
+ 2r01010100
+ 2r10101010
+ 2r01010101]
+
+ "/ 30in64
+
+ #[2r10101010
+ 2r01000101
+ 2r10101010
+ 2r01010101
+ 2r10101010
+ 2r01010100
+ 2r10101010
+ 2r01010101]
+
+ "/ 31in64
+
+ #[2r10101010
+ 2r01000101
+ 2r10101010
+ 2r01010101
+ 2r10101010
+ 2r01010101
+ 2r10101010
+ 2r01010101]
+
+ "/ 32in64
- DitherPatternArray isNil ifTrue:[
- DitherPatternArray := Array new:63.
- 1 to:63 do:[:i |
- "
- compute the selector as #'dither<n>in64'
- "
- sel := ('dither' , i printString , 'in64') asSymbol.
- DitherPatternArray at:i put:(self perform:sel)
- ]
- ].
- ^ DitherPatternArray at:x
+ #[2r10101010
+ 2r01010101
+ 2r10101010
+ 2r01010101
+ 2r10101010
+ 2r01010101
+ 2r10101010
+ 2r01010101]
+
+ "/ 33in64
+
+ #[2r11101010
+ 2r01010101
+ 2r10101010
+ 2r01010101
+ 2r10101010
+ 2r01010101
+ 2r10101010
+ 2r01010101]
+
+ "/ 34in64
+
+ #[2r11101010
+ 2r01010101
+ 2r10101010
+ 2r01010101
+ 2r10101110
+ 2r01010101
+ 2r10101010
+ 2r01010101]
+
+ "/ 35in64
+
+ #[2r11101010
+ 2r01010101
+ 2r10101010
+ 2r01010101
+ 2r11101110
+ 2r01010101
+ 2r10101010
+ 2r01010101]
+
+ "/ 36in64
+
+ #[2r11101110
+ 2r01010101
+ 2r10101010
+ 2r01010101
+ 2r11101110
+ 2r01010101
+ 2r10101010
+ 2r01010101]
+
+ "/ 37in64
+
+ #[2r11101110
+ 2r01010101
+ 2r10101010
+ 2r01010101
+ 2r11101110
+ 2r01010101
+ 2r10101011
+ 2r01010101]
+
+ "/ 38in64
+
+ #[2r11101110
+ 2r01010101
+ 2r10111010
+ 2r01010101
+ 2r11101110
+ 2r01010101
+ 2r10101011
+ 2r01010101]
+
+ "/ 39in64
+
+ #[2r11101110
+ 2r01010101
+ 2r10111011
+ 2r01010101
+ 2r11101110
+ 2r01010101
+ 2r10101011
+ 2r01010101]
+
+ "/ 40in64
+
+ #[2r11101110
+ 2r01010101
+ 2r10111011
+ 2r01010101
+ 2r11101110
+ 2r01010101
+ 2r10111011
+ 2r01010101]
+
+ "/ 41in64
+
+ #[2r11101110
+ 2r01010101
+ 2r10111011
+ 2r01010101
+ 2r11101110
+ 2r01010101
+ 2r11111011
+ 2r01010101]
+
+ "/ 42in64
+
+ #[2r11101110
+ 2r01010101
+ 2r10111111
+ 2r01010101
+ 2r11101110
+ 2r01010101
+ 2r11111011
+ 2r01010101]
+
+ "/ 43in64
+
+ #[2r11101110
+ 2r01010101
+ 2r10111111
+ 2r01010101
+ 2r11101110
+ 2r01010101
+ 2r11111111
+ 2r01010101]
+
+ "/ 44in64
+
+ #[2r11101110
+ 2r01010101
+ 2r11111111
+ 2r01010101
+ 2r11101110
+ 2r01010101
+ 2r11111111
+ 2r01010101]
+
+ "/ 45in64
+
+ #[2r11101110
+ 2r01010101
+ 2r11111111
+ 2r01010101
+ 2r11111110
+ 2r01010101
+ 2r11111111
+ 2r01010101]
+
+ "/ 46in64
+
+ #[2r11101111
+ 2r01010101
+ 2r11111111
+ 2r01010101
+ 2r11111110
+ 2r01010101
+ 2r11111111
+ 2r01010101]
+
+ "/ 47in64
+
+ #[2r11101111
+ 2r01010101
+ 2r11111111
+ 2r01010101
+ 2r11111111
+ 2r01010101
+ 2r11111111
+ 2r01010101]
+
+ "/ 48in64
+
+ #[2r11111111
+ 2r01010101
+ 2r11111111
+ 2r01010101
+ 2r11111111
+ 2r01010101
+ 2r11111111
+ 2r01010101]
+
+ "/ 49in64
+
+ #[2r11111111
+ 2r01110101
+ 2r11111111
+ 2r01010101
+ 2r11111111
+ 2r01010101
+ 2r11111111
+ 2r01010101]
+
+ "/ 50in64
+
+ #[2r11111111
+ 2r01110101
+ 2r11111111
+ 2r01010101
+ 2r11111111
+ 2r01010111
+ 2r11111111
+ 2r01010101]
+
+ "/ 51in64
+
+ #[2r11111111
+ 2r01110101
+ 2r11111111
+ 2r01010101
+ 2r11111111
+ 2r01110111
+ 2r11111111
+ 2r01010101]
+
+ "/ 52in64
+
+ #[2r11111111
+ 2r01110111
+ 2r11111111
+ 2r01010101
+ 2r11111111
+ 2r01110111
+ 2r11111111
+ 2r01010101]
+
+ "/ 53in64
+
+ #[2r11111111
+ 2r01110111
+ 2r11111111
+ 2r01010101
+ 2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11010101]
+
+ "/ 54in64
+
+ #[2r11111111
+ 2r01110111
+ 2r11111111
+ 2r01011101
+ 2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11010101]
+
+ "/ 55in64
+
+ #[2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11011101
+ 2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11010101]
+
+ "/ 56in64
+
+ #[2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11011101
+ 2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11011101]
+
+ "/ 57in64
+
+ #[2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11011101
+ 2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11111101]
+
+ "/ 58in64
+
+ #[2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11011111
+ 2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11111101]
+
+ "/ 59in64
+
+ #[2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11011111
+ 2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11111111]
+
+ "/ 60in64
+
+ #[2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11111111
+ 2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11111111]
+
+ "/ 61in64
+
+ #[2r11111111
+ 2r01110111
+ 2r11111111
+ 2r11111111
+ 2r11111111
+ 2r01111111
+ 2r11111111
+ 2r11111111]
+
+ "/ 62in64
+
+ #[2r11111111
+ 2r11110111
+ 2r11111111
+ 2r11111111
+ 2r11111111
+ 2r01111111
+ 2r11111111
+ 2r11111111]
+
+ "/ 63in64
+
+ #[2r11111111
+ 2r11110111
+ 2r11111111
+ 2r11111111
+ 2r11111111
+ 2r11111111
+ 2r11111111
+ 2r11111111]
+ ) at:x
+
+ "Created: 23.4.1996 / 09:59:22 / cg"
+ "Modified: 23.4.1996 / 10:00:41 / cg"
!
grey12Bits
@@ -1488,8 +1352,17 @@
^ inData.
!
-bits:anArray
- data := anArray
+bits:aByteArray
+ "set the forms bits;
+ for depth-8 forms, 1 pixel/byte is expected;
+ for depth-1 forms, 8 pixels/byte are expected
+ for depth-4 forms, 2 pixels/byte are expected.
+ Padding is expected to the next byte-boundary
+ (i.e. for width==13 and depth==1 2 bytes per scanline are expected)"
+
+ data := aByteArray
+
+ "Modified: 23.4.1996 / 10:06:01 / cg"
!
bitsPerSample
@@ -1555,11 +1428,32 @@
!
valueAt:aPoint
+ "return the pixel at aPoint; the coordinates start with 0@0
+ in the upper left, increasing to the lower right"
+
^ self at:aPoint
+
+ "Modified: 23.4.1996 / 10:06:55 / cg"
!
valueAt:aPoint put:value
+ "set the pixel at aPoint; the coordinates start with 0@0
+ in the upper left, increasing to the lower right."
+
^ self at:aPoint put:value
+
+ "
+ |f|
+
+ f := Form width:10 height:10 depth:1.
+ f clear.
+ 1 to:10 do:[:i |
+ f valueAt:(i @ i) put:1
+ ].
+ f inspect
+ "
+
+ "Modified: 23.4.1996 / 10:12:48 / cg"
! !
!Form methodsFor:'binary storage'!
@@ -1586,34 +1480,49 @@
storeBinaryDefinitionOn: stream manager: manager
"store a binary representation of the receiver on stream.
+ This is an internal interface for binary storage mechanism.
Redefined to store the actual bits, even if I have been loaded
from a file."
data isNil ifTrue:[
- data := self bits.
- super storeBinaryDefinitionOn: stream manager: manager.
- data := nil.
- ^ self
+ data := self bits.
+ super storeBinaryDefinitionOn: stream manager: manager.
+ data := nil.
+ ^ self
].
super storeBinaryDefinitionOn: stream manager: manager
+
+ "Modified: 23.4.1996 / 09:30:47 / cg"
! !
!Form methodsFor:'converting'!
asForm
+ "convert & return the receiver into a Form instance - nothing to be done here"
+
^ self
+
+ "Modified: 23.4.1996 / 10:14:11 / cg"
!
asImage
+ "convert & return the receiver into an Image instance"
+
^ Image fromForm:self
+
+ "Modified: 23.4.1996 / 10:13:56 / cg"
! !
!Form methodsFor:'copying'!
postCopy
+ "redefined to copy the colorMap as well"
+
super postCopy.
localColorMap := localColorMap copy.
data := data copy
+
+ "Modified: 23.4.1996 / 10:14:46 / cg"
!
shallowCopyForFinalization
@@ -1630,64 +1539,91 @@
!Form methodsFor:'editing'!
edit
+ "open an imageEditor on the receiver"
+
ImageEditView openOnImage:self
"
(Form fromFile:'bitmaps/SBrowser.xbm') edit
"
+
+ "Modified: 23.4.1996 / 10:16:02 / cg"
!
show
+ "open an imageView on the receiver"
+
ImageView openOnImage:self
"
(Form fromFile:'bitmaps/SBrowser.xbm') show
"
+
+ "Modified: 23.4.1996 / 10:16:12 / cg"
! !
!Form methodsFor:'getting a device form'!
asFormOn:aDevice
+ "convert & return the receiver into a Form instance
+ and associate it to a device (i.e. download its bits).
+ Added for protocol compatibility with Image."
+
aDevice == device ifTrue:[
- ^ self
+ ^ self
].
^ self on:aDevice
+
+ "Modified: 23.4.1996 / 10:17:26 / cg"
!
asMonochromeFormOn:aDevice
+ "added for protocol compatiblity with Image"
+
aDevice == device ifTrue:[
- depth == 1 ifTrue:[
- ^ self
- ].
+ depth == 1 ifTrue:[
+ ^ self
+ ].
].
(depth == 1) ifTrue:[
- ^ self on:aDevice
+ ^ self on:aDevice
].
^ nil
+
+ "Modified: 23.4.1996 / 10:18:42 / cg"
!
on:aDevice
+ "associate the receiver to a device (i.e. download its bits);
+ return a deviceForm (possibly different from the receiver)."
+
aDevice == device ifTrue:[
- ^ self
+ ^ self
].
"create a new form ..."
data notNil ifTrue:[
- ^ self class width:width height:height fromArray:data on:aDevice
+ ^ self class width:width height:height fromArray:data on:aDevice
].
fileName notNil ifTrue:[
- ^ self class fromFile:fileName on:aDevice
+ ^ self class fromFile:fileName on:aDevice
].
^ self width:width height:height on:aDevice
+
+ "Modified: 23.4.1996 / 10:18:05 / cg"
! !
!Form methodsFor:'image manipulations'!
darkened
- "kludge - actually should return a darkened image ..
- (or Color black ?)"
+ "return a darkened version of the receiver.
+ Added for protocol compatibility with Color and Image.
+ Here, the receiver is returned as a kludge
+ - actually should return a darkened image (or Color black ?) .."
^ self
+
+ "Modified: 23.4.1996 / 10:19:52 / cg"
!
flipHorizontal
@@ -1754,10 +1690,14 @@
!
lightened
- "kludge - actually should return a lightened image ..
- (or Color white ?)"
+ "return a lightened version of the receiver.
+ Added for protocol compatibility with Color and Image.
+ Here, the receiver is returned as a kludge
+ - actually should return a lightened image (or Color white ?) .."
^ self
+
+ "Modified: 23.4.1996 / 10:20:14 / cg"
!
magnifiedBy:extent
@@ -1903,24 +1843,12 @@
^ ImageInspectorView
! !
-!Form methodsFor:'instance release'!
-
-XXdisposed
- "some Form has been collected - tell it to the x-server"
-
- drawableId notNil ifTrue:[
- gcId notNil ifTrue:[
- device destroyGC:gcId.
- gcId := nil
- ].
- device destroyPixmap:drawableId.
- drawableId := nil
- ]
-! !
-
!Form methodsFor:'printing & storing'!
storeOn:aStream
+ "append an ascii representation of the receiver to aStream,
+ from which a copy of the receiver can be reconstructed"
+
aStream nextPutAll:'(Form width:'.
width storeOn:aStream.
aStream nextPutAll:' height:'.
@@ -1928,6 +1856,8 @@
aStream nextPutAll:' fromArray:('.
self bits storeOn:aStream.
aStream nextPutAll:'))'
+
+ "Modified: 23.4.1996 / 10:21:10 / cg"
! !
!Form methodsFor:'private'!
@@ -2163,6 +2093,6 @@
!Form class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.36 1996-04-18 14:40:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.37 1996-04-23 08:21:47 cg Exp $'
! !
Form initialize!