Pete's QBASIC Site

Re: Capture a screen ??? def seg mode

2015-11-22T02:18:52-05:00

I'm using XP...always bad in FS. I have resigned to have to use a window mode ...

Statistics: Posted by Lillolullo — Sun Nov 22, 2015 2:18 am

Re: Capture a screen ??? def seg mode

2015-11-21T19:49:42-05:00

No problem. 32 bit can do 32 bit colors though. 64 bit ones would be off the scale!

32 bit and MILLIONS of colors is a bit much when you are making sprites on your own lol!

What OS are you running? XP made full screen a challenge for my laptop. Try FS after SCREEN:

Code:

SCREEN 12_FULLSCREENLINE (100, 100)-(500, 400), 13, BF

Statistics: Posted by burger2227 — Sat Nov 21, 2015 7:49 pm

Re: Capture a screen ??? def seg mode

2015-11-21T11:50:29-05:00

Thanks a lot...

Statistics: Posted by Lillolullo — Sat Nov 21, 2015 11:50 am

Re: Capture a screen ??? def seg mode

2015-11-21T09:37:51-05:00

Here is a program for 4 bit SCREEN 12 or 8 bit SCREEN 13. 12 has only 16 colors where 13 has 256.

http://www.qb64.net/wiki/index.php/Program_ScreenShots

Statistics: Posted by burger2227 — Sat Nov 21, 2015 9:37 am

Re: Capture a screen ??? def seg mode

2015-11-21T06:11:05-05:00

Thanks for your reply,
but I tried this and it doesn't work, because if I _saveimage I can olny _download in 32 bit mode, not in screen 12 (I got a black screen).

So I did in other way...It works but I always the _fullscreen glitch graphic problems..It's annoying, a lot, can't work in fullscreen.

I'm trying to do a good job with the sprites (made pixel by pixel with data statement)...I have a lot of problems when I try to compile in pds 71 or qb45.

Qb64 had this problem (fullscreen) and I don't know how to solve it.

Statistics: Posted by Lillolullo — Sat Nov 21, 2015 6:11 am

Re: Capture a screen ??? def seg mode

2015-11-20T11:21:11-05:00

In SCREEN 12 or any graphic screen, you can make a bitmap of the screen several ways and use _LOADIMAGE to view the BMP file: http://www.qb64.net/wiki/index.php/SAVEIMAGE

The OUT code for color palettes should still work if needed.

Look in the See also section for other routines that can use 32 bit colors or memory for faster operations.

Statistics: Posted by burger2227 — Fri Nov 20, 2015 11:21 am

Capture a screen ??? def seg mode

2015-11-17T16:17:36-05:00

Hi,

I'm still here with another question: in QB71 or QB45 normally I use this statement to capture a screen

screen 12
cls
locate 15,20:print "HELLO..."

def seg=&HA000
bsave"ok.gif",0,64000 (entire screen)
def seg

How can I do the same thing in qb64 ????

and most important statement....

to save an entire page in screen 12 to reuse next like a background...

file$ = "treasure"
DEF SEG = &HA000
OUT &H3CE, 4: OUT &H3CF, 0: BSAVE file$ + ".BLU", 0, 38400
OUT &H3CE, 4: OUT &H3CF, 1: BSAVE file$ + ".GRN", 0, 38400
OUT &H3CE, 4: OUT &H3CF, 2: BSAVE file$ + ".RED", 0, 38400
OUT &H3CE, 4: OUT &H3CF, 3: BSAVE file$ + ".INT", 0, 38400
OUT &H3CE, 4: OUT &H3CF, 0
DEF SEG

Save the palette
DIM pal&(255)
DEF SEG = VARSEG(pal&(0))
FOR col% = 0 TO 255
OUT &H3C7, col%
POKE VARPTR(pal&(col%)), INP(&H3C9)
POKE VARPTR(pal&(col%)) + 1, INP(&H3C9)
POKE VARPTR(pal&(col%)) + 2, INP(&H3C9)
NEXT
BSAVE "treasure.pal", VARPTR(pal&(0)), 1023

load the same page for backgrounding...

SCREEN 12

file$ = "treasure"
DEF SEG = &HA000
OUT &H3C4, 2: OUT &H3C5, 1: BLOAD file$ + ".BLU", 0
OUT &H3C4, 2: OUT &H3C5, 2: BLOAD file$ + ".GRN", 0
OUT &H3C4, 2: OUT &H3C5, 4: BLOAD file$ + ".RED", 0
OUT &H3C4, 2: OUT &H3C5, 8: BLOAD file$ + ".INT", 0
OUT &H3C4, 2: OUT &H3C5, 16
DEF SEG

DIM pal&(255)
DEF SEG = VARSEG(pal&(0))
BLOAD "treasure.pal", VARPTR(pal&(0))
FOR col% = 0 TO 255
OUT &H3C8, col%
OUT &H3C9, PEEK(VARPTR(pal&(col%)))
OUT &H3C9, PEEK(VARPTR(pal&(col%)) + 1)
OUT &H3C9, PEEK(VARPTR(pal&(col%)) + 2)
NEXT

Now these statements in qb64 are not valid and this is a big problem because in my project I use a lot....but when I compile them in qb71 or qb45 there are many problems, this is the reason I'm trying to use qb64...

Statistics: Posted by Lillolullo — Tue Nov 17, 2015 4:17 pm