1 "{ Encoding: utf8 }"

     2 

  2685 !

  2686 

  2687 valuesFromX:xStart y:yStart toX:xEnd y:yEnd do:aBlock

  2688     "perform aBlock for each pixel in the rectangle

  2689      yStart..yEnd / xStart..xEnd.

  2690      The block is passed the pixelValue at each pixel.

  2691      This method allows slighly faster processing of an

  2692      image than using individual valueAtX:y: accesses,

  2693      since some processing can be avoided when going from pixel to pixel..

  2694      However, for real high performance image processing, specialized methods

  2695      should be written which know how to deal with specific photometric interpretations."

  2696 

  2697     |srcIndex    "{ Class: SmallInteger }"

  2698      srcNext     "{ Class: SmallInteger }"

  2699      bytesPerRow "{ Class: SmallInteger }"

  2700      value    "{ Class: SmallInteger }"

  2701      x1       "{ Class: SmallInteger }"

  2702      x2       "{ Class: SmallInteger }"

  2703      y1       "{ Class: SmallInteger }"

  2704      y2       "{ Class: SmallInteger }"

  2705      bytes|

  2706 

  2707     x1 := xStart.

  2708     x2 := xEnd.

  2709     y1 := yStart.

  2710     y2 := yEnd.

  2711 

  2712     srcIndex := (width * 3 * y1) + (x1 * 3) + 1 .

  2713     bytesPerRow := self bytesPerRow.

  2714     bytes := self bits.

  2715 

  2716     y1 to:y2 do:[:y |

  2717         srcNext := srcIndex + bytesPerRow.

  2718         x1 to:x2 do:[:x |

  2719             value := bytes at:srcIndex.

  2720             value := (value bitShift:8) + (bytes at:srcIndex+1).

  2721             value := (value bitShift:8) + (bytes at:srcIndex+2).

  2722             srcIndex := srcIndex + 3.

  2723 

  2724             aBlock value:x value:y value:value

  2725         ].

  2726         srcIndex := srcNext.

  2727     ].

  2728 

  2729     "Modified: 11.7.1996 / 20:06:47 / cg"

  2730     "Created: 11.7.1996 / 20:08:11 / cg"