« previous next »
Pages: 1 ... 5 6 [7]   Go Down

Author Topic: Star Backgound  (Read 21166 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
Re: Star Backgound
« Reply #90 on: August 19, 2019, 02:53:48 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.

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.  
« Last Edit: August 19, 2019, 02:55:31 am by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
Re: Star Backgound
« Reply #91 on: August 19, 2019, 02:56:41 am »
Quote from: SierraKen on August 19, 2019, 01:23:46 am
Here is a better version, thanks to B+ for the comments in the other thread. This one hides the planets when they go further away.

(Note: Please go to my next one, thanks.)

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.  
  228.  
Logged

Offline OldMoses

  • Seasoned Forum Regular
  • Posts: 469
Re: Star Backgound
« Reply #92 on: August 19, 2019, 07:32:06 am »
Your tilting function is pretty cool, that's something I've not tried to do with 3D simulations. I'm going to be studying that one. Thanks.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
Re: Star Backgound
« Reply #93 on: August 19, 2019, 01:05:49 pm »
Welcome OldMoses, you can also thank B+ for this thread, which gave me the idea to switch views from 2D to 3D. :)
Logged
Pages: 1 ... 5 6 [7]   Go Up
« previous next »