'From Smalltalk/X, Version:2.10.4 on 18-feb-1995 at 3:27:03 am'!

ImageReader subclass:#XWDReader

	 instanceVariableNames:''

	 classVariableNames:''

	 poolDictionaries:''

	 category:'Graphics-Images support'

!

!XWDReader methodsFor:'image reading'!

fromStream: aStream 

        "read an image in XWD (X Window Dump) format."

    |header nColors palette res colors pad srcRowByteSize bitsPerPixel mask colormapSize depth |

    aStream binary.

    header := (1 to: 25) collect: [:i | aStream nextLong].

    "skip ..."

    101 to:(header at: 1) do: [:i | aStream next].

    depth := header at: 4.

    width := header at: 5.

    height := header at: 6.

    pad := header at: 11.

    bitsPerPixel := header at: 12.

    bitsPerPixel == 24 ifTrue:[

        bitsPerSample := #(8 8 8).

        samplesPerPixel := 3.

        photometric := #rgb

    ] ifFalse:[

        bitsPerSample := Array with:bitsPerPixel.

        samplesPerPixel := 1.

        photometric := #palette

    ].

    colormapSize := header at: 19.

    nColors := header at: 20.

    colorMap := Array new:depth * depth.

    1 to:nColors do:[:i |

        |clr|

        aStream nextLong.

        clr := Color scaledRed: (aStream nextWord bitShift: -3)

                     scaledGreen: (aStream nextWord bitShift: -3)

                     scaledBlue: (aStream nextWord bitShift: -3).

        colorMap at:i put:clr.

        aStream nextWord.

   ].

    nColors+1 to:(depth * depth) do: [:i | colorMap at:i put:Color black].

    srcRowByteSize := width * bitsPerPixel + pad - 1 // pad * (pad / 8).

    data := ByteArray uninitializedNew: srcRowByteSize * height.

    aStream nextBytes:srcRowByteSize * height into:data.

    "

     XWDReader fromFile:'/phys/clam/claus/smalltalk/private_classes/hpdst/pixmaps/bike.xwd'

    "

! !