Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: CloudZimmermann on May 16, 2020, 05:00:30 pm

Title: Star Parallax Screensavers (Vertical / Horizontal)
Post by: CloudZimmermann on May 16, 2020, 05:00:30 pm
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
  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.  
  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
  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.  
  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
  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.  
  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
  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.  
  51.  
Title: Re: Star Parallax Screensavers (Vertical / Horizontal)
Post by: Ashish on May 17, 2020, 11:39:20 am
Nice work :)
Text Only | Text with Attachments