Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on August 17, 2019, 04:57:57 pm

Title: 3D Revolving Disks
Post by: bplus on August 17, 2019, 04:57:57 pm
Something found at JB forum modified by yours truly:
Code: QB64: [Select]
  1. _TITLE "3D Revolving disks: any key toggles trails on/off " 'b+ trans start 2019-08-16
  2. ' mod from JB 2019-08-16 nice 3d effect by bluatigro fixed nice
  3. ' he called it "isometric 3d sprites" thread under games and graphics board
  4.  
  5. CONST xmax = 800, ymax = 600, pi = 3.141592654, nDisks = 300
  6. SCREEN _NEWIMAGE(xmax, ymax, 32)
  7. _SCREENMOVE 300, 20
  8. TYPE obj
  9.     x AS SINGLE
  10.     y AS SINGLE
  11.     z AS SINGLE
  12.     r AS SINGLE
  13.     c AS _UNSIGNED LONG
  15. DIM SHARED b(nDisks) AS obj
  16.  
  17. 'init
  18. FOR i = 0 TO nDisks
  19.     b(i).x = RND * xmax - xmax * .5
  20.     b(i).y = RND * ymax - ymax * .5
  21.     b(i).z = RND * xmax - xmax * .5
  22.     b(i).r = RND * 5
  23.     b(i).c = _RGB32(55 + RND * 200, 55 + RND * 200, 55 + RND * 200)
  25.  
  26. WHILE _KEYDOWN(27) = 0
  27.     IF LEN(INKEY$) THEN toggle = 1 - toggle
  28.     IF toggle THEN LINE (0, 0)-(xmax, ymax), _RGBA(0, 0, 0, 30), BF ELSE CLS
  29.     'update positions
  30.     FOR i = 0 TO nDisks
  31.         rotate b(i).x, b(i).z, pi / 360
  32.     NEXT i
  33.     'sort on z
  34.     QSort LBOUND(b), UBOUND(b)
  35.  
  36.     'draw b's
  37.     FOR i = nDisks TO 0 STEP -1
  38.         sx = xmax / 2 + b(i).x / (b(i).z + 1000) * 1000
  39.         sy = ymax / 2 - b(i).y / (b(i).z + 1000) * 1000
  40.         d = 100 / 2 / (b(i).z + 1000) * 1000
  41.         fcirc sx - d, sy - d, b(i).r * d / 100, b(i).c
  42.     NEXT i
  43.  
  44.     _DISPLAY
  45.     _LIMIT 60
  47.  
  48. SUB QSort (Start AS INTEGER, Finish AS INTEGER) 'sa$ needs to be shared array
  49.     DIM i AS INTEGER, j AS INTEGER, Zvalue
  50.     i = Start
  51.     j = Finish
  52.     Zvalue = b(INT((i + j) / 2)).z
  53.     WHILE i <= j
  54.         WHILE b(i).z < Zvalue
  55.             i = i + 1
  56.         WEND
  57.         WHILE b(j).z > Zvalue
  58.             j = j - 1
  59.         WEND
  60.         IF i <= j THEN
  61.             SWAP b(i), b(j)
  62.             i = i + 1
  63.             j = j - 1
  64.         END IF
  65.     WEND
  66.     IF j > Start THEN QSort Start, j
  67.     IF i < Finish THEN QSort i, Finish
  69.  
  70. SUB rotate (x, z, angle)
  71.     s = SIN(angle)
  72.     c = COS(angle)
  73.     newx = x * c - z * s
  74.     newz = x * s + z * c
  75.     x = newx
  76.     z = newz
  78.  
  79. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  80.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  81.     DIM X AS INTEGER, Y AS INTEGER
  82.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  83.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  84.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  85.     WHILE X > Y
  86.         RadiusError = RadiusError + Y * 2 + 1
  87.         IF RadiusError >= 0 THEN
  88.             IF X <> Y + 1 THEN
  89.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  90.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  91.             END IF
  92.             X = X - 1
  93.             RadiusError = RadiusError - X * 2
  94.         END IF
  95.         Y = Y + 1
  96.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  97.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  98.     WEND
  100.  
  101.  
Title: Re: 3D Revolving Disks
Post by: TempodiBasic on August 17, 2019, 06:28:42 pm
Bplus
What to say... Great, cool!

Thanks to share

Ps I must admit that this program has its neo.... it shows so many revolving balls :D
But if I think better in this program there is a great lesson that I try to learn.
Title: Re: 3D Revolving Disks
Post by: bplus on August 17, 2019, 07:20:04 pm
Quote from: TempodiBasic on August 17, 2019, 06:28:42 pm
Bplus
What to say... Great, cool!

Thanks to share

Ps I must admit that this program has its neo.... it shows so many revolving balls :D
But if I think better in this program there is a great lesson that I try to learn.

shh... those aren't balls, those are disks :D

Thanks TempodiBasic, it may be a good entry level starter for 3D? I liked it, but now I am wondering if this is like Fellippe's flies thing from some time ago.
Title: Re: 3D Revolving Disks
Post by: SierraKen on August 17, 2019, 07:23:12 pm
Pretty cool! I updated it to show big disco lights on your entire screen. I added a welcome page so people know to hit Esc to quit or any other key to change views. I'm just having fun with it, it won't be on my website.

Code: QB64: [Select]
  1. _TITLE "3D Revolving disks: any key toggles trails on/off " 'b+ trans start 2019-08-16
  2. ' mod from JB 2019-08-16 nice 3d effect by bluatigro fixed nice
  3. ' he called it "isometric 3d sprites" thread under games and graphics board
  4. ' Updated again by Ken G. to make disco lights.
  5.  
  7. PRINT "                   Disco Lights On Your Entire Screen"
  10. PRINT "     Press Esc to quit program or any other key to change the view."
  12. INPUT "                       Press Enter to start.", a$
  14.  
  15. CONST xmax = 800, ymax = 600, pi = 3.141592654, nDisks = 300
  16. SCREEN _NEWIMAGE(xmax, ymax, 32)
  17. '_SCREENMOVE 300, 20
  19. TYPE obj
  20.     x AS SINGLE
  21.     y AS SINGLE
  22.     z AS SINGLE
  23.     r AS SINGLE
  24.     c AS _UNSIGNED LONG
  26. DIM SHARED b(nDisks) AS obj
  27.  
  28. 'init
  29. FOR i = 0 TO nDisks
  30.     b(i).x = RND * xmax - xmax * .5
  31.     b(i).y = RND * ymax - ymax * .5
  32.     b(i).z = RND * xmax - xmax * .5
  33.     b(i).r = RND * 5
  34.     b(i).c = _RGB32(55 + RND * 200, 55 + RND * 200, 55 + RND * 200)
  36.  
  37. WHILE _KEYDOWN(27) = 0
  38.     IF LEN(INKEY$) THEN toggle = 1 - toggle
  39.     IF toggle THEN LINE (0, 0)-(xmax, ymax), _RGBA(0, 0, 0, 30), BF ELSE CLS
  40.     'update positions
  41.     FOR i = 0 TO nDisks
  42.         rotate b(i).x, b(i).z, pi / 360
  43.     NEXT i
  44.     'sort on z
  45.     QSort LBOUND(b), UBOUND(b)
  46.  
  47.     'draw b's
  48.     FOR i = nDisks TO 0 STEP -1
  49.         sx = xmax / 2 + b(i).x / (b(i).z + 1000) * 1000
  50.         sy = ymax / 2 - b(i).y / (b(i).z + 1000) * 1000
  51.         d = 100 / 2 / (b(i).z + 1000) * 1000
  52.         fcirc sx - d, sy - d, b(i).r * d / 100, b(i).c
  53.     NEXT i
  54.  
  55.     _DISPLAY
  56.     _LIMIT 60
  58.  
  59. SUB QSort (Start AS INTEGER, Finish AS INTEGER) 'sa$ needs to be shared array
  60.     DIM i AS INTEGER, j AS INTEGER, Zvalue
  61.     i = Start
  62.     j = Finish
  63.     Zvalue = b(INT((i + j) / 2)).z
  64.     WHILE i <= j
  65.         WHILE b(i).z < Zvalue
  66.             i = i + 1
  67.         WEND
  68.         WHILE b(j).z > Zvalue
  69.             j = j - 1
  70.         WEND
  71.         IF i <= j THEN
  72.             SWAP b(i), b(j)
  73.             i = i + 1
  74.             j = j - 1
  75.         END IF
  76.     WEND
  77.     IF j > Start THEN QSort Start, j
  78.     IF i < Finish THEN QSort i, Finish
  80.  
  81. SUB rotate (x, z, angle)
  82.     s = SIN(angle)
  83.     c = COS(angle)
  84.     newx = x * c - z * s
  85.     newz = x * s + z * c
  86.     x = newx
  87.     z = newz
  89.  
  90. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  91.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  92.     DIM X AS INTEGER, Y AS INTEGER
  93.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  94.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  95.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  96.     WHILE X > Y
  97.         RadiusError = RadiusError + Y * 2 + 1
  98.         IF RadiusError >= 0 THEN
  99.             IF X <> Y + 1 THEN
  100.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  101.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  102.             END IF
  103.             X = X - 1
  104.             RadiusError = RadiusError - X * 2
  105.         END IF
  106.         Y = Y + 1
  107.         FOR cc = .25 TO X * 10 STEP .25
  108.             CIRCLE (CX - X, CY - Y), cc, C
  109.         NEXT cc
  110.  
  111.         'LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  112.         'LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  113.     WEND
  115.  
Title: Re: 3D Revolving Disks
Post by: bplus on August 17, 2019, 07:48:33 pm
Yikes! what you did to the circle fill sub is like spray painting the Mona Lisa
Code: QB64: [Select]
  1.         FOR cc = .25 TO X * 10 STEP .25
  2.             CIRCLE (CX - X, CY - Y), cc, C
  3.         NEXT cc
  4.  
  5.         'LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  6.         'LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  7.  

Ken for you, here is your circle fill you might live with:
Code: QB64: [Select]
  1. 'Ken's circleFill sub demo / tester
  2. CONST xmax = 800, ymax = 600
  3. SCREEN _NEWIMAGE(xmax, ymax, 32)
  4. _SCREENMOVE 300, 60
  5.  
  6. PRINT "red circle fill at 100, 150 radius 30 and blue circle  fill at 300, 400 radius 100"
  7. CircleFill 100, 150, 30, _RGB32(255, 0, 0)
  8. CircleFill 300, 400, 100, _RGB32(0, 0, 255)
  9.  
  10. INPUT "press Enter for screen filled with circles... "; wait$
  11.  
  12. WHILE _KEYDOWN(27) = 0
  13.     CircleFill RND * xmax, RND * ymax, RND * 80, _RGB32(RND * 255, RND * 255, RND * 255)
  14.     lpCnt = lpCnt + 1
  15.     IF lpCnt MOD 50 = 49 THEN CLS
  16.     _DISPLAY
  17.     _LIMIT 60
  19.  
  20. SUB CircleFill (centerX, centerY, circleRadius, circleColor AS _UNSIGNED LONG)
  21.     FOR changeRadius = .25 TO circleRadius STEP .25
  22.         CIRCLE (centerX, centerY), changeRadius, circleColor
  23.     NEXT

I have to admit I never thought CIRCLE could fill a disk area solidly without holes until I saw your method Ken.

You can copy and paste the SUB into any program you need a CircleFill and just call it up with:
Code: QB64: [Select]
  1. CircleFill MyCenterX, MyCenterY, MyRadius, MyRGBColor


Here is your mod with YOUR CircleFill:
Code: QB64: [Select]
  1. _TITLE "3D Revolving disks: any key toggles trails on/off " 'b+ trans start 2019-08-16
  2. ' mod from JB 2019-08-16 nice 3d effect by bluatigro fixed nice
  3. ' he called it "isometric 3d sprites" thread under games and graphics board
  4. ' Updated again by Ken G. to make disco lights.
  5. ' MOD by B+ with Ken G style CircleFill  
  6.  
  8. PRINT "                   Disco Lights On Your Entire Screen"
  11. PRINT "     Press Esc to quit program or any other key to change the view."
  13. INPUT "                       Press Enter to start.", a$
  15.  
  16. CONST xmax = 800, ymax = 600, pi = 3.141592654, nDisks = 300
  17. SCREEN _NEWIMAGE(xmax, ymax, 32)
  18. '_SCREENMOVE 300, 20
  20. TYPE obj
  21.     x AS SINGLE
  22.     y AS SINGLE
  23.     z AS SINGLE
  24.     r AS SINGLE
  25.     c AS _UNSIGNED LONG
  27. DIM SHARED b(nDisks) AS obj
  28.  
  29. 'init
  30. FOR i = 0 TO nDisks
  31.     b(i).x = RND * xmax - xmax * .5
  32.     b(i).y = RND * ymax - ymax * .5
  33.     b(i).z = RND * xmax - xmax * .5
  34.     b(i).r = RND * 5
  35.     b(i).c = _RGB32(55 + RND * 200, 55 + RND * 200, 55 + RND * 200)
  37.  
  38. WHILE _KEYDOWN(27) = 0
  39.     IF LEN(INKEY$) THEN toggle = 1 - toggle
  40.     IF toggle THEN LINE (0, 0)-(xmax, ymax), _RGBA(0, 0, 0, 30), BF ELSE CLS
  41.     'update positions
  42.     FOR i = 0 TO nDisks
  43.         rotate b(i).x, b(i).z, pi / 360
  44.     NEXT i
  45.     'sort on z
  46.     QSort LBOUND(b), UBOUND(b)
  47.  
  48.     'draw b's
  49.     FOR i = nDisks TO 0 STEP -1
  50.         sx = xmax / 2 + b(i).x / (b(i).z + 1000) * 1000
  51.         sy = ymax / 2 - b(i).y / (b(i).z + 1000) * 1000
  52.         d = 100 / 2 / (b(i).z + 1000) * 1000
  53.         CircleFill sx - d, sy - d, b(i).r * d / 100, b(i).c
  54.     NEXT i
  55.  
  56.     _DISPLAY
  57.     _LIMIT 60
  59.  
  60. SUB QSort (Start AS INTEGER, Finish AS INTEGER) 'sa$ needs to be shared array
  61.     DIM i AS INTEGER, j AS INTEGER, Zvalue
  62.     i = Start
  63.     j = Finish
  64.     Zvalue = b(INT((i + j) / 2)).z
  65.     WHILE i <= j
  66.         WHILE b(i).z < Zvalue
  67.             i = i + 1
  68.         WEND
  69.         WHILE b(j).z > Zvalue
  70.             j = j - 1
  71.         WEND
  72.         IF i <= j THEN
  73.             SWAP b(i), b(j)
  74.             i = i + 1
  75.             j = j - 1
  76.         END IF
  77.     WEND
  78.     IF j > Start THEN QSort Start, j
  79.     IF i < Finish THEN QSort i, Finish
  81.  
  82. SUB rotate (x, z, angle)
  83.     s = SIN(angle)
  84.     c = COS(angle)
  85.     newx = x * c - z * s
  86.     newz = x * s + z * c
  87.     x = newx
  88.     z = newz
  90.  
  91. SUB CircleFill (centerX, centerY, circleRadius, circleColor AS _UNSIGNED LONG)
  92.     FOR changeRadius = .25 TO circleRadius STEP .25
  93.         CIRCLE (centerX, centerY), changeRadius, circleColor
  94.     NEXT
  96.  
  97.  

You are now free to change Radii as you see fit, thanks for your consideration. :)
Title: Re: 3D Revolving Disks
Post by: bplus on August 17, 2019, 08:31:00 pm
I found the code I was remembering Fellippe had posted, gave it a trails toggle like here. They are much alike!
Code: QB64: [Select]
  1. 'Fellippe had posted here:
  2. ' https://www.qb64.org/forum/index.php?topic=255.msg1387#msg1387
  3. ' 2019-08-17 B+ adds trails toggle, a trick he learned from this codes author
  4.  
  5. SCREEN _NEWIMAGE(600, 600, 32)
  7. _TITLE "Particles: any key toggles trails on and off"
  8.  
  9. TYPE PARTICLE
  10.     x AS SINGLE
  11.     xs AS SINGLE
  12.     y AS SINGLE
  13.     ys AS SINGLE
  14.     w AS SINGLE
  15.     h AS SINGLE
  16.     a AS SINGLE
  17.     r AS SINGLE
  18.     c AS _UNSIGNED LONG
  20.  
  21. DIM particle(100) AS PARTICLE
  23.  
  25. createParticles particle()
  26.  
  28.     IF LEN(INKEY$) THEN toggle = 1 - toggle
  29.     IF toggle THEN LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA32(0, 0, 0, 50), BF ELSE CLS
  30.     updateAndShowParticles particle()
  32.         IF r < 150 THEN r = r + 1 ELSE r = 0
  33.         CIRCLE (_MOUSEX, _MOUSEY), r, _RGBA32(255, 255, 0, 150 - r)
  34.     END IF
  35.     _DISPLAY
  36.     _LIMIT 30
  38.  
  39. SUB createParticles (this() AS PARTICLE)
  40.     FOR i = 0 TO UBOUND(this)
  41.         this(i).x = RND * _WIDTH
  42.         this(i).xs = 2 + RND * 3
  43.         this(i).y = RND * _HEIGHT
  44.         this(i).ys = 2 + RND * 3
  45.         this(i).w = RND * (_WIDTH / 4)
  46.         this(i).h = RND * (_WIDTH / 6)
  47.         this(i).a = RND * _PI(2)
  48.         this(i).r = RND * 3 + 1
  49.         this(i).c = _RGBA32(RND * 255, RND * 255, RND * 255, RND * 150 + 155)
  50.     NEXT
  52.  
  53. SUB updateAndShowParticles (this() AS PARTICLE)
  55.     FOR i = 0 TO UBOUND(this)
  56.         this(i).a = this(i).a + .1
  57.         IF this(i).a > _PI(2) THEN this(i).a = this(i).a - _PI(2)
  58.  
  59.         IF _MOUSEBUTTON(1) THEN
  60.             IF this(i).y > _MOUSEY THEN this(i).y = this(i).y + r / 15
  61.             IF this(i).y < _MOUSEY THEN this(i).y = this(i).y - r / 15
  62.             IF this(i).x > _MOUSEX THEN this(i).x = this(i).x + r / 15
  63.             IF this(i).x < _MOUSEX THEN this(i).x = this(i).x - r / 15
  64.         ELSE
  65.             r = 0
  66.             IF this(i).y > _MOUSEY THEN this(i).y = this(i).y - this(i).ys
  67.             IF this(i).y < _MOUSEY THEN this(i).y = this(i).y + this(i).ys
  68.             IF this(i).x > _MOUSEX THEN this(i).x = this(i).x - this(i).xs
  69.             IF this(i).x < _MOUSEX THEN this(i).x = this(i).x + this(i).xs
  70.         END IF
  71.  
  72.         CircleFill this(i).x + COS(this(i).a) * this(i).w, this(i).y + SIN(this(i).a) * this(i).h, this(i).r, this(i).c
  73.     NEXT
  75.  
  76. SUB CircleFill (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG)
  77.     x0 = R
  78.     y0 = 0
  79.     e = 0
  80.     DO WHILE y0 < x0
  81.         IF e <= 0 THEN
  82.             y0 = y0 + 1
  83.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  84.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  85.             e = e + 2 * y0
  86.         ELSE
  87.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  88.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  89.             x0 = x0 - 1
  90.             e = e - 2 * x0
  91.         END IF
  92.     LOOP
  93.     LINE (x - R, y)-(x + R, y), C, BF
  95.  

OK so now I challenge!
Give the Mouse Particles / Flies code some 3D effect.
Title: Re: 3D Revolving Disks
Post by: STxAxTIC on August 17, 2019, 08:44:24 pm
Fun demo!

This reminds me of when I realized I needed real math to achieve the 3D look - because when I wrote similar things, something bugged me about where the actual "point of view" is located, and I come here to say this is not quite the idea to be studying if people want to really advance into the third dimension. Follow me.

This demo is showing a rotating mass of balls - here is the kicker - as viewed from "infinity". (By "infinity" I mean the user's eye is very very far away from the thing being looked at.) When you look at this scene, every single ball is in front of you - the only reason to not see any particular ball is when it goes off the side of the screen, right? But this is an incomplete implementation of 3D... In other words, why aren't any balls disappearing as they get too close to the user's eye and pass outside of our cone of vision? That is, why doesn't it feel like I can "fly through" this thing? I'm always watching it from far away. Feel me? In other words, if you were to try to make, whatever, a Wolfenstein engine with this as a starting point, you would see the entire level at all times. You could never get the walls behind you.

Honestly it took me a few years to go from what you've got here to what you see in Sanctum. It all changed when I wrote this note to myself:
Title: Re: 3D Revolving Disks
Post by: SierraKen on August 17, 2019, 08:55:38 pm
Wow thanks B+! I'm just starting to use _DISPLAY to stop the flickering, which is why I did the CIRCLE .25 loop still.
Title: Re: 3D Revolving Disks
Post by: bplus on August 17, 2019, 09:00:22 pm
Man! STxAxTIC, I just get use to doing perspective sizing and layering with a Z sort and now you want to fly through the thing!

Man! OK, you got me thinking... :)
Title: Re: 3D Revolving Disks
Post by: STxAxTIC on August 17, 2019, 09:12:14 pm
Phew! I thought you would take what I said as a dig - but along the lines of perspective sizing and z-sort...

If you pursue a more general approach, perspective sizing goes out the window and is handled automatically by field of view distance. In my old prototypes, the fudge factor variable I used was called "falsedepth", and was SO happy to erase it when I cracked the problem. (You are walking a 100% analogous path to the one I took...)

And if you go with my notation, Z sort is correctly replaced by N-sort, where N is the vector perpendicular to the screen.

Okay, shutting up now.
Title: Re: 3D Revolving Disks
Post by: Petr on August 18, 2019, 04:42:38 am
It's getting going. :-) I solved the limitation of the size of the displayed field by means of the circular collision detection adjusted to the semicircle (for X / Z) and the circle for (X / Y). Just what is in front of the monitor or outside the set radius from the camera does not count at all.  (the beginning of the vector is a spatial 3D point where the camera is standing, and the ending 3D point is the vertex in the field (further in my program it is already a point in the body or outside the body around which the body can rotate))
I calculate the size of the vector by the Pythagorean theorem and the angle of the vector in radians using the JK! Functions I wrote. This is available in the MAPTRIANGLE 3D thread. It is definitely very interesting to see the conversion of X and Y to Z using 2D commands.



Title: Re: 3D Revolving Disks
Post by: SierraKen on August 18, 2019, 08:54:46 pm
I took this idea and added it to my new Solar System Simulator. I'll post it also in the old Solar System thread. :) I didn't use the same code though, just trial and error figured it out.  Use Mouse over the planets to I.D. them. Use Mouse Wheel to zoom in and out to all of the planets, and use Up and Down Arrow Keys to tilt the view.

Code: QB64: [Select]
  1. 'Ken G. made thie program on August 18, 2019,
  2. 'Thank you to STxAxTIC on the QB64.org forum for a little bit of help with The Moon orbit!
  3.  
  4. _TITLE "Solar System Simulator by Ken G. Use Mouse Over Planets, Mouse Wheel to Zoom, and Up and Down Arrow Keys To Tilt."
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6. mercury = 0.241
  7. venus = 0.6152
  8. mars = 1.8809
  9. jupiter = 11.8618
  10. saturn = 29.457
  11. uranus = 84.0205
  12. neptune = 164.8
  13. angle = 180
  14. tilt = 1
  15. one:
  16. _LIMIT 500
  17. mouseWheel = 0
  19.     mouseX = _MOUSEX
  20.     mouseY = _MOUSEY
  21.     mouseLeftButton = _MOUSEBUTTON(1)
  22.     mouseRightButton = _MOUSEBUTTON(2)
  23.     mouseMiddleButton = _MOUSEBUTTON(3)
  24.     mouseWheel = mouseWheel + _MOUSEWHEEL
  26. IF mouseWheel < 0 THEN angle = angle - 10
  27. IF mouseWheel > 0 THEN angle = angle + 10
  28.  
  29. IF mouseX > 385 AND mouseX < 415 AND mouseY > 285 AND mouseY < 315 THEN LOCATE 2, 49: PRINT "Sun    "
  30. IF mouseX > x1 - 15 AND mouseX < x1 + 15 AND mouseY > y1 - 15 AND mouseY < y1 + 15 THEN LOCATE 2, 49: PRINT "Mercury"
  31. IF mouseX > x2 - 15 AND mouseX < x2 + 15 AND mouseY > y2 - 15 AND mouseY < y2 + 15 THEN LOCATE 2, 49: PRINT "Venus  "
  32. IF mouseX > x - 15 AND mouseX < x + 15 AND mouseY > y - 15 AND mouseY < y + 15 THEN LOCATE 2, 49: PRINT "Earth  "
  33. IF mouseX > x3 - 15 AND mouseX < x3 + 15 AND mouseY > y3 - 15 AND mouseY < y3 + 15 THEN LOCATE 2, 49: PRINT "Mars   "
  34. IF mouseX > x5 - 15 AND mouseX < x5 + 15 AND mouseY > y5 - 15 AND mouseY < y5 + 15 THEN LOCATE 2, 49: PRINT "Jupiter"
  35. IF mouseX > x6 - 15 AND mouseX < x6 + 15 AND mouseY > y6 - 15 AND mouseY < y6 + 15 THEN LOCATE 2, 49: PRINT "Saturn "
  36. IF mouseX > x7 - 15 AND mouseX < x7 + 15 AND mouseY > y7 - 15 AND mouseY < y7 + 15 THEN LOCATE 2, 49: PRINT "Uranus "
  37. IF mouseX > x8 - 15 AND mouseX < x8 + 15 AND mouseY > y8 - 15 AND mouseY < y8 + 15 THEN LOCATE 2, 49: PRINT "Neptune"
  38.  
  39. a$ = INKEY$
  40. IF a$ = CHR$(27) THEN END
  41. IF a$ = CHR$(0) + CHR$(72) THEN tilt = tilt + 1
  42. IF a$ = CHR$(0) + CHR$(80) THEN tilt = tilt - 1
  43. IF angle > 360 THEN angle = 360
  44. IF angle < 10 THEN angle = 10
  45. IF tilt > 90 THEN tilt = 90
  46. IF tilt < 1 THEN tilt = 1
  47. seconds = seconds + .01
  48. s1 = (60 - seconds) * 6 + 180 / mercury
  49. s2 = (60 - seconds) * 6 + 180 / venus
  50. s3 = (60 - seconds) * 6 + 180 'Earth and Moon
  51. s4 = (60 - seconds) * 6 + 180 / mars
  52. s5 = (60 - seconds) * 6 + 180 / jupiter
  53. s6 = (60 - seconds) * 6 + 180 / saturn
  54. s7 = (60 - seconds) * 6 + 180 / uranus
  55. s8 = (60 - seconds) * 6 + 180 / neptune
  56.  
  57. 'Mercury
  58. x1 = INT(SIN(s1 / 45 * 3.141592) * angle / 4) + 400
  59. y1 = INT(COS(s1 / 45 * 3.141592) * (angle / 4) / tilt) + 300
  60.  
  61. 'Venus
  62. x2 = INT(SIN(s2 / 90 * 3.141592) * angle / 2) + 400
  63. y2 = INT(COS(s2 / 90 * 3.141592) * (angle / 2) / tilt) + 300
  64.  
  65. 'Earth
  66. x = INT(SIN(s3 / 180 * 3.141592) * angle) + 400
  67. y = INT(COS(s3 / 180 * 3.141592) * angle / tilt) + 300
  68.  
  69. 'Mars
  70. x3 = INT(SIN(s4 / 270 * 3.141592) * angle * 1.5) + 400
  71. y3 = INT(COS(s4 / 270 * 3.141592) * (angle * 1.5) / tilt) + 300
  72.  
  73. 'Moon
  74. x4 = INT(SIN(19 * s3 / 270 * 3.141592) * angle / 10) + x
  75. y4 = INT(COS(19 * s3 / 270 * 3.141592) * (angle / 10) / tilt) + y
  76.  
  77. 'Outer Planets
  78. 'Jupiter
  79. x5 = INT(SIN(s5 / 450 * 3.141592) * angle * 3) + 400
  80. y5 = INT(COS(s5 / 450 * 3.141592) * (angle * 3) / tilt) + 300
  81.  
  82. 'Saturn
  83. x6 = INT(SIN(s6 / 630 * 3.141592) * angle * 4.5) + 400
  84. y6 = INT(COS(s6 / 630 * 3.141592) * (angle * 4.5) / tilt) + 300
  85.  
  86. 'Uranus
  87. x7 = INT(SIN(s7 / 810 * 3.141592) * angle * 6) + 400
  88. y7 = INT(COS(s7 / 810 * 3.141592) * (angle * 6) / tilt) + 300
  89.  
  90. 'Neptune
  91. x8 = INT(SIN(s8 / 990 * 3.141592) * angle * 7.5) + 400
  92. y8 = INT(COS(s8 / 990 * 3.141592) * (angle * 7.5) / tilt) + 300
  93.  
  94. 'Mercury
  95. CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
  96. PAINT (x1, y1), _RGB32(120, 98, 102)
  97.  
  98. 'Venus
  99. CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
  100. PAINT (x2, y2), _RGB32(161, 67, 39)
  101.  
  102. 'Earth
  103. CIRCLE (x, y), 5, _RGB32(0, 0, 255)
  104. PAINT (x, y), _RGB32(0, 0, 255)
  105.  
  106. 'Mars
  107. CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
  108. PAINT (x3, y3), _RGB32(240, 72, 22)
  109.  
  110. 'Moon
  111. CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
  112. PAINT (x4, y4), _RGB32(179, 179, 181)
  113.  
  114. 'Outer Planets
  115. 'Jupiter
  116. CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
  117. PAINT (x5, y5), _RGB32(255, 166, 127)
  118.  
  119. 'Saturn
  120. CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
  121. PAINT (x6, y6), _RGB32(255, 127, 127)
  122. FOR rings = 1 TO 2
  123.     CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
  124. NEXT rings
  125.  
  126. 'Uranus
  127. CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
  128. PAINT (x7, y7), _RGB32(127, 166, 255)
  129.  
  130. 'Neptune
  131. CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
  132. PAINT (x8, y8), _RGB32(0, 78, 255)
  133.  
  134. 'Sun
  135. CIRCLE (400, 300), 5, _RGB32(249, 240, 22)
  136. PAINT (400, 300), _RGB32(249, 240, 22)
  138. IF seconds > 99999 THEN
  139.     CLS
  140.     seconds = 0
  141.     GOTO one:
  144. GOTO one:
  145.  

Title: Re: 3D Revolving Disks
Post by: bplus on August 18, 2019, 09:30:41 pm
Hi Ken,

I like the tilt but not quite there with Zorder, what is drawn in front of what, ie the sun is always in front.

Nor quite there with near and far sizing for perspective.

Still, you worked out the tilt! :)
Title: Re: 3D Revolving Disks
Post by: SierraKen on August 19, 2019, 01:22:33 am
Yeah I wasn't even thinking of these things earlier, but thanks for telling me. I tried all kinds of ways tonight to make the Sun disappear and reappear, etc. etc. etc. I finally did it the only way I know how, to make the planets disappear if X increases and starts going behind the Sun, then reappears when they come back around. This only happens when you tilt the planets to a certain degree. I also made the Sun smaller so you could see more of the planets. Making them disappear and reappear also makes the illusion of them leaving and come back, which is your other thing you mentioned. Just know that I've never worked that much with the Z axis except in CAD type drawings. I use DIM z(10) so the planets would stay the way they were until they were needed to change. Tonight and 1 or 2 other times I've noticed a difference in QB64 and QBasic (I think) in that when you are using a main loop and you just want to skip over some code to not do it in that certain loop, the graphics you want to not-make, still happens. I think because the loop goes so fast that it doesn't give the user time to see it disappear. So, I use an array instead sometimes to deal with certain times when things need to be off or on. In this program z(1) = 1 means that Mercury is going to hide until it comes back around. :)

Note: I was about to head to bed and I immediately figured out how to make this better, please go to my next post, thank you.

Code: QB64: [Select]
  1. 'Ken G. made thie program on August 18, 2019,
  2. 'Thank you to STxAxTIC on the QB64.org forum for a little bit of help with The Moon orbit!
  3.  
  4. _TITLE "Solar System Simulator by Ken G. Use Mouse Over Planets, Mouse Wheel to Zoom, and Up and Down Arrow Keys To Tilt."
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6. DIM z(10)
  7. mercury = 0.241
  8. venus = 0.6152
  9. mars = 1.8809
  10. jupiter = 11.8618
  11. saturn = 29.457
  12. uranus = 84.0205
  13. neptune = 164.8
  14. angle = 180
  15. tilt = 1
  16. one:
  17. _LIMIT 500
  18. mouseWheel = 0
  20.     mouseX = _MOUSEX
  21.     mouseY = _MOUSEY
  22.     mouseLeftButton = _MOUSEBUTTON(1)
  23.     mouseRightButton = _MOUSEBUTTON(2)
  24.     mouseMiddleButton = _MOUSEBUTTON(3)
  25.     mouseWheel = mouseWheel + _MOUSEWHEEL
  27. IF mouseWheel < 0 THEN angle = angle - 10
  28. IF mouseWheel > 0 THEN angle = angle + 10
  29.  
  30. IF mouseX > 385 AND mouseX < 415 AND mouseY > 285 AND mouseY < 315 THEN LOCATE 2, 49: PRINT "Sun    "
  31. IF mouseX > x1 - 15 AND mouseX < x1 + 15 AND mouseY > y1 - 15 AND mouseY < y1 + 15 THEN LOCATE 2, 49: PRINT "Mercury"
  32. IF mouseX > x2 - 15 AND mouseX < x2 + 15 AND mouseY > y2 - 15 AND mouseY < y2 + 15 THEN LOCATE 2, 49: PRINT "Venus  "
  33. IF mouseX > x - 15 AND mouseX < x + 15 AND mouseY > y - 15 AND mouseY < y + 15 THEN LOCATE 2, 49: PRINT "Earth  "
  34. IF mouseX > x3 - 15 AND mouseX < x3 + 15 AND mouseY > y3 - 15 AND mouseY < y3 + 15 THEN LOCATE 2, 49: PRINT "Mars   "
  35. IF mouseX > x5 - 15 AND mouseX < x5 + 15 AND mouseY > y5 - 15 AND mouseY < y5 + 15 THEN LOCATE 2, 49: PRINT "Jupiter"
  36. IF mouseX > x6 - 15 AND mouseX < x6 + 15 AND mouseY > y6 - 15 AND mouseY < y6 + 15 THEN LOCATE 2, 49: PRINT "Saturn "
  37. IF mouseX > x7 - 15 AND mouseX < x7 + 15 AND mouseY > y7 - 15 AND mouseY < y7 + 15 THEN LOCATE 2, 49: PRINT "Uranus "
  38. IF mouseX > x8 - 15 AND mouseX < x8 + 15 AND mouseY > y8 - 15 AND mouseY < y8 + 15 THEN LOCATE 2, 49: PRINT "Neptune"
  39.  
  40. a$ = INKEY$
  41. IF a$ = CHR$(27) THEN END
  42. IF a$ = CHR$(0) + CHR$(72) THEN tilt = tilt + 1
  43. IF a$ = CHR$(0) + CHR$(80) THEN tilt = tilt - 1
  44. IF angle > 360 THEN angle = 360
  45. IF angle < 10 THEN angle = 10
  46. IF tilt > 30 THEN tilt = 30
  47. IF tilt < 1 THEN tilt = 1
  48. seconds = seconds + .01
  49. s1 = (60 - seconds) * 6 + 180 / mercury
  50. s2 = (60 - seconds) * 6 + 180 / venus
  51. s3 = (60 - seconds) * 6 + 180 'Earth and Moon
  52. s4 = (60 - seconds) * 6 + 180 / mars
  53. s5 = (60 - seconds) * 6 + 180 / jupiter
  54. s6 = (60 - seconds) * 6 + 180 / saturn
  55. s7 = (60 - seconds) * 6 + 180 / uranus
  56. s8 = (60 - seconds) * 6 + 180 / neptune
  57.  
  58.  
  59. 'Mercury
  60. oldx1 = x1
  61. x1 = INT(SIN(s1 / 45 * 3.141592) * angle / 4) + 400
  62. y1 = INT(COS(s1 / 45 * 3.141592) * (angle / 4) / tilt) + 300
  63.  
  64. 'Venus
  65. oldx2 = x2
  66. x2 = INT(SIN(s2 / 90 * 3.141592) * angle / 2) + 400
  67. y2 = INT(COS(s2 / 90 * 3.141592) * (angle / 2) / tilt) + 300
  68.  
  69. 'Earth
  70. oldx = x
  71. x = INT(SIN(s3 / 180 * 3.141592) * angle) + 400
  72. y = INT(COS(s3 / 180 * 3.141592) * angle / tilt) + 300
  73.  
  74. 'Mars
  75. oldx3 = x3
  76. x3 = INT(SIN(s4 / 270 * 3.141592) * angle * 1.5) + 400
  77. y3 = INT(COS(s4 / 270 * 3.141592) * (angle * 1.5) / tilt) + 300
  78.  
  79. 'Moon
  80. x4 = INT(SIN(19 * s3 / 270 * 3.141592) * angle / 10) + x
  81. y4 = INT(COS(19 * s3 / 270 * 3.141592) * (angle / 10) / tilt) + y
  82.  
  83. 'Outer Planets
  84. 'Jupiter
  85. oldx5 = x5
  86. x5 = INT(SIN(s5 / 450 * 3.141592) * angle * 3) + 400
  87. y5 = INT(COS(s5 / 450 * 3.141592) * (angle * 3) / tilt) + 300
  88.  
  89. 'Saturn
  90. oldx6 = x6
  91. x6 = INT(SIN(s6 / 630 * 3.141592) * angle * 4.5) + 400
  92. y6 = INT(COS(s6 / 630 * 3.141592) * (angle * 4.5) / tilt) + 300
  93.  
  94. 'Uranus
  95. oldx7 = x7
  96. x7 = INT(SIN(s7 / 810 * 3.141592) * angle * 6) + 400
  97. y7 = INT(COS(s7 / 810 * 3.141592) * (angle * 6) / tilt) + 300
  98.  
  99. 'Neptune
  100. oldx8 = x8
  101. x8 = INT(SIN(s8 / 990 * 3.141592) * angle * 7.5) + 400
  102. y8 = INT(COS(s8 / 990 * 3.141592) * (angle * 7.5) / tilt) + 300
  103.  
  104.  
  105. 'Sun
  106. CIRCLE (400, 300), 2, _RGB32(249, 240, 22)
  107. PAINT (400, 300), _RGB32(249, 240, 22)
  108.  
  109. IF tilt > 6 THEN
  110.     IF x1 > oldx1 THEN z(1) = 1
  111.     IF x2 > oldx2 THEN z(2) = 1
  112.     IF x3 > oldx3 THEN z(3) = 1
  113.     IF x5 > oldx5 THEN z(4) = 1
  114.     IF x6 > oldx6 THEN z(5) = 1
  115.     IF x7 > oldx7 THEN z(6) = 1
  116.     IF x8 > oldx8 THEN z(7) = 1
  117.     IF x > oldx THEN z(8) = 1
  118.     IF x1 < oldx1 THEN z(1) = 0
  119.     IF x2 < oldx2 THEN z(2) = 0
  120.     IF x3 < oldx3 THEN z(3) = 0
  121.     IF x5 < oldx5 THEN z(4) = 0
  122.     IF x6 < oldx6 THEN z(5) = 0
  123.     IF x7 < oldx7 THEN z(6) = 0
  124.     IF x8 < oldx8 THEN z(7) = 0
  125.     IF x < oldx THEN z(8) = 0
  126.  
  127.     IF z(1) = 0 THEN
  128.         'Mercury
  129.         CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
  130.         PAINT (x1, y1), _RGB32(120, 98, 102)
  131.     END IF
  132.  
  133.     IF z(2) = 0 THEN
  134.         'Venus
  135.         CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
  136.         PAINT (x2, y2), _RGB32(161, 67, 39)
  137.     END IF
  138.  
  139.     IF z(8) = 0 THEN
  140.         'Earth
  141.         CIRCLE (x, y), 5, _RGB32(0, 0, 255)
  142.         PAINT (x, y), _RGB32(0, 0, 255)
  143.         'Moon
  144.         CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
  145.         PAINT (x4, y4), _RGB32(179, 179, 181)
  146.     END IF
  147.     IF z(3) = 0 THEN
  148.         'Mars
  149.         CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
  150.         PAINT (x3, y3), _RGB32(240, 72, 22)
  151.     END IF
  152.     IF z(4) = 0 THEN
  153.         'Outer Planets
  154.         'Jupiter
  155.         CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
  156.         PAINT (x5, y5), _RGB32(255, 166, 127)
  157.     END IF
  158.     IF z(5) = 0 THEN
  159.         'Saturn
  160.         CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
  161.         PAINT (x6, y6), _RGB32(255, 127, 127)
  162.         FOR rings = 1 TO 2
  163.             CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
  164.         NEXT rings
  165.     END IF
  166.     IF z(6) = 0 THEN
  167.         'Uranus
  168.         CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
  169.         PAINT (x7, y7), _RGB32(127, 166, 255)
  170.     END IF
  171.     IF z(7) = 0 THEN
  172.         'Neptune
  173.         CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
  174.         PAINT (x8, y8), _RGB32(0, 78, 255)
  175.     END IF
  176.  
  178.  
  179.     'Mercury
  180.     CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
  181.     PAINT (x1, y1), _RGB32(120, 98, 102)
  182.  
  183.     'Venus
  184.     CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
  185.     PAINT (x2, y2), _RGB32(161, 67, 39)
  186.  
  187.     'Earth
  188.     CIRCLE (x, y), 5, _RGB32(0, 0, 255)
  189.     PAINT (x, y), _RGB32(0, 0, 255)
  190.     'Moon
  191.     CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
  192.     PAINT (x4, y4), _RGB32(179, 179, 181)
  193.  
  194.     'Mars
  195.     CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
  196.     PAINT (x3, y3), _RGB32(240, 72, 22)
  197.  
  198.     'Outer Planets
  199.     'Jupiter
  200.     CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
  201.     PAINT (x5, y5), _RGB32(255, 166, 127)
  202.  
  203.     'Saturn
  204.     CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
  205.     PAINT (x6, y6), _RGB32(255, 127, 127)
  206.     FOR rings = 1 TO 2
  207.         CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
  208.     NEXT rings
  209.  
  210.     'Uranus
  211.     CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
  212.     PAINT (x7, y7), _RGB32(127, 166, 255)
  213.  
  214.     'Neptune
  215.     CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
  216.     PAINT (x8, y8), _RGB32(0, 78, 255)
  217.  
  220. IF seconds > 99999 THEN
  221.     CLS
  222.     seconds = 0
  223.     GOTO one:
  226. GOTO one:
  227.  
Title: Re: 3D Revolving Disks
Post by: SierraKen on August 19, 2019, 02:59:36 am
Here is a much nicer version. The planets stay appeared until right before they go behind the Sun. I also made Saturn look better. I was able to do this by adding some more info on the IF/THEN statements to see where the coordinates are exactly. I added this to the ones that see if the planets are going right or left so I know where they are headed. Check this one out. :)  Also, I didn't mean to hijack your thread here. I would make  my own thread but I already have this in 1 other thread as well lol.
Oh, and don't ask about the Moon orbit. I tried hiding that behind the Earth and couldn't do it. It's just barely noticeable anyway. :)

Code: QB64: [Select]
  1. 'Ken G. made thie program on August 18, 2019,
  2. 'Thank you to STxAxTIC on the QB64.org forum for a little bit of help with The Moon orbit!
  3.  
  4. _TITLE "Solar System Simulator by Ken G. Use Mouse Over Planets, Mouse Wheel to Zoom, and Up and Down Arrow Keys To Tilt."
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6. DIM z(10)
  7. mercury = 0.241
  8. venus = 0.6152
  9. mars = 1.8809
  10. jupiter = 11.8618
  11. saturn = 29.457
  12. uranus = 84.0205
  13. neptune = 164.8
  14. angle = 180
  15. tilt = 1
  16. one:
  17. _LIMIT 500
  18. mouseWheel = 0
  20.     mouseX = _MOUSEX
  21.     mouseY = _MOUSEY
  22.     mouseLeftButton = _MOUSEBUTTON(1)
  23.     mouseRightButton = _MOUSEBUTTON(2)
  24.     mouseMiddleButton = _MOUSEBUTTON(3)
  25.     mouseWheel = mouseWheel + _MOUSEWHEEL
  27. IF mouseWheel < 0 THEN angle = angle - 10
  28. IF mouseWheel > 0 THEN angle = angle + 10
  29.  
  30. IF mouseX > 385 AND mouseX < 415 AND mouseY > 285 AND mouseY < 315 THEN LOCATE 2, 49: PRINT "Sun    "
  31. IF mouseX > x1 - 15 AND mouseX < x1 + 15 AND mouseY > y1 - 15 AND mouseY < y1 + 15 THEN LOCATE 2, 49: PRINT "Mercury"
  32. IF mouseX > x2 - 15 AND mouseX < x2 + 15 AND mouseY > y2 - 15 AND mouseY < y2 + 15 THEN LOCATE 2, 49: PRINT "Venus  "
  33. IF mouseX > x - 15 AND mouseX < x + 15 AND mouseY > y - 15 AND mouseY < y + 15 THEN LOCATE 2, 49: PRINT "Earth  "
  34. IF mouseX > x3 - 15 AND mouseX < x3 + 15 AND mouseY > y3 - 15 AND mouseY < y3 + 15 THEN LOCATE 2, 49: PRINT "Mars   "
  35. IF mouseX > x5 - 15 AND mouseX < x5 + 15 AND mouseY > y5 - 15 AND mouseY < y5 + 15 THEN LOCATE 2, 49: PRINT "Jupiter"
  36. IF mouseX > x6 - 15 AND mouseX < x6 + 15 AND mouseY > y6 - 15 AND mouseY < y6 + 15 THEN LOCATE 2, 49: PRINT "Saturn "
  37. IF mouseX > x7 - 15 AND mouseX < x7 + 15 AND mouseY > y7 - 15 AND mouseY < y7 + 15 THEN LOCATE 2, 49: PRINT "Uranus "
  38. IF mouseX > x8 - 15 AND mouseX < x8 + 15 AND mouseY > y8 - 15 AND mouseY < y8 + 15 THEN LOCATE 2, 49: PRINT "Neptune"
  39.  
  40. a$ = INKEY$
  41. IF a$ = CHR$(27) THEN END
  42. IF a$ = CHR$(0) + CHR$(72) THEN tilt = tilt + 1
  43. IF a$ = CHR$(0) + CHR$(80) THEN tilt = tilt - 1
  44. IF angle > 360 THEN angle = 360
  45. IF angle < 10 THEN angle = 10
  46. IF tilt > 50 THEN tilt = 50
  47. IF tilt < 1 THEN tilt = 1
  48. seconds = seconds + .01
  49. s1 = (60 - seconds) * 6 + 180 / mercury
  50. s2 = (60 - seconds) * 6 + 180 / venus
  51. s3 = (60 - seconds) * 6 + 180 'Earth and Moon
  52. s4 = (60 - seconds) * 6 + 180 / mars
  53. s5 = (60 - seconds) * 6 + 180 / jupiter
  54. s6 = (60 - seconds) * 6 + 180 / saturn
  55. s7 = (60 - seconds) * 6 + 180 / uranus
  56. s8 = (60 - seconds) * 6 + 180 / neptune
  57.  
  58.  
  59. 'Mercury
  60. oldx1 = x1
  61. x1 = INT(SIN(s1 / 45 * 3.141592) * angle / 4) + 400
  62. y1 = INT(COS(s1 / 45 * 3.141592) * (angle / 4) / tilt) + 300
  63.  
  64. 'Venus
  65. oldx2 = x2
  66. x2 = INT(SIN(s2 / 90 * 3.141592) * angle / 2) + 400
  67. y2 = INT(COS(s2 / 90 * 3.141592) * (angle / 2) / tilt) + 300
  68.  
  69. 'Earth
  70. oldx = x
  71. x = INT(SIN(s3 / 180 * 3.141592) * angle) + 400
  72. y = INT(COS(s3 / 180 * 3.141592) * angle / tilt) + 300
  73.  
  74. 'Mars
  75. oldx3 = x3
  76. x3 = INT(SIN(s4 / 270 * 3.141592) * angle * 1.5) + 400
  77. y3 = INT(COS(s4 / 270 * 3.141592) * (angle * 1.5) / tilt) + 300
  78.  
  79. 'Moon
  80. x4 = INT(SIN(19 * s3 / 270 * 3.141592) * angle / 10) + x
  81. y4 = INT(COS(19 * s3 / 270 * 3.141592) * (angle / 10) / tilt) + y
  82.  
  83. 'Outer Planets
  84. 'Jupiter
  85. oldx5 = x5
  86. x5 = INT(SIN(s5 / 450 * 3.141592) * angle * 3) + 400
  87. y5 = INT(COS(s5 / 450 * 3.141592) * (angle * 3) / tilt) + 300
  88.  
  89. 'Saturn
  90. oldx6 = x6
  91. x6 = INT(SIN(s6 / 630 * 3.141592) * angle * 4.5) + 400
  92. y6 = INT(COS(s6 / 630 * 3.141592) * (angle * 4.5) / tilt) + 300
  93.  
  94. 'Uranus
  95. oldx7 = x7
  96. x7 = INT(SIN(s7 / 810 * 3.141592) * angle * 6) + 400
  97. y7 = INT(COS(s7 / 810 * 3.141592) * (angle * 6) / tilt) + 300
  98.  
  99. 'Neptune
  100. oldx8 = x8
  101. x8 = INT(SIN(s8 / 990 * 3.141592) * angle * 7.5) + 400
  102. y8 = INT(COS(s8 / 990 * 3.141592) * (angle * 7.5) / tilt) + 300
  103.  
  104.  
  105. 'Sun
  106. CIRCLE (400, 300), 5, _RGB32(249, 240, 22)
  107. PAINT (400, 300), _RGB32(249, 240, 22)
  108.  
  109. IF tilt > 6 THEN
  110.     IF x1 > oldx1 AND x1 > 375 AND x1 < 425 THEN z(1) = 1
  111.     IF x2 > oldx2 AND x2 > 375 AND x2 < 425 THEN z(2) = 1
  112.     IF x3 > oldx3 AND x3 > 375 AND x3 < 425 THEN z(3) = 1
  113.     IF x5 > oldx5 AND x5 > 375 AND x5 < 425 THEN z(4) = 1
  114.     IF x6 > oldx6 AND x6 > 375 AND x6 < 425 THEN z(5) = 1
  115.     IF x7 > oldx7 AND x7 > 375 AND x7 < 425 THEN z(6) = 1
  116.     IF x8 > oldx8 AND x8 > 375 AND x8 < 425 THEN z(7) = 1
  117.     IF x > oldx AND x > 375 AND x < 425 THEN z(8) = 1
  118.  
  119.     IF x1 > oldx1 AND x1 > 424 THEN z(1) = 0
  120.     IF x2 > oldx2 AND x2 > 424 THEN z(2) = 0
  121.     IF x3 > oldx3 AND x3 > 424 THEN z(3) = 0
  122.     IF x5 > oldx5 AND x5 > 424 THEN z(4) = 0
  123.     IF x6 > oldx6 AND x6 > 424 THEN z(5) = 0
  124.     IF x7 > oldx7 AND x7 > 424 THEN z(6) = 0
  125.     IF x8 > oldx8 AND x8 > 424 THEN z(7) = 0
  126.     IF x > oldx AND x > 424 THEN z(8) = 0
  127.  
  128.  
  129.     IF x1 < oldx1 THEN z(1) = 0
  130.     IF x2 < oldx2 THEN z(2) = 0
  131.     IF x3 < oldx3 THEN z(3) = 0
  132.     IF x5 < oldx5 THEN z(4) = 0
  133.     IF x6 < oldx6 THEN z(5) = 0
  134.     IF x7 < oldx7 THEN z(6) = 0
  135.     IF x8 < oldx8 THEN z(7) = 0
  136.     IF x < oldx THEN z(8) = 0
  137.  
  138.     IF z(1) = 0 THEN
  139.         'Mercury
  140.         CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
  141.         PAINT (x1, y1), _RGB32(120, 98, 102)
  142.     END IF
  143.  
  144.     IF z(2) = 0 THEN
  145.         'Venus
  146.         CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
  147.         PAINT (x2, y2), _RGB32(161, 67, 39)
  148.     END IF
  149.  
  150.     IF z(8) = 0 THEN
  151.         'Earth
  152.         CIRCLE (x, y), 5, _RGB32(0, 0, 255)
  153.         PAINT (x, y), _RGB32(0, 0, 255)
  154.         'Moon
  155.         CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
  156.         PAINT (x4, y4), _RGB32(179, 179, 181)
  157.     END IF
  158.     IF z(3) = 0 THEN
  159.         'Mars
  160.         CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
  161.         PAINT (x3, y3), _RGB32(240, 72, 22)
  162.     END IF
  163.     IF z(4) = 0 THEN
  164.         'Outer Planets
  165.         'Jupiter
  166.         CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
  167.         PAINT (x5, y5), _RGB32(255, 166, 127)
  168.     END IF
  169.     IF z(5) = 0 THEN
  170.         'Saturn
  171.         CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
  172.         PAINT (x6, y6), _RGB32(255, 127, 127)
  173.         FOR rings = 4 TO 5
  174.             CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .2
  175.         NEXT rings
  176.     END IF
  177.     IF z(6) = 0 THEN
  178.         'Uranus
  179.         CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
  180.         PAINT (x7, y7), _RGB32(127, 166, 255)
  181.     END IF
  182.     IF z(7) = 0 THEN
  183.         'Neptune
  184.         CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
  185.         PAINT (x8, y8), _RGB32(0, 78, 255)
  186.     END IF
  187.  
  189.  
  190.     'Mercury
  191.     CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
  192.     PAINT (x1, y1), _RGB32(120, 98, 102)
  193.  
  194.     'Venus
  195.     CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
  196.     PAINT (x2, y2), _RGB32(161, 67, 39)
  197.  
  198.     'Earth
  199.     CIRCLE (x, y), 5, _RGB32(0, 0, 255)
  200.     PAINT (x, y), _RGB32(0, 0, 255)
  201.     'Moon
  202.     CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
  203.     PAINT (x4, y4), _RGB32(179, 179, 181)
  204.  
  205.     'Mars
  206.     CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
  207.     PAINT (x3, y3), _RGB32(240, 72, 22)
  208.  
  209.     'Outer Planets
  210.     'Jupiter
  211.     CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
  212.     PAINT (x5, y5), _RGB32(255, 166, 127)
  213.  
  214.     'Saturn
  215.     CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
  216.     PAINT (x6, y6), _RGB32(255, 127, 127)
  217.     FOR rings = 1 TO 2
  218.         CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
  219.     NEXT rings
  220.  
  221.     'Uranus
  222.     CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
  223.     PAINT (x7, y7), _RGB32(127, 166, 255)
  224.  
  225.     'Neptune
  226.     CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
  227.     PAINT (x8, y8), _RGB32(0, 78, 255)
  228.  
  231. IF seconds > 99999 THEN
  232.     CLS
  233.     seconds = 0
  234.     GOTO one:
  237. GOTO one:
  238.  
  239.  
Title: Re: 3D Revolving Disks
Post by: bplus on August 19, 2019, 10:27:00 am
Quote from: SierraKen on August 19, 2019, 02:59:36 am
Here is a much nicer version. The planets stay appeared until right before they go behind the Sun. I also made Saturn look better. I was able to do this by adding some more info on the IF/THEN statements to see where the coordinates are exactly. I added this to the ones that see if the planets are going right or left so I know where they are headed. Check this one out. :)  Also, I didn't mean to hijack your thread here. I would make  my own thread but I already have this in 1 other thread as well lol.
Oh, and don't ask about the Moon orbit. I tried hiding that behind the Earth and couldn't do it. It's just barely noticeable anyway. :)

Code: QB64: [Select]
  1. 'Ken G. made thie program on August 18, 2019,
  2. 'Thank you to STxAxTIC on the QB64.org forum for a little bit of help with The Moon orbit!
  3.  
  4. _TITLE "Solar System Simulator by Ken G. Use Mouse Over Planets, Mouse Wheel to Zoom, and Up and Down Arrow Keys To Tilt."
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6. DIM z(10)
  7. mercury = 0.241
  8. venus = 0.6152
  9. mars = 1.8809
  10. jupiter = 11.8618
  11. saturn = 29.457
  12. uranus = 84.0205
  13. neptune = 164.8
  14. angle = 180
  15. tilt = 1
  16. one:
  17. _LIMIT 500
  18. mouseWheel = 0
  20.     mouseX = _MOUSEX
  21.     mouseY = _MOUSEY
  22.     mouseLeftButton = _MOUSEBUTTON(1)
  23.     mouseRightButton = _MOUSEBUTTON(2)
  24.     mouseMiddleButton = _MOUSEBUTTON(3)
  25.     mouseWheel = mouseWheel + _MOUSEWHEEL
  27. IF mouseWheel < 0 THEN angle = angle - 10
  28. IF mouseWheel > 0 THEN angle = angle + 10
  29.  
  30. IF mouseX > 385 AND mouseX < 415 AND mouseY > 285 AND mouseY < 315 THEN LOCATE 2, 49: PRINT "Sun    "
  31. IF mouseX > x1 - 15 AND mouseX < x1 + 15 AND mouseY > y1 - 15 AND mouseY < y1 + 15 THEN LOCATE 2, 49: PRINT "Mercury"
  32. IF mouseX > x2 - 15 AND mouseX < x2 + 15 AND mouseY > y2 - 15 AND mouseY < y2 + 15 THEN LOCATE 2, 49: PRINT "Venus  "
  33. IF mouseX > x - 15 AND mouseX < x + 15 AND mouseY > y - 15 AND mouseY < y + 15 THEN LOCATE 2, 49: PRINT "Earth  "
  34. IF mouseX > x3 - 15 AND mouseX < x3 + 15 AND mouseY > y3 - 15 AND mouseY < y3 + 15 THEN LOCATE 2, 49: PRINT "Mars   "
  35. IF mouseX > x5 - 15 AND mouseX < x5 + 15 AND mouseY > y5 - 15 AND mouseY < y5 + 15 THEN LOCATE 2, 49: PRINT "Jupiter"
  36. IF mouseX > x6 - 15 AND mouseX < x6 + 15 AND mouseY > y6 - 15 AND mouseY < y6 + 15 THEN LOCATE 2, 49: PRINT "Saturn "
  37. IF mouseX > x7 - 15 AND mouseX < x7 + 15 AND mouseY > y7 - 15 AND mouseY < y7 + 15 THEN LOCATE 2, 49: PRINT "Uranus "
  38. IF mouseX > x8 - 15 AND mouseX < x8 + 15 AND mouseY > y8 - 15 AND mouseY < y8 + 15 THEN LOCATE 2, 49: PRINT "Neptune"
  39.  
  40. a$ = INKEY$
  41. IF a$ = CHR$(27) THEN END
  42. IF a$ = CHR$(0) + CHR$(72) THEN tilt = tilt + 1
  43. IF a$ = CHR$(0) + CHR$(80) THEN tilt = tilt - 1
  44. IF angle > 360 THEN angle = 360
  45. IF angle < 10 THEN angle = 10
  46. IF tilt > 50 THEN tilt = 50
  47. IF tilt < 1 THEN tilt = 1
  48. seconds = seconds + .01
  49. s1 = (60 - seconds) * 6 + 180 / mercury
  50. s2 = (60 - seconds) * 6 + 180 / venus
  51. s3 = (60 - seconds) * 6 + 180 'Earth and Moon
  52. s4 = (60 - seconds) * 6 + 180 / mars
  53. s5 = (60 - seconds) * 6 + 180 / jupiter
  54. s6 = (60 - seconds) * 6 + 180 / saturn
  55. s7 = (60 - seconds) * 6 + 180 / uranus
  56. s8 = (60 - seconds) * 6 + 180 / neptune
  57.  
  58.  
  59. 'Mercury
  60. oldx1 = x1
  61. x1 = INT(SIN(s1 / 45 * 3.141592) * angle / 4) + 400
  62. y1 = INT(COS(s1 / 45 * 3.141592) * (angle / 4) / tilt) + 300
  63.  
  64. 'Venus
  65. oldx2 = x2
  66. x2 = INT(SIN(s2 / 90 * 3.141592) * angle / 2) + 400
  67. y2 = INT(COS(s2 / 90 * 3.141592) * (angle / 2) / tilt) + 300
  68.  
  69. 'Earth
  70. oldx = x
  71. x = INT(SIN(s3 / 180 * 3.141592) * angle) + 400
  72. y = INT(COS(s3 / 180 * 3.141592) * angle / tilt) + 300
  73.  
  74. 'Mars
  75. oldx3 = x3
  76. x3 = INT(SIN(s4 / 270 * 3.141592) * angle * 1.5) + 400
  77. y3 = INT(COS(s4 / 270 * 3.141592) * (angle * 1.5) / tilt) + 300
  78.  
  79. 'Moon
  80. x4 = INT(SIN(19 * s3 / 270 * 3.141592) * angle / 10) + x
  81. y4 = INT(COS(19 * s3 / 270 * 3.141592) * (angle / 10) / tilt) + y
  82.  
  83. 'Outer Planets
  84. 'Jupiter
  85. oldx5 = x5
  86. x5 = INT(SIN(s5 / 450 * 3.141592) * angle * 3) + 400
  87. y5 = INT(COS(s5 / 450 * 3.141592) * (angle * 3) / tilt) + 300
  88.  
  89. 'Saturn
  90. oldx6 = x6
  91. x6 = INT(SIN(s6 / 630 * 3.141592) * angle * 4.5) + 400
  92. y6 = INT(COS(s6 / 630 * 3.141592) * (angle * 4.5) / tilt) + 300
  93.  
  94. 'Uranus
  95. oldx7 = x7
  96. x7 = INT(SIN(s7 / 810 * 3.141592) * angle * 6) + 400
  97. y7 = INT(COS(s7 / 810 * 3.141592) * (angle * 6) / tilt) + 300
  98.  
  99. 'Neptune
  100. oldx8 = x8
  101. x8 = INT(SIN(s8 / 990 * 3.141592) * angle * 7.5) + 400
  102. y8 = INT(COS(s8 / 990 * 3.141592) * (angle * 7.5) / tilt) + 300
  103.  
  104.  
  105. 'Sun
  106. CIRCLE (400, 300), 5, _RGB32(249, 240, 22)
  107. PAINT (400, 300), _RGB32(249, 240, 22)
  108.  
  109. IF tilt > 6 THEN
  110.     IF x1 > oldx1 AND x1 > 375 AND x1 < 425 THEN z(1) = 1
  111.     IF x2 > oldx2 AND x2 > 375 AND x2 < 425 THEN z(2) = 1
  112.     IF x3 > oldx3 AND x3 > 375 AND x3 < 425 THEN z(3) = 1
  113.     IF x5 > oldx5 AND x5 > 375 AND x5 < 425 THEN z(4) = 1
  114.     IF x6 > oldx6 AND x6 > 375 AND x6 < 425 THEN z(5) = 1
  115.     IF x7 > oldx7 AND x7 > 375 AND x7 < 425 THEN z(6) = 1
  116.     IF x8 > oldx8 AND x8 > 375 AND x8 < 425 THEN z(7) = 1
  117.     IF x > oldx AND x > 375 AND x < 425 THEN z(8) = 1
  118.  
  119.     IF x1 > oldx1 AND x1 > 424 THEN z(1) = 0
  120.     IF x2 > oldx2 AND x2 > 424 THEN z(2) = 0
  121.     IF x3 > oldx3 AND x3 > 424 THEN z(3) = 0
  122.     IF x5 > oldx5 AND x5 > 424 THEN z(4) = 0
  123.     IF x6 > oldx6 AND x6 > 424 THEN z(5) = 0
  124.     IF x7 > oldx7 AND x7 > 424 THEN z(6) = 0
  125.     IF x8 > oldx8 AND x8 > 424 THEN z(7) = 0
  126.     IF x > oldx AND x > 424 THEN z(8) = 0
  127.  
  128.  
  129.     IF x1 < oldx1 THEN z(1) = 0
  130.     IF x2 < oldx2 THEN z(2) = 0
  131.     IF x3 < oldx3 THEN z(3) = 0
  132.     IF x5 < oldx5 THEN z(4) = 0
  133.     IF x6 < oldx6 THEN z(5) = 0
  134.     IF x7 < oldx7 THEN z(6) = 0
  135.     IF x8 < oldx8 THEN z(7) = 0
  136.     IF x < oldx THEN z(8) = 0
  137.  
  138.     IF z(1) = 0 THEN
  139.         'Mercury
  140.         CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
  141.         PAINT (x1, y1), _RGB32(120, 98, 102)
  142.     END IF
  143.  
  144.     IF z(2) = 0 THEN
  145.         'Venus
  146.         CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
  147.         PAINT (x2, y2), _RGB32(161, 67, 39)
  148.     END IF
  149.  
  150.     IF z(8) = 0 THEN
  151.         'Earth
  152.         CIRCLE (x, y), 5, _RGB32(0, 0, 255)
  153.         PAINT (x, y), _RGB32(0, 0, 255)
  154.         'Moon
  155.         CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
  156.         PAINT (x4, y4), _RGB32(179, 179, 181)
  157.     END IF
  158.     IF z(3) = 0 THEN
  159.         'Mars
  160.         CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
  161.         PAINT (x3, y3), _RGB32(240, 72, 22)
  162.     END IF
  163.     IF z(4) = 0 THEN
  164.         'Outer Planets
  165.         'Jupiter
  166.         CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
  167.         PAINT (x5, y5), _RGB32(255, 166, 127)
  168.     END IF
  169.     IF z(5) = 0 THEN
  170.         'Saturn
  171.         CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
  172.         PAINT (x6, y6), _RGB32(255, 127, 127)
  173.         FOR rings = 4 TO 5
  174.             CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .2
  175.         NEXT rings
  176.     END IF
  177.     IF z(6) = 0 THEN
  178.         'Uranus
  179.         CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
  180.         PAINT (x7, y7), _RGB32(127, 166, 255)
  181.     END IF
  182.     IF z(7) = 0 THEN
  183.         'Neptune
  184.         CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
  185.         PAINT (x8, y8), _RGB32(0, 78, 255)
  186.     END IF
  187.  
  189.  
  190.     'Mercury
  191.     CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
  192.     PAINT (x1, y1), _RGB32(120, 98, 102)
  193.  
  194.     'Venus
  195.     CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
  196.     PAINT (x2, y2), _RGB32(161, 67, 39)
  197.  
  198.     'Earth
  199.     CIRCLE (x, y), 5, _RGB32(0, 0, 255)
  200.     PAINT (x, y), _RGB32(0, 0, 255)
  201.     'Moon
  202.     CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
  203.     PAINT (x4, y4), _RGB32(179, 179, 181)
  204.  
  205.     'Mars
  206.     CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
  207.     PAINT (x3, y3), _RGB32(240, 72, 22)
  208.  
  209.     'Outer Planets
  210.     'Jupiter
  211.     CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
  212.     PAINT (x5, y5), _RGB32(255, 166, 127)
  213.  
  214.     'Saturn
  215.     CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
  216.     PAINT (x6, y6), _RGB32(255, 127, 127)
  217.     FOR rings = 1 TO 2
  218.         CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
  219.     NEXT rings
  220.  
  221.     'Uranus
  222.     CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
  223.     PAINT (x7, y7), _RGB32(127, 166, 255)
  224.  
  225.     'Neptune
  226.     CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
  227.     PAINT (x8, y8), _RGB32(0, 78, 255)
  228.  
  231. IF seconds > 99999 THEN
  232.     CLS
  233.     seconds = 0
  234.     GOTO one:
  237. GOTO one:
  238.  
  239.  

Hi Ken,

Not hijacking if working towards goal of presenting Solar System in 3D, I had same thought!

Nope, what I am deeply, deeply saddened by is that you aren't using the handy dandy FillCircle routine I worked up for you, you could cut your program lines in half (almost):
Code: QB64: [Select]
  1. SUB CircleFill (centerX, centerY, circleRadius, circleColor AS _UNSIGNED LONG)
  2.     FOR changeRadius = .25 TO circleRadius STEP .25
  3.         CIRCLE (centerX, centerY), changeRadius, circleColor
  4.     NEXT
Maybe I should have named it SUB KensCircleFill(x, y, r, Kolor as _unsigned long)

...wait is that the problem? Kolor as _UNSIGNED LONG ?

That's THE TYPE to use for Color variables in a graphics screen, it allows _RGB32() colors and &HAARRGGBB (< fix thanks Steve) colors and once you get to using alpha = transparencies you will never look back! :))

You use the SUB just like you use CIRCLE, only you don't put x, y in (),
KensFillCircle x, y, r, _RGB32(255, 0, 0)

BTW, never change anything inside the SUB, change the variables used in the call to the SUB
KensFillCircle x, y, r, Colr    '<  change any variable or number here in main code.

another example of a "call" to use the sub
'drawMars
KensFillCircle marsX, marsY, marsRadius, _RGB32(255, 0, 0) ' < Mars color

and you could really, really cut your program lines down by using a planetary array or arrays, so I don't have to read mindless repetition of code, but we can only change things one step at a time... :)

Title: Re: 3D Revolving Disks
Post by: SMcNeill on August 19, 2019, 10:41:42 am
Quick typo fix for Bplus: &HAARRGGBB colors.  Alpha, Red, Green, Blue.
Title: Re: 3D Revolving Disks
Post by: bplus on August 19, 2019, 10:55:04 am
Oops! Thanks Steve, I will fix.

Yeah remember what the pirates say! "AARRGGBB matey, use that dang CircleFill!" ;-))
Title: Re: 3D Revolving Disks
Post by: SMcNeill on August 19, 2019, 11:01:12 am
Quote from: bplus on August 19, 2019, 10:55:04 am
Oops! Thanks Steve, I will fix.

No worries.  32-bit colors are tricky beasts.  Their values are &HAARRGGBB, we use the _RGBA command to set them usually, and they’re actually stored in memory as BBGGRRAA... 

And folks say programmers are supposed to be very logical... 
Title: Re: 3D Revolving Disks
Post by: SierraKen on August 19, 2019, 01:04:09 pm
Wow... well thanks B+, but there's a couple things you should know. First, I'm sure you guys have heard on here from people saying "It's hard to teach old dogs new tricks." Second, that tied together with my head injury problems, like very bad memory, often times I just forget things to use with programming. I know all of this can be fixed by lots of practice. SUB's are still a tiny bit in the gray area to me. I know what they are, like little programs within programs, etc. But I think one big reason I didn't even use GOSUBs in any of the code on this program is because each and every variable is different. Every planet is using different numbers at different locations with different colors. I'm not sure how I could make an array when everything is using different numbers at one time. And really, I think 2 different variables use the same memory has 1 array of 2 different numbers. Of course, you know tons more about it than I do so the way you program would have been much shorter I'm sure. But I'm still proud that this program only goes to line 237 with a lot of empty lines. :)
Title: Re: 3D Revolving Disks
Post by: OldMoses on August 19, 2019, 01:34:45 pm
Quote from: SierraKen on August 19, 2019, 01:04:09 pm
Every planet is using different numbers at different locations with different colors. I'm not sure how I could make an array when everything is using different numbers at one time. And really, I think 2 different variables use the same memory has 1 array of 2 different numbers.

This is where learning the use of TYPE declarations shows its stuff.

Code: QB64: [Select]
  1. TYPE planet
  2.     n AS STRING * 10 '    planets name
  3.     x AS INTEGER '          cartesian positions x, y & z
  4.     y AS INTEGER
  5.     z AS INTEGER
  6.     rad AS INTEGER '     planets radius
  7.     oprd AS INTEGER '       planets orbital period
  8.     orad AS INTEGER '       planets orbital radius
  9.     r AS INTEGER '             red component of planet color
  10.     g AS INTEGER '            green   "      "     "      "     "
  11.     b AS INTEGER '            blue     "     "      "      "      "
  12.     ' and anything else you need or want to add, calling it whatever
  13.     ' you want so long as it doesn't conflict with reserved words.
  15.  
  16. DIM P(10) AS planet '       dimension planet type as a 10 element array
  17.  

Then all you have to do to reference any variable for a particular planet is to call on the particular element in the user type array.

e.g. planet 5's orbital period would be P(5).oprd, it's position in X would be P(5).x, etc.

call the planets color by _RGB32(P(5).r, P(5).g, P(5).b)

Iterations of multiple planets becomes compact and simple.
Title: Re: 3D Revolving Disks
Post by: bplus on August 19, 2019, 01:52:58 pm
Quote from: SierraKen on August 19, 2019, 01:04:09 pm
Wow... well thanks B+, but there's a couple things you should know. First, I'm sure you guys have heard on here from people saying "It's hard to teach old dogs new tricks." Second, that tied together with my head injury problems, like very bad memory, often times I just forget things to use with programming. I know all of this can be fixed by lots of practice. SUB's are still a tiny bit in the gray area to me. I know what they are, like little programs within programs, etc. But I think one big reason I didn't even use GOSUBs in any of the code on this program is because each and every variable is different. Every planet is using different numbers at different locations with different colors. I'm not sure how I could make an array when everything is using different numbers at one time. And really, I think 2 different variables use the same memory has 1 array of 2 different numbers. Of course, you know tons more about it than I do so the way you program would have been much shorter I'm sure. But I'm still proud that this program only goes to line 237 with a lot of empty lines. :)

Hi Ken,

Oh wow, you didn't use any GOSUB (not that that is so bad). Sorry if I keep pressing you to try a SUB, you show so much enthusiasm and ingenuity, I am hoping to get you to power it up. Look how you worked in tilt!!!

Using your own CircleFill Sub is as easy as using CIRCLE built in, except for the () around X, Y it is the same way to use and you have to Copy / Paste the subroutine to the bottom of your code (keeping it outside you main code program). Oh, color is not optional, you have to say a color, you have to say all 4 things x, y, radius, color


OK I will cease and desist now. ;-)) Thanks for your patience.
Title: Re: 3D Revolving Disks
Post by: SierraKen on August 20, 2019, 12:13:40 am
LOL Thanks B+! QB64 turned my life around a LOT a couple months ago and still does. I've been a BASIC programmer off and on all my life. Even started to program in the 7th grade around 1985 or so on Apple 2c computers in the school lab with something called LOGO. You told the computer where to move the "Turtle" and he drew lines for what numbers you gave him. lol But as for nowadays, I've had too much time on my hands (I'm disabled and don't work) and I've wanted something like this to come back again. I would have used QB64 many years ago if I knew it existed LOL. But I guess it was for a reason :). That's one thing about life, never completely give up because someday something like this can come along. And I thank all of you guys for helping me fulfill this dream I've had since the 90's.
Text Only | Text with Attachments