From: Krogg
Subject: pointers:help
I am using trypb32 and have ordered 3.5 for dos.(waiting for it
to come in mail :) )
What i want to do is make an array that is 100x100 and
store the address for a 100x100 section of the mode 13h
vga screen.then i can do like
"@scrn(x,y)=pixelcolor"
the help file says that pointers are faster than poke and peek
and using an array would be faster than
saying "poke 320*y+x" anyhow cause it would eliminate a multiply
and an add.
I tryied doing like
-----------begin code-----------------
dim dynamic scrn(100,100) as byte ptr 'dim pointer array
for x=1 to 100 'store addresses
for y=1 to 100 'in array
scrn(x,y)=(y*320+x)+&ha0000000 '(y*320+x) predone,sneeky huh?
next x
next y
asm mov ax,&h13 'chained 320x200 256 vga
asm int &h10
for x=1 to 100 'show test pattern
for y=1 to 100 'It works good enuf
@scrn(x,y)=y+x 'dont know if faster yet though
next y 'BTW y+x ranges from 2-200 and
next x 'its just some diagonal lines
poop:
a$=inkey$ 'lame loop,but it werks.
if a$="" then goto poop
asm mov ax,&h03 'reset normal 80x25 text mode
asm int &h10
cls
?"done"
end
-----------end code--------------------
Hey it works great,but.
I cant get it to make the array 320x200 (319,199)
can some one help?
acutualy i cant get much bigger at all,I get
"dim dynamic scrn(100,100) as byte ptr"
Error 9: Subscript out of range
I tryied
dim huge scrn(100,100) as byte ptr
and i get "Out of memory" (could it be win95 killing me?)
dim absolute ect......... doesnt help either
Please tell me there is a way.I know this must be lame
but I am stumped.I hope my copy of 3.5 gets here quick
cause i bet Chapter 5 of the User's Guide as the help
file says could help.But am i just hope less?
Any help diming big arrays at all would help too :).
--
THE
/\ \\ // /\
/ \ \\ // / \
/ /\/ /""""""\ \/\ \
/ / SEE HIS ( / \ \ SEE HIS \ \
\ \ FACE \/ \/ SMILE / /
\ \ / W \ / /
\ \ /\_|||||_/\ / /
/ \ // ||| \\ / \
/ /\ \ // ' \\ / /\ \
/ / / / \ \ \ \
\ \/ \_______________________/ \/ /
\_________________________________/
krogg.no.to.spam@inspace.net
Remove no.to.spam to reply
http://www.inspace.net/~carcher/krogg/aani.htm
Gory javascript animations for your enjoyment
*** QwkNews (tm) v2.1
* [TN71] Internet Newsgroup: alt.lang.powerbasic
--- GEcho 1.20/Pro
---------------
* Origin: Toast House Remote (1:100/561)
|