"

 COPYRIGHT (c) 1992 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:#XBMReader

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Graphics-Images support'

!

!XBMReader class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1992 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 and saving x-bitmap-file images.

    These images can (for example) be created using the bitmap editor supplied

    with X. 

    Only monochrome images can be represented in this format.

    [See also:]

        BlitImageReader FaceReader GIFReader JPEGReader PBMReader PCXReader 

        ST80FormReader SunRasterReader TIFFReader WindowsIconReader 

        XPMReader XWDReader 

"

! !

!XBMReader class methodsFor:'initialization'!

initialize

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

! !

!XBMReader class methodsFor:'testing'!

canRepresent:anImage

    "return true, if anImage can be represented in my file format"

    |photometric|

    (anImage depth ~~ 1) ifTrue:[^ false.].

    (((photometric := anImage photometric) ~~ #blackIs0) and:[photometric ~~ #whiteIs0]) ifTrue:[^ false.].

    ^ true

!

isValidImageFile:aFileName

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

    |line inStream index1 index2 keyword|

    inStream := self streamReadingFile:aFileName.

    inStream isNil ifTrue:[^ false].

    line := inStream nextLine.

    line isNil ifTrue:[

	inStream close.

	^ false

    ].

    [line startsWith:'#'] whileFalse:[

	line := inStream nextLine.

	line isNil ifTrue:[

	    inStream close.

	    ^ false

	]

    ].

    index1 := line indexOf:(Character space).

    index2 := line indexOf:(Character space) startingAt:(index1 + 1).

    (index2 == 0) ifTrue:[

	inStream close.

	^ false

    ].

    keyword := line copyFrom:index1 to:(index2 - 1).

    (keyword endsWith:'_width') ifFalse:[

	inStream close.

	^ false

    ].

    inStream close.

    ^ true

! !

!XBMReader methodsFor:'reading from file'!

fromStream:aStream

    |line 

     index    "{ Class: SmallInteger }"

     dstIndex "{ Class: SmallInteger }"

     bytesPerRow

     lo       "{ Class: SmallInteger }"

     hi       "{ Class: SmallInteger }"

     val      "{ Class: SmallInteger }"

     reverseBits|

    inStream := aStream.

    line := aStream nextLine.

    line isNil ifTrue:[

    ].

    [line startsWith:'#'] whileFalse:[

    ].

    (line startsWith:'#define') ifFalse:[

    ].

    index := line indexOf:(Character space).

    index := line indexOf:(Character space) startingAt:(index + 1).

    (index == 0) ifTrue:[

    ].

    ((line copyTo:index - 1) endsWith:'width') ifFalse:[

    ].

    line := line copyFrom:(index + 1).

    width := Number readFromString:line.

    line := aStream nextLine.

    index := line indexOf:(Character space).

    index := line indexOf:(Character space) startingAt:(index + 1).

    (index == 0) ifTrue:[

    ].

    ((line copyTo:index - 1) endsWith:'height') ifFalse:[

    ].

    line := line copyFrom:(index + 1).

    height := Number readFromString:line.

    bytesPerRow := width // 8.

    ((width \\ 8) ~~ 0) ifTrue:[

    ].

    reverseBits := self class reverseBits.

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

    dstIndex := 1.

    line := aStream nextLine.

    [line startsWith:'#'] whileTrue:[

    ].

    [line notNil and:[(line startsWith:'static') not]] whileTrue:[

    ].

    line := aStream nextLine.

    [line notNil] whileTrue:[

    ].

    photometric := #whiteIs0.

    samplesPerPixel := 1.

    bitsPerSample := #(1).

    "

     XBMReader fromFile:'bitmaps/globe1.xbm'

! !

!XBMReader methodsFor:'writing to file'!

save:image onFile:aFileName

    |reverseBits bits byte

     h        "{ Class: SmallInteger }"

     srcIndex "{ Class: SmallInteger }"

     rowBytes "{ Class: SmallInteger }" |

    (self class canRepresent:image) ifFalse:[

    ].

    outStream := FileStream newFileNamed:aFileName.

    outStream isNil ifTrue:[

    ].

    width := image width.

    height := image height.

    photometric := image photometric.

    samplesPerPixel := image samplesPerPixel.

    bitsPerSample := image bitsPerSample.

    colorMap := image colorMap.

    outStream nextPutAll: '#define xbm_width '.

    outStream nextPutAll:(width printString).

    outStream cr.

    outStream nextPutAll: '#define xbm_height '.

    outStream nextPutAll:(height printString).

    outStream cr.

    outStream nextPutAll: 'static char xbm_bits[] = {'; cr.

    reverseBits := self class reverseBits.

    rowBytes := width + 7 // 8.

    data := image bits.

    srcIndex := 1.

    h := height.

    h timesRepeat:[

    ].

    outStream nextPutAll: '};'; cr.

    outStream close

    "

     XBMReader save:(Image fromFile:'bitmaps/SBrowser.xbm') onFile:'test.xbm'

    "

    "

     convert sun icon to XBM format:

     XBMReader save:(Image fromFile:'bitmaps/hello_world.icon') onFile:'test.xbm'

    "

! !

!XBMReader class methodsFor:'documentation'!

version

! !

XBMReader initialize!