Depth24Image.st
changeset 816 6576c8242e5d
parent 813 8bc17dba7a02
child 842 dc8aa9127b49
equal deleted inserted replaced
815:1e659479b292 816:6576c8242e5d
   152      Redefined to use special code when converting to 8-bit
   152      Redefined to use special code when converting to 8-bit
   153      greyScale displays."
   153      greyScale displays."
   154 
   154 
   155     (aDevice visualType == #StaticGray) ifTrue:[
   155     (aDevice visualType == #StaticGray) ifTrue:[
   156         aDevice depth == 8 ifTrue:[
   156         aDevice depth == 8 ifTrue:[
   157             ^ self makeDevicePixmapOn:aDevice depth:aDevice depth fromArray:(self threshold8BitGrayBits)
   157             ^ self makeDeviceGrayPixmapOn:aDevice depth:aDevice depth fromArray:(self threshold8BitGrayBits)
   158         ].
   158         ].
   159     ].
   159     ].
   160     ^ super asGrayFormOn:aDevice
   160     ^ super asGrayFormOn:aDevice
   161 
   161 
   162     "Created: 10.6.1996 / 19:00:45 / cg"
   162     "Created: 10.6.1996 / 19:00:45 / cg"
       
   163     "Modified: 10.6.1996 / 20:10:19 / cg"
   163 !
   164 !
   164 
   165 
   165 asThresholdGrayImageDepth:depth
   166 asThresholdGrayImageDepth:depth
   166     "return an 8-bit grey image from the rgb picture.
   167     "return an 8-bit grey image from the rgb picture.
   167      Pixel values are reduced to a 0..255 grey level."
   168      Pixel values are reduced to a 0..255 grey level."
  1542 ! !
  1543 ! !
  1543 
  1544 
  1544 !Depth24Image class methodsFor:'documentation'!
  1545 !Depth24Image class methodsFor:'documentation'!
  1545 
  1546 
  1546 version
  1547 version
  1547     ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.31 1996-06-10 17:24:31 cg Exp $'
  1548     ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.32 1996-06-10 18:32:53 cg Exp $'
  1548 ! !
  1549 ! !