Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Dav on October 01, 2021, 08:21:54 pm

Title: Little space background for games
Post by: Dav on October 01, 2021, 08:21:54 pm
Sharing a small way to make a space looking background for simple games.  Shows Stars and a little plasma space gas floating around.  Not much really, just thought I'd post something tonight.

- Dav

Code: QB64: [Select]
  1.  
  2. SCREEN _NEWIMAGE(640, 640, 32)
  3.  
  5.  
  6. FOR x = 1 TO 100000
  7.     PSET (RND * 640, RND * 640), _RGBA(0, 0, RND * 255, RND * 255)
  9.  
  10. 'faded boxes
  11. FOR i = 1 TO 5000
  12.     x = RND * 640: y = RND * 640
  13.     LINE (x, y)-(x + RND * 100, y + RND * 50), _RGBA(0, 0, RND * 128, RND * 25), BF
  15.  
  16. 'add a few stars
  17. FOR i = 1 TO 1000
  18.     x = RND * 640: y = RND * 640
  19.     LINE (x, y)-(x + RND * 3, y + RND * 3), _RGBA(192, 192, 255, RND * 150), BF
  21.  
  22.  
  24.  
  25.     '=== add space plasma =========
  26.     t = TIMER
  27.     FOR x = 0 TO _WIDTH STEP 3
  28.         FOR y = 0 TO _HEIGHT STEP 3
  29.             b = SIN(x / (_WIDTH / 2) + t + y / (_HEIGHT / 2))
  30.             b = b * (SIN(1.1 * t) * (_HEIGHT / 2) - y + (_HEIGHT / 2))
  31.             PSET (x, y), _RGBA(b / 3, 0, b, RND * 25)
  32.         NEXT: t = t + .04
  33.     NEXT
  34.     '===============================
  35.  
  36.     _DISPLAY
  37.     _LIMIT 15
  38.  
  40.  
  41.  
Title: Re: Little space background for games
Post by: Pete on October 02, 2021, 01:24:13 am
Nice foggy night sky effect. Let's see, how could I possibly use this. Oh, I've got it!

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(800, 700, 32)
  2. _SCREENMOVE 300, 20
  3. swt& = _NEWIMAGE(320, 512, 32)
  4. _DEST swt&
  5.  
  7.  
  8. FOR x = 1 TO 100000
  9.     PSET (RND * 640, RND * 640), _RGBA(0, 0, RND * 255, RND * 255)
  11.  
  12. 'faded boxes
  13. FOR i = 1 TO 5000
  14.     x = RND * 640: y = RND * 640
  15.     LINE (x, y)-(x + RND * 100, y + RND * 50), _RGBA(0, 0, RND * 128, RND * 25), BF
  17.  
  18. 'add a few stars
  19. FOR i = 1 TO 1000
  20.     x = RND * 640: y = RND * 640
  21.     LINE (x, y)-(x + RND * 3, y + RND * 3), _RGBA(192, 192, 255, RND * 150), BF
  23.  
  24. COLOR _RGBA32(0, 180, 0, 255)
  25. nl$ = CHR$(10)
  26. sw$ = "     Oh the bitch... Oh the bitch...    " + nl$
  27. sw$ = sw$ + nl$
  28. sw$ = sw$ + "  Oh the bitch is back. He took Dav's  " + nl$
  29. sw$ = sw$ + nl$
  30. sw$ = sw$ + "  and Mark's code and created a hack.  " + nl$
  31. sw$ = sw$ + nl$
  32. sw$ = sw$ + "  I'm a bitch I'm a bitch 'cause I'm   " + nl$
  33. sw$ = sw$ + nl$
  34. sw$ = sw$ + " better than you. It's the way that I  " + nl$
  35. sw$ = sw$ + nl$
  36. sw$ = sw$ + " code and the way I WOOOHOOO! da da da."
  37. LOCATE 20, 1
  38. PRINT sw$
  39.  
  41.  
  42. cx = _WIDTH / 2
  43. power = 1024 'TO 1 STEP -1
  44. x = (_HEIGHT - 20) ^ (1 / power)
  45. dy = 1 '256 pixel height / 50 blocks across
  46. FOR y = -840 TO -270
  47.     CLS
  48.     FOR i = 0 TO power - 1
  49.         _PUTIMAGE (cx - .75 * x ^ i, 10 + x ^ i)-(cx + .75 * x ^ i, 10 + x ^ (i + 1)), swt&, 0, (0, y + dy * i)-(319, y + dy * (i + 1))
  50.     NEXT
  51.     _DISPLAY
  52.     _LIMIT 15
  54. COLOR 0, 0
  57.  
  58. SUB TriCopy
  59.     FOR i%% = 0 TO 100
  60.         _MAPTRIANGLE (0 + i%% * 2, 0)-(0 + i%% * 2, 400)-(1 + i%% * 2, 400)TO(500, 0)-(400 + i%% * 2, 400)-(401 + i%% * 2, 400)
  61.     NEXT i%%
  63.  

Pete
Title: Re: Little space background for games
Post by: FellippeHeitor on October 02, 2021, 01:29:33 am
🤣👠
Title: Re: Little space background for games
Post by: Qwerkey on October 02, 2021, 05:30:05 am
@Pete  Tee-hee!
Title: Re: Little space background for games
Post by: Dav on October 02, 2021, 07:59:31 am
Hey @Pete, I can see what that should do, but for some reason it won't run on my PC. As soon as it starts it crashes everytime.  I don't see a reason for it in the code.  I guess Marvin did it?

- Dav

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Little space background for games
Post by: Dav on October 02, 2021, 08:03:17 am
Ok, it appears my PC doesn't like line #49:

Code: QB64: [Select]
  1.  _PUTIMAGE (cx - .75 * x ^ i, 10 + x ^ i)-(cx + .75 * x ^ i, 10 + x ^ (i + 1)), swt&, 0, (0, y + dy * i)-(319, y + dy * (i + 1))

Don't feel bad, my PC doesn't like me sometimes either.  I'll tinker around later today with it when I get back picking apples.

- Dav
Title: Re: Little space background for games
Post by: johnno56 on October 02, 2021, 08:28:21 am
Dav,

Cool background. Nicely done!

J
Title: Re: Little space background for games
Post by: johnno56 on October 02, 2021, 08:37:11 am
Pete,

Did not work for me either... But I did fix it... for me anyway... Problem with line #49. My machine did not like ".75"... Changed it to "0.75" and it ran like a charm... Fascinating... Seems to be a parody of an Elton John song... Not a fan... The effect is quite good. Nicely done!

J
Title: Re: Little space background for games
Post by: bplus on October 02, 2021, 09:36:14 am
Modified
Code: QB64: [Select]
  1. Screen _NewImage(800, 700, 32)
  3. _ScreenMove 300, 20
  4.  
  6. swt& = _NewImage(320, 500, 32)
  7. _Dest swt&
  8. Color _RGB32(0, 180, 0), 0
  9. nl$ = Chr$(10)
  10. sw$ = "     Oh the bitch... Oh the bitch...    " + nl$
  11. sw$ = sw$ + nl$
  12. sw$ = sw$ + "  Oh the bitch is back. He took Dav's  " + nl$
  13. sw$ = sw$ + nl$
  14. sw$ = sw$ + "  and Mark's code and created a hack.  " + nl$
  15. sw$ = sw$ + nl$
  16. sw$ = sw$ + "  I'm a bitch I'm a bitch 'cause I'm   " + nl$
  17. sw$ = sw$ + nl$
  18. sw$ = sw$ + " better than you. It's the way that I  " + nl$
  19. sw$ = sw$ + nl$
  20. sw$ = sw$ + " code and the way I WOOOHOOO! da da da."
  21. Locate 20, 1
  22. Print sw$
  23.  
  24. bg& = _NewImage(800, 700, 32)
  25. _Dest bg&
  26.  
  27. For x = 1 To 100000
  28.     PSet (Rnd * 800, Rnd * 700), _RGBA(0, 0, Rnd * 255, Rnd * 255)
  30.  
  31. 'faded boxes
  32. For i = 1 To 5000
  33.     x = Rnd * 800: y = Rnd * 700
  34.     Line (x, y)-(x + Rnd * 100, y + Rnd * 50), _RGBA(0, 0, Rnd * 128, Rnd * 25), BF
  36.  
  37. 'add a few stars
  38. For i = 1 To 1000
  39.     x = Rnd * 800: y = Rnd * 700
  40.     Line (x, y)-(x + Rnd * 3, y + Rnd * 3), _RGBA(192, 192, 255, Rnd * 150), BF
  42.  
  44.  
  45. cx = _Width / 2
  46. power = 1024 'TO 1 STEP -1
  47. x = (_Height - 20) ^ (1 / power)
  48. dy = 1 '256 pixel height / 50 blocks across
  49. t = 1
  50. For y = -840 To -270
  51.     Cls
  52.     _PutImage , bg&, 0
  53.  
  54.  
  55.     '=== add space plasma =========
  56.  
  57.     For xx = 0 To _Width Step 3
  58.         For yy = 0 To _Height Step 3
  59.             b = Sin(xx / (_Width / 2) + t + yy / (_Height / 2))
  60.             b = b * (Sin(1.1 * t) * (_Height / 2) - yy + (_Height / 2))
  61.             PSet (xx, yy), _RGB32(b / 3, 0, b, Rnd * 85 + 30)
  62.         Next: t = t + .004
  63.     Next
  64.     '===============================
  65.  
  66.  
  67.  
  68.  
  69.     For i = 0 To power - 1
  70.         _PutImage (cx - 0.75 * x ^ i, 10 + x ^ i)-(cx + 0.75 * x ^ i, 10 + x ^ (i + 1)), swt&, 0, (0, y + dy * i)-(319, y + dy * (i + 1))
  71.     Next
  72.     _Display
  73.     _Limit 15
  75. Color 0, 0
  78.  
  79. Sub TriCopy
  80.     For i%% = 0 To 100
  81.         _MapTriangle (0 + i%% * 2, 0)-(0 + i%% * 2, 400)-(1 + i%% * 2, 400)To(500, 0)-(400 + i%% * 2, 400)-(401 + i%% * 2, 400)
  82.     Next i%%
  84.  
  85.  
  86.  
Title: Re: Little space background for games
Post by: johnno56 on October 02, 2021, 10:17:31 am
Cool...
Title: Re: Little space background for games
Post by: Pete on October 02, 2021, 12:24:36 pm
Quote from: johnno56 on October 02, 2021, 08:37:11 am
Pete,

Did not work for me either... But I did fix it... for me anyway... Problem with line #49. My machine did not like ".75"... Changed it to "0.75" and it ran like a charm... Fascinating... Seems to be a parody of an Elton John song... Not a fan... The effect is quite good. Nicely done!

J

@johnno56 The Star Wars lettering effect is Mark's (bplus's) code, and I may have used an earlier release of it, which he probably modified later. I then merged Dav's and Mark's code, together, with just a couple of minor modifications, and substituted with my lyrics. You'd have to been in another thread to get the inside joke about the parody. Anyway, I had a couple of crashes when I was working with it, too, but I couldn't pin them down. By the time I was finished and posted, it ran flawlessly, several times on my Win-10 64-bit laptop. I read some fixes here, your change .75 to 0.75 one, and I see Mark also posted an update, so maybe it is stable now.

I thought when Mark created this effect I made some Star Trek parody of it, but I can't seem to find it on the forum. Maybe I posted it on QBF and saved it on another computer. Honestly, Mark's Star Wars finished version was amazing. It looked every bit as good as the movie intro, without having to suffer through the movie. Can you tell I'm a Trekkie?

Pete
Title: Re: Little space background for games
Post by: Pete on October 02, 2021, 01:08:56 pm
Quote from: bplus on October 02, 2021, 09:36:14 am
Modified

Mark, that one crashes on my system near the end. It almost makes it to the end of the for/next loop, and then locks up while displaying the windows spinning lag indicator, and then crashes, meaning it just vanishes from the screen.

WOW though. That's what I was envisioning, but I couldn't figure out the transparent lettering background or how to get Dav's code to take up the whole screen. Since in comedy, timing is everything, I didn't have the luxury of taking a crash course in graphics last night. Very cool to see what I would have wanted was possible!

Pete
Title: Re: Little space background for games
Post by: Dav on October 02, 2021, 04:24:31 pm
Wish I could see it run - crashes at the beginning for me still.  I'm trying to get it going...

- Dav
Title: Re: Little space background for games
Post by: bplus on October 02, 2021, 04:51:06 pm
Quote from: Pete on October 02, 2021, 01:08:56 pm
Mark, that one crashes on my system near the end. It almost makes it to the end of the for/next loop, and then locks up while displaying the windows spinning lag indicator, and then crashes, meaning it just vanishes from the screen.

WOW though. That's what I was envisioning, but I couldn't figure out the transparent lettering background or how to get Dav's code to take up the whole screen. Since in comedy, timing is everything, I didn't have the luxury of taking a crash course in graphics last night. Very cool to see what I would have wanted was possible!

Pete

Ah I see, just at the end, fixed?: (probably not for Dav)

Code: QB64: [Select]
  1. Screen _NewImage(800, 700, 32)
  3. _ScreenMove 300, 20
  4.  
  6. swt& = _NewImage(320, 700, 32)
  7. _Dest swt&
  8. Color _RGB32(0, 180, 0), 0
  9. nl$ = Chr$(10)
  10. sw$ = "     Oh the bitch... Oh the bitch...    " + nl$
  11. sw$ = sw$ + nl$
  12. sw$ = sw$ + "  Oh the bitch is back. He took Dav's  " + nl$
  13. sw$ = sw$ + nl$
  14. sw$ = sw$ + "  and Mark's code and created a hack.  " + nl$
  15. sw$ = sw$ + nl$
  16. sw$ = sw$ + "  I'm a bitch I'm a bitch 'cause I'm   " + nl$
  17. sw$ = sw$ + nl$
  18. sw$ = sw$ + " better than you. It's the way that I  " + nl$
  19. sw$ = sw$ + nl$
  20. sw$ = sw$ + " code and the way I WOOOHOOO! da da da."
  21. Locate 20, 1
  22. Print sw$
  23.  
  24. bg& = _NewImage(800, 700, 32)
  25. _Dest bg&
  26.  
  27. For x = 1 To 100000
  28.     PSet (Rnd * 800, Rnd * 700), _RGBA(0, 0, Rnd * 255, Rnd * 255)
  30.  
  31. 'faded boxes
  32. For i = 1 To 5000
  33.     x = Rnd * 800: y = Rnd * 700
  34.     Line (x, y)-(x + Rnd * 100, y + Rnd * 50), _RGBA(0, 0, Rnd * 128, Rnd * 25), BF
  36.  
  37. 'add a few stars
  38. For i = 1 To 1000
  39.     x = Rnd * 800: y = Rnd * 700
  40.     Line (x, y)-(x + Rnd * 3, y + Rnd * 3), _RGBA(192, 192, 255, Rnd * 150), BF
  42.  
  44.  
  45. cx = _Width / 2
  46. power = 1024 'TO 1 STEP -1
  47. x = (_Height - 20) ^ (1 / power)
  48. dy = 1 '256 pixel height / 50 blocks across
  49. t = 1
  50. For y = -840 To -270
  51.     Cls
  52.     _PutImage , bg&, 0
  53.  
  54.  
  55.     '=== add space plasma =========
  56.  
  57.     For xx = 0 To _Width Step 3
  58.         For yy = 0 To _Height Step 3
  59.             b = Sin(xx / (_Width / 2) + t + yy / (_Height / 2))
  60.             b = b * (Sin(1.1 * t) * (_Height / 2) - yy + (_Height / 2))
  61.             PSet (xx, yy), _RGB32(b / 3, 0, b, Rnd * 85 + 30)
  62.         Next: t = t + .004
  63.     Next
  64.     '===============================
  65.  
  66.  
  67.  
  68.  
  69.     For i = 0 To power - 1
  70.         _PutImage (cx - 0.75 * x ^ i, 10 + x ^ i)-(cx + 0.75 * x ^ i, 10 + x ^ (i + 1)), swt&, 0, (0, y + dy * i)-(319, y + dy * (i + 1))
  71.     Next
  72.     _Display
  73.     _Limit 15
  75. Color 0, 0
  78.  
  79. Sub TriCopy
  80.     For i%% = 0 To 100
  81.         _MapTriangle (0 + i%% * 2, 0)-(0 + i%% * 2, 400)-(1 + i%% * 2, 400)To(500, 0)-(400 + i%% * 2, 400)-(401 + i%% * 2, 400)
  82.     Next i%%
  84.  
  85.  
Title: Re: Little space background for games
Post by: bplus on October 02, 2021, 04:53:41 pm
The blackout at the end is crappy too, should just Sleep after _Delay but not going to modify.
Title: Re: Little space background for games
Post by: Pete on October 03, 2021, 12:14:21 am
Yep, that fixed the end crash. Now if we could just figure out why the forum keeps crashing. It was down for a couple of hours earlier today, again. I didn't even say, mennonite, this time.

Pete
Title: Re: Little space background for games
Post by: johnno56 on October 03, 2021, 04:00:53 am
Pete

You probably already have figured out that, I too, am a 'Trekkie'. I am not a 'fan' of, the other franchise that will not be named, but it's a Sci-Fi and merits watching, no matter how lame or cheesy it is... lol

Live long a prosper... or as Worf would say, "Qapla'"
Text Only | Text with Attachments