"

 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.

"

'From Smalltalk/X, Version:2.10.4 on 19-dec-1994 at 9:57:30 pm'!

ImageReader subclass:#TargaReader

	 instanceVariableNames:''

	 classVariableNames:''

	 poolDictionaries:''

	 category:'Graphics-Images support'

!

!TargaReader class methodsFor:'documentation'!

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.

"

!

version

"

$Header: /cvs/stx/stx/libview2/TargaReader.st,v 1.1 1995-02-06 00:41:26 claus Exp $

"

!

documentation

"

    this class provides methods for loading targa-file (tga) images.

    Limitations: 

	untested

	only supports 24 bits/pixel format

	Save not supported

    I had two tga files to test this code with - it may not work with

    other targa files.

    Suggestions: adapt & use the pbmplus library here.

"

! !

!TargaReader class methodsFor:'initialization'!

initialize

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

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

! !

!TargaReader class methodsFor:'testing'!

isValidImageFile:aFileName

    "return true, if aFileName contains a targa-file image"

    |inStream w h depth flags|

    inStream := self streamReadingFile:aFileName.

    inStream isNil ifTrue:[inStream close. ^ false].

    inStream binary.

    inStream skip:12.   "/ skip 12 bytes

    w := inStream nextShortMSB:false.

    h := inStream nextShortMSB:false.

    depth := inStream next.

    flags := inStream next.

    (#("8" 24) includes:depth) ifFalse:[

	inStream close. ^ false

    ].

    flags ~~ 16r20 ifTrue:[

	inStream close. ^ false

    ].

    inStream close. 

    ^ true

    "

     TargaReader isValidImageFile:'bitmaps/test.tga'    

     TargaReader isValidImageFile:'bitmaps/garfield.gif'  

    " 

! !

!TargaReader methodsFor:'reading from file'!

fromFile:aFileName

    "read a targa-image from aFileName. return the receiver (with all

     relevant instance variables set for the image) or nil on error"

    |depth flags|

    inStream := self class streamReadingFile:aFileName.

    inStream isNil ifTrue:[

	'TARGA: file open error' errorPrintNL.

	^ nil

    ].

    inStream binary.

    inStream skip:12.

    width := inStream nextShortMSB:false.

    height := inStream nextShortMSB:false.

    depth := inStream next.

    depth ~~ 24 ifTrue:[

	'TARGA: unsupported depth' errorPrintNL.

	inStream close.

	^ nil

    ].

    flags := inStream next.

    flags ~~ 16r20 ifTrue:[

	^ false

    ].

    data := ByteArray new:(width * height * (depth / 8)).

    inStream nextBytes:(data size) into:data.

    "

     mhmh - order is blue-green-red

    "

    1 to:(data size - 2) by:3 do:[:i |

	|t|

	t := data at:i.

	data at:i put:(data at:i+2).

	data at:i+2 put:t

    ].

    photometric := #rgb.

    samplesPerPixel := 3.

    bitsPerSample := #(8 8 8).

    "

     TargaReader fromFile:'bitmaps/test.tga' 

    " 

! !

TargaReader initialize!