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

Author Topic: Starfield 2020 - December Version  (Read 6362 times)

0 Members and 1 Guest are viewing this topic.

This topic contains a post which is marked as Best Answer. Press here if you would like to see it.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Starfield 2020 - December Version
« on: December 07, 2020, 07:40:04 pm »
I don't believe I made one of these this year, but I know we made them last year. So I took my glowing snow idea and turned them into glowing stars. I also figured out how to start them not directly in the center like I did last year. Plus I used different sizes of stars. Feel free to use this on anything, or add anything, etc. I was mostly just goofing off. :)

Edit: I just changed the name of this to Starfield 2020 - December Version because I found an older Starfield 2020 that I made back in June.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1000, 800, 32)
  2. DIM starx(800), stary(800)
  3. DIM dx(800), dy(800)
  4. DIM sz(800)
  7. _TITLE "Starfield 2020 - Dec. Version - by SierraKen"
  8. speed = 1
  10.     _LIMIT 60
  11.     a$ = INKEY$
  12.     IF a$ = CHR$(27) THEN END
  13.     stars = INT(RND * 100) + 1
  14.     IF stars > 25 THEN
  15.         s = s + 1
  16.         IF s > 750 THEN s = 1
  17.         'Set starting position.
  18.         st = INT(RND * 360)
  19.         x = (SIN(st) * 30) + 500
  20.         y = (COS(st) * 30) + 400
  21.         starx(s) = x
  22.         stary(s) = y
  23.         'Set direction to move.
  24.         dx(s) = ((x - 500) / 30)
  25.         dy(s) = ((y - 400) / 30)
  26.         'Set size.
  27.         sz(s) = RND
  28.     END IF
  29.     IF yy > 640 THEN yy = 0
  30.     FOR t = 1 TO 750
  31.         stary(t) = stary(t) + dy(t)
  32.         starx(t) = starx(t) + dx(t)
  33.         cx = starx(t): cy = stary(t)
  34.         r = sz(t) + RND
  35.         c = _RGB32(255, 255, 255)
  36.         fillCircle cx, cy, r, c
  37.     NEXT t
  38.     _DISPLAY
  39.     CLS
  41.  
  42. 'from Steve Gold standard
  43. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  44.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  45.     DIM X AS INTEGER, Y AS INTEGER
  46.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  47.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  48.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  49.     WHILE X > Y
  50.         RadiusError = RadiusError + Y * 2 + 1
  51.         IF RadiusError >= 0 THEN
  52.             IF X <> Y + 1 THEN
  53.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  54.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  55.             END IF
  56.             X = X - 1
  57.             RadiusError = RadiusError - X * 2
  58.         END IF
  59.         Y = Y + 1
  60.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  61.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  62.     WEND
  64.  
« Last Edit: December 08, 2020, 12:13:03 am by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Starfield - December Version
« Reply #1 on: December 07, 2020, 11:52:57 pm »
I just found out that back in June I did a different Starfield 2020,  I will rename this one to "Starfield - December Version".
If you are interested to see the old one, click the link below.

https://www.qb64.org/forum/index.php?topic=2709.msg119278
« Last Edit: December 08, 2020, 12:07:53 am by SierraKen »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Starfield 2020 - December Version
« Reply #2 on: December 08, 2020, 12:12:19 am »
This is a nice one, it's labeled Starfield Simulation #2 [banned user] but looks like Fellippe's or Ashish procedures ie ' p5.js Functions

Code: QB64: [Select]
  1. _TITLE "Starfield Simulation"
  2.  
  7.  
  8. CreateCanvas 600, 600
  9. WINDOW (-Width, -Height)-(Width, Height)
  10.  
  11. ' Translate the Star Class into a UDT (User Defined Type)
  12. TYPE newStar
  13.     x AS SINGLE
  14.     y AS SINGLE
  15.  
  16.     z AS SINGLE
  17.     pz AS SINGLE
  19.  
  20. ' Define how many Stars
  21. DIM SHARED starCount AS INTEGER
  22. starCount = 800
  23.  
  24. ' Setup the Stars
  25. DIM SHARED Stars(starCount) AS newStar
  26.  
  27. FOR i = 1 TO starCount
  28.     Stars(i).x = p5random(-Width, Width)
  29.     Stars(i).y = p5random(-Height, Height)
  30.  
  31.     Stars(i).z = p5random(0, Width)
  32.     Stars(i).pz = Stars(i).z
  34.  
  36. Speed = 5
  37.  
  39.     _LIMIT 60
  40.  
  41.     LINE (-_WIDTH, -_HEIGHT)-(Width - 1, Height - 1), _RGBA32(0, 0, 0, 30), BF
  42.  
  43.     FOR i = 1 TO starCount
  44.         Stars(i).z = Stars(i).z - Speed
  45.  
  46.         IF Stars(i).z < 1 THEN
  47.             Stars(i).x = p5random(-Width, Width)
  48.             Stars(i).y = p5random(-Width, Height)
  49.  
  50.             Stars(i).z = Width
  51.             Stars(i).pz = Stars(i).z
  52.         END IF
  53.  
  54.         sx = map(Stars(i).x / Stars(i).z, 0, 1, 0, Width)
  55.         sy = map(Stars(i).y / Stars(i).z, 0, 1, 0, Height)
  56.         CIRCLE (sx, sy), map(Stars(i).z, 0, Width, 2, 0)
  57.  
  58.         px = map(Stars(i).x / Stars(i).pz, 0, 1, 0, Width)
  59.         py = map(Stars(i).y / Stars(i).pz, 0, 1, 0, Height)
  60.         Stars(i).pz = Stars(i).z
  61.         LINE (px, py)-(sx, sy)
  62.     NEXT
  63.  
  64.     _DISPLAY
  65. LOOP UNTIL Done
  66.  
  67. ' p5.js Functions
  68. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  69.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  71.  
  72. FUNCTION p5random! (mn!, mx!)
  73.     IF mn! > mx! THEN
  74.         SWAP mn!, mx!
  75.     END IF
  76.  
  77.     p5random! = RND * (mx! - mn!) + mn!
  79.  
  80. SUB CreateCanvas (x AS INTEGER, y AS INTEGER)
  81.     ' Define the screen
  82.     Width = x
  83.     Height = y
  84.  
  85.     ' Center of the screen
  86.     CenterX = x \ 2
  87.     CenterY = y \ 2
  88.  
  89.     ' Create the screen
  90.     SCREEN _NEWIMAGE(Width, Height, 32)
  92.  
  93.  
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Starfield 2020 - December Version
« Reply #3 on: December 08, 2020, 12:23:58 am »
Woah! Thanks B+, I totally forgot about trails... hmm....

Here we go,  one with trails and a little bit smaller of a starting point circular area.
Thanks for the idea!


 
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1000, 800, 32)
  2. DIM starx(1000), stary(1000)
  3. DIM dx(1000), dy(1000)
  4. DIM sz(1000)
  7. _TITLE "Starfield 2020 - Dec. Version - by SierraKen"
  8. speed = 1
  10.     _LIMIT 100
  11.     a$ = INKEY$
  12.     IF a$ = CHR$(27) THEN END
  13.     stars = INT(RND * 100) + 1
  14.     IF stars > 25 THEN
  15.         s = s + 1
  16.         IF s > 950 THEN s = 1
  17.         'Set starting position.
  18.         st = INT(RND * 360)
  19.         x = (SIN(st) * 20) + 500
  20.         y = (COS(st) * 20) + 400
  21.         starx(s) = x
  22.         stary(s) = y
  23.         'Set direction to move.
  24.         dx(s) = ((x - 500) / 30)
  25.         dy(s) = ((y - 400) / 30)
  26.         'Set size.
  27.         sz(s) = RND
  28.     END IF
  29.     IF yy > 640 THEN yy = 0
  30.     FOR t = 1 TO 950
  31.         stary(t) = stary(t) + dy(t)
  32.         starx(t) = starx(t) + dx(t)
  33.         cx = starx(t): cy = stary(t)
  34.         r = sz(t) + RND
  35.         c = _RGB32(255, 255, 255)
  36.         fillCircle cx, cy, r, c
  37.     NEXT t
  38.     _DISPLAY
  39.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
  40.  
  42.  
  43. 'from Steve Gold standard
  44. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  45.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  46.     DIM X AS INTEGER, Y AS INTEGER
  47.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  48.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  49.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  50.     WHILE X > Y
  51.         RadiusError = RadiusError + Y * 2 + 1
  52.         IF RadiusError >= 0 THEN
  53.             IF X <> Y + 1 THEN
  54.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  55.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  56.             END IF
  57.             X = X - 1
  58.             RadiusError = RadiusError - X * 2
  59.         END IF
  60.         Y = Y + 1
  61.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  62.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  63.     WEND
  65.  

Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Starfield 2020 - December Version
« Reply #4 on: December 08, 2020, 12:28:51 am »
Ken can you get them to move faster as the approach the edge ie go faster and faster out from center. Plus start with stars scattered over the whole field.
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Starfield 2020 - December Version
« Reply #5 on: December 08, 2020, 01:22:48 am »
Star fields. You just gotta love 'em....
Logged
Logic is the beginning of wisdom.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Starfield 2020 - December Version
« Reply #6 on: December 08, 2020, 02:38:10 pm »
Great idea B+. I just did both of those. I made a countdown in the beginning of numbers counting down to 0 until it starts, which then shows the entire screen of stars. Then I also figured out how to make the stars go faster as they got further away from the center. Last night I tried to make it speed up and slow down with the up and down arrow keys, so I figured that out too today. If you want to learn how I did the speeds, look at the sp, warp, and speed() variables. Check it out! :)

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1000, 800, 32)
  2. DIM starx(1000), stary(1000)
  3. DIM dx(1000), dy(1000)
  4. DIM sz(1000)
  5. DIM speed(1000)
  8. _TITLE "Starfield 2020 - Dec. Version - by SierraKen - Use up and down arrow keys to control speed."
  9.  
  11.     _LIMIT 100
  12.     a$ = INKEY$
  13.     IF a$ = CHR$(27) THEN END
  14.     IF a$ = CHR$(0) + CHR$(72) THEN sp = sp + .0005: _TITLE "Warp: " + warp$
  15.     IF a$ = CHR$(0) + CHR$(80) THEN sp = sp - .0005: _TITLE "Warp: " + warp$
  16.     IF sp < 0 THEN sp = 0
  17.     IF sp > .1 THEN sp = .1
  18.     warp = (sp * 100) + 1
  19.     IF warp > 10 THEN warp = 10
  20.     warp$ = STR$(warp)
  21.     warp$ = LEFT$(warp$, 5)
  22.     stars = INT(RND * 100) + 1
  23.     IF stars > 25 THEN
  24.         start = start + 1
  25.         s = s + 1
  26.         IF s > 950 THEN s = 1
  27.         'Set starting position.
  28.         st = INT(RND * 360)
  29.         x = (SIN(st) * 20) + 500
  30.         y = (COS(st) * 20) + 400
  31.         starx(s) = x
  32.         stary(s) = y
  33.         'Set direction to move.
  34.         dx(s) = ((x - 500) / 30)
  35.         dy(s) = ((y - 400) / 30)
  36.         'Set size.
  37.         sz(s) = RND
  38.         'Set speed
  39.         speed(s) = 1
  40.     END IF
  41.     IF yy > 640 THEN yy = 0
  42.     FOR t = 1 TO 950
  43.         speed(t) = speed(t) * (1.01 + sp)
  44.         stary(t) = stary(t) + dy(t) * speed(t)
  45.         starx(t) = starx(t) + dx(t) * speed(t)
  46.         cx = starx(t): cy = stary(t)
  47.         r = sz(t) + RND
  48.         c = _RGB32(255, 255, 255)
  49.         IF start < 650 THEN
  50.             countdown = INT((650 - start) / 10)
  51.             c$ = STR$(countdown)
  52.             _PRINTSTRING (500, 400), c$
  53.             GOTO skip:
  54.         END IF
  55.         fillCircle cx, cy, r, c
  56.         skip:
  57.     NEXT t
  58.     _DISPLAY
  59.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
  60.  
  62.  
  63. 'from Steve Gold standard
  64. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  65.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  66.     DIM X AS INTEGER, Y AS INTEGER
  67.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  68.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  69.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  70.     WHILE X > Y
  71.         RadiusError = RadiusError + Y * 2 + 1
  72.         IF RadiusError >= 0 THEN
  73.             IF X <> Y + 1 THEN
  74.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  75.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  76.             END IF
  77.             X = X - 1
  78.             RadiusError = RadiusError - X * 2
  79.         END IF
  80.         Y = Y + 1
  81.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  82.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  83.     WEND
  85.  
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Starfield 2020 - December Version
« Reply #7 on: December 08, 2020, 03:44:28 pm »
I just added W and S keys to it B+. I really like the new look now, thanks again.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1000, 800, 32)
  2. DIM starx(1000), stary(1000)
  3. DIM dx(1000), dy(1000)
  4. DIM sz(1000)
  5. DIM speed(1000)
  8. _TITLE "Starfield 2020 - Dec. Version - by SierraKen - Use up and down arrow keys (or W and S keys) to control speed."
  9.  
  11.     _LIMIT 100
  12.     a$ = INKEY$
  13.     IF a$ = CHR$(27) THEN END
  14.     IF a$ = CHR$(0) + CHR$(72) OR a$ = "w" OR a$ = "W" THEN sp = sp + .0005: _TITLE "Warp: " + warp$
  15.     IF a$ = CHR$(0) + CHR$(80) OR a$ = "s" OR a$ = "S" THEN sp = sp - .0005: _TITLE "Warp: " + warp$
  16.     IF sp < 0 THEN sp = 0
  17.     IF sp > .1 THEN sp = .1
  18.     warp = (sp * 100) + 1
  19.     IF warp > 10 THEN warp = 10
  20.     warp$ = STR$(warp)
  21.     warp$ = LEFT$(warp$, 5)
  22.     stars = INT(RND * 100) + 1
  23.     IF stars > 25 THEN
  24.         start = start + 1
  25.         s = s + 1
  26.         IF s > 950 THEN s = 1
  27.         'Set starting position.
  28.         st = INT(RND * 360)
  29.         x = (SIN(st) * 20) + 500
  30.         y = (COS(st) * 20) + 400
  31.         starx(s) = x
  32.         stary(s) = y
  33.         'Set direction to move.
  34.         dx(s) = ((x - 500) / 30)
  35.         dy(s) = ((y - 400) / 30)
  36.         'Set size.
  37.         sz(s) = RND
  38.         'Set speed
  39.         speed(s) = 1
  40.     END IF
  41.     IF yy > 640 THEN yy = 0
  42.     FOR t = 1 TO 950
  43.         speed(t) = speed(t) * (1.01 + sp)
  44.         stary(t) = stary(t) + dy(t) * speed(t)
  45.         starx(t) = starx(t) + dx(t) * speed(t)
  46.         cx = starx(t): cy = stary(t)
  47.         r = sz(t) + RND
  48.         c = _RGB32(255, 255, 255)
  49.         IF start < 650 THEN
  50.             countdown = INT((650 - start) / 10)
  51.             c$ = STR$(countdown)
  52.             _PRINTSTRING (500, 400), c$
  53.             GOTO skip:
  54.         END IF
  55.         fillCircle cx, cy, r, c
  56.         skip:
  57.     NEXT t
  58.     _DISPLAY
  59.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
  60.  
  62.  
  63. 'from Steve Gold standard
  64. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  65.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  66.     DIM X AS INTEGER, Y AS INTEGER
  67.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  68.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  69.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  70.     WHILE X > Y
  71.         RadiusError = RadiusError + Y * 2 + 1
  72.         IF RadiusError >= 0 THEN
  73.             IF X <> Y + 1 THEN
  74.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  75.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  76.             END IF
  77.             X = X - 1
  78.             RadiusError = RadiusError - X * 2
  79.         END IF
  80.         Y = Y + 1
  81.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  82.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  83.     WEND
  85.  
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Starfield 2020 - December Version
« Reply #8 on: December 08, 2020, 05:00:26 pm »
I was able to do away with the countdown completely by making a random location on the screen (except the very center) for every new star. There's no more circular pattern in the center and now it looks more realistic. :)

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1000, 800, 32)
  2. DIM starx(1000), stary(1000)
  3. DIM dx(1000), dy(1000)
  4. DIM sz(1000)
  5. DIM speed(1000)
  8. _TITLE "Starfield 2020 - Dec. Version - by SierraKen - Use up and down arrow keys (or W and S keys) to control speed."
  9.  
  11.     _LIMIT 100
  12.     a$ = INKEY$
  13.     IF a$ = CHR$(27) THEN END
  14.     IF a$ = CHR$(0) + CHR$(72) OR a$ = "w" OR a$ = "W" THEN sp = sp + .0005: _TITLE "Warp: " + warp$
  15.     IF a$ = CHR$(0) + CHR$(80) OR a$ = "s" OR a$ = "S" THEN sp = sp - .0005: _TITLE "Warp: " + warp$
  16.     IF sp < 0 THEN sp = 0
  17.     IF sp > .1 THEN sp = .1
  18.     warp = (sp * 100) + 1
  19.     IF warp > 10 THEN warp = 10
  20.     warp$ = STR$(warp)
  21.     warp$ = LEFT$(warp$, 5)
  22.     stars = INT(RND * 100) + 1
  23.     IF stars > 25 THEN
  24.         s = s + 1
  25.         IF s > 950 THEN s = 1
  26.         'Set starting position.
  27.         startx = RND * 490
  28.         starty = RND * 390
  29.         st = INT(RND * 360)
  30.         x = (SIN(st) * startx) + 500
  31.         y = (COS(st) * starty) + 400
  32.         starx(s) = x
  33.         stary(s) = y
  34.         'Set direction to move.
  35.         dx(s) = ((x - 500) / 30)
  36.         dy(s) = ((y - 400) / 30)
  37.         'Set size.
  38.         sz(s) = RND
  39.         'Set speed
  40.         speed(s) = .5
  41.     END IF
  42.     IF yy > 640 THEN yy = 0
  43.     FOR t = 1 TO 950
  44.         speed(t) = speed(t) * (1.005 + sp)
  45.         stary(t) = stary(t) + dy(t) * speed(t)
  46.         starx(t) = starx(t) + dx(t) * speed(t)
  47.         cx = starx(t): cy = stary(t)
  48.         r = sz(t) + RND
  49.         c = _RGB32(255, 255, 255)
  50.         fillCircle cx, cy, r, c
  51.         'skip:
  52.     NEXT t
  53.     _DISPLAY
  54.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
  55.  
  57.  
  58. 'from Steve Gold standard
  59. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  60.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  61.     DIM X AS INTEGER, Y AS INTEGER
  62.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  63.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  64.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  65.     WHILE X > Y
  66.         RadiusError = RadiusError + Y * 2 + 1
  67.         IF RadiusError >= 0 THEN
  68.             IF X <> Y + 1 THEN
  69.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  70.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  71.             END IF
  72.             X = X - 1
  73.             RadiusError = RadiusError - X * 2
  74.         END IF
  75.         Y = Y + 1
  76.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  77.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  78.     WEND
  80.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Starfield 2020 - December Version
« Reply #9 on: December 08, 2020, 05:03:58 pm »
Coming along nicely! :)
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Starfield 2020 - December Version
« Reply #10 on: December 08, 2020, 05:33:36 pm »
:) I just added _FULLSCREEN mode off and on using the Space Bar. I did it because I'm going to try and make a YouTube video of it. Full Screen makes it show really awesome.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1000, 800, 32)
  2. DIM starx(1000), stary(1000)
  3. DIM dx(1000), dy(1000)
  4. DIM sz(1000)
  5. DIM speed(1000)
  8. _TITLE "Starfield 2020 - Dec. Ver. by SierraKen - Up and down arrow keys (or W and S keys) for speed. Space Bar switches back and forth to Full Screen. Esc to quit."
  9.  
  11.     _LIMIT 100
  12.     a$ = INKEY$
  13.     IF a$ = CHR$(27) THEN END
  14.     IF a$ = CHR$(0) + CHR$(72) OR a$ = "w" OR a$ = "W" THEN sp = sp + .0005: _TITLE "Warp: " + warp$
  15.     IF a$ = CHR$(0) + CHR$(80) OR a$ = "s" OR a$ = "S" THEN sp = sp - .0005: _TITLE "Warp: " + warp$
  16.     IF a$ = " " THEN f = f + 1
  17.     IF f = 1 THEN _FULLSCREEN
  18.     IF f = 2 THEN _FULLSCREEN OFF: f = 0
  19.     IF sp < 0 THEN sp = 0
  20.     IF sp > .1 THEN sp = .1
  21.     warp = (sp * 100) + 1
  22.     IF warp > 10 THEN warp = 10
  23.     warp$ = STR$(warp)
  24.     warp$ = LEFT$(warp$, 5)
  25.     stars = INT(RND * 100) + 1
  26.     IF stars > 25 THEN
  27.         s = s + 1
  28.         IF s > 950 THEN s = 1
  29.         'Set starting position.
  30.         startx = RND * 490
  31.         starty = RND * 390
  32.         st = INT(RND * 360)
  33.         x = (SIN(st) * startx) + 500
  34.         y = (COS(st) * starty) + 400
  35.         starx(s) = x
  36.         stary(s) = y
  37.         'Set direction to move.
  38.         dx(s) = ((x - 500) / 30)
  39.         dy(s) = ((y - 400) / 30)
  40.         'Set size.
  41.         sz(s) = RND
  42.         'Set speed
  43.         speed(s) = .5
  44.     END IF
  45.     IF yy > 640 THEN yy = 0
  46.     FOR t = 1 TO 950
  47.         speed(t) = speed(t) * (1.005 + sp)
  48.         stary(t) = stary(t) + dy(t) * speed(t)
  49.         starx(t) = starx(t) + dx(t) * speed(t)
  50.         cx = starx(t): cy = stary(t)
  51.         r = sz(t) + RND
  52.         c = _RGB32(255, 255, 255)
  53.         fillCircle cx, cy, r, c
  54.         'skip:
  55.     NEXT t
  56.     _DISPLAY
  57.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
  58.  
  60.  
  61. 'from Steve Gold standard
  62. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  63.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  64.     DIM X AS INTEGER, Y AS INTEGER
  65.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  66.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  67.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  68.     WHILE X > Y
  69.         RadiusError = RadiusError + Y * 2 + 1
  70.         IF RadiusError >= 0 THEN
  71.             IF X <> Y + 1 THEN
  72.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  73.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  74.             END IF
  75.             X = X - 1
  76.             RadiusError = RadiusError - X * 2
  77.         END IF
  78.         Y = Y + 1
  79.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  80.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  81.     WEND
  83.  

Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Starfield 2020 - December Version
« Reply #11 on: December 08, 2020, 06:12:59 pm »
Here is the YouTube of it I just made. I speed up and then slow back down. The video is 1 minute and 10 seconds long.

Logged
Marked as best answer by SierraKen on December 11, 2020, 08:50:05 am

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Starfield 2020 - December Version
« Reply #12 on: December 11, 2020, 01:49:51 pm »
I found a way to make this look even better. Check it out.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1000, 800, 32)
  2. DIM starx(1000), stary(1000)
  3. DIM dx(1000), dy(1000)
  4. DIM sz(1000)
  5. DIM speed(1000)
  8. _TITLE "Starfield 2020 - Dec. Ver. by SierraKen - Up and down arrow keys (or W and S keys) for speed. Space Bar switches back and forth to Full Screen. Esc to quit."
  9.  
  11.     _LIMIT 100
  12.     a$ = INKEY$
  13.     IF a$ = CHR$(27) THEN END
  14.     IF a$ = CHR$(0) + CHR$(72) OR a$ = "w" OR a$ = "W" THEN sp = sp + .0005: _TITLE "Warp: " + warp$
  15.     IF a$ = CHR$(0) + CHR$(80) OR a$ = "s" OR a$ = "S" THEN sp = sp - .0005: _TITLE "Warp: " + warp$
  16.     IF a$ = " " THEN f = f + 1
  17.     IF f = 1 THEN _FULLSCREEN
  18.     IF f = 2 THEN _FULLSCREEN OFF: f = 0
  19.     IF sp < 0 THEN sp = 0
  20.     IF sp > .1 THEN sp = .1
  21.     warp = (sp * 100) + 1
  22.     IF warp > 10 THEN warp = 10
  23.     warp$ = STR$(warp)
  24.     warp$ = LEFT$(warp$, 5)
  25.     stars = INT(RND * 100) + 1
  26.     IF stars > 25 THEN
  27.         s = s + 1
  28.         IF s > 950 THEN s = 1
  29.         'Set starting position.
  30.         startx = RND * 490
  31.         starty = RND * 390
  32.         st = INT(RND * 360)
  33.         x = (SIN(st) * startx) + 500
  34.         y = (COS(st) * starty) + 400
  35.         starx(s) = x
  36.         stary(s) = y
  37.         'Set direction to move.
  38.         dx(s) = ((x - 500) / 30)
  39.         dy(s) = ((y - 400) / 30)
  40.         'Set size.
  41.         sz(s) = RND
  42.         'Set speed
  43.         speed(s) = .1
  44.     END IF
  45.     IF yy > 640 THEN yy = 0
  46.     FOR t = 1 TO 950
  47.         speed(t) = speed(t) * (1.05 + sp)
  48.         stary(t) = stary(t) + dy(t) * speed(t)
  49.         starx(t) = starx(t) + dx(t) * speed(t)
  50.         cx = starx(t): cy = stary(t)
  51.         r = sz(t) + .5
  52.         c = _RGB32(255, 255, 255)
  53.         fillCircle cx, cy, r, c
  54.         'skip:
  55.     NEXT t
  56.     _DISPLAY
  57.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 20), BF
  58.  
  60.  
  61. 'from Steve Gold standard
  62. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  63.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  64.     DIM X AS INTEGER, Y AS INTEGER
  65.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  66.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  67.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  68.     WHILE X > Y
  69.         RadiusError = RadiusError + Y * 2 + 1
  70.         IF RadiusError >= 0 THEN
  71.             IF X <> Y + 1 THEN
  72.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  73.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  74.             END IF
  75.             X = X - 1
  76.             RadiusError = RadiusError - X * 2
  77.         END IF
  78.         Y = Y + 1
  79.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  80.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  81.     WEND
  83.  
  84.  
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Starfield 2020 - December Version
« Reply #13 on: December 11, 2020, 02:08:47 pm »
Hi, you made it very nice. Am I guessing this is some preparation for a program to celebrate the new year?
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Starfield 2020 - December Version
« Reply #14 on: December 11, 2020, 04:50:21 pm »
Petr, I didn't think of any of that, except I do have an idea for this... but we'll see... :)
Logged
Pages: [1] 2   Go Up
« previous next »