Star Parallax Screensavers (Vertical / Horizontal)

[CloudZimmermann]

Programs: Star Parallax Screensavers (Vertical / Horizontal)
Created: May 16th, 2020
Creator: Cloud Zimmermann

Code: QB64: [Select]

1. ' Program: Star Parallax Screensaver (Vertical)
2. ' Created: May 16th, 2020
3. ' Creator: Cloud Zimmermann
4.  
5. SCREEN 7, 1, 0, 1
6. RANDOMIZE TIMER
7.  
8. CONST screenWidth% = 320
9. CONST screenHeight% = 200
10. CONST count% = 200
11. DIM SHARED stars%(count%, 5)
12.  
13. FOR i% = 1 TO count% - 1
14.     CALL resetStar(i%, 1)
15. NEXT i%
16.  
17. WHILE INKEY$ = ""
18.     CLS
19.     FOR i% = 1 TO count% - 1
20.         IF stars%(i%, 2) > screenHeight% THEN
21.             CALL resetStar(i%, 0)
22.         ELSE
23.             stars%(i%, 2) = stars%(i%, 2) + stars%(i%, 3)
24.         END IF
25.         PSET (stars%(i%, 1), stars%(i%, 2)), stars%(i%, 4)
26.     NEXT i%
27.     PCOPY 0, 1
28.     _LIMIT 60
29. WEND
30.  
31. SUB resetStar (starSelected%, init%)
32.     IF init% = 1 THEN
33.         stars%(starSelected%, 2) = INT(RND * screenHeight%) + 1
34.     ELSE
35.         stars%(starSelected%, 2) = 1
36.     END IF
37.  
38.     stars%(starSelected%, 1) = INT(RND * screenWidth%) + 1
39.     stars%(starSelected%, 3) = INT(RND * 3) + 1
40.  
41.     SELECT CASE INT(RND * 3) + 1
42.         CASE 1
43.             stars%(starSelected%, 4) = 15
44.         CASE 2
45.             stars%(starSelected%, 4) = 7
46.         CASE ELSE
47.             stars%(starSelected%, 4) = 8
48.     END SELECT
49.  
50. END SUB
51.  

Code: QB64: [Select]

1. ' Program: Star Parallax Screensaver (Horizontal)
2. ' Created: May 16th, 2020
3. ' Creator: Cloud Zimmermann
4.  
5. SCREEN 7, 1, 0, 1
6. RANDOMIZE TIMER
7.  
8. CONST screenWidth% = 320
9. CONST screenHeight% = 200
10. CONST count% = 200
11. DIM SHARED stars%(count%, 5)
12.  
13. FOR i% = 1 TO count% - 1
14.     CALL resetStar(i%, 1)
15. NEXT i%
16.  
17. WHILE INKEY$ = ""
18.     CLS
19.     FOR i% = 1 TO count% - 1
20.         IF stars%(i%, 1) > screenWidth% THEN
21.             CALL resetStar(i%, 0)
22.         ELSE
23.             stars%(i%, 1) = stars%(i%, 1) + stars%(i%, 3)
24.         END IF
25.         PSET (stars%(i%, 1), stars%(i%, 2)), stars%(i%, 4)
26.     NEXT i%
27.     PCOPY 0, 1
28.     _LIMIT 60
29. WEND
30.  
31. SUB resetStar (starSelected%, init%)
32.     IF init% = 1 THEN
33.         stars%(starSelected%, 1) = INT(RND * screenWidth%) + 1
34.     ELSE
35.         stars%(starSelected%, 1) = 1
36.     END IF
37.  
38.     stars%(starSelected%, 2) = INT(RND * screenHeight%) + 1
39.     stars%(starSelected%, 3) = INT(RND * 3) + 1
40.  
41.     SELECT CASE INT(RND * 3) + 1
42.         CASE 1
43.             stars%(starSelected%, 4) = 15
44.         CASE 2
45.             stars%(starSelected%, 4) = 7
46.         CASE ELSE
47.             stars%(starSelected%, 4) = 8
48.     END SELECT
49.  
50. END SUB
51.  

[Ashish]

Nice work :)