call the renamed basic methods for short access:
#signedInt16At:MSB:
#signedInt16At:put:MSB:
#unsignedInt16At:MSB:
#unsignedInt16At:put:MSB:
--- a/Depth16Image.st Sun Mar 13 00:32:21 2016 +0100
+++ b/Depth16Image.st Tue Mar 15 22:44:33 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1995 by Claus Gittinger
All Rights Reserved
@@ -85,7 +87,7 @@
lineIndex := (width * 2 * y) + 1.
- ^ bytes wordAt:(lineIndex + (x * 2)) MSB:true.
+ ^ bytes unsignedInt16At:(lineIndex + (x * 2)) MSB:true.
"Created: 24.4.1997 / 16:06:19 / cg"
!
@@ -99,7 +101,7 @@
lineIndex := (width * 2 * y) + 1.
- bytes wordAt:(lineIndex + (x * 2)) put:aPixelValue MSB:true
+ bytes unsignedInt16At:(lineIndex + (x * 2)) put:aPixelValue MSB:true
"Created: 24.4.1997 / 17:06:21 / cg"
!