Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!decvax!decwrl!ucbvax!ucbcad!nike!caip!ut-sally!seismo!gatech!akgua!whuxlm!whuxl!houxm!hropus!riccb!ihopa!ihnp4!inuxc!pur-ee!pucc-j!doc
From: doc@pucc-j.UUCP
Newsgroups: mod.amiga.sources
Subject: BitPlanes
Message-ID: <1469@pucc-j>
Date: Fri, 27-Jun-86 18:01:23 EDT
Article-I.D.: pucc-j.1469
Posted: Fri Jun 27 18:01:23 1986
Date-Received: Sun, 29-Jun-86 08:56:38 EDT
Sender: doc@pucc-j
Organization: Purdue University Computing Center
Lines: 38
Approved: doc@pucc-j.UUCP

Reply-To: ihnp4!cbmvax!carolyn@ecn (Carolyn Scheppner)

REM <<      AmigaBasic        >>  
REM << Find Ptrs to BitPlanes >>
REM << Carolyn Scheppner  CBM >>

depth = 5
x = 320
y = 200

SCREEN 2,x,y,depth,1
WINDOW 2,"TEST1",,15,2

sWindow&   = WINDOW(7)
sScreen&   = PEEKL(sWindow& + 46)
sViewPort& = sScreen& + 44
sRastPort& = sScreen& + 84
PRINT "Ptr to RastPort structure ="sRastPort&
sColorMap& = PEEKL(sViewPort& + 4)
colorTab&  = PEEKL(sColorMap& + 4)
sBitMap& = PEEKL(sRastPort& + 4)
PRINT "Ptr to BitMap structure ="sBitMap&
FOR k = 0 TO depth-1
  bPlane&(k) = PEEKL(sBitMap&+8+(4*k))
  PRINT "Ptr to BitPlane"k" ="bPlane&(k)
NEXT

REM << Test - Random Poke to the BitPlanes >>
FOR j = 3000 TO 3159
  FOR k = 0 TO depth-1
    POKE bPlane&(k)+j, INT(255*RND)
  NEXT  
NEXT

FOR de = 1 TO 5000 : NEXT
WINDOW CLOSE 2
SCREEN CLOSE 2
END