« previous next »
Pages: [1]   Go Down

Author Topic: Solar System Screensaver  (Read 1130 times)

0 Members and 1 Guest are viewing this topic.

Offline CloudZimmermann

  • Newbie
  • Posts: 4
    • View Profile
Solar System Screensaver
« on: May 13, 2020, 10:56:54 am »
Program: Solar System Screensaver
Creator:  Cloud Zimmermann
Date:      1/13/2018

Code: QB64: [Select]
  1. 'Program: Solar System Screensaver
  2. 'Creator:  Cloud Zimmermann
  3. 'Date:      1/13/2018
  4.  
  5. RANDOMIZE TIMER 'set the seed of the randomizer to the current number of seconds since midnight
  6. SCREEN 7, 1, 0, 1 'use screen 7 mode (320x200 @256 colors with 7 pages of memory), use color mode, set memory page as 0 for drawing, and set memory page 1 as the selected
  7.  
  8. CONST SCREEN_WIDTH = 320
  9. CONST SCREEN_HEIGHT = 200
  10.  
  11. CONST sphere_count = 4
  12. CONST star_count = 100
  13.  
  14. DIM angle AS SINGLE
  15.  
  16. ' data type for all spheres (suns, planets, gas giants, moons, satellites, ect)
  17. TYPE sphere
  18.     cordinateX AS SINGLE 'x
  19.     cordinateY AS SINGLE 'y
  20.     cordinateZ AS SINGLE 'z
  21.     radius AS INTEGER 'radius of circle
  22.     color AS INTEGER '0 to 16
  23.     rotation_offset AS SINGLE 'saved as degrees
  24.     parent AS INTEGER ' relationship
  25.     direction AS INTEGER ' clockwise or counter-clockwise
  26.     angular_velocity AS SINGLE ' allow for different rotation speeds
  28. DIM spheres(sphere_count) AS sphere
  29.  
  30. 'sample data
  31. spheres(0).radius = 5
  32. spheres(0).parent = -1
  33. spheres(0).direction = 1
  34. spheres(0).color = 11
  35. spheres(0).angular_velocity = .25
  36.  
  37. spheres(1).radius = 2
  38. spheres(1).parent = 0
  39. spheres(1).direction = 1
  40. spheres(1).color = 12
  41. spheres(1).angular_velocity = 4
  42.  
  43. spheres(2).radius = 3.3
  44. spheres(2).parent = -1
  45. spheres(2).rotation_offset = 60
  46. spheres(2).direction = 1
  47. spheres(2).color = 13
  48. spheres(2).angular_velocity = 1
  49.  
  50.  
  51. spheres(3).radius = 4
  52. spheres(3).parent = -1
  53. spheres(3).rotation_offset = 180
  54. spheres(3).direction = -1
  55. spheres(3).color = 14
  56. spheres(3).angular_velocity = 2
  57.  
  58.  
  59. spheres(4).radius = 6
  60. spheres(4).parent = -1
  61. spheres(4).rotation_offset = -300
  62. spheres(4).direction = 1
  63. spheres(4).color = 6
  64. spheres(4).angular_velocity = 1.3
  65.  
  66. TYPE star
  67.     x AS INTEGER
  68.     y AS INTEGER
  69.     c AS INTEGER
  71. DIM stars(star_count) AS star
  72.  
  73. FOR i% = 0 TO star_count
  74.     stars(i%).x = (RND * 320) + 1
  75.     stars(i%).y = (RND * 200) + 1
  76.     stars(i%).c = (RND * 1) + 7
  77. NEXT i%
  78.  
  79.  
  80. ' main loop
  82.     ' draw background
  83.     FOR i% = 0 TO star_count
  84.         PSET (stars(i%).x, stars(i%).y), stars(i%).c
  85.     NEXT i%
  86.  
  87.     COLOR 15 'set color as WHITE for text/graphics
  88.     LOCATE 3, 17 'set text cursor to x,y
  89.     PRINT TIME$ ' print the current time
  90.  
  91.     'LOCATE 5, 17
  92.     'PRINT angle
  93.  
  94.     ' draw the sun
  95.     COLOR 14
  96.     CIRCLE (SCREEN_WIDTH / 2, SCREEN_HEIGHT / 2), 10, , , , 1
  97.     PAINT STEP(0, 0), 14, 14
  98.  
  99.     ' update the global rotation angle
  100.     angle = angle + 0.01
  101.     IF angle > 360 THEN angle = 0
  102.  
  103.     FOR i% = 0 TO sphere_count
  104.  
  105.         ' does this sphere have a parent?
  106.         IF spheres(i%).parent <> -1 THEN
  107.  
  108.             ' draw path of the orbit near the parent
  109.             COLOR 2 '0 is black, 2 is green, 7 is light gray, 8 is dark gray, 15 is white
  110.             CIRCLE (spheres(spheres(i%).parent).cordinateX, spheres(spheres(i%).parent).cordinateY), 8 * spheres(i%).radius, , , , 1 ' draw circle(x,y),radius,,,,aspect ratio
  111.  
  112.             ' calculate the position of the sphere near the parent
  113.             x = (spheres(spheres(i%).parent).cordinateX) + (COS(angle * spheres(i%).angular_velocity + spheres(i%).rotation_offset) * (8 * spheres(i%).radius))
  114.             y = (spheres(spheres(i%).parent).cordinateY) + (SIN(angle * spheres(i%).angular_velocity + spheres(i%).rotation_offset) * (8 * spheres(i%).radius))
  115.             r = spheres(i%).radius
  116.  
  117.         ELSE
  118.  
  119.             ' draw path of orbit
  120.             'COLOR INT(RND * 6) + 1 ' change the color from 1 to 6 (out of 16 possible)
  121.             COLOR 2
  122.             CIRCLE (SCREEN_WIDTH / 2, SCREEN_HEIGHT / 2), SCREEN_HEIGHT / spheres(i%).radius, , , , 1 ' draw circle(x,y),radius,,,,aspect ratio
  123.  
  124.             ' calculate the position of the sphere
  125.             x = (SCREEN_WIDTH / 2) + (COS(spheres(i%).direction * angle * spheres(i%).angular_velocity + spheres(i%).rotation_offset) * (SCREEN_HEIGHT / spheres(i%).radius))
  126.             y = (SCREEN_HEIGHT / 2) + (SIN(spheres(i%).direction * angle * spheres(i%).angular_velocity + spheres(i%).rotation_offset) * (SCREEN_HEIGHT / spheres(i%).radius))
  127.             r = spheres(i%).radius
  128.         END IF
  129.  
  130.         ' save the position of the sphere (for the children)
  131.         spheres(i%).cordinateX = x
  132.         spheres(i%).cordinateY = y
  133.  
  134.         ' draw sphere
  135.         COLOR spheres(i%).color '11 '10
  136.         CIRCLE (x, y), r, , , , 1
  137.         PAINT STEP(0, 0), spheres(i%).color, spheres(i%).color
  138.  
  139.     NEXT i%
  140.  
  141.  
  142.     PCOPY 0, 1 'copy/flip the video memory page from 0 to 1 (so we can see what we have drawn without watching the drawing itself)
  143.     CLS
  144.     _LIMIT (60) 'qb64: limit to 60 loops per second
  145.  
  147.  
* solar-system.exe (Filesize: 1.4 MB, Downloads: 167)
* solar-system.bas (Filesize: 4.65 KB, Downloads: 117)
« Last Edit: May 16, 2020, 04:35:17 pm by CloudZimmermann »
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Solar System Screensaver
« Reply #1 on: May 13, 2020, 02:08:27 pm »
Welcome to the forum CloudZimmermann,

Nice work!
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Solar System Screensaver
« Reply #2 on: May 13, 2020, 04:31:40 pm »
Pretty cool CloudZimmerman! Welcome to the forum!

If you don't know already, QB64 lets you make a graphics window as large as you want. I usually use 800 x 600. To use it, use this command:
SCREEN _NEWIMAGE(800,600,32)

That makes a 32 bit screen on 800 x 600 pixels. The colors for 32 bit are enormous. For example you can do this for the LINE command:
LINE (50,50)-(200,200),_RGB32(255,0,0),BF
255 is the maximum amount of red you can use, it's RED, GREEN, BLUE. For complete white it's 255,255,255 and for complete black it's 0,0,0.
Anyway, you might know all this already so I'll end there. Happy programming!
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
    • View Profile
Re: Solar System Screensaver
« Reply #3 on: May 14, 2020, 01:11:48 am »
Good Job @CloudZimmermann . Welcome to the forum! :D
Logged
if (Me.success) {Me.improve()} else {Me.tryAgain()}


My Projects - https://github.com/AshishKingdom?tab=repositories
OpenGL tutorials - https://ashishkingdom.github.io/OpenGL-Tutorials

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Solar System Screensaver
« Reply #4 on: May 14, 2020, 04:38:53 am »
What? No aliens!! Nah. Kidding. Good job! ... and Welcome!
Logged
Logic is the beginning of wisdom.

Offline Richard Frost

  • Seasoned Forum Regular
  • Posts: 316
  • Needle nardle noo. - Peter Sellers
    • View Profile
Re: Solar System Screensaver
« Reply #5 on: May 16, 2020, 02:13:53 am »
Pretty, but scary.  May cause independent eye motion.

Why is one "planet" retrograde?  Is that a really big spaceship?
Logged
It works better if you plug it in.

Offline 40wattstudio

  • Newbie
  • Posts: 82
    • View Profile
    • 40wattstudio
Re: Solar System Screensaver
« Reply #6 on: May 16, 2020, 09:12:48 am »
Good job CloudZimmermann! Thanks especially for making this available in .exe, I think it's much more convenient that way.
If you want to make this with better graphics maybe give the NASA textures a try and use some _PUTIMAGE statements. https://nasa3d.arc.nasa.gov/images
Logged
Pages: [1]   Go Up
« previous next »