"

 COPYRIGHT (c) 1994 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

ImageReader subclass:#XPMReader

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Graphics-Images-Support'

!

copyright

"

 COPYRIGHT (c) 1994 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    this class provides methods for loading x-pixmap-file (xpm) images.

    These images are used (in X) for palette images (see ctwm or hp-vue for a lot

    of them). 

    The code here is a hack - it may not work for all images 

    (it works for the testfiles I got here).

    Limitations: 

        only reads the full-color specification, ignoring monochrome

        and greyscale info.

        Can only handle single-character index.

        Only understands single-word color names (i.e. names with spaces 

        are not supported)

        Image writing is not (yet) supported

    Suggestions: adapt & use the XPM library here.

    [See also:]

        Image Form Icon

        BlitImageReader FaceReader GIFReader JPEGReader PBMReader PCXReader 

        ST80FormReader SunRasterReader TargaReader TIFFReader WindowsIconReader 

        XBMReader XWDReader 

"

! !

initialize

    "tell Image-class, that a new fileReader is present

     for the '.xpm' extension."

    Image fileFormats at:'.xpm'  put:self.

! !

isValidImageFile:aFileName

    "return true, if aFileName contains an x-bitmap-file image"

    |line inStream |

    inStream := self streamReadingFile:aFileName.

    inStream isNil ifTrue:[^ false].

    line := inStream nextLine.

    inStream close.

    line isNil ifTrue:[^ false].

    (line startsWith:'/* XPM') ifFalse:[^ false].

    ^ true

    "

     XPMReader isValidImageFile:'bitmaps/magtape.xpm'    

     XPMReader isValidImageFile:'bitmaps/ljet.xpm'      

     XPMReader isValidImageFile:'bitmaps/garfield.gif' 

    " 

! !

!XPMReader methodsFor:'reading from file'!

colorNameFrom:aStream

    "read either a color-name or value specified in X-notation

     (#rrggbb where rr, gg and bb are 2-digit hex numbers)"

    |s|

    aStream peek == $# ifTrue:[

	aStream next.

	s := '#'.

    ] ifFalse:[

	s := ''.

    ].

    [aStream peek isLetterOrDigit] whileTrue:[

	s := s copyWith:aStream next

    ].

    ^ s

!

fromStream:aStream

    "read an XPM-image from aStream. Return the receiver 

     (with all relevant instance variables set for the image) 

     or nil on error"

    |line 

     srcIndex "{ Class: SmallInteger }"

     dstIndex "{ Class: SmallInteger }"

     colorName colorMapSize redMap greenMap blueMap

    inStream := aStream.

    line := aStream nextLine.

    (line notNil and:[line startsWith:'/* XPM']) ifFalse:[

    ].

    line := aStream nextLine.

    [line notNil and:[(line startsWith:'/*') or:[line isBlank]]] whileTrue:[

    ].

    (line notNil and:[line startsWith:'static char']) ifFalse:[

    ].

    line := aStream nextLine.

    (line notNil and:[line startsWith:'/*']) ifTrue:[

    ].

    (line notNil and:[line startsWith:'"']) ifFalse:[

    ].

    s := ReadStream on:line.

    s next.  "skip quote"

    width := Integer readFrom:s.

    height := Integer readFrom:s.

    colorMapSize := Integer readFrom:s.

    charsPerPixel := Integer readFrom:s.

    charsPerPixel ~~ 1 ifTrue:[

    ].

    xlation := Array new:256.

    redMap := ByteArray new:colorMapSize.

    greenMap := ByteArray new:colorMapSize.

    blueMap := ByteArray new:colorMapSize.

    colorMap := Colormap redVector:redMap greenVector:greenMap blueVector:blueMap.

    1 to:colorMapSize do:[:colorIndex |

"/                                char errorPrint. '(' errorPrint. char asciiValue printString errorPrint.

"/                                '); ' errorPrint.

    ].

    "actually, could make it an image with less depth most of the time ..."

"

    bitsPerPixel := ((colorMapSize - 1) log:2) truncated + 1.

"

    bitsPerPixel := 8.

    data := ByteArray new:(width * height).

    dstIndex := 1.

    1 to:height do:[:row |

    ].

    photometric := #palette.

    samplesPerPixel := 1.

    bitsPerSample := Array with:bitsPerPixel.

    "

     XPMReader fromStream:('bitmaps/ljet.xpm' asFilename readStream)

     XPMReader fromStream:('bitmaps/magtape.xpm' asFilename readStream)

     XPMReader fromStream:('bitmaps/pixmap.xpm' asFilename readStream) 

     XPMReader fromStream:('bitmaps/SBrowser.xbm' asFilename readStream)

    "

    "Created: 24.9.1995 / 06:20:06 / claus"

    "Modified: 24.9.1995 / 07:07:33 / claus"

! !

version

! !

XPMReader initialize!