----boundary-LibPST-iamunique-801013197_-_-
Content-type: text/plain
Thanks to everyone who replied to my BTYE arithmetic question. Yes, I
should have read the Report! Actually I did have a quick look (I was in
a hurry) by searching for references to BYTE. The relevant text does not
mention BYTEs directly!
I guess that is one of the problems of working with a language that is
so complicated that the report takes 35 pages; it is impractically hard
to learn even after 10 years.
I was updating some data to be used as a Windows bitmap.
Problem: The BlackBox Ports.Color format is different to the Windows
32-bit bitmap
format, so every pixel had to be changed as follows:
PROCEDURE Shuffle (c : Ports.Color) : Ports.Color;
TYPE
IntArray = ARRAY SIZE (INTEGER) OF BYTE;
VAR
b : BYTE;
a : IntArray;
BEGIN
a := SYSTEM.VAL (IntArray, c);
b := a [0]; a [0] := a [2]; a [2] := b;
RETURN SYSTEM.VAL (Ports.Color, a)
END Shuffle;
I also wanted to 'invert' some colours, which is why I tried to negate
the relevant bytes. My second attempt is:
PROCEDURE Invert (c : Ports.Color) : Ports.Color;
BEGIN
RETURN SYSTEM.VAL (Ports.Color, SYSTEM.VAL (SET, c) / {0 .. 23})
END Invert;
I can now simply (!) call the Windows bitmap function with arrays of
colour data by:
TYPE
Pixel = POINTER TO ARRAY OF ARRAY OF Ports.Color;
BitMap = POINTER TO RECORD
bmiHeader : WinApi.BITMAPINFOHEADER;
pixel : Pixel
END;
...
res := WinApi.StretchDIBits (hdc, xOff, yOff, wid, hgt,
0, 0, bitMap.bmiHeader.biWidth,
bitMap.bmiHeader.biHeight,
SYSTEM.ADR (bitMap.pixel^),
SYSTEM.VAL (WinApi.PtrBITMAPINFO,
bitMap),
WinApi.DIB_RGB_COLORS, WinApi.SRCCOPY);
Maybe there are better ways of writing the Shuffle & Invert routines!
Thanks
Robert
PS - I know that for some readers English is not their first language,
so I shall explain that the 35 page comment is meant to be sarcastic,
and I am aware that some languages have an even larger reference manual.
********************************************************************
This email and any attachments are confidential to the intended
recipient and may also be privileged. If you are not the intended
recipient please delete it from your system and notify the sender.
You should not copy it or use it for any purpose nor disclose or
distribute its contents to any other person.
********************************************************************
--- BlackBox
--- send subject HELP or UNSUBSCRIBE to blackbox{([at]})nowhere.xy
----boundary-LibPST-iamunique-801013197_-_-
Content-type: application/rtf
Content-transfer-encoding: base64
Content-Disposition: attachment; filename="rtf-body.rtf"
e1xydGYxXGFuc2lcYW5zaWNwZzEyNTJcZnJvbXRleHQgXGRlZmYwe1xmb250dGJsDQp7XGYwXGZz
d2lzcyBBcmlhbDt9DQp7XGYxXGZtb2Rlcm4gQ291cmllciBOZXc7fQ0Ke1xmMlxmbmlsXGZjaGFy
c2V0MiBTeW1ib2w7fQ0Ke1xmM1xmbW9kZXJuXGZjaGFyc2V0MCBDb3VyaWVyIE5ldzt9fQ0Ke1xj
b2xvcnRibFxyZWQwXGdyZWVuMFxibHVlMDtccmVkMFxncmVlbjBcYmx1ZTI1NTt9DQpcdWMxXHBh
cmRccGxhaW5cZGVmdGFiMzYwIFxmMFxmczIwIFxwYXINClRoYW5rcyB0byBldmVyeW9uZSB3aG8g
cmVwbGllZCB0byBteSBCVFlFIGFyaXRobWV0aWMgcXVlc3Rpb24uIFllcywgSVxwYXINCnNob3Vs
ZCBoYXZlIHJlYWQgdGhlIFJlcG9ydCEgQWN0dWFsbHkgSSBkaWQgaGF2ZSBhIHF1aWNrIGxvb2sg
KEkgd2FzIGluXHBhcg0KYSBodXJyeSkgYnkgc2VhcmNoaW5nIGZvciByZWZlcmVuY2VzIHRvIEJZ
VEUuIFRoZSByZWxldmFudCB0ZXh0IGRvZXMgbm90XHBhcg0KbWVudGlvbiBCWVRFcyBkaXJlY3Rs
eSFccGFyDQpccGFyDQpccGFyDQpJIGd1ZXNzIHRoYXQgaXMgb25lIG9mIHRoZSBwcm9ibGVtcyBv
ZiB3b3JraW5nIHdpdGggYSBsYW5ndWFnZSB0aGF0IGlzXHBhcg0Kc28gY29tcGxpY2F0ZWQgdGhh
dCB0aGUgcmVwb3J0IHRha2VzIDM1IHBhZ2VzOyBpdCBpcyBpbXByYWN0aWNhbGx5IGhhcmRccGFy
DQp0byBsZWFybiBldmVuIGFmdGVyIDEwIHllYXJzLlxwYXINClxwYXINClxwYXINCkkgd2FzIHVw
ZGF0aW5nIHNvbWUgZGF0YSB0byBiZSB1c2VkIGFzIGEgV2luZG93cyBiaXRtYXAuXHBhcg0KXHBh
cg0KUHJvYmxlbTogVGhlIEJsYWNrQm94IFBvcnRzLkNvbG9yIGZvcm1hdCBpcyBkaWZmZXJlbnQg
dG8gdGhlIFdpbmRvd3NccGFyDQozMi1iaXQgYml0bWFwXHBhcg0KZm9ybWF0LCBzbyBldmVyeSBw
aXhlbCBoYWQgdG8gYmUgY2hhbmdlZCBhcyBmb2xsb3dzOlxwYXINClxwYXINClxwYXINClBST0NF
RFVSRSAgU2h1ZmZsZSAoYyA6IFBvcnRzLkNvbG9yKSA6IFBvcnRzLkNvbG9yO1xwYXINCiAgVFlQ
RVxwYXINCiAgICBJbnRBcnJheSAgPSAgQVJSQVkgIFNJWkUgKElOVEVHRVIpICBPRiAgQllURTtc
cGFyDQogIFZBUlxwYXINCiAgICBiICA6ICBCWVRFO1xwYXINCiAgICBhICA6ICBJbnRBcnJheTtc
cGFyDQogIEJFR0lOXHBhcg0KICAgIGEgIDo9ICBTWVNURU0uVkFMIChJbnRBcnJheSwgYyk7XHBh
cg0KICAgIGIgIDo9ICBhIFswXTsgYSBbMF0gIDo9ICBhIFsyXTsgYSBbMl0gIDo9ICBiO1xwYXIN
CiAgICBSRVRVUk4gIFNZU1RFTS5WQUwgKFBvcnRzLkNvbG9yLCBhKVxwYXINCiAgRU5EICBTaHVm
ZmxlO1xwYXINClxwYXINClxwYXINCkkgYWxzbyB3YW50ZWQgdG8gJ2ludmVydCcgc29tZSBjb2xv
dXJzLCB3aGljaCBpcyB3aHkgSSB0cmllZCB0byBuZWdhdGVccGFyDQp0aGUgcmVsZXZhbnQgYnl0
ZXMuIE15IHNlY29uZCBhdHRlbXB0IGlzOlxwYXINClxwYXINClBST0NFRFVSRSAgSW52ZXJ0IChj
IDogUG9ydHMuQ29sb3IpIDogUG9ydHMuQ29sb3I7XHBhcg0KICBCRUdJTlxwYXINCiAgICBSRVRV
Uk4gIFNZU1RFTS5WQUwgKFBvcnRzLkNvbG9yLCBTWVNURU0uVkFMIChTRVQsIGMpIC8gXHswIC4u
IDIzXH0pXHBhcg0KICBFTkQgIEludmVydDtccGFyDQpccGFyDQpccGFyDQpJIGNhbiBub3cgc2lt
cGx5ICghKSBjYWxsIHRoZSBXaW5kb3dzIGJpdG1hcCBmdW5jdGlvbiB3aXRoIGFycmF5cyBvZlxw
YXINCmNvbG91ciBkYXRhIGJ5OlxwYXINClxwYXINClRZUEVccGFyDQogIFBpeGVsICAgPSAgUE9J
TlRFUiAgVE8gIEFSUkFZICBPRiAgQVJSQVkgIE9GICBQb3J0cy5Db2xvcjtccGFyDQpccGFyDQog
IEJpdE1hcCAgPSAgUE9JTlRFUiAgVE8gIFJFQ09SRFxwYXINCiAgICAgICAgICAgICAgIGJtaUhl
YWRlciAgOiAgV2luQXBpLkJJVE1BUElORk9IRUFERVI7XHBhcg0KICAgICAgICAgICAgICAgcGl4
ZWwgICAgICA6ICBQaXhlbFxwYXINCiAgICAgICAgICAgICBFTkQ7XHBhcg0KLi4uXHBhcg0KICAg
IHJlcyAgOj0gIFdpbkFwaS5TdHJldGNoRElCaXRzIChoZGMsIHhPZmYsIHlPZmYsIHdpZCwgaGd0
LFxwYXINCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMCwgMCwgYml0TWFwLmJtaUhl
YWRlci5iaVdpZHRoLFxwYXINCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAg
Yml0TWFwLmJtaUhlYWRlci5iaUhlaWdodCxccGFyDQogICAgICAgICAgICAgICAgICAgICAgICAg
ICAgICAgIFNZU1RFTS5BRFIgKGJpdE1hcC5waXhlbF4pLFxwYXINCiAgICAgICAgICAgICAgICAg
ICAgICAgICAgICAgICAgU1lTVEVNLlZBTCAoV2luQXBpLlB0ckJJVE1BUElORk8sXHBhcg0KYml0
TWFwKSxccGFyDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFdpbkFwaS5ESUJfUkdC
X0NPTE9SUywgV2luQXBpLlNSQ0NPUFkpO1xwYXINClxwYXINClxwYXINCk1heWJlIHRoZXJlIGFy
ZSBiZXR0ZXIgd2F5cyBvZiB3cml0aW5nIHRoZSBTaHVmZmxlICYgSW52ZXJ0IHJvdXRpbmVzIVxw
YXINClxwYXINClRoYW5rc1xwYXINClxwYXINClJvYmVydFxwYXINClxwYXINClxwYXINClBTIC0g
SSBrbm93IHRoYXQgZm9yIHNvbWUgcmVhZGVycyBFbmdsaXNoIGlzIG5vdCB0aGVpciBmaXJzdCBs
YW5ndWFnZSxccGFyDQpzbyBJIHNoYWxsIGV4cGxhaW4gdGhhdCB0aGUgMzUgcGFnZSBjb21tZW50
IGlzIG1lYW50IHRvIGJlIHNhcmNhc3RpYyxccGFyDQphbmQgSSBhbSBhd2FyZSB0aGF0IHNvbWUg
bGFuZ3VhZ2VzIGhhdmUgYW4gZXZlbiBsYXJnZXIgcmVmZXJlbmNlIG1hbnVhbC5ccGFyDQpccGFy
DQpccGFyDQoqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKlxwYXINClRoaXMgZW1haWwgYW5kIGFueSBhdHRhY2htZW50cyBh
cmUgY29uZmlkZW50aWFsIHRvIHRoZSBpbnRlbmRlZFxwYXINCnJlY2lwaWVudCBhbmQgbWF5IGFs
c28gYmUgcHJpdmlsZWdlZC4gSWYgeW91IGFyZSBub3QgdGhlIGludGVuZGVkXHBhcg0KcmVjaXBp
ZW50IHBsZWFzZSBkZWxldGUgaXQgZnJvbSB5b3VyIHN5c3RlbSBhbmQgbm90aWZ5IHRoZSBzZW5k
ZXIuXHBhcg0KWW91IHNob3VsZCBub3QgY29weSBpdCBvciB1c2UgaXQgZm9yIGFueSBwdXJwb3Nl
IG5vciBkaXNjbG9zZSBvclxwYXINCmRpc3RyaWJ1dGUgaXRzIGNvbnRlbnRzIHRvIGFueSBvdGhl
ciBwZXJzb24uXHBhcg0KKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioqKioq
KioqKioqKioqKioqKioqKioqKioqKioqKipccGFyDQpccGFyDQotLS0gQmxhY2tCb3hccGFyDQot
LS0gc2VuZCBzdWJqZWN0IEhFTFAgb3IgVU5TVUJTQ1JJQkUgdG8gYmxhY2tib3hAb2Jlcm9uLmNo
fX0AIEJFR0lODQogIA=
----boundary-LibPST-iamunique-801013197_-_---
Received on Thu Jun 22 2006 - 10:45:17 UTC