# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1507819798 -7200
# Node ID a3facd01e98d56b148e26a0022b8b2abcdc65651
# Parent  d6c2e6ed4cae6d50492080580664129e89e34da5
#OTHER by cg
lazy create pixel storage (in atX:y:put:)

diff -r d6c2e6ed4cae -r a3facd01e98d Depth2Image.st
--- a/Depth2Image.st	Thu Oct 12 16:49:56 2017 +0200
+++ b/Depth2Image.st	Thu Oct 12 16:49:58 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -104,6 +102,8 @@
      byte      "{ Class: SmallInteger }"
      shift     "{ Class: SmallInteger }" |
 
+    bytes isNil ifTrue:[ self createPixelStore ].
+
     lineIndex := (self bytesPerRow * y) + 1.
 
     "left pixel is in high bits"