Path: news.cs.au.dk!not-for-mail
From: Flemming Gram Christensen <gram@mjolner.dk>
Newsgroups: comp.lang.beta
Subject: Re: pixels in a pixmap
Date: 5 Mar 2000 19:23:01 -0000
Organization: University of Aarhus, Department of Computer Science (DAIMI)
Lines: 72
Approved: mailtonews@cs.au.dk
Distribution: world
Message-ID: <20000305192301.7614.qmail@noatun.mjolner.dk>
Reply-To: Flemming Gram Christensen <gram@mjolner.dk>
NNTP-Posting-Host: daimi.cs.au.dk
X-Trace: xinwen.cs.au.dk 952284220 13134869 255.255.255.255 (5 Mar 2000 19:23:40 GMT)
X-Complaints-To: news@cs.au.dk
NNTP-Posting-Date: 5 Mar 2000 19:23:40 GMT
Xref: news.cs.au.dk comp.lang.beta:12258

--OgqxwSJOaUobr8KG
Content-Type: text/plain; charset=us-ascii

On Sat, Feb 26, 2000 at 01:07:42PM -0000, Thomas Riisgaard wrote:
> Hi
> 
> I want to manipulate the different pixel in a pixmap.
> Does anyone know how to get acces to the individual pixel in a pixmap?
Here is a little library that retrieves the color of a single pixel in a pixmap.
It works on Windows only. Additional functionality could be added. 
Unpack the .zip file and include the pixmapadds.bet file in your program. Then you
can use it like:

ORIGIN '~beta/guienv/guienv';
INCLUDE 'pixmapadds';
(# px:@pixmap;
   c:@color;
do 'picture'->px.read;
   (13,17)->px.getpixelcolor-c;
   'The red component of pixel 13,17 was:'->putline;
   c.red->putint
#);

Please report any problems.

Regards
Flemming Gram



> 
> 
> Thomas
> 
> 

-- 
/Flemming Gram Christensen

------------------------------------------------------------------------
Mjolner Informatics ApS                   Phone:  +45 86 20 20 00       
Science Park Aarhus                       Fax:    +45 86 20 12 22
Gustav Wieds Vej 10                                             
DK-8000 Aarhus C                                                     
Denmark                                   E-mail: gram@mjolner.dk    
------------------------------------------------------------------------
--OgqxwSJOaUobr8KG
Content-Type: application/x-zip-compressed
Content-Disposition: attachment; filename="pixmapadds.zip"
Content-Transfer-Encoding: base64

UEsDBBQAAAAIAIFkZSilMKIpngAAAM8AAAAOAAAAcGl4bWFwYWRkcy5iZXRVjMEKgzAQRO+B
/MOCBy00eo8iUgpFKBXaXnqMZpGANSFG0b9vYnvpnua9Waa515f6BnGaZv2scFzinJJTc35B
bKxahMPMqPUtjJByarXcQk8JY187qJYL56xqZ4cTY6Hr0fkSh04P2nJKAJIIOl7tnAf2tx43
XqnRYY82KPTRQuL1IWBRPK7NE/6npDbCurLc/1floAspOvwmASj5AFBLAwQUAAAACACcZGUo
L9dq+TkAAABDAAAAGgAAAHByaXZhdGUvcGl4bWFwYWRkc2JvZHkuYmV08w/ydPf0U1DX09Mv
yKzITSxITEkpVrfm5fJ1cfJ3iVTIK8lUUC/PzMsrQZKPB4om5adUgtTxcgEAUEsDBBQAAAAI
AEZmZShxzkNOlQEAAKIEAAAkAAAAcHJpdmF0ZS93aW5udC9waXhtYXBhZGRzX250aWJvZHku
YmV0jZRRa8IwEMffBb9DQMYUTHV7VChjdQxhzKHseaTN2WVkTYmn02+/M2207ewwlLa5/931
l8uli+X8ef7KboNglKv9t8iFlJvYyMPttNuZv0Yv77MnpxZXbtVOIIx+VJbhKN0qyHYfGarS
fgziPAWkXKATo42dSJMLi5x3O9J0O4yxfo+5J43IAkVF5jsXqGINs2gCewSbCe1dnP+nTIxV
6eRBZQgp2OlZpUFqQikuqUAW68PPZmlYIrReoaz67hX6XGdrb0AufvoM+HZcWSvlcD88tFC6
alhYn+QmZb+MH9Q4o4KzgemTNTjLd/8yAw34X1FbUC1sthr/reclxmYtizQtpSQkKxKMXI/U
uPATCit7cMuss3l1SZVkrYQVrxrpmPGwKgY31KyPB4SqPbAg6x+9uyostQBZPfD+qsBYb6FZ
PC/Wylff3uRPN9EK2ZiHyZ9jxcPyhAa0d6dP9SvGITtNRCapb0zxPxgQ6Ir6KMFF/EX3y8HH
tuWhPx6OYD2tcvKw3HC3peRwUitpeCjLji1U1zC/UEsBAhULFAAAAAgAgWRlKKUwoimeAAAA
zwAAAA4AAAAAAAAAAQAgALaBAAAAAHBpeG1hcGFkZHMuYmV0UEsBAhULFAAAAAgAnGRlKC/X
avk5AAAAQwAAABoAAAAAAAAAAQAgALaBygAAAHByaXZhdGUvcGl4bWFwYWRkc2JvZHkuYmV0
UEsBAhULFAAAAAgARmZlKHHOQ06VAQAAogQAACQAAAAAAAAAAQAgALaBOwEAAHByaXZhdGUv
d2lubnQvcGl4bWFwYWRkc19udGlib2R5LmJldFBLBQYAAAAAAwADANYAAAASAwAAAAA=

--OgqxwSJOaUobr8KG--