BitPlanes

Thread View: mod.amiga.sources

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by doc Fri, 27 Jun 1986 22:01

#11

Author: doc
Date: Fri, 27 Jun 1986 22:01

38 lines
1432 bytes

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads