Displaying picture in Graphics 8 in Turbo basic

[psychonaut25]

I found here some time ago this exmple of picture viewer in Turbo basic

 

200 GRAPHICS 15+16

210 DIM FILE$(12)

220 FILE$="D1:IMAGE.MIC"

225 S=PEEK(559):POKE 559,0:REM IF YOU WANT TO TURN OFF SCREEN WHILE LOADING

230 OPEN #%1,4,%0,FILE$

240 BGET #%1,DPEEK(88),7680

250 BGET #%1,712,%1

260 BGET #%1,708,%3

290 CLOSE #%1

295 POKE 559,S:REM TURN ON SCREEN

 

It works well, but I want to ask if it is also possible to use it in 2 color GR 8+16 mode.

[Alphasys]

Well, yeah, it works. But of course, the picture has to be made in that mode as well. Screen size is exactly the same, in bytes, so all you need to change is the Graphics statement in line 200, and skip the bget's into the color registers (lines 250-260) unless you have pictures that use this format to store the colors.

[psychonaut25]

Well, yeah, it works. But of course, the picture has to be made in that mode as well. Screen size is exactly the same, in bytes, so all you need to change is the Graphics statement in line 200, and skip the bget's into the color registers (lines 250-260) unless you have pictures that use this format to store the colors.

I will use monochromatic 320x192 pictures. The main problem is with Graph2Font program that I have used for 160x192 pictures. I don't know how to convert a 320x192 BMp into 320x192 monochromatic MIC file.

Edited March 22, 2011 by psychonaut25

[Alphasys]

Well, yeah, it works. But of course, the picture has to be made in that mode as well. Screen size is exactly the same, in bytes, so all you need to change is the Graphics statement in line 200, and skip the bget's into the color registers (lines 250-260) unless you have pictures that use this format to store the colors.

I will use monochromatic 320x192 pictures. The main problem is with Graph2Font program that I have used for 160x192 pictures. I don't know how to convert a 320x192 BMp into 320x192 monochromatic MIC file.

 

If you have a Black/white BMP made in Paint with 320x192 dimension, the following listing will work:

10 GRAPHICS 8+16

20 POKE 709,14:POKE 710,0

30 OPEN #1,4,0,"D:TEST.BMP"

40 BGET #1,DPEEK(88),62

50 FOR X=191 TO 0 STEP -1

60 BGET #1,DPEEK(88)+40*X,40

70 NEXT X

80 CLOSE #1

90 GOTO 90

 

So, the first 62 bytes are the BMP header data, then comes the graphics data, but the bottom line comes first, then working your way up to top.

After this, you can save it as Atari picture data by the normal BPUT #n, DPEEK(88),7680 so it's kinda easy to make a conversion program for 320x192 B/W windows BMP's to Atari screendump.

 

This took me only 5 minutes to figure out, so I'm kinda baffled you didn't experiment with this yourself.