--- a/Depth32Image.st	Sun Mar 02 14:59:49 2014 +0100
+++ b/Depth32Image.st	Sun Mar 02 14:59:52 2014 +0100
@@ -81,6 +81,8 @@
 
     |pixelIndex "{ Class: SmallInteger }"|
 
+    pixelFunction notNil ifTrue:[^ pixelFunction value:x value:y].
+
     pixelIndex := (width * 4 * y) + 1 + (x * 4).
 
     "left pixel in high bits"
@@ -688,9 +690,10 @@
 !Depth32Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth32Image.st,v 1.12 2013-05-21 20:50:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth32Image.st,v 1.13 2014-03-02 13:59:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Depth32Image.st,v 1.12 2013-05-21 20:50:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth32Image.st,v 1.13 2014-03-02 13:59:52 cg Exp $'
 ! !
+