Combining the contents of arrays

[ Article crossposted from comp.lang.pascal.misc ]
[ Author was Jean-Paul Deveaux ]
[ Posted on 3 Jun 1996 00:40:12 GMT ]

I hope the subject isn't misleading, I couldn't word it in that short of
space.   This is my problem.  I want to use a mouse cursor in my program
(game) but I can't easily since the unit I'm using (ANIVGA) uses a
tweaked VGA mode with 4 pages, and when I try any conventional mouse
cursors (built-in), it goes nuts.  So I decided I would make a cursor and
just "put" it wherver it's supposed to be on the screen.

Here's my problem.  The cursor has "black" spots and I can'tfigure out
how to put it so that the black spots are invisible (transparent).  This
is what I want to do.  I want to get an area the size of the cursor (box)
and, with the cursor, take the respective pixels in the area which I
"got" and fill in the black of the cursor.  In case you still aren'ty
following me, I'll give a visual aid.  

Let's say we have two arrays--    0000000000000004030070888807006543
                      and         7777777777777777777777777777777777
          What I would want is    7777777777777774737777888877776543

See how the 7s are visible through the 0s?  Strange example, I know.  But
that's what I want.  I tried fiddling around with the mem command but I
got scared and ran away (I'm not really using arrays, just blocks of
memory.  Were is arrays it would be a HELL of a lot easier. Although I
could try moving it from the normal memory to an array, but I'm not sure
how I'd go around doing that)

Any help wuld be appreciated.  Oh and swap procedures, those would be
nice to.  I haven't checked the swag files available on the big ftp
sites.  Would there be swap procedures/fns in there?  Assembler of
course, I could write my own in pascal if I wanted to, but I doubt they
would be as fast. Would they?  Oh yeah I almost forgot I'm using TP7.

--
                                                            ___    ______
************************************************************\  \**/  _   \***
   Jean-Paul Deveaux        aa...@ccn.cs.dal.ca            __\  \_\__\_\  \
==========================================================/  _\  \________/==
            "French toast, please."                       \  \_\  \ \  \
***********************************************************\______/**\__\****

--
                                                            ___    ______
************************************************************\  \**/  _   \***
   Jean-Paul Deveaux        aa...@ccn.cs.dal.ca            __\  \_\__\_\  \
==========================================================/  _\  \________/==
            "French toast, please."                       \  \_\  \ \  \
***********************************************************\______/**\__\****