Screen 13 buffer - Printable Version +- Qbasicnews.com (http://qbasicnews.com/newforum) +-- Forum: QBasic (http://qbasicnews.com/newforum/forum-4.html) +--- Forum: QB Discussion & Programming Help (http://qbasicnews.com/newforum/forum-11.html) +--- Thread: Screen 13 buffer (/thread-769.html) |
Screen 13 buffer - Aaron - 05-04-2003 I'm in the process of writing subs to enable me to have a buffer in screen buffer in Screen 13. The only problem is, they have ended up being very, very slow. It takes quite a long time for each of them to run and thus my graphics are fairly slow (although there are no flicker problmes ). Anyway, I was just wondering what suggestions, if any, you guys had as to what to do to increase the speed of my routines. One thought I had, don't know if its worth doing, or even possible (due to the offset limit size) was to only define my segment once and then just use offsets to reference my memory locations. As you can probably see, the routine I use below (te equivelant of put) is quite calculation intensive and redifnes the segment 2 times per cycle. BTW, page() is the screen buffer. Code: SUB fastput (x%, y%, img%()) 'has automasking feature Screen 13 buffer - toonski84 - 05-04-2003 quick suggestion. if you're only using integers, use integer division. ("\" instead of "/"). and instead of mod, which uses division to do its thing, use "and" on powers of 2. so instead of: something mod 16 use something and 15 also, just the usual, unroll loops and dont use different data types together, etc. actually, if you want "pure qb" for some reason, i'd go ahead and not use subroutines for sprites unless it's necessary, as qb's stack handler blows. instead, i'd use one giant drawscreen sub and not let that call anything except maybe setvideoseg. Screen 13 buffer - relsoft - 05-05-2003 RelGFX or SETVDEOSEG. Screen 13 buffer - Aaron - 05-05-2003 I assume RelGFX is a library, is it in pure qbasic, or does it have asm? I want to try to keep this in pure qbasic. Also, what is setvdeoseg? Is there a special command you can use just to set the video segment? btw, thanks toonski84, i will try the integer division and the and statement Screen 13 buffer - Aaron - 05-06-2003 So, here's it is, fixed: Code: SUB bbput (x%, y%, filename$) previously, I was using two subs to do this same thing (one loaded the file into the array, and then passed it on to the other) I now realize that this is what was slowing down my code so much, with this, and the total conversion to short integers, my sub puts grafix to the buffer in about 1/3 to 1/4 the time qbasics put can write them to the screen. Granted I still have to transfer them from the buffer to the screen, but that is rather quick in the overall scheme of things. thanks for all your help with getting this little thing worked out, I appreciate the responses Aaron Screen 13 buffer - relsoft - 05-09-2003 RelGFX is pureQB no asm no hack. SetvideoSeg enables you to use QB's drawing primitives(all the GFX statements in screen 13) in a buffer. So you only have to: SetVideoSeg Varseg(Page(6)) Pset(X,Y),Col SetvideoSeg &ha000 Put(0,0), Page(6),Pset |