Re: Starfield, or wanna-Be Starfield

[Pete]

Effect seems off. Pattern too cluttered and asynchronous speeds.

Pete

[johnno56]

Sure, I have seen many version of this type of demo, but I never get tired of watching it... I tweaked it to 100 stars and a speed of 2. I found those setting comfortable for me... Nice job [banned user]...

[Pete]

Are you outta your Vulcan mind, johnno? Oh wait, that actually did make it a lot better. I re-tried it with 200 stars, and I used a speed of three. I was surprised, but even bringing the speed up to 20 ruins the effect for me, but 3 looks great and the star reduction from 500 to 200 took care of the clutter. Thanks for the tweaked variable amounts.

Pete

[johnno56]

Based on both your and my results, logic would dictate that reducing the number of stars and their respective speeds, would produce a more favourable outcome.

Logic is the beginning of wisdom....

[bplus]

And replace this line:

Code: QB64: [Select]

1. LINE (0, 0)-(ScreenX - 1, ScreenY - 1), _RGB(0, 0, 0), BF

with this:

Code: QB64: [Select]

1. LINE (0, 0)-(ScreenX - 1, ScreenY - 1), _RGBA32(0, 0, 0, 60), BF

[johnno56]

Fascinating...

[Pete]

It's just Mark's warp sense of humor.

Pete

[Aurel]

i like

more favourable outcome.

he he

[Pete]

Well, just me screwing around with code someone else posted, but I did enjoy putting some helm controls in it...

Press w to go to warp, i to return to impulse, and if at warp, use arrow up and down keys to increase/decrease speed. Use s for all STOP and any other key to restart. Esc to terminate. It looks nice if Alt+Enter is used to run it full screen.

@[banned user], I love the gear effect it seems to have when starting in impulse. If I were to tweak it a bit more, I'd try to add some increasing/decreasing red-blue faint color to the star trails at warp speed, and gear the increase and decrease of speeds over time.

I still don't have any projects of my own I feel like coding currently, but this was fun to fiddle around with between other projects today.

Code: QB64: [Select]

1. _TITLE "Starfield"
2.  
3. DEFINT A-Z
4.  
5. TYPE Star
6.     r AS SINGLE
7.  
8.     x AS INTEGER
9.     y AS INTEGER
10.     z AS INTEGER
11.  
12.     x2 AS INTEGER
13.     y2 AS INTEGER
14.  
15.     speed AS INTEGER
16. END TYPE
17.  
18. DIM SHARED Stars(300) AS Star, speed, numStars
19. numStars = 200
20.  
21. speed = 1
22.  
23. CONST ScreenX = 800
24. CONST ScreenY = 600
25. CONST cx = ScreenX \ 2
26. CONST cy = ScreenY \ 2
27.  
28. SCREEN _NEWIMAGE(ScreenX, ScreenY, 32)
29.  
30. FOR Counter = 0 TO numStars - 1
31.     InitStars (Counter)
32. NEXT
33.  
34. DO
35.     _LIMIT 30
36.     IF warp% THEN LOCATE 1, 1: PRINT "Warp"; warp%; "      ";
37.     b$ = INKEY$
38.     IF b$ = CHR$(27) THEN EXIT DO
39.     IF b$ = CHR$(0) + "H" AND warp% THEN b$ = "W"
40.     IF UCASE$(b$) = "W" AND warp% < 10 THEN
41.         warp% = warp% + 1: speed = speed + 2: Stars(Counter).speed = speed: numStars = numStars + speed / 2
42.     END IF
43.     IF UCASE$(b$) = "I" THEN warp% = 0: speed = 1: Stars(Counter).speed = speed
44.     IF warp% THEN
45.         IF b$ = CHR$(0) + "P" AND warp% > 1 THEN
46.             warp% = warp% - 1: speed = speed - 2: Stars(Counter).speed = speed: numStars = numStars - speed / 2
47.         END IF
48.         LINE (0, 0)-(ScreenX - 1, ScreenY - 1), _RGBA32(0, 0, 0, 60), BF
49.     ELSE
50.         IF UCASE$(b$) = "S" THEN SLEEP: b$ = INKEY$: IF b$ = CHR$(27) THEN SYSTEM ELSE _DELAY .3
51.         LINE (0, 0)-(ScreenX - 1, ScreenY - 1), _RGB(0, 0, 0), BF
52.     END IF
53.  
54.     FOR Counter = 0 TO numStars - 1
55.         IF warp% = 0 THEN LOCATE 1, 1: PRINT "Impulse Power";
56.         Stars(Counter).z = Stars(Counter).z - Stars(Counter).speed
57.         IF Stars(Counter).z < 1 THEN InitStars (Counter)
58.  
59.         Stars(Counter).x2 = 64 * (Stars(Counter).x / Stars(Counter).z)
60.         Stars(Counter).y2 = 64 * (Stars(Counter).y / Stars(Counter).z)
61.  
62.         CIRCLE (cx + Stars(Counter).x2, cy + Stars(Counter).y2), Stars(Counter).r, _RGB(255, 255, 255)
63.         PAINT (cx + Stars(Counter).x2, cy + Stars(Counter).y2), _RGB(255, 255, 255), _RGB(255, 255, 255)
64.  
65.         IF Stars(Counter).z < 125 THEN Stars(Counter).r = Stars(Counter).r + 0.02
66.     NEXT
67.  
68.     _DISPLAY
69. LOOP
70. SYSTEM
71.  
72. SUB InitStars (Counter)
73. Stars(Counter).r = 1
74.  
75. Stars(Counter).x = INT(RND * ScreenX) - cx
76. Stars(Counter).y = INT(RND * ScreenY) - cy
77. Stars(Counter).z = INT(RND * numStars) + 1
78.  
79. Stars(Counter).speed = speed
80. END SUB
81.  

Pete