hg/stx-libview: comparison Image.st

equal deleted inserted replaced

-:b1124926ca35
+:79eedd2e05ac
 ].
 "Modified: 24.4.1997 / 16:18:31 / cg"
 !
+applyPixelValuesTo:pixelFunctionBlock into:newImage in:aRectangle
+"helper for withPixelFunctionAppliedToValues:
+enumerate pixelValues and evaluate the block for each.
+To be redefined by subclasses for better performance."
+|w  "{Class: SmallInteger }"
+h  "{Class: SmallInteger }"
+x0  "{Class: SmallInteger }"
+y0  "{Class: SmallInteger }"
+x1  "{Class: SmallInteger }"
+y1  "{Class: SmallInteger }"
+y  "{Class: SmallInteger }"
+newPixel newPixelRow pixelRow|
+x0 := aRectangle left.
+y0 := aRectangle top.
+w := aRectangle width.
+h := aRectangle height.
+newPixelRow := Array new:w.
+pixelRow := self pixelArraySpecies new:width.
+y := y0.
+h timesRepeat:[
+self rowAt:y into:pixelRow.
+1 to:w do:[:runCol |
+newPixel := pixelFunctionBlock
+value:self
+value:(pixelRow at:runCol+x0)
+value:(runCol+x0-1)
+value:y.
+newPixelRow at:runCol put:newPixel.
+].
+pixelRow replaceFrom:x0+1 to:x0+1+w-1 with:newPixelRow startingAt:1.
+newImage rowAt:y putAll:newPixelRow.
+y := y + 1.
+].
+"Modified: 24.4.1997 / 16:18:31 / cg"
+!
 colorMapProcessing:aBlock
 "a helper for all kinds of colormap manipulations.
 The argument, aBlock is called for every colormap entry,
 and the returned value will replace the original entry in the map.
 This will fail for non-palette images.
 value:y)
 ]
 ].
 ^ newImage
-"
+"black out everything except for some rectangle:
 |i black|
 i := Image fromFile:'bitmaps/gifImages/claus.gif'.
 i inspect.
 ((x between:100 and:200)
 and:[y between:100 and:200]) ifTrue:[
 oldColor
 ] ifFalse:[
 black.
+]
+]) inspect.
+"
+"brighten a frame:
+|i black w h|
+i := Image fromFile:'bitmaps/gifImages/claus.gif'.
+i inspect.
+w := i width.
+h := i height.
+(i withPixelFunctionApplied:[:oldImage :oldColor :x :y |
+((x between:0 and:10)
+or:[(y between:0 and:10)
+or:[(x between:w-10 and:w)
+or:[y between:h-10 and:h]]]) ifTrue:[
+oldColor lightened nearestIn:i colorMap
+] ifFalse:[
+oldColor.
 ]
 ]) inspect.
 "
 "Modified: 24.4.1997 / 18:36:59 / cg"
 ^  width * (self bitsPerPixel).
 !
 blackComponentOfCMYK:pixel
 "if the receiver is a cmyk-image:
-return the black component (0 .. 100) of a pixelValue."
+return the black component scaled to a percentage (0 .. 100) of a pixelValue."
 samplesPerPixel == 4 ifTrue:[
 "/ assume that the cyan bits are the leftMost bits (cmyk)
 bitsPerSample = #(8 8 8 8) ifTrue:[
 !
 blueBitsOf:pixel
 "if the receiver is an rgb-image:
-return the blue bits of a pixelValue.
+return the blue bits of a pixelValue as integer 0..maxBlueValue.
+MaxGreenValue is of course the largest integer representable by the number
+of blue bits i.e. (1 bitShift:bitsBlue)-1.
 This has to be redefined by subclasses."
 |blueBits|
 samplesPerPixel >= 3 ifTrue:[
 "Modified: 10.6.1996 / 14:59:44 / cg"
 !
 blueComponentOf:pixel
 "if the receiver is an rgb-image:
-return the blue component (0 .. 100) of a pixelValue.
+return the blue component scaled to a percentage (0 .. 100) of a pixelValue.
 This has to be redefined by subclasses."
 |blueBits  "{ Class: SmallInteger }"
 s         "{ Class: SmallInteger }"|
 "Modified: 28.1.1997 / 12:05:22 / cg"
 !
 cyanComponentOfCMY:pixel
 "if the receiver is a cmy-image:
-return the cyan component (0 .. 100) of a pixelValue."
+return the cyan component scaled to a percentage (0 .. 100) of a pixelValue."
 samplesPerPixel == 3 ifTrue:[
 "/ assume that the cyan bits are the leftMost bits (cmy)
 bitsPerSample = #(8 8 8) ifTrue:[
 !
 cyanComponentOfCMYK:pixel
 "if the receiver is a cmyk-image:
-return the cyan component (0 .. 100) of a pixelValue."
+return the cyan component scaled to a percentage (0 .. 100) of a pixelValue."
 samplesPerPixel == 4 ifTrue:[
 "/ assume that the cyan bits are the leftMost bits (cmyk)
 bitsPerSample = #(8 8 8 8) ifTrue:[
 !
 greenBitsOf:pixel
 "if the receiver is an rgb-image:
-return the green bits of a pixelValue.
+return the green bits of a pixelValue as integer 0..maxGreenValue.
+MaxGreenValue is of course the largest integer representable by the number
+of green bits i.e. (1 bitShift:bitsGreen)-1.
 This has to be redefined by subclasses."
 |blueBits greenBits|
 samplesPerPixel >= 3 ifTrue:[
 "Modified: 10.6.1996 / 14:59:35 / cg"
 !
 greenComponentOf:pixel
 "if the receiver is an rgb-image:
-return the green component (0..100)  of a pixelValue.
+return the green component scaled to a percentage (0..100) of a pixelValue.
 This has to be redefined by subclasses."
 |greenBits "{ Class: SmallInteger }"
 blueBits  "{ Class: SmallInteger }"
 s         "{ Class: SmallInteger }"|
 "Created: 22.4.1997 / 14:12:02 / cg"
 !
 magentaComponentOfCMY:pixel
 "if the receiver is a cmy-image:
-return the magenta component (0 .. 100) of a pixelValue."
+return the magenta component scaled to a percentage (0 .. 100) of a pixelValue."
 samplesPerPixel == 3 ifTrue:[
 "/ assume that the cyan bits are the leftMost bits (cmy)
 bitsPerSample = #(8 8 8) ifTrue:[
 !
 magentaComponentOfCMYK:pixel
 "if the receiver is a cmyk-image:
-return the magenta component (0 .. 100) of a pixelValue."
+return the magenta component scaled to a percentage (0 .. 100) of a pixelValue."
 samplesPerPixel == 4 ifTrue:[
 "/ assume that the cyan bits are the leftMost bits (cmyk)
 bitsPerSample = #(8 8 8 8) ifTrue:[
 "Modified: 11.7.1996 / 20:49:21 / cg"
 !
 redBitsOf:pixel
 "if the receiver is an rgb-image:
-return the red component of a pixelValue.
+return the red component of a pixelValue as integer 0..maxRedValue.
+MaxRedValue is of course the largest integer representable by the number
+of red bits i.e. (1 bitShift:bitsRed)-1.
 This has to be redefined by subclasses."
 |redBits greenBits blueBits|
 samplesPerPixel >= 3 ifTrue:[
 "Modified: 10.6.1996 / 14:59:05 / cg"
 !
 redComponentOf:pixel
 "if the receiver is an rgb-image:
-return the red component (0..100) of a pixelValue.
+return the red component scaled to a percentage (0..100) of a pixelValue.
 This has to be redefined by subclasses."
 |redBits   "{ Class: SmallInteger }"
 greenBits "{ Class: SmallInteger }"
 blueBits  "{ Class: SmallInteger }"
 ^ nil
 "Modified: / 30.9.1998 / 22:03:50 / cg"
 !
+valueFromRedBits:redBits greenBits:greenBits blueBits:blueBits
+"given a rgb bits, each in 0..maxXXXValue (i.e. according to
+r/g/b channels number of bits, return the corresponding pixel value.
+For now, only useful with RGB images"
+|pixel numGreenBits numBlueBits|
+photometric == #rgb ifTrue:[
+samplesPerPixel >= 3 ifTrue:[
+numGreenBits := bitsPerSample at:2.
+numBlueBits := bitsPerSample at:3.
+pixel := (((redBits bitShift:numGreenBits) + greenBits) bitShift:numBlueBits) + blueBits.
+^ pixel
+]
+].
+ImageErrorSignal raiseErrorString:'format not supported'.
+^ nil
+"Modified: / 30.9.1998 / 22:03:50 / cg"
+!
 widthOn:aGC
 "return my width, if displayed on aGC;
 since my width is independent of the device (the number of pixels),
 return the pixel-width"
 "Modified: 13.5.1996 / 10:26:42 / cg"
 !
 yellowComponentOfCMY:pixel
 "if the receiver is a cmy-image:
-return the yellow component (0 .. 100) of a pixelValue."
+return the yellow component scaled to a percentage (0 .. 100) of a pixelValue."
 samplesPerPixel == 3 ifTrue:[
 "/ assume that the cyan bits are the leftMost bits (cmy)
 bitsPerSample = #(8 8 8) ifTrue:[
 !
 yellowComponentOfCMYK:pixel
 "if the receiver is a cmyk-image:
-return the yellow component (0 .. 100) of a pixelValue."
+return the yellow component scaled to a percentage (0 .. 100) of a pixelValue."
 samplesPerPixel == 4 ifTrue:[
 "/ assume that the cyan bits are the leftMost bits (cmyk)
 bitsPerSample = #(8 8 8 8) ifTrue:[
 ! !
 !Image class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.279 1999-09-18 10:13:16 cg Exp $'
+^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.280 1999-09-20 06:59:09 cg Exp $'
 ! !
 Image initialize!

changeset 2916	79eedd2e05ac
parent 2913	c51ac85e9aa2
child 2934	33b1988133d3