--- a/PCXReader.st Sat Sep 16 01:50:04 1995 +0200
+++ b/PCXReader.st Sun Sep 17 20:01:10 1995 +0200
@@ -37,16 +37,17 @@
version
"
-$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.8 1995-08-30 17:54:10 claus Exp $
+$Header: /cvs/stx/stx/libview2/PCXReader.st,v 1.9 1995-09-17 18:00:43 claus Exp $
"
!
documentation
"
- this class provides methods for loading PCX bitmap files.
+ this class provides methods for loading 8-plane PCX bitmap files.
Due to not having too many examples for testing, this could fail
to read some files. (especially, I have no uncompressed files
for testing).
+ Also, only 8-bit (i.e. 256 color) PCX images are supported.
"
! !
@@ -83,7 +84,6 @@
inStream := self streamReadingFile:aFilename.
inStream isNil ifTrue:[^ false].
-
inStream binary.
header := ByteArray uninitializedNew:128.
@@ -94,6 +94,8 @@
^ false
].
^ true
+
+ "Modified: 17.9.1995 / 17:32:07 / claus"
! !
!PCXReader methodsFor:'reading from file'!
@@ -138,6 +140,8 @@
So its not (yet) implemented
"
((inDepth ~~ 8) or:[nPlanes ~~ 1]) ifTrue:[
+ 'PCXReader: depth: ' errorPrint. inDepth errorPrint.
+ ' planes:' errorPrint. nPlanes errorPrintNL.
'PCXReader: can only handle 1-plane 256 color images' errorPrintNL.
^ nil
].