« previous next »
Pages: [1] 2   Go Down

Author Topic: Little space background for games  (Read 5467 times)

0 Members and 1 Guest are viewing this topic.

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Little space background for games
« 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.  
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Little space background for games
« Reply #1 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
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

FellippeHeitor

  • Guest
Re: Little space background for games
« Reply #2 on: October 02, 2021, 01:29:33 am »
🤣👠
Logged

Offline Qwerkey

  • Forum Resident
  • Posts: 755
    • View Profile
Re: Little space background for games
« Reply #3 on: October 02, 2021, 05:30:05 am »
@Pete  Tee-hee!
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Little space background for games
« Reply #4 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

 
spacecrash.jpg
Logged

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Little space background for games
« Reply #5 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
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Little space background for games
« Reply #6 on: October 02, 2021, 08:28:21 am »
Dav,

Cool background. Nicely done!

J
Logged
Logic is the beginning of wisdom.

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Little space background for games
« Reply #7 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
Logged
Logic is the beginning of wisdom.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Little space background for games
« Reply #8 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.  
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Little space background for games
« Reply #9 on: October 02, 2021, 10:17:31 am »
Cool...
Logged
Logic is the beginning of wisdom.

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Little space background for games
« Reply #10 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
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Little space background for games
« Reply #11 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
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Little space background for games
« Reply #12 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
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Little space background for games
« Reply #13 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.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Little space background for games
« Reply #14 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.
Logged
Pages: [1] 2   Go Up
« previous next »