"{ Package: 'stx:libview2' }"

ImageReader subclass:#PICTReader

	instanceVariableNames:'currentOpcode rowBytes bounds srcRect dstRect mode ctSeed ctFlags

		ctSize ctTable packType baseAddr pmVersion packSize hRes vRes

		pixelType pixelSize cmpCount cmpSize planeBytes pmTable

		pmReserved picSize picFrame picVersion'

	classVariableNames:'Opcodes'

	poolDictionaries:''

	category:'Graphics-Images-Readers'

!

Object subclass:#PICTFrame

	instanceVariableNames:'image sourceRectangle destinationRectangle mode maskRegion'

	classVariableNames:''

	poolDictionaries:''

	privateIn:PICTReader

!

!PICTReader class methodsFor:'documentation'!

documentation

"

    this class will eventually provide fnctionality for loading and storing

    Apple PICT files. (QuickTime).

    WARNING: this is a first sceletton, ported from the AidaWeb PICTReader.

    The implementation is VERY incomplete - it is provided here to provide a starting

    point for porters.

    For now, it does read a few sample images from the GFF books example CD.

    [See also:]

        Image Form Icon

        BlitImageReader FaceReader JPEGReader GIFReader PBMReader PCXReader 

        ST80FormReader TargaReader TIFFReader WindowsIconReader 

        XBMReader XPMReader XWDReader 

"

!

examples

"

  PICTReader fromFile:'/unsaved2/stefan/nil/home/stefan/dos/winword/shared/ms.pct'

  PICTReader fromFile:'/phys/exept/tmp/pict/BLK.PCT'

  PICTReader fromFile:'/phys/exept/tmp/pict/BLU.PCT'

  PICTReader fromFile:'/phys/exept/tmp/pict/GRN.PCT'

  PICTReader fromFile:'/phys/exept/tmp/pict/RED.PCT'

  PICTReader fromFile:'/phys/exept/tmp/pict/WHT.PCT'

  PICTReader fromFile:'/phys/exept/tmp/pict/YEL.PCT'

  PICTReader fromFile:'/phys/exept/tmp/pict/FLAG_B24.PCT'

  PICTReader fromFile:'/phys/exept/tmp/pict/MARBLES.PCT'

  PICTReader fromFile:'/phys/exept/tmp/pict/TRU256.PCT'

  PICTReader fromFile:'/phys/exept/tmp/pict/VENUS.PCT'

  example7 --- Version 2 PICTure ---

    | array stream image |

    array := #(

        16r0078

        16r0000 16r0000 16r006C 16r00A8

        16r0011

        16r02FF

        16r0C00

                16rFFFE

                16r0000

                16r0048 16r0000

                16r0048 16r0000

                16r0002 16r0002 16r006E 16r00AA

                16r0000

        16r001E

        16r0001

                16r000A

                16r0002 16r0002 16r006E 16r00AA

        16r000A

                16r77DD 16r77DD 16r77DD 16r77DD

        16r0034

                16r0002 16r0002 16r006E 16r00AA

        16r000A

                16r8822 16r8822 16r8822 16r8822

        16r005C

        16r0008

                16r0008

        16r0071

                16r001A

                16r0002 16r0002 16r006E 16r00AA

                16r006E 16r0002 16r0002 16r0054 16r006E 16r00AA 16r006E 16r0002

        16r00FF

    ).

    stream := WriteStream on: (ByteArray new: array size * 2 + 512).

    stream next:512 put:0.

    array do:

        [:n | 

            stream nextPut: ((n bitAnd:16rFF00) bitShift: -8).

            stream nextPut: (n bitAnd: 16r00FF)

        ].

    image := PICTReader fromStream: (ReadStream on: stream contents).

    image

  example8

  --- Version 1 PICTure ---

    | array image |

    array := #[

    16r00 16r4F

    16r00 16r02 16r00 16r02 16r00 16r6E 16r00 16rAA

    16r11

            16r01

    16r01

            16r00 16r0A

            16r00 16r02 16r00 16r02 16r00 16r6E 16r00 16rAA

    16r0A

            16r77 16rDD 16r77 16rDD 16r77 16rDD 16r77 16rDD

    16r34

            16r00 16r02 16r00 16r02 16r00 16r6E 16r00 16rAA

    16r0A

            16r88 16r22 16r88 16r22 16r88 16r22 16r88 16r22

    16r5C

    16r71

            16r00 16r1A

            16r00 16r02 16r00 16r02 16r00 16r6E 16r00 16rAA

            16r00 16r6E 16r00 16r02 16r00 16r02 16r00 16r54 16r00 16r6E 16r00 16rAA 16r00 16r6E 16r00 16r02

    16rFF

    ].

    array := (ByteArray new:512) , array.

    image := PICTReader fromStream: (ReadStream on: array).

    image

"

! !

!PICTReader class methodsFor:'initialization'!

defineOpcodes00 

        Opcodes at: 16r0000 put: ('NOP' -> 0).

        Opcodes at: 16r0001 put: ('Clip' -> 'Region size').

        Opcodes at: 16r0002 put: ('BkPat' -> 8).

        Opcodes at: 16r0003 put: ('TxFont' -> 2).

        Opcodes at: 16r0004 put: ('TxFace' -> 1).

        Opcodes at: 16r0005 put: ('TxMode' -> 2).

        Opcodes at: 16r0006 put: ('SpExtra' -> 4).

        Opcodes at: 16r0007 put: ('PnSize' -> 4).

        Opcodes at: 16r0008 put: ('PnMode' -> 2).

        Opcodes at: 16r0009 put: ('PnPat' -> 8).

        Opcodes at: 16r000A put: ('FillPat' -> 8).

        Opcodes at: 16r000B put: ('OvSize' -> 4).

        Opcodes at: 16r000C put: ('Origin' -> 4).

        Opcodes at: 16r000D put: ('TxSize' -> 2).

        Opcodes at: 16r000E put: ('FgColor' -> 4).

        Opcodes at: 16r000F put: ('BkColor' -> 4).

!

defineOpcodes01

        Opcodes at: 16r0010 put: ('TxRatio' -> 8).

        Opcodes at: 16r0011 put: ('VersionOp' -> 1).

        Opcodes at: 16r0012 put: ('BkPixPat' -> 'Variable').

        Opcodes at: 16r0013 put: ('PnPixPat' -> 'Variable').

        Opcodes at: 16r0014 put: ('FillPixPat' -> 'Variable').

        Opcodes at: 16r0015 put: ('PnLocHFrac' -> 2).

        Opcodes at: 16r0016 put: ('ChExtra' -> 2).

        Opcodes at: 16r0017 put: ('Apple0017' -> 'Not determined').

        Opcodes at: 16r0018 put: ('Apple0018' -> 'Not determined').

        Opcodes at: 16r0019 put: ('Apple0019' -> 'Not determined').

        Opcodes at: 16r001A put: ('RGBFgCol' -> 6).

        Opcodes at: 16r001B put: ('RGBBkCol' -> 6).

        Opcodes at: 16r001C put: ('HiliteMode' -> 0).

        Opcodes at: 16r001D put: ('HiliteColor' -> 6).

        Opcodes at: 16r001E put: ('DefHilite' -> 0).

        Opcodes at: 16r001F put: ('OpColor' -> 6).

!

defineOpcodes02 

        Opcodes at: 16r0020 put: ('Line' -> 8).

        Opcodes at: 16r0021 put: ('LineFrom' -> 4).

        Opcodes at: 16r0022 put: ('ShortLine' -> 6).

        Opcodes at: 16r0023 put: ('ShortLineFrom' -> 2).

        Opcodes at: 16r0024 put: ('Apple0024' -> '2 + data length').

        Opcodes at: 16r0025 put: ('Apple0025' -> '2 + data length').

        Opcodes at: 16r0026 put: ('Apple0026' -> '2 + data length').

        Opcodes at: 16r0027 put: ('Apple0027' -> '2 + data length').

        Opcodes at: 16r0028 put: ('LongText' -> '5 + text').

        Opcodes at: 16r0029 put: ('DHText' -> '2 + text').

        Opcodes at: 16r002A put: ('DVText' -> '2 + text').

        Opcodes at: 16r002B put: ('DHDVText' -> '3 + text').

        Opcodes at: 16r002C put: ('fontName' -> '5 + name length').

        Opcodes at: 16r002D put: ('lineJustify' -> 10).

        Opcodes at: 16r002E put: ('glyphState' -> 8).

        Opcodes at: 16r002F put: ('Apple002F' -> '2 + data length').

!

defineOpcodes03

        Opcodes at: 16r0030 put: ('frameRect' -> 8).

        Opcodes at: 16r0031 put: ('paintRect' -> 8).

        Opcodes at: 16r0032 put: ('eraseRect' -> 8).

        Opcodes at: 16r0033 put: ('invertRect' -> 8).

        Opcodes at: 16r0034 put: ('fillRect' -> 8).

        Opcodes at: 16r0035 put: ('Apple0035' -> 8).

        Opcodes at: 16r0036 put: ('Apple0036' -> 8).

        Opcodes at: 16r0037 put: ('Apple0037' -> 8).

        Opcodes at: 16r0038 put: ('frameSameRect' -> 0).

        Opcodes at: 16r0039 put: ('paintSameRect' -> 0).

        Opcodes at: 16r003A put: ('eraseSameRect' -> 0).

        Opcodes at: 16r003B put: ('invertSameRect' -> 0).

        Opcodes at: 16r003C put: ('fillSameRect' -> 0).

        Opcodes at: 16r003D put: ('Apple003D' -> 0).

        Opcodes at: 16r003E put: ('Apple003E' -> 0).

        Opcodes at: 16r003F put: ('Apple003F' -> 0).

!

defineOpcodes04

        Opcodes at: 16r0040 put: ('frameRRect' -> 8).

        Opcodes at: 16r0041 put: ('paintRRect' -> 8).

        Opcodes at: 16r0042 put: ('eraseRRect' -> 8).

        Opcodes at: 16r0043 put: ('invertRRect' -> 8).

        Opcodes at: 16r0044 put: ('fillRect' -> 8).

        Opcodes at: 16r0045 put: ('Apple0045' -> 8).

        Opcodes at: 16r0046 put: ('Apple0046' -> 8).

        Opcodes at: 16r0047 put: ('Apple0047' -> 8).

        Opcodes at: 16r0048 put: ('frameSameRRect' -> 0).

        Opcodes at: 16r0049 put: ('paintSameRRect' -> 0).

        Opcodes at: 16r004A put: ('eraseSameRRect' -> 0).

        Opcodes at: 16r004B put: ('invertSameRRect' -> 0).

        Opcodes at: 16r004C put: ('fillSameRRect' -> 0).

        Opcodes at: 16r004D put: ('Apple004D' -> 0).

        Opcodes at: 16r004E put: ('Apple004E' -> 0).

        Opcodes at: 16r004F put: ('Apple004F' -> 0).

!

defineOpcodes05

        Opcodes at: 16r0050 put: ('frameOval' -> 8).

        Opcodes at: 16r0051 put: ('paintOval' -> 8).

        Opcodes at: 16r0052 put: ('eraseOval' -> 8).

        Opcodes at: 16r0053 put: ('invertOval' -> 8).

        Opcodes at: 16r0054 put: ('fillRect' -> 8).

        Opcodes at: 16r0055 put: ('Apple0055' -> 8).

        Opcodes at: 16r0056 put: ('Apple0056' -> 8).

        Opcodes at: 16r0057 put: ('Apple0057' -> 8).

        Opcodes at: 16r0058 put: ('frameSameOval' -> 0).

        Opcodes at: 16r0059 put: ('paintSameOval' -> 0).

        Opcodes at: 16r005A put: ('eraseSameOval' -> 0).

        Opcodes at: 16r005B put: ('invertSameOval' -> 0).

        Opcodes at: 16r005C put: ('fillSameOval' -> 0).

        Opcodes at: 16r005D put: ('Apple005D' -> 0).

        Opcodes at: 16r005E put: ('Apple005E' -> 0).

        Opcodes at: 16r005F put: ('Apple005F' -> 0).

!

defineOpcodes06

        Opcodes at: 16r0060 put: ('frameArc' -> 12).

        Opcodes at: 16r0061 put: ('paintArc' -> 12).

        Opcodes at: 16r0062 put: ('eraseArc' -> 12).

        Opcodes at: 16r0063 put: ('invertArc' -> 12).

        Opcodes at: 16r0064 put: ('fillRect' -> 12).

        Opcodes at: 16r0065 put: ('Apple0065' -> 12).

        Opcodes at: 16r0066 put: ('Apple0066' -> 12).

        Opcodes at: 16r0067 put: ('Apple0067' -> 12).

        Opcodes at: 16r0068 put: ('frameSameArc' -> 4).

        Opcodes at: 16r0069 put: ('paintSameArc' -> 4).

        Opcodes at: 16r006A put: ('eraseSameArc' -> 4).

        Opcodes at: 16r006B put: ('invertSameArc' -> 4).

        Opcodes at: 16r006C put: ('fillSameArc' -> 4).

        Opcodes at: 16r006D put: ('Apple006D' -> 4).

        Opcodes at: 16r006E put: ('Apple006E' -> 4).

        Opcodes at: 16r006F put: ('Apple006F' -> 4).

!

defineOpcodes07

        Opcodes at: 16r0070 put: ('framePoly' -> 'Polygon size').

        Opcodes at: 16r0071 put: ('paintPoly' -> 'Polygon size').

        Opcodes at: 16r0072 put: ('erasePoly' -> 'Polygon size').

        Opcodes at: 16r0073 put: ('invertPoly' -> 'Polygon size').

        Opcodes at: 16r0074 put: ('fillRect' -> 'Polygon size').

        Opcodes at: 16r0075 put: ('Apple0075' -> 'Polygon size').

        Opcodes at: 16r0076 put: ('Apple0076' -> 'Polygon size').

        Opcodes at: 16r0077 put: ('Apple0077' -> 'Polygon size').

        Opcodes at: 16r0078 put: ('frameSamePoly' -> 0).

        Opcodes at: 16r0079 put: ('paintSamePoly' -> 0).

        Opcodes at: 16r007A put: ('eraseSamePoly' -> 0).

        Opcodes at: 16r007B put: ('invertSamePoly' -> 0).

        Opcodes at: 16r007C put: ('fillSamePoly' -> 0).

        Opcodes at: 16r007D put: ('Apple007D' -> 0).

        Opcodes at: 16r007E put: ('Apple007E' -> 0).

        Opcodes at: 16r007F put: ('Apple007F' -> 0).

!

defineOpcodes08

        Opcodes at: 16r0080 put: ('frameRgn' -> 'Region size').

        Opcodes at: 16r0081 put: ('paintRgn' -> 'Region size').

        Opcodes at: 16r0082 put: ('eraseRgn' -> 'Region size').

        Opcodes at: 16r0083 put: ('invertRgn' -> 'Region size').

        Opcodes at: 16r0084 put: ('fillRect' -> 'Region size').

        Opcodes at: 16r0085 put: ('Apple0085' -> 'Region size').

        Opcodes at: 16r0086 put: ('Apple0086' -> 'Region size').

        Opcodes at: 16r0087 put: ('Apple0087' -> 'Region size').

        Opcodes at: 16r0088 put: ('frameSameRgn' -> 0).

        Opcodes at: 16r0089 put: ('paintSameRgn' -> 0).

        Opcodes at: 16r008A put: ('eraseSameRgn' -> 0).

        Opcodes at: 16r008B put: ('invertSameRgn' -> 0).

        Opcodes at: 16r008C put: ('fillSameRgn' -> 0).

        Opcodes at: 16r008D put: ('Apple008D' -> 0).

        Opcodes at: 16r008E put: ('Apple008E' -> 0).

        Opcodes at: 16r008F put: ('Apple008F' -> 0).

!

defineOpcodes09

        Opcodes at: 16r0090 put: ('BitsRect' -> 'Variable').

        Opcodes at: 16r0091 put: ('BitsRgn' -> 'Variable').

        Opcodes at: 16r0092 put: ('Apple0092' -> '2 + data length').

        Opcodes at: 16r0093 put: ('Apple0093' -> '2 + data length').

        Opcodes at: 16r0094 put: ('Apple0094' -> '2 + data length').

        Opcodes at: 16r0095 put: ('Apple0095' -> '2 + data length').

        Opcodes at: 16r0096 put: ('Apple0096' -> '2 + data length').

        Opcodes at: 16r0097 put: ('Apple0097' -> '2 + data length').

        Opcodes at: 16r0098 put: ('PackBitsRect' -> 'Variable').

        Opcodes at: 16r0099 put: ('PackBitsRgn' -> 'Variable').

        Opcodes at: 16r009A put: ('DirectBitsRect' -> 'Variable').

        Opcodes at: 16r009B put: ('DirectBitsRegn' -> 'Variable').

        Opcodes at: 16r009C put: ('Apple009C' -> '2 + data length').

        Opcodes at: 16r009D put: ('Apple009D' -> '2 + data length').

        Opcodes at: 16r009E put: ('Apple009E' -> '2 + data length').

        Opcodes at: 16r009F put: ('Apple009F' -> '2 + data length').

!

defineOpcodes10

        Opcodes at: 16r00A0 put: ('ShortComment' -> 2).

        Opcodes at: 16r00A1 put: ('LongComment' -> '4 + data').

        Opcodes at: 16r00A2 put: ('Apple00A2' -> '2 + data length').

        Opcodes at: 16r00A3 put: ('Apple00A3' -> '2 + data length').

        Opcodes at: 16r00A4 put: ('Apple00A4' -> '2 + data length').

        Opcodes at: 16r00A5 put: ('Apple00A5' -> '2 + data length').

        Opcodes at: 16r00A6 put: ('Apple00A6' -> '2 + data length').

        Opcodes at: 16r00A7 put: ('Apple00A7' -> '2 + data length').

        Opcodes at: 16r00A8 put: ('Apple00A8' -> '2 + data length').

        Opcodes at: 16r00A9 put: ('Apple00A9' -> '2 + data length').

        Opcodes at: 16r00AA put: ('Apple00AA' -> '2 + data length').

        Opcodes at: 16r00AB put: ('Apple00AB' -> '2 + data length').

        Opcodes at: 16r00AC put: ('Apple00AC' -> '2 + data length').

        Opcodes at: 16r00AD put: ('Apple00AD' -> '2 + data length').

        Opcodes at: 16r00AE put: ('Apple00AE' -> '2 + data length').

        Opcodes at: 16r00AF put: ('Apple00AF' -> '2 + data length').

!

defineOpcodes99

        Opcodes at: 16r00FF put: ('OpEndPic' -> 0).

        Opcodes at: 16r02FF put: ('Version' -> 2).

        Opcodes at: 16r0C00 put: ('HeaderOp' -> 24).

        Opcodes at: 16r8200 put: ('CompressedQuickTime' -> '4 + data length').

        Opcodes at: 16r8201 put: ('UncompressedQuickTime' -> '4 + data length').

!

initialize

    "install myself in the Image classes fileFormat table

     for the `.pic' and '.pict' extensions."

    MIMETypes defineImageType:nil suffix:'pict' reader:self.

    MIMETypes defineImageType:nil suffix:'pic'  reader:self.

    "PictReader initialize."

!

initializeOpcodes

        "PictImageStream initializeOpcodes."

        Opcodes := IdentityDictionary new: 100.

        self defineOpcodes00.

        self defineOpcodes01.

        self defineOpcodes02.

        self defineOpcodes03.

        self defineOpcodes04.

        self defineOpcodes05.

        self defineOpcodes06.

        self defineOpcodes07.

        self defineOpcodes08.

        self defineOpcodes09.

        self defineOpcodes10.

        self defineOpcodes99.

        ^Opcodes

! !

!PICTReader class methodsFor:'opcodes'!

opcodeAt: opcode 

        "PictImageStream opcodeAt: 16r8201."

        | key value string |

        Opcodes isNil ifTrue:[

            self initializeOpcodes

        ].

        (Opcodes includesKey: opcode)

                ifTrue: [^Opcodes at: opcode].

        string := opcode printStringRadix: 16.

        string := string leftPaddedTo:4 with:$0.   "/ 4 - string size timesRepeat: [string := '0' , string]. "

        key := 'Apple' , string.

        (16r00B0 <= opcode and: [opcode <= 16r00CF])

                ifTrue: 

                        [value := 0.

                        ^key -> value].

        (16r00D0 <= opcode and: [opcode <= 16r00FE])

                ifTrue: 

                        [value := '4 + data length'.

                        ^key -> value].

        (16r0100 <= opcode and: [opcode <= 16r01FF])

                ifTrue: 

                        [value := 2.

                        ^key -> value].

        (16r0200 <= opcode and: [opcode <= 16r02FE])

                ifTrue: 

                        [value := 4.

                        ^key -> value].

        (16r0300 <= opcode and: [opcode <= 16r0BFF])

                ifTrue: 

                        [value := 22.

                        ^key -> value].

        (16r0C01 <= opcode and: [opcode <= 16r7EFF])

                ifTrue: 

                        [value := 24.

                        ^key -> value].

        (16r7F00 <= opcode and: [opcode <= 16r7FFF])

                ifTrue: 

                        [value := 254.

                        ^key -> value].

        (16r8000 <= opcode and: [opcode <= 16r80FF])

                ifTrue: 

                        [value := 0.

                        ^key -> value].

        (16r8100 <= opcode and: [opcode <= 16r81FF])

                ifTrue: 

                        [value := '4 + data length'.

                        ^key -> value].

        (16r8201 <= opcode and: [opcode <= 16rFFFF])

                ifTrue: 

                        [value := '4 + data length'.

                        ^key -> value].

        ^nil

! !

!PICTReader class methodsFor:'testing'!

isValidImageFile:aFileName

    "return true, if aFileName contains a sunraster image"

    |inStream nr|

    inStream := self streamReadingFile:aFileName.

    inStream isNil ifTrue:[^ false].

    "try sun raster"

    inStream binary.

    ((inStream nextWord == 16r59A6) 

    and:[inStream nextWord == 16r6A95]) ifTrue: [

	inStream close.

	^ true

    ].

    inStream isPositionable ifFalse:[^ false].

    "try sun bitmap image format"

    inStream text.

    inStream reset.

    "must start with a comment"

    inStream skipSeparators.

    inStream next ~~ $/ ifTrue:[^ false].

    inStream next ~~ $* ifTrue:[^ false].

    (inStream skipThroughAll: 'idth') isNil ifTrue: [

	inStream close.

	^ false

    ].

    inStream next; skipSeparators.

    nr := Integer readFrom: inStream.

    (nr isNil or:[nr <= 0]) ifTrue: [

	inStream close.

	^ false

    ].

    (inStream skipThroughAll: 'eight') isNil ifTrue: [

	inStream close.

	^ false

    ].

    inStream next; skipSeparators.

    nr := Integer readFrom: inStream.

    (nr isNil or:[nr <= 0]) ifTrue: [

	inStream close.

	^ false

    ].

    inStream close.

    ^ true

! !

!PICTReader methodsFor:'commands'!

xBitsRect

        self debug:[ Transcript show:'xBitsRect'; cr ].

        ^self xPackBitsRect