Class: XPMReader

• Inheritance
• Description
• Related information
• Class protocol
  • initialization
  • testing
• Instance protocol
  • private-reading
  • private-writing
  • reading
  • writing
• Examples

Inheritance:

   Object
   |
   +--ImageReader
      |
      +--XPMReader

Package:

stx:libview2

Category:

Graphics-Images-Readers

Version:

rev: 1.71 date: 2018/06/03 07:27:26

user: cg

file: XPMReader.st directory: libview2

module: stx stc-classLibrary: libview2

Description:

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 format is actually a piece of C-code, which can be compiled by the C-compiler
into a constant image data structure.

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 only supported for images with less than about 200
    colors (single byte encoding). 
    If present, the mask must be a single bit mask (i.e. no alpha channel).
    Due to the algorithm, writing may be slow for big images

Suggestions: adapt & use the XPM library here.

Related information:

    Image
    Form
    Icon
    BlitImageReader
    FaceReader
    GIFReader
    JPEGReader
    MacOSXIconReader
    PBMReader
    PCXReader
    PNGReader
    ST80FormReader
    SunRasterReader
    TargaReader
    TIFFReader
    WindowsIconReader
    XBMReader
    XWDReader

Class protocol:

 initialize

tell Image-class, that a new fileReader is present
for the '.xpm' and '.pm' extensions.

 canRepresent: anImage

return true, if anImage can be represented in my file format.
Currently only images with less than 80 colors are supported.

 isValidImageFile: aFileName

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

usage example(s):

XPMReader isValidImageFile:'fooBar' XPMReader isValidImageFile:'../../goodies/bitmaps/xpmBitmaps/device_images/ljet.xpm' XPMReader isValidImageFile:'bitmaps/gifImages/garfield.gif'

Instance protocol:

 colorNameFrom: aStream

read either a color-name or value specified in X-notation
(#rrggbb where rr, gg and bb are 2-digit hex numbers)

 readColorMap: colorMapSize

skip quote

 colorNameOf: aColor

generate a name for a color. If it's a standard color,
return its name; otherwise return the hex representation.

 readImage

read an XPM-image from my inStream. Return the receiver
(with all relevant instance variables set for the image)

 save: image onFile: aFileName

save image as XPM file on aFileName.
Caveat: currently, only a maximum of roughly 50 colors is handled
(i.e. very simple images)

 save: image onStream: aStream

save image as XPM file on aStream.
Caveat: currently, only a maximum of 256 colors is handled
(i.e. very simple images)

Examples:

  |image|

  image := Image fromFile:('../../goodies/bitmaps/xpmBitmaps/INFO.xpm').
  image inspect

  |image|

  image := Image fromScreen:(0@0 corner:30@30).
  image usedColors size > 256 ifTrue:[
      image := image asDitheredImageUsing:(Color standardDitherColorsForDepth8) depth:8.
  ].
  XPMReader save:image onFile:'/tmp/test.xpm'.
  '/tmp/test.xpm' asFilename contents asString inspect

  |image stream|

  image := Image fromScreen:(0@0 corner:30@30).
  image usedColors size > 256 ifTrue:[
      image := image asDitheredImageUsing:(Color standardDitherColorsForDepth8) depth:8.
  ].
  stream := WriteStream on:(String new).
  XPMReader save:image onStream:stream.
  stream contents inspect