<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<br>
<div class="moz-cite-prefix">On 8/5/12 9:08 AM, Lawson English
wrote:<br>
</div>
<blockquote cite="mid:501E7066.20104@cox.net" type="cite">
<div class="moz-cite-prefix">On 8/5/12 4:30 AM, Bob Arning wrote:<br>
</div>
<blockquote cite="mid:501E5942.1030706@comcast.net" type="cite">
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
<font face="Georgia">Maybe the VM folks will see the value in
adding this or maybe you could write a plugin. </font></blockquote>
Actually, I've been looking at the BitBltPlugin.c source (it
apparently isn't written in slang?) but...<br>
</blockquote>
Well, it certainly *was* ....<br>
<br>
loadColorMap<br>
"ColorMap, if not nil, must be longWords, and <br>
2^N long, where N = sourceDepth for 1, 2, 4, 8 bits, <br>
or N = 9, 12, or 15 (3, 4, 5 bits per color) for 16 or 32 bits."<br>
| cmSize oldStyle oop cmOop |<br>
self inline: true.<br>
cmFlags _ cmMask _ cmBitsPerColor _ 0.<br>
cmShiftTable _ nil.<br>
cmMaskTable _ nil.<br>
cmLookupTable _ nil.<br>
cmOop _ interpreterProxy fetchPointer: BBColorMapIndex ofObject:
bitBltOop.<br>
cmOop = interpreterProxy nilObject ifTrue:[^true].<br>
cmFlags _ ColorMapPresent. "even if identity or somesuch - may
be cleared later"<br>
oldStyle _ false.<br>
(interpreterProxy isWords: cmOop) ifTrue:[<br>
"This is an old-style color map (indexed only, with implicit
RGBA conversion)"<br>
cmSize _ interpreterProxy slotSizeOf: cmOop.<br>
cmLookupTable _ interpreterProxy firstIndexableField: cmOop.<br>
oldStyle _ true.<br>
] ifFalse: [<br>
"A new-style color map (fully qualified)"<br>
((interpreterProxy isPointers: cmOop) <br>
...snip...<br>
<br>
Can't think why that would change, but don't know how to verify
these days.<br>
</body>
</html>