equal
deleted
inserted
replaced
19 |
19 |
20 XPMReader comment:' |
20 XPMReader comment:' |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
21 COPYRIGHT (c) 1994 by Claus Gittinger |
22 All Rights Reserved |
22 All Rights Reserved |
23 |
23 |
24 $Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.4 1994-11-17 14:30:07 claus Exp $ |
24 $Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.5 1995-02-06 00:39:52 claus Exp $ |
25 '! |
25 '! |
26 |
26 |
27 !XPMReader class methodsFor:'documentation'! |
27 !XPMReader class methodsFor:'documentation'! |
28 |
28 |
29 copyright |
29 copyright |
40 " |
40 " |
41 ! |
41 ! |
42 |
42 |
43 version |
43 version |
44 " |
44 " |
45 $Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.4 1994-11-17 14:30:07 claus Exp $ |
45 $Header: /cvs/stx/stx/libview2/XPMReader.st,v 1.5 1995-02-06 00:39:52 claus Exp $ |
46 " |
46 " |
47 ! |
47 ! |
48 |
48 |
49 documentation |
49 documentation |
50 " |
50 " |
169 xlation := Array new:256. |
169 xlation := Array new:256. |
170 |
170 |
171 redMap := Array new:colorMapSize. |
171 redMap := Array new:colorMapSize. |
172 greenMap := Array new:colorMapSize. |
172 greenMap := Array new:colorMapSize. |
173 blueMap := Array new:colorMapSize. |
173 blueMap := Array new:colorMapSize. |
174 colorMap := Array with:redMap with:greenMap with:blueMap. |
174 "/ colorMap := Array with:redMap with:greenMap with:blueMap. |
|
175 colorMap := Colormap redVector:redMap greenVector:greenMap blueVector:blueMap. |
175 |
176 |
176 1 to:colorMapSize do:[:colorIndex | |
177 1 to:colorMapSize do:[:colorIndex | |
177 |index line color| |
178 |index line color| |
178 |
179 |
179 line := inStream nextLine. |
180 line := inStream nextLine. |