Newbie question about custom screen modes for text

[ZapJackson]

Sorry for the basic question (ha ha) but I'm having a hard time teasing what I'm trying to do out of the documentation.

I'd like to have a custom sized text mode window (call it 60x40 characters,) that uses the double width version of the default 8x8 font, and has 32 bit color available for text foreground and background.

I keep finding ways to do two of these three things, but not all three at once.  What am I missing?

[SMcNeill]

SCREEN _NEWIMAGE(60* _FONTWIDTH, 40 * _FONTHEIGHT, 32)

_FONTWIDTH and _FONTHEIGHT by themselves will give you the height/width for the default font.  (_FONT 16)

_NEWIMAGE gives you custom image sizes.

,32 at the end of _NEWIMAGE gives you 32-bit color mode.

NOTE:  This is actually a graphical mode and not text-exclusive, so blinking colors won’t work and the screen stores information in a pixel-by-pixel basis, rather than in 2-byte ASCII mode.

[bplus]

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(480, 320, 32)
2. _FONT 8
3. FOR row = 1 TO 40
4.     LOCATE row, 1
5.     IF row MOD 2 THEN
6.         PRINT row, "Hi, ZapJackson";
7.     ELSE
8.         PRINT row, "Welcome to the forum."; 'no cr lf
9.     END IF
10. NEXT
11. LINE (0, 0)-(479, 319), , B
12. SLEEP 'wait for keypress to ruin screen
13.  

edit: 60 x 40

wait double "width" of font 8, oops too small.

Double width? 16 X 16 ? or 16 X 8?  might take a special font.

[ZapJackson]

Aha!  Excellent, thank you all, this gets me more or less where I'd like to be.

I can get everything to look exactly the way I want it if I _FULLSCREEN, which is totally adequate.  A resizable window would be nice.  I know I can use $RESIZE:STRETCH to let the user resize it, but is there a way to stretch it in code?  Like if I wanted it to be 2x the default size... 

It sounds like I could achieve the same thing with a custom font, which is totally fine if it comes to that, but I thought maybe there was an easier way to just use _FONT 8 at double its native resolution.

[bplus]

This might be easy enough:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(60 * 16, 40 * 16, 32)
2.  
3. f8& = _NEWIMAGE(60 * 8, 40 * 8, 32) 'set uo isolated screen to print and do graphics
4.  
5. _DEST f8& 'move to isolation and create the screen to show
6. _FONT 8
7. FOR row = 1 TO 40
8.     LOCATE row, 1
9.     IF row MOD 3 = 1 THEN
10.         PRINT row, "Hi, ZapJackson";
11.     ELSEIF row MOD 3 = 2 THEN
12.         PRINT "Welcome to the forum.";
13.     ELSE
14.         FOR i = 1 TO 60: PRINT LTRIM$(STR$(i MOD 10));: NEXT
15.     END IF
16. NEXT
17. LINE (0, 0)-(60 * 8 - 1, 40 * 8 - 1), _RGB32(0, 0, 255), B 'blue box everything
18.  
19. _DEST 0 'set to screen it, 0 is handle for screen
20. _PUTIMAGE , f8&, 0 'paste image to screen
21.  
22. SLEEP 'wait for keypress to ruin screen
23.  

EDIT: remove unneeded line and comment better

[TempodiBasic]

Hi guys

I like old ASCII screen with its 32 attributes of colors and its blinking!

Code: QB64: [Select]

1. SCREEN 0
2. WIDTH 60, 40
3.  
4. FOR row = 1 TO 40
5.     LOCATE row, 1
6.     co1 = row MOD 31
7.     IF co1 = 0 OR co1 = 16 THEN co2 = 14 ELSE co2 = 0
8.     COLOR co1, co2
9.     IF row MOD 2 THEN
10.         PRINT row, "Hi, ZapJackson";
11.     ELSE
12.         PRINT row, "Welcome to the forum."; 'no cr lf
13.     END IF
14. NEXT
15.  
16. SLEEP 'wait for keypress to ruin screen
17.  

but the request is an ASCII emulated screen 60x40 with 32bit colors...
so good example of Bplus but we must colorized it!

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(60 * 16, 40 * 16, 32)
2. RANDOMIZE TIMER
3.  
4. f8& = _NEWIMAGE(60 * 8, 40 * 8, 32) 'set uo isolated screen to print and do graphics
5.  
6. _DEST f8& 'move to isolation and create the screen to show
7. _FONT 8
8. FOR row = 1 TO 40
9.     COLOR _RGB(RND * 255, RND * 255, RND * 255), _RGB(RND * 255, RND * 255, RND * 255)
10.     LOCATE row, 1
11.     IF row MOD 3 = 1 THEN
12.         PRINT row, "Hi, ZapJackson";
13.     ELSEIF row MOD 3 = 2 THEN
14.         PRINT "Welcome to the forum.";
15.     ELSE
16.         FOR i = 1 TO 60: COLOR _RGB(RND * 255, RND * 255, RND * 255), _RGB(RND * 255, RND * 255, RND * 255): PRINT LTRIM$(STR$(i MOD 10));: NEXT
17.     END IF
18. NEXT
19. LINE (0, 0)-(60 * 8 - 1, 40 * 8 - 1), _RGB32(0, 0, 255), B 'blue box everything
20.  
21. _DEST 0 'set to screen it, 0 is handle for screen
22. _PUTIMAGE , f8&, 0 'paste image to screen
23.  
24. SLEEP 'wait for keypress to ruin screen
25.  

here screenshot  [ You are not allowed to view this attachment ]  

[Pete]

Just use SCREEN 0 and you can avoid all this crap. Shesh.

Pete :D

[ZapJackson]

Here's why I was asking... :)

https://jick.itch.io/ghost-wizard

Thanks for all the help!

[bplus]

Here's why I was asking... :)

https://jick.itch.io/ghost-wizard

Thanks for all the help!

Damn $7 to see the bas code! :P

[Pete]

Damn $7 to see the bas code! :P

Settle down Lucy. Everything can't cost 5-cents.

Pete :D

[Cobalt]

Damn $7 to see the bas code! :P

Settle down Lucy. Everything can't cost 5-cents.

Pete :D

Why not? People still say my thoughts are only worth a penny! And my time is worthless!


Anyway, that game looks like it would be easy enough to make in SCREEN 0 with 16 colors. on a normal WIDTH 80,40.

[Pete]

Sure, let's bring back inflation. If it's hard enough for BPlus to cough up $7 for it now, just think how hard it will be when someone remakes it in SCREEN 0, and the price jumps 200%.

Just putting in my 2-cents... which apparently means you can respond twice. :D

Pete SCREEN 0 Hero

[ZapJackson]

It's pay-what-you-want -- you can see it for free.  Also here's the BAS source in case that's easier.  [ You are not allowed to view this attachment ]  

[Cobalt]

Sure, let's bring back inflation. If it's hard enough for BPlus to cough up $7 for it now, just think how hard it will be when someone remakes it in SCREEN 0, and the price jumps 200%.

Just putting in my 2-cents... which apparently means you can respond twice. :D

Pete SCREEN 0 Hero

Today's ideology would be at least 400%, and I'll invest that other cent toward my retirement. sure it will go just as far as this conversation.

It's pay-what-you-want -- you can see it for free.  Also here's the BAS source in case that's easier.

I was wondering where Bplus got the $7 when I saw that myself. Don't take most of us too seriously around here, light-hearted fun is typically on tap. :D
It does look cool, but are you sure it couldn't just be done in straight SCREEN 0? or are you going for an upgraded look?

[bplus]

It's pay-what-you-want -- you can see it for free.  Also here's the BAS source in case that's easier.  [ You are not allowed to view this attachment ]

Apologies, I misread the pop-up. Zack Johnson author sounds allot like Zap Jackson.  :)

So this is how the author handled the font (with a full color graphics screen):

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(480, 320, 32)
2. _FONT 8
3. _FULLSCREEN _SQUAREPIXELS
4.  

That is a 60 x 40 character screen with _FONT 8 just blown up with _FULLSCREEN and an option, _SQUAREPIXELS, that I had not known about before.