First attempt for a solar system 2D

[TempodiBasic]

@Richard Frost

You have fascinated me!

I like demo!
I like precision of data!
I like old Basic coding style!

but the other face of the medal is that I loose my mind in these variables with one or two letters as name!
Yes only this let me have an urticaria  attach! I'm going to have a cortisone pill or to be stinged by a bee!
But this is a my problem.

Thanks to share Frost

[TempodiBasic]

@Bplus

Cool!

Hey but have you tried to draw Indian Chakras? https://en.wikipedia.org/wiki/Chakra

[TempodiBasic]

Hi another little step towards solar system maker

 

each planet has its speed, dimension, color and can have its moons that have their speed, dimension and color.

but the screen is too little to see all the system! :-)

I must rethink how to output the data on the screen using a different basis!

Here code:

Code: QB64: [Select]

1. ' Solar System 2D: code developed following this tutorial
2. '[youtube]https://www.youtube.com/watch?v=l8SiJ-RmeHU&list=PLRqwX-V7Uu6ZiZxtDDRCi6uhfTH4FilpH[/youtube]&index=7
3. TYPE Planet
4.     Radius AS SINGLE
5.     Angle AS SINGLE
6.     Distance AS SINGLE
7.     Names AS STRING * 3
8.     Parent AS INTEGER
9.     Speed AS SINGLE
10.     Colors AS _UNSIGNED LONG
11. END TYPE
12.  
13. CONST WScreen = 900, HScreen = 600, True = -1, False = 0
14. CONST r = 35, MaxPlanet = 8, MaxMoon = 10
15.  
16. CONST Black = _RGBA32(0, 0, 0, 255)
17. CONST NameColor = _RGBA32(255, 255, 255, 255)
18.  
19. DIM SHARED A AS LONG, Sun AS Planet, Planets(1 TO MaxPlanet * MaxMoon) AS Planet
20. DIM SHARED ShowName AS INTEGER, PDistance AS INTEGER
21. DIM k AS INTEGER
22.  
23. Setup
24. DO
25.     k = _KEYHIT
26.     IF k = 8 THEN Setup
27.     Draws
28.     MovePlanets
29.     IF k = 13 THEN ShowName = NOT ShowName
30.     _DISPLAY
31.     _LIMIT 15
32. LOOP UNTIL k = 32
33. END
34.  
35. SUB MovePlanets
36.     DIM w AS INTEGER
37.     FOR w = 1 TO MaxPlanet + MaxMoon
38.         IF Planets(w).Radius > 0 THEN Planets(w).Angle = Planets(w).Angle + Planets(w).Speed
39.     NEXT w
40. END SUB
41.  
42. SUB Setup
43.     DIM w AS INTEGER, radius AS INTEGER, distance AS INTEGER
44.     RANDOMIZE TIMER
45.     A = _NEWIMAGE(WScreen, HScreen, 32)
46.     IF A < -1 THEN SCREEN A ELSE PRINT "Error handle image": EXIT SUB
47.     _TITLE "Solar System 2D"
48.     _SCREENMOVE 10, 10
49.     _PRINTMODE _KEEPBACKGROUND
50.     Sun.Radius = 50
51.     Sun.Angle = 0
52.     Sun.Distance = 0
53.     Sun.Names = "SUN"
54.     Sun.Parent = 0
55.     Sun.Colors = _RGBA32(222, 194, 61, 255)
56.     PDistance = 0
57.     FOR w = 1 TO MaxPlanet STEP 1
58.         radius = INT(RND * 15) + 10
59.         distance = INT(RND * 2 * r) + (2 * r)
60.  
61.         PDistance = PDistance + distance
62.         '          Index, radius, distance from parent, parent
63.         MakePlanet w, radius, PDistance, 0
64.         RandomMoon w
65.     NEXT w
66.     ShowName = False
67. END SUB
68.  
69. SUB RandomMoon (Index AS INTEGER)
70.     DIM z AS INTEGER, newR AS INTEGER
71.     IF INT(RND * 3) + 1 > 1 THEN
72.         FOR z = 1 TO INT(RND * (MaxMoon - 1)) + 1
73.             ' index moon, 1/2 radius, Parent
74.             newR = INT(RND * INT(Planets(Index).Radius / 3)) + 1
75.             MakePlanet z + MaxPlanet, newR, INT(Planets(Index).Radius) + (2 * newR), Index
76.         NEXT
77.     END IF
78. END SUB
79.  
80. SUB DrawSun
81.     CircleFill WScreen / 2, HScreen / 2, Sun.Radius, Sun.Colors
82.     IF ShowName = True THEN COLOR NameColor: _PRINTSTRING (WScreen / 2, HScreen / 2), Sun.Names
83. END SUB
84.  
85. SUB Draws
86.     DIM w AS INTEGER
87.     CLS , Black
88.     DrawSun
89.     FOR w = 1 TO MaxPlanet + MaxMoon
90.         IF Planets(w).Radius > 0 THEN ShowPlanet w
91.     NEXT w
92. END SUB
93.  
94. SUB MakePlanet (Index AS INTEGER, r AS SINGLE, d AS SINGLE, p AS INTEGER)
95.     Planets(Index).Radius = r
96.     Planets(Index).Angle = INT(RND * 360)
97.     Planets(Index).Distance = d
98.     Planets(Index).Names = STR$(Index)
99.     Planets(Index).Parent = p
100.     Planets(Index).Speed = 0.01 + (RND * 0.05)
101.     IF p = 0 THEN Planets(Index).Colors = _RGBA(0, 100 + (RND * 150), 100 + (RND * 150), 255) ELSE Planets(Index).Colors = _RGBA(100 + (RND * 150), 100 + (RND * 150), 100 + (RND * 150), 255)
102. END SUB
103.  
104. SUB ShowPlanet (Index AS INTEGER)
105.     DIM Sinus AS SINGLE, Cosinus AS SINGLE
106.     DIM Xcircle AS SINGLE, Ycircle AS SINGLE, Rcircle AS INTEGER
107.     DIM Cosinus2 AS SINGLE, Sinus2 AS SINGLE
108.     Sinus = SIN(Planets(Index).Angle)
109.     Cosinus = COS(Planets(Index).Angle)
110.     ' parent is an important Flag both to choose X,y of circle
111.     ' both to understand if it is a planet around the sun or a moon around a planet
112.  
113.     IF Planets(Index).Parent = 0 AND Planets(Index).Names <> "SUN" THEN
114.         Xcircle = (WScreen / 2)
115.         Ycircle = (HScreen / 2)
116.     ELSEIF Planets(Index).Parent > 0 THEN
117.         Sinus2 = SIN(Planets(Planets(Index).Parent).Angle)
118.         Cosinus2 = COS(Planets(Planets(Index).Parent).Angle)
119.         Xcircle = ((Planets(Planets(Index).Parent).Distance * Cosinus2) + (WScreen / 2))
120.         Ycircle = ((Planets(Planets(Index).Parent).Distance * Sinus2) + (HScreen / 2))
121.     END IF
122.     Rcircle = Planets(Index).Radius
123.     Xcircle = Xcircle + (Planets(Index).Distance * Cosinus)
124.     Ycircle = Ycircle + (Planets(Index).Distance * Sinus)
125.     CircleFill Xcircle, Ycircle, Rcircle, Planets(Index).Colors
126.     IF ShowName = True THEN COLOR NameColor: _PRINTSTRING (Xcircle, Ycircle), Planets(Index).Names
127. END SUB
128.  
129.  
130. SUB CircleFill (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
131.     ' CX = center x coordinate
132.     ' CY = center y coordinate
133.     '  R = radius
134.     '  C = fill color
135.     DIM Radius AS INTEGER, RadiusError AS INTEGER
136.     DIM X AS INTEGER, Y AS INTEGER
137.     Radius = ABS(R)
138.     RadiusError = -Radius
139.     X = Radius
140.     Y = 0
141.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
142.     LINE (CX - X, CY)-(CX + X, CY), C, BF
143.     WHILE X > Y
144.         RadiusError = RadiusError + Y * 2 + 1
145.         IF RadiusError >= 0 THEN
146.             IF X <> Y + 1 THEN
147.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
148.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
149.             END IF
150.             X = X - 1
151.             RadiusError = RadiusError - X * 2
152.         END IF
153.         Y = Y + 1
154.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
155.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
156.     WEND
157. END SUB

Thanks to see
Your MOD are welcome! I like to learn! But I go on my way because also direct experience does knowledge.

[johnno56]

I have been into Astronomy since I was about 15. Not so much now as my eyesight isn't what it used to be.... lol

My suggestion when trying to scale size AND distance in a computer simulation.... Don't. There is nothing wrong with a system that is scaled to your desktop resolution and you are using a standard size discs for each object. Just to give you an idea... If you placed a model of the Sun (1 metre diameter) in London, using the same scale, Pluto would be here in Melbourne Australia. Scale the Sun down to 1 cm and you would be lucky to fit Mercury on the same screen... Just to see the relative movement of the planets, small discs, work just fine.  This is my opinion. Different colours are a great idea...

I had an old Amstrad CPC464 back in 1985. Max screen resolution of 640x400. I had to display the system in two screens. The inner planets out to Mars and the outer planets. Watching it draw the orbits then the planet was tiresome. Poor machine only had a CPU speed of 4mhz. But the wait was worth it...

I think you have done a great job. Makes me wish I had my scope, and eyesight, back again.... Thank you.

[johnno56]

I watched the videos. That guy is one strange presenter. He knows his stuff but I think he has a few kangaroos loose in his top paddock.

His 2D videos made a little sense - there were times he lost me - but it seemed to make sense. I know absolutely nothing about the language he was using but it was fun watching him trying to explain 2D orbits etc... But when he moved to 3D.... I really tried to follow along but that stuff was WAY over my head... It was interesting, but almost all of the 3D stuff, was so hard to follow I just couldn't cope... The results were amazing but how he got there just baked the old noodle... lol

I would still like to make a relatively accurate (movement anyway) model of the Solar System at least once before I "shuffle off"... I am still looking for a tutorial etc in 'basic'... I'm going to study your example and see if there is any way to incorporate some 'real' data... I'm not sure if my skill level is up to it, but it might be fun to try... lol

[johnno56]

I finally got to bed at about 2am.... I managed to get all nine planets on the screen - almost - and no, I will not get into the discussion of Pluto's downgrading to a dwarf planet... lol

I modified my resolution to 1920x1080 (sorry Laptops...). Used the maximum Y axis for Pluto's orbit which is about 40 Astronomical Units from the Sun. Converted all the other planetary orbits accordingly. At this point, including the Sun, everything is a small disc. I am currently working on the velocity of each planet. In this model ALL orbits are assumed circular. Calculating the circumference of each orbit, factoring the length of time it takes for each planet to complete a single orbit, the relative velocity of each planet can be roughly calculated. All I have to do now is to translate those velocities to a figure that your model can use.... My brain hurts... I need coffee....

[OldMoses]

This is good stuff that I'm going to have to study. I want to incorporate something like this into my vector plotter. That way my ships would have to be careful not to smack a celestial body while doing their maneuvers.

https://www.qb64.org/forum/index.php?topic=1429.0