equal
deleted
inserted
replaced
147 |
147 |
148 readRLEData |
148 readRLEData |
149 "read RLE compressed data" |
149 "read RLE compressed data" |
150 |
150 |
151 |rleBufferLen tableLen startTable lengthTable rleData |
151 |rleBufferLen tableLen startTable lengthTable rleData |
152 cur badOrder y z pos tblIdx dstIdx| |
152 tblIdx dstIdx| |
153 |
153 |
154 rleBufferLen := width * 2 + 10. |
154 rleBufferLen := width * 2 + 10. |
155 tableLen := height * bytesPerPixel. |
155 tableLen := height * bytesPerPixel. |
156 |
156 |
157 startTable := Array new:tableLen. |
157 startTable := Array new:tableLen. |
209 |
209 |
210 canRepresent:anImage |
210 canRepresent:anImage |
211 "return true, if anImage can be represented in my file format. |
211 "return true, if anImage can be represented in my file format. |
212 Currently only B&W and Depth8 images are supported." |
212 Currently only B&W and Depth8 images are supported." |
213 |
213 |
214 |depth| |
214 "/ |depth| |
215 |
215 "/ |
216 "/ anImage photometric == #rgb ifTrue:[ |
216 "/ anImage photometric == #rgb ifTrue:[ |
217 "/ ^ false "/ not yet implemented |
217 "/ ^ false "/ not yet implemented |
218 "/ ]. |
218 "/ ]. |
219 "/ (depth := anImage depth) == 1 ifTrue:[^ true]. |
219 "/ (depth := anImage depth) == 1 ifTrue:[^ true]. |
220 "/ depth == 8 ifTrue:[^ true]. |
220 "/ depth == 8 ifTrue:[^ true]. |
225 ! ! |
225 ! ! |
226 |
226 |
227 !IrisRGBReader class methodsFor:'documentation'! |
227 !IrisRGBReader class methodsFor:'documentation'! |
228 |
228 |
229 version |
229 version |
230 ^ '$Header: /cvs/stx/stx/libview2/IrisRGBReader.st,v 1.6 1998-04-01 12:29:04 cg Exp $' |
230 ^ '$Header: /cvs/stx/stx/libview2/IrisRGBReader.st,v 1.7 1998-05-11 20:56:57 tz Exp $' |
231 ! ! |
231 ! ! |
232 IrisRGBReader initialize! |
232 IrisRGBReader initialize! |