« previous next »
Pages: 1 [2] 3 4 ... 7   Go Down

Author Topic: Star Backgound  (Read 21255 times)

0 Members and 1 Guest are viewing this topic.

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
Re: Star Backgound
« Reply #15 on: June 11, 2018, 06:56:02 am »
Not a problem. It's an image I through together using Gimp. Enjoy.

J
Logged
Logic is the beginning of wisdom.

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
Re: Star Backgound
« Reply #16 on: June 16, 2018, 12:29:57 pm »
+[banned user]
Its cool to see spaceship running!
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 bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Star Backgound
« Reply #17 on: June 16, 2018, 01:02:01 pm »
Nice one [banned user]! Just like coming home again!

BTW, weren't you already a member here??? eg post in this thread June 11???
« Last Edit: June 16, 2018, 01:05:29 pm by bplus »
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
Re: Star Backgound
« Reply #18 on: June 16, 2018, 06:06:18 pm »
Just a couple of things...

Firsly, VERY cool demo...

Can I assume correctly that QB64's default transparency colour is black? If so, a couple of the planets, have transparent 'patches'... If you like I can fix that... and one of the 'Mars' images is upside down... I can fix that too if you wish... I have limited time today (Sunday), as we will be out most of the day, but I can make the changes later this afternoon if that's ok?

Other than these few 'cosmetic' effects the demo ran very smoothly... I like it!!!

J

ps: Never mind about Mars. Ran the demo longer and notice the image was 'flipped'....
« Last Edit: June 16, 2018, 06:10:24 pm by johnno56 »
Logged
Logic is the beginning of wisdom.

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
Re: Star Backgound
« Reply #19 on: June 17, 2018, 02:19:06 am »
Hi [banned user]!
Here's my fire MOD to your spaceship. :)
The amount of flame vary with speed of spaceship.

Code: QB64: [Select]
  1.  
  2. 'Original by [banned user]
  3. 'Fire MOD by Ashish
  4. _TITLE "Space the Final Frontier [Fire MOD]"
  5.  
  7.  
  8. DIM SHARED fireSizeX, fireSizeY
  9. fireSizeX = 120
  10. fireSizeY = 19
  11. DIM SHARED fireBuffer(fireSizeX, fireSizeY), colorPal(255) AS _UNSIGNED LONG, fuelControl
  12. fuelControl = 0.23
  13. 'creating our palette for fire
  14. FOR i = 255 TO 0 STEP -1
  15.     IF i <= 255 AND i >= 200 THEN 'white to yellow
  16.         colorPal(i) = _RGB32(map(i, 255, 200, 255, 255), map(i, 255, 200, 255, 242), map(i, 255, 200, 255, 0))
  17.     ELSEIF i <= 201 AND i >= 79 THEN 'yellow to orange
  18.         colorPal(i) = _RGB32(map(i, 201, 79, 255, 221), map(i, 201, 79, 242, 140), map(i, 201, 79, 0, 0))
  19.     ELSEIF i <= 89 AND i >= 79 THEN 'orange to dark orange red
  20.         colorPal(i) = _RGB32(map(i, 89, 79, 221, 183), map(i, 89, 79, 140, 45), map(i, 89, 79, 0, 0))
  21.     ELSEIF i <= 78 AND i >= 0 THEN 'dark orange red to transparent
  22.         colorPal(i) = _RGBA32(map(i, 78, 0, 183, 0), map(i, 78, 0, 45, 0), map(i, 78, 0, 0, 0), map(i, 78, 0, 255, 0))
  23.     END IF
  25.  
  26.  
  27. DIM Touch AS STRING
  28.  
  29. DIM SHARED frameRate AS INTEGER
  30. DIM SHARED frameCount AS INTEGER
  31.  
  32. DIM SHARED frameTime AS STRING
  33. frameTime = RIGHT$(TIME$, 2)
  34.  
  35. ' \/\/\/\/\/\/\/\/\/\/\/\/
  36. ' Screen Width and Height
  37. ' /\/\/\/\/\/\/\/\/\/\/\/\
  40. sWidth = 800
  41. sHeight = 600
  42.  
  43. SCREEN _NEWIMAGE(sWidth, sHeight, 32)
  44.  
  45. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  46. ' Stars Background and the Starship
  47. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  48. DIM SHARED starBack AS LONG
  49. DIM SHARED Starship AS LONG
  50.  
  51. ' Stars Background:
  52. ' https://www.qb64.org/forum/index.php?PHPSESSID=fe200737599194549d14a890bf46be14&topic=250.0
  53. starBack = _LOADIMAGE(".\images\Stars.png")
  54. _PUTIMAGE (0, 0), starBack
  55.  
  56. ' Starship:
  57. ' http://www.clipartlord.com/category/space-clip-art/spaceship-clip-art/
  58. Starship = _LOADIMAGE(".\images\Starship.png")
  59. _CLEARCOLOR _RGB(0, 0, 0), Starship
  60.  
  61. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  62. ' Used to make sure Starship doesn't go offscreen
  63. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  64. wShip = sWidth - 400
  65. hShip = sHeight - 170
  66.  
  67. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
  68. ' Starship Location (Centered)
  69. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
  72. shipX = sWidth \ 2 - 200
  73. shipY = sHeight \ 2 - 85
  74.  
  75. ' \/\/\/\/\/\/\/\/\/\/\/
  76. ' Speed of the Starship
  77. ' /\/\/\/\/\/\/\/\/\/\/\
  78. DIM SHARED warpSpeed AS INTEGER
  79. warpSpeed = 2
  80.  
  81. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  82. ' Celestial Objects (Stars and Planets)
  83. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  84. TYPE Celestial
  85.     ' Location
  86.     x AS INTEGER
  87.     y AS INTEGER
  88.  
  89.     ' Size
  90.     w AS INTEGER
  91.     h AS INTEGER
  92.  
  93.     ' Rotation
  94.     c AS INTEGER
  95.     r AS INTEGER
  96.  
  97.     ' Planet used
  98.     used AS INTEGER
  99.  
  100.     ' Planet Spins
  101.     spin AS INTEGER
  102.  
  103.     image AS LONG
  105.  
  106. ' \/\/\/\/\/\/\/\/
  107. ' Stars Background
  108. ' /\/\/\/\/\/\/\/\
  109. DIM SHARED Stars(2) AS Celestial
  110.  
  111. Stars(1).x = 0
  112. Stars(2).x = 800
  113.  
  114. Stars(1).image = _NEWIMAGE(800, 600, 32)
  115. _PUTIMAGE (0, 0), starBack, Stars(1).image
  116.  
  117. Stars(2).image = _NEWIMAGE(800, 600, 32)
  118. Frontier
  119.  
  120. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  121. ' Display text while Planets load
  122. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  123. Touch = "Loading Planet Data...."
  124.  
  125. y = sHeight \ 2 - 8
  126. x = sWidth \ 2 - (LEN(Touch) * 4)
  127. _PRINTSTRING (x, y), Touch
  128.  
  129. DIM SHARED PlanetView(4) AS INTEGER
  130.  
  131. DIM SHARED Planet(40) AS Celestial
  132.  
  133. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  134. ' Load all the planets (40 total)
  135. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  136. FOR p = 1 TO 40
  137.     ' Planets:
  138.     ' http://www.clipartlord.com/category/space-clip-art/planets-clip-art/
  139.     Planet(p).image = _LOADIMAGE(".\images\Planet" + RIGHT$("0" + LTRIM$(STR$(p)), 2) + ".png")
  140.     _CLEARCOLOR _RGB(0, 0, 0), Planet(p).image
  141.  
  142.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  143.     ' Get the Width and Height of the planet
  144.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  145.     Planet(p).w = _WIDTH(Planet(p).image)
  146.     Planet(p).h = _HEIGHT(Planet(p).image)
  148.  
  149. ' \/\/\/\/\/\/\/\/\/\/\/\/\/
  150. ' Starship enters the scene
  151. ' /\/\/\/\/\/\/\/\/\/\/\/\/\
  152. FOR x = -400 TO shipX STEP 10
  153.     'fire
  154.     FOR fy = 3 TO fireSizeY - 2
  155.         fireBuffer(fireSizeX - 2, fy) = INT(RND * 128) + 128
  156.     NEXT
  157.     FOR fy = 3 TO fireSizeY - 2
  158.         FOR fx = 0 TO fireSizeX - 2
  159.             fireBuffer(fx, fy) = (fireBuffer(fx + 1, fy - 1) + fireBuffer(fx + 1, fy) + fireBuffer(fx + 2, fy) + fireBuffer(fx + 1, fy + 1)) * (fuelControl + .018327)
  160.     NEXT fx, fy
  161.  
  162.     _PUTIMAGE (0, 0), starBack
  163.  
  164.     'rendering fire
  165.     FOR fy = 0 TO fireSizeY
  166.         FOR fx = 0 TO fireSizeX
  167.             'PRINT INT(fireBuffer(fx, fy))
  168.             PSET (fx + x + 115 - fireSizeX + 2, fy + shipY + 100), colorPal(INT(fireBuffer(fx, fy)))
  169.     NEXT fx, fy
  170.  
  171.     _PUTIMAGE (x, shipY), Starship
  172.  
  173.     _DISPLAY
  174.     _LIMIT 30
  176.  
  177. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  178. ' Show the animations until ESC is pressed
  179. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  180. WHILE Touch <> CHR$(27)
  181.     Background
  182.  
  183.  
  184.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  185.     ' Checks to see if a key is pressed
  186.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  187.     Touch = INKEY$
  188.     IF Touch <> "" THEN
  189.         ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  190.         ' Keys 0-9 changes the warpspeed
  191.         ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  192.         IF ASC(Touch) > 47 AND ASC(Touch) < 58 THEN warpSpeed = VAL(Touch)
  193.  
  194.         ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  195.         ' Home key centers the Starship
  196.         ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  197.         IF Touch = CHR$(0) + CHR$(71) THEN
  198.             shipX = sWidth \ 2 - 200
  199.             shipY = sHeight \ 2 - 85
  200.         END IF
  201.  
  202.         ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  203.         ' Up and Down Arrow Keys moves the Starship
  204.         ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  205.         IF Touch = CHR$(0) + CHR$(72) THEN
  206.             shipY = shipY - warpSpeed
  207.             IF shipY < 0 THEN shipY = 0
  208.         END IF
  209.  
  210.         IF Touch = CHR$(0) + CHR$(80) THEN
  211.             shipY = shipY + warpSpeed
  212.             IF shipY > hShip THEN shipY = hShip
  213.         END IF
  214.     END IF
  215.  
  216.     Framed
  217.  
  218.     _DISPLAY
  219.     _LIMIT 60
  222.  
  223. SUB Background
  224.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
  225.     ' Places the stars Backgrounds
  226.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
  227.     _PUTIMAGE (Stars(1).x, 0), Stars(1).image
  228.     _PUTIMAGE (Stars(2).x, 0), Stars(2).image
  229.  
  230.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  231.     ' Show planet(s)  (if available)
  232.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  233.     FOR v = 1 TO 2
  234.         IF PlanetView(v) > 0 THEN
  235.             ViewPlanet PlanetView(v), v
  236.         END IF
  237.     NEXT
  238.     acc = (warpSpeed + 1) * .001905#
  239.     'fire
  240.     FOR fy = 3 TO fireSizeY - 2
  241.         fireBuffer(fireSizeX - 2, fy) = INT(RND * 128) + 128
  242.     NEXT
  243.     FOR fy = 3 TO fireSizeY - 2
  244.         FOR fx = 0 TO fireSizeX - 2
  245.             fireBuffer(fx, fy) = (fireBuffer(fx + 1, fy - 1) + fireBuffer(fx + 1, fy) + fireBuffer(fx + 2, fy) + fireBuffer(fx + 1, fy + 1)) * (fuelControl + acc)
  246.     NEXT fx, fy
  247.     'rendering fire
  248.     FOR fy = 0 TO fireSizeY
  249.         FOR fx = 0 TO fireSizeX
  250.             'PRINT INT(fireBuffer(fx, fy))
  251.             PSET (fx + shipX + 115 - fireSizeX + 2, fy + shipY + 100), colorPal(INT(fireBuffer(fx, fy)))
  252.     NEXT fx, fy
  253.  
  254.  
  255.     ' \/\/\/\/\/\/\/\/\/
  256.     ' Show the Starship
  257.     ' /\/\/\/\/\/\/\/\/\
  258.     _PUTIMAGE (shipX, shipY), Starship
  259.  
  260.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  261.     ' Have the background shift left by warpspeed
  262.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  263.     Stars(1).x = Stars(1).x - warpSpeed
  264.     Stars(2).x = Stars(2).x - warpSpeed
  265.  
  266.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  267.     ' When the background reaches the end reset background
  268.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  269.     IF Stars(2).x < 0 THEN
  270.         Stars(1).x = 0
  271.         Stars(2).x = 800
  272.  
  273.         ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  274.         ' Put the second image on the first to keep the animation proper
  275.         ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  276.         _PUTIMAGE (0, 0), Stars(2).image, Stars(1).image
  277.  
  278.         ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
  279.         ' Add Planets to the animation
  280.         ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
  281.         Frontier
  282.     END IF
  284.  
  285. SUB Frontier
  286.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  287.     ' Reset the background and rotate to make things different
  288.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  289.     SELECT CASE INT(4 * RND)
  290.         CASE 0: _PUTIMAGE (0, 0), starBack, Stars(2).image
  291.         CASE 1: _PUTIMAGE (799, 0)-(0, 599), starBack, Stars(2).image
  292.         CASE 2: _PUTIMAGE (0, 599)-(799, 0), starBack, Stars(2).image
  293.         CASE 3: _PUTIMAGE (799, 599)-(0, 0), starBack, Stars(2).image
  294.     END SELECT
  295.  
  296.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/
  297.     ' Choose a Planet to display
  298.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\
  299.     tag1:
  300.     p1 = INT(40 * RND) + 1
  301.     IF Planet(p1).used = 1 THEN GOTO tag1
  302.  
  303.     ' \/\/\/\/\/\/\/\/\/\/\/\/
  304.     ' Get the Width and Height
  305.     ' /\/\/\/\/\/\/\/\/\/\/\/\
  306.     w = Planet(p1).w
  307.     h = Planet(p1).h
  308.  
  309.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  310.     ' Make sure planet isn't going off the screen
  311.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  312.     x1 = INT((sWidth - w) * RND)
  313.     y1 = INT((sHeight - h) * RND)
  314.  
  315.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  316.     ' Set the Planet as used and save the location
  317.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  318.     IF PlanetView(1) = 0 THEN
  319.         PlanetView(1) = p1
  320.         'ELSE
  321.         '  PlanetView(3) = p1
  322.     END IF
  323.  
  324.     Planet(p1).x = 800 + x1
  325.     Planet(p1).y = y1
  326.  
  327.     Planet(p1).used = 1
  328.     Planet(p1).spin = INT(2 * RND)
  329.  
  330.     IF INT(2 * RND) = 1 THEN
  331.         tag2:
  332.         p2 = INT(40 * RND) + 1
  333.         IF Planet(p2).used = 1 THEN GOTO tag2
  334.  
  335.         w = Planet(p2).w
  336.         h = Planet(p2).h
  337.  
  338.         IF p2 <> p1 THEN
  339.             IF w < Planet(p1).w AND h < Planet(p1).h THEN
  340.                 x2 = INT((sWidth - w) * RND)
  341.                 y2 = INT((sHeight - h) * RND)
  342.             END IF
  343.         END IF
  344.  
  345.         IF PlanetView(2) = 0 THEN
  346.             PlanetView(2) = p2
  347.             'ELSE
  348.             '  PlanetView(4) = p2
  349.         END IF
  350.  
  351.         Planet(p2).x = 800 + x2
  352.         Planet(p2).y = y2
  353.  
  354.         Planet(p2).used = 1
  355.         Planet(p2).spin = INT(2 * RND)
  356.     END IF
  358.  
  359. SUB ViewPlanet (p, v)
  360.     'w = Planet(p).w
  361.  
  362.     'x = Planet(p).x
  363.     'y = Planet(p).y
  364.     '_PUTIMAGE (x, y), Planet(p).image, 0
  365.  
  366.     'x = x - 2
  367.     'Planet(p).x = x
  368.     '_PRINTSTRING (4, sHeight \ 2 - 8), STR$(x) + "    "
  369.  
  370.     'IF x + w < 0 THEN
  371.     '  BEEP
  372.     '  PlanetView(v) = 0
  373.     '  Planet(p).used = 0
  374.     'END IF
  375.     'EXIT SUB
  376.  
  377.     w = Planet(p).w
  378.     h = Planet(p).h
  379.  
  380.     x1 = Planet(p).x
  381.     x2 = Planet(p).x + w
  382.  
  383.     y1 = Planet(p).y
  384.     y2 = Planet(p).y + h
  385.  
  386.     SELECT CASE Planet(p).r
  387.         CASE 0: _PUTIMAGE (x1, y1), Planet(p).image, 0
  388.         CASE 1: _PUTIMAGE (x2, y1)-(x1, y2), Planet(p).image, 0
  389.         CASE 2: _PUTIMAGE (x1, y2)-(x2, y1), Planet(p).image, 0
  390.         CASE 3: _PUTIMAGE (x2, y2)-(x1, y1), Planet(p).image, 0
  391.     END SELECT
  392.  
  393.     IF Planet(p).spin = 1 THEN
  394.         Planet(p).c = Planet(p).c + 1
  395.  
  396.         IF Planet(p).c = 16 THEN
  397.             Planet(p).c = 0
  398.  
  399.             Planet(p).r = Planet(p).r + 1
  400.             IF Planet(p).r > 3 THEN Planet(p).r = 0
  401.         END IF
  402.     END IF
  403.  
  404.     x1 = x1 - warpSpeed
  405.     Planet(p).x = x1
  406.  
  407.     IF x2 < 0 THEN
  408.         PlanetView(v) = 0
  409.         Planet(p).used = 0
  410.     END IF
  412.  
  413. SUB Framed
  414.     IF RIGHT$(TIME$, 1) = frameTime THEN
  415.         frameCount = frameCount + 1
  416.     ELSE
  417.         frameRate = frameCount
  418.  
  419.         frameCount = 0
  420.         frameTime = RIGHT$(TIME$, 1)
  421.     END IF
  422.  
  423.     _PRINTSTRING (4, 8), STR$(frameRate)
  425.  
  426.  
  427. 'from p5js.bas
  428. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  429.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  431.  
  432.  
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 Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
Re: Star Backgound
« Reply #20 on: June 17, 2018, 05:07:42 am »
Very nice original by [banned user] and also modification by Ashish! :-D
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
Re: Star Backgound
« Reply #21 on: June 17, 2018, 05:11:38 am »
Ok. I have modified ALL of the images. All images now have a transparent background and all 'black' has been replaced by a complimentary colour. All images resized and centered. I ran the program with the modified images and everything looks fine. No missing patches... Cool.

BUT... In the meantime... 'Rotating' planets has been introduced... All of the modified spherical planets 'rotate' just fine. All that have rings look weird when rotating. Suggest that these planets do not rotate.

I have some ideas for rotating ringed planets but it may take some time to work on them.

I have attached all of the modified images. Make a backup copy of the originals then replace them with these....

J

ps: "Attachments and other options" does NOT include a browse to file. I will attempt to include a link. I hope I get this right...

https://www.dropbox.com/s/zgpmn9ly4tnp3bx/planets.zip?dl=0
Logged
Logic is the beginning of wisdom.

FellippeHeitor

  • Guest
Re: Star Backgound
« Reply #22 on: June 17, 2018, 10:13:57 am »
Great job, [banned user]. And welcome back to the forum.

Ashish's fire mod definitely adds a fine touch here too.

Here's my humble contribution to the y-axis movement (up/down arrows):
Code: QB64: [Select]
  1. _TITLE "Space the Final Frontier"
  2.  
  4. CONST true = -1, false = NOT true
  5. DIM Touch AS STRING
  6.  
  7. DIM SHARED frameRate AS INTEGER
  8. DIM SHARED frameCount AS INTEGER
  9.  
  10. DIM SHARED frameTime AS STRING
  11. frameTime = RIGHT$(TIME$, 2)
  12.  
  13. DIM SHARED modFire AS _BYTE
  14. modFire = true
  15.  
  16. DIM SHARED fireSizeX, fireSizeY
  17. fireSizeX = 120
  18. fireSizeY = 19
  19.  
  20. DIM SHARED fireBuffer(fireSizeX, fireSizeY), colorPal(255) AS _UNSIGNED LONG, fuelControl
  21. fuelControl = 0.23
  22.  
  23. 'creating our palette for fire
  24. FOR i = 255 TO 0 STEP -1
  25.     IF i <= 255 AND i >= 200 THEN 'white to yellow
  26.         colorPal(i) = _RGB32(map(i, 255, 200, 255, 255), map(i, 255, 200, 255, 242), map(i, 255, 200, 255, 0))
  27.     ELSEIF i <= 201 AND i >= 79 THEN 'yellow to orange
  28.         colorPal(i) = _RGB32(map(i, 201, 79, 255, 221), map(i, 201, 79, 242, 140), map(i, 201, 79, 0, 0))
  29.     ELSEIF i <= 89 AND i >= 79 THEN 'orange to dark orange red
  30.         colorPal(i) = _RGB32(map(i, 89, 79, 221, 183), map(i, 89, 79, 140, 45), map(i, 89, 79, 0, 0))
  31.     ELSEIF i <= 78 AND i >= 0 THEN 'dark orange red to transparent
  32.         colorPal(i) = _RGBA32(map(i, 78, 0, 183, 0), map(i, 78, 0, 45, 0), map(i, 78, 0, 0, 0), map(i, 78, 0, 255, 0))
  33.     END IF
  35.  
  36. ' \/\/\/\/\/\/\/\/\/\/\/\/
  37. ' Screen Width and Height
  38. ' /\/\/\/\/\/\/\/\/\/\/\/\
  41. sWidth = 800
  42. sHeight = 600
  43.  
  44. SCREEN _NEWIMAGE(sWidth, sHeight, 32)
  45.  
  46. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  47. ' Stars Background and the Starship
  48. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  49. DIM SHARED starBack AS LONG
  50. DIM SHARED Starship AS LONG
  51.  
  52. ' Stars Background:
  53. ' https://www.qb64.org/forum/index.php?PHPSESSID=fe200737599194549d14a890bf46be14&topic=250.0
  54. starBack = _LOADIMAGE(".\images\Stars.png")
  55. _PUTIMAGE (0, 0), starBack
  56.  
  57. ' Starship:
  58. ' http://www.clipartlord.com/category/space-clip-art/spaceship-clip-art/
  59. Starship = _LOADIMAGE(".\images\Starship.png")
  60. _CLEARCOLOR _RGB(0, 0, 0), Starship
  61.  
  62. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  63. ' Used to make sure Starship doesn't go offscreen
  64. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  65. wShip = sWidth - 400
  66. hShip = sHeight - 170
  67.  
  68. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
  69. ' Starship Location (Centered)
  70. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
  73. shipX = sWidth \ 2 - 200
  74. shipY = sHeight \ 2 - 85
  75.  
  76. ' \/\/\/\/\/\/\/\/\/\/\/
  77. ' Speed of the Starship
  78. ' /\/\/\/\/\/\/\/\/\/\/\
  79. DIM SHARED warpSpeed AS INTEGER
  80. warpSpeed = 2
  81.  
  82. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  83. ' Celestial Objects (Stars and Planets)
  84. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  85. TYPE Celestial
  86.     ' Location
  87.     x AS INTEGER
  88.     y AS INTEGER
  89.  
  90.     ' Size
  91.     w AS INTEGER
  92.     h AS INTEGER
  93.  
  94.     ' Rotation
  95.     c AS INTEGER
  96.     r AS INTEGER
  97.  
  98.     ' Planet used
  99.     used AS INTEGER
  100.  
  101.     ' Planet Spins
  102.     spin AS INTEGER
  103.  
  104.     image AS LONG
  106.  
  107. ' \/\/\/\/\/\/\/\/
  108. ' Stars Background
  109. ' /\/\/\/\/\/\/\/\
  110. DIM SHARED Stars(2) AS Celestial
  111.  
  112. Stars(1).x = 0
  113. Stars(2).x = 800
  114.  
  115. Stars(1).image = _NEWIMAGE(800, 600, 32)
  116. _PUTIMAGE (0, 0), starBack, Stars(1).image
  117.  
  118. Stars(2).image = _NEWIMAGE(800, 600, 32)
  119. Starfield
  120. Frontier
  121.  
  122. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  123. ' Display text while Planets load
  124. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  125. Touch = "Loading Planet Data...."
  126.  
  127. y = sHeight \ 2 - 8
  128. x = sWidth \ 2 - (LEN(Touch) * 4)
  129. _PRINTSTRING (x, y), Touch
  130.  
  131. DIM SHARED PlanetView(4) AS INTEGER
  132.  
  133. DIM SHARED Planet(40) AS Celestial
  134.  
  135. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  136. ' Load all the planets (40 total)
  137. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  138. FOR p = 1 TO 40
  139.     ' Planets:
  140.     ' http://www.clipartlord.com/category/space-clip-art/planets-clip-art/
  141.     Planet(p).image = _LOADIMAGE(".\images\Planet" + RIGHT$("0" + LTRIM$(STR$(p)), 2) + ".png")
  142.     _CLEARCOLOR _RGB(0, 0, 0), Planet(p).image
  143.  
  144.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  145.     ' Get the Width and Height of the planet
  146.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  147.     Planet(p).w = _WIDTH(Planet(p).image)
  148.     Planet(p).h = _HEIGHT(Planet(p).image)
  150.  
  151. ' \/\/\/\/\/\/\/\/\/\/\/\/\/
  152. ' Starship enters the scene
  153. ' /\/\/\/\/\/\/\/\/\/\/\/\/\
  154. FOR x = -400 TO shipX STEP 10
  155.     IF modFire THEN
  156.         'fire
  157.         FOR fy = 3 TO fireSizeY - 2
  158.             fireBuffer(fireSizeX - 2, fy) = INT(RND * 128) + 128
  159.         NEXT
  160.         FOR fy = 3 TO fireSizeY - 2
  161.             FOR fx = 0 TO fireSizeX - 2
  162.                 fireBuffer(fx, fy) = (fireBuffer(fx + 1, fy - 1) + fireBuffer(fx + 1, fy) + fireBuffer(fx + 2, fy) + fireBuffer(fx + 1, fy + 1)) * (fuelControl + .018327)
  163.         NEXT fx, fy
  164.     END IF
  165.  
  166.     _PUTIMAGE (0, 0), starBack
  167.  
  168.     IF modFire THEN
  169.         'rendering fire
  170.         FOR fy = 0 TO fireSizeY
  171.             FOR fx = 0 TO fireSizeX
  172.                 'PRINT INT(fireBuffer(fx, fy))
  173.                 PSET (fx + x + 115 - fireSizeX + 2, fy + shipY + 100), colorPal(INT(fireBuffer(fx, fy)))
  174.         NEXT fx, fy
  175.     END IF
  176.  
  177.     _PUTIMAGE (x, shipY), Starship
  178.  
  179.     _DISPLAY
  180.     _LIMIT 30
  182.  
  183. ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  184. ' Show the animations until ESC is pressed
  185. ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  186. WHILE Touch <> CHR$(27)
  187.     Background
  188.  
  189.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  190.     ' Checks to see if a key is pressed
  191.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  192.     Touch = INKEY$
  193.     IF Touch <> "" THEN
  194.         ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  195.         ' Keys 0-9 changes the warpspeed
  196.         ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  197.         IF ASC(Touch) > 47 AND ASC(Touch) < 58 THEN warpSpeed = VAL(Touch)
  198.  
  199.         ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
  200.         ' M key will add the fire mod
  201.         ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
  202.         IF UCASE$(Touch) = "M" THEN
  203.             modFire = NOT modFire
  204.         END IF
  205.  
  206.         ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  207.         ' Home key centers the Starship
  208.         ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  209.         IF Touch = CHR$(0) + CHR$(71) THEN
  210.             shipX = sWidth \ 2 - 200
  211.             shipY = sHeight \ 2 - 85
  212.         END IF
  213.  
  214.         ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  215.         ' Up and Down Arrow Keys moves the Starship
  216.         ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  217.         IF Touch = CHR$(0) + CHR$(72) THEN
  218.             yMovement = -3
  219.         END IF
  220.  
  221.         IF Touch = CHR$(0) + CHR$(80) THEN
  222.             yMovement = 3
  223.         END IF
  224.     END IF
  225.  
  226.     shipY = shipY + yMovement
  227.     IF yMovement > 0.5 THEN yMovement = yMovement - .05
  228.     IF yMovement < -0.5 THEN yMovement = yMovement + .05
  229.  
  230.     'Framed
  231.  
  232.     _DISPLAY
  233.     _LIMIT 60
  236.  
  237. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
  238.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
  240.  
  241. SUB Background
  242.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
  243.     ' Places the stars Backgrounds
  244.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
  245.     _PUTIMAGE (Stars(1).x, 0), Stars(1).image
  246.     _PUTIMAGE (Stars(2).x, 0), Stars(2).image
  247.  
  248.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  249.     ' Show planet(s)  (if available)
  250.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  251.     FOR v = 1 TO 2
  252.         IF PlanetView(v) > 0 THEN
  253.             ViewPlanet PlanetView(v), v
  254.         END IF
  255.     NEXT
  256.  
  257.     IF modFire THEN
  258.         acc = (warpSpeed + 1) * .001905#
  259.  
  260.         'fire
  261.         FOR fy = 3 TO fireSizeY - 2
  262.             fireBuffer(fireSizeX - 2, fy) = INT(RND * 128) + 128
  263.         NEXT
  264.  
  265.         FOR fy = 3 TO fireSizeY - 2
  266.             FOR fx = 0 TO fireSizeX - 2
  267.                 fireBuffer(fx, fy) = (fireBuffer(fx + 1, fy - 1) + fireBuffer(fx + 1, fy) + fireBuffer(fx + 2, fy) + fireBuffer(fx + 1, fy + 1)) * (fuelControl + acc)
  268.         NEXT fx, fy
  269.  
  270.         'rendering fire
  271.         FOR fy = 0 TO fireSizeY
  272.             FOR fx = 0 TO fireSizeX
  273.                 'PRINT INT(fireBuffer(fx, fy))
  274.                 PSET (fx + shipX + 115 - fireSizeX + 2, fy + shipY + 100), colorPal(INT(fireBuffer(fx, fy)))
  275.         NEXT fx, fy
  276.     END IF
  277.  
  278.     ' \/\/\/\/\/\/\/\/\/
  279.     ' Show the Starship
  280.     ' /\/\/\/\/\/\/\/\/\
  281.     _PUTIMAGE (shipX, shipY), Starship
  282.  
  283.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  284.     ' Have the background shift left by warpspeed
  285.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  286.     Stars(1).x = Stars(1).x - warpSpeed
  287.     Stars(2).x = Stars(2).x - warpSpeed
  288.  
  289.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  290.     ' When the background reaches the end reset background
  291.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  292.     IF Stars(2).x < 0 THEN
  293.         Stars(1).x = 0
  294.         Stars(2).x = 800
  295.  
  296.         ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  297.         ' Put the second image on the first to keep the animation proper
  298.         ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  299.         _PUTIMAGE (0, 0), Stars(2).image, Stars(1).image
  300.  
  301.         Starfield
  302.     END IF
  304.  
  305. SUB Frontier
  306.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/
  307.     ' Choose a Planet to display
  308.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\
  309.     'tag1:
  310.     p1 = INT(40 * RND) + 1
  311.     'IF Planet(p1).used = 1 THEN GOTO tag1
  312.  
  313.     ' \/\/\/\/\/\/\/\/\/\/\/\/
  314.     ' Get the Width and Height
  315.     ' /\/\/\/\/\/\/\/\/\/\/\/\
  316.     w = Planet(p1).w
  317.     h = Planet(p1).h
  318.  
  319.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  320.     ' Make sure planet isn't going off the screen
  321.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  322.     x1 = INT((sWidth - w) * RND)
  323.     y1 = INT((sHeight - h) * RND)
  324.  
  325.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  326.     ' Set the Planet as used and save the location
  327.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  328.     PlanetView(1) = p1
  329.  
  330.     Planet(p1).x = 800 + x1
  331.     Planet(p1).y = y1
  332.  
  333.     Planet(p1).used = 1
  334.     IF p1 < 29 THEN Planet(p2).spin = INT(2 * RND)
  335.  
  336.     IF INT(2 * RND) = 1 THEN
  337.         p2 = INT(40 * RND) + 1
  338.  
  339.         w = Planet(p2).w
  340.         h = Planet(p2).h
  341.  
  342.         IF p2 <> p1 THEN
  343.             IF w < Planet(p1).w AND h < Planet(p1).h THEN
  344.                 x2 = INT((sWidth - w) * RND)
  345.                 y2 = INT((sHeight - h) * RND)
  346.             END IF
  347.         END IF
  348.  
  349.         PlanetView(2) = p2
  350.  
  351.         Planet(p2).x = 800 + x2
  352.         Planet(p2).y = y2
  353.  
  354.         Planet(p2).used = 1
  355.  
  356.         IF p2 < 29 THEN Planet(p2).spin = INT(2 * RND)
  357.     END IF
  359.  
  360. SUB Starfield
  361.     ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
  362.     ' Reset the background and rotate to make things different
  363.     ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
  364.     SELECT CASE INT(4 * RND)
  365.         CASE 0: _PUTIMAGE (0, 0), starBack, Stars(2).image
  366.         CASE 1: _PUTIMAGE (799, 0)-(0, 599), starBack, Stars(2).image
  367.         CASE 2: _PUTIMAGE (0, 599)-(799, 0), starBack, Stars(2).image
  368.         CASE 3: _PUTIMAGE (799, 599)-(0, 0), starBack, Stars(2).image
  369.     END SELECT
  371.  
  372. SUB ViewPlanet (p, v)
  373.     w = Planet(p).w
  374.     h = Planet(p).h
  375.  
  376.     x1 = Planet(p).x
  377.     x2 = Planet(p).x + w
  378.  
  379.     y1 = Planet(p).y
  380.     y2 = Planet(p).y + h
  381.  
  382.     SELECT CASE Planet(p).r
  383.         CASE 0: _PUTIMAGE (x1, y1), Planet(p).image, 0
  384.         CASE 1: _PUTIMAGE (x2, y1)-(x1, y2), Planet(p).image, 0
  385.         CASE 2: _PUTIMAGE (x1, y2)-(x2, y1), Planet(p).image, 0
  386.         CASE 3: _PUTIMAGE (x2, y2)-(x1, y1), Planet(p).image, 0
  387.     END SELECT
  388.  
  389.     IF Planet(p).spin = 1 THEN
  390.         Planet(p).c = Planet(p).c + 1
  391.  
  392.         IF Planet(p).c = 16 THEN
  393.             Planet(p).c = 0
  394.  
  395.             Planet(p).r = Planet(p).r + 1
  396.             IF Planet(p).r > 3 THEN Planet(p).r = 0
  397.         END IF
  398.     END IF
  399.  
  400.     x1 = x1 - warpSpeed
  401.     Planet(p).x = x1
  402.  
  403.     IF x1 + w < 0 THEN
  404.         PlanetView(v) = 0
  405.         Planet(p).used = 0
  406.  
  407.         ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
  408.         ' Add Planets to the animation
  409.         ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
  410.         Frontier
  411.     END IF
  413.  
  414. SUB Framed
  415.     IF RIGHT$(TIME$, 1) = frameTime THEN
  416.         frameCount = frameCount + 1
  417.     ELSE
  418.         frameRate = frameCount
  419.  
  420.         frameCount = 0
  421.         frameTime = RIGHT$(TIME$, 1)
  422.     END IF
  423.  
  424.     _PRINTSTRING (4, 8), STR$(frameRate)
  426.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Star Backgound
« Reply #23 on: June 17, 2018, 11:16:03 am »
Not suppose to have fire in space but Ashish application is really good!

If you want even more helm control, I have updated RotoZoom:
https://www.qb64.org/forum/index.php?topic=278.0
Logged

Offline Ashish

  • Forum Resident
  • Posts: 630
  • Never Give Up!
Re: Star Backgound
« Reply #24 on: June 17, 2018, 11:55:41 am »
Thanks Guys! :D
I thought that the fire was not looking good in space. It must be somewhat neon light blue in color to give a nitro booster effect to spaceship.
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 bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Star Backgound
« Reply #25 on: June 18, 2018, 09:29:40 am »
Ha! I thought it was Love that makes the worlds go round.

How does it make you feel with all this planet making and turning? :D
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Star Backgound
« Reply #26 on: June 18, 2018, 12:34:11 pm »
Yeah, they made my head spin but a view at pole of earth would show same spinning (maybe not so fast), actually I was offering RotoZoom2 for helm control to point ship in different directions, but then you'd have to make star background adjust to new direction. You could then draw an infinite space by generating new star systems... extending the universe out to infinity... how do you feel about that? ;D Then the trick would be to repeat the same star pattern if you turn the ship around!
« Last Edit: June 18, 2018, 12:36:13 pm by bplus »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
Re: Star Backgound
« Reply #27 on: June 18, 2018, 02:47:14 pm »
Oh hey a crazy idea, make a rectangular map of the planet, code it to a cylinder (connect the left edge to the right with mod) and then map the upper and lower edges to a single point, the poles, add snow and spin.
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
Re: Star Backgound
« Reply #28 on: June 18, 2018, 06:10:32 pm »
bplus,

I had that thought as well. A rectangular image converted to an animated sphere. Already done that ages ago... Gimp has the ability to do that and to generate an animated gif. It's easy enough to extract the many 'frames' but would be even easier if QB64 has the ability to display animated gif's.

If I can find my old tutorial I will post it... Hang on... I can't. "attachments' do not cater for files... Is someone going to fix that little issue? Never mind. I create a link. Give me a little while to find my files... lol

J
Logged
Logic is the beginning of wisdom.

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
Re: Star Backgound
« Reply #29 on: June 18, 2018, 06:37:09 pm »
Done.

Here is the link to the tutorial: http://www.paintshopprotutorials.co.uk/html/spinning_globe_animation_gimp.html

Here are the links to the files I used.
https://www.dropbox.com/s/ain0yxptec30i1b/flag.png?dl=0 (image)
https://www.dropbox.com/s/0ofsdv7xnihe2kv/flag.gif?dl=0 (gif - 100 frames)

The whole process took only a few minutes. (NB: I deliberately used a 'square' image. Produced a better globe)

I hope this helps...

J

ps: Just finished "Mars". Enjoy.

https://www.dropbox.com/s/x2puc7x1x315r2a/mars.png?dl=0 (image)
https://www.dropbox.com/s/z1yd3uj57cgfuch/mars.gif?dl=0 (gif - 100 frames)
« Last Edit: June 18, 2018, 06:54:55 pm by johnno56 »
Logged
Logic is the beginning of wisdom.
Pages: 1 [2] 3 4 ... 7   Go Up
« previous next »