Print Page - Star Backgound

Active Forums => Programs => Topic started by: johnno56 on June 04, 2018, 09:15:23 pm

Title: Star Backgound
Post by: johnno56 on June 04, 2018, 09:15:23 pm

I'm an not sure where to post this...

I have attached a space background (800 x 600). I made this using Gimp. Please feel free to use as you see fit. Credit is not required.

ps: I do planets as well... But they take a LOT longer to make...

Enjoy.

J

Title: Re: Star Backgound
Post by: odin on June 04, 2018, 09:22:29 pm

This is probably the best spot.

Title: Re: Star Backgound
Post by: FellippeHeitor on June 04, 2018, 09:23:11 pm

That looks gorgeous, johnno56! I wonder if it could be generated with code.

Title: Re: Star Backgound
Post by: johnno56 on June 05, 2018, 12:22:10 am

You are quite welcome to try. I have absolutely no idea how to do that... It took me many attempts to create the image using the principles of a tutorial as a guide

J

Title: Re: Star Backgound
Post by: Ashish on June 05, 2018, 07:06:58 am

Wow johnno56! Seems like you are very good at graphics designing! Good work!

Title: Re: Star Backgound
Post by: bplus on June 05, 2018, 09:39:34 am

Hey Johnno,

That looks great for Lander project. Do you take requests? say for buttons, say for forward thruster, turning clockwise and counter-clockwise, for restarters? ;-))

Title: Re: Star Backgound
Post by: Petr on June 05, 2018, 10:09:45 am

Johnno56 thank you for sharing this nice image!

Title: Re: Star Backgound
Post by: johnno56 on June 05, 2018, 11:40:44 am

Quote from: bplus on June 05, 2018, 09:39:34 am

Hey Johnno,

That looks great for Lander project. Do you take requests? say for buttons, say for forward thruster, turning clockwise and counter-clockwise, for restarters? ;-))

N.B. I've already made a Lander using that background (sdlbasic) ;)

Flat; Glossy; Metallic; Rectangular; Circular; "Surprise Me"
Info: Dimensions; Colour; Text or symbol; Format: png etc

or perhaps a "hand drawing"

Just let me know what you need?

J

ps: Gold or Platinum plated will take longer and cost more... Nah. Kidding! Cost WAY more... lol

Title: Re: Star Backgound
Post by: bplus on June 05, 2018, 12:07:21 pm

Hey Johnno,

You can use your best judgment with Lander Project, the button sizes are around 200 x 50 but InForm can stretch them to fit.

Another collaboration? Feel free to add images to Lander Project thread.

Do you even have an idea for the Restart button?

Title: Re: Star Backgound
Post by: johnno56 on June 05, 2018, 05:27:28 pm

I'll start with perhaps a brushed metal finish... I do not think this project needs to have 'glossy' or 3D-type buttons... These beasties scream 'Hey look at me' and will 'distract'. After all, you do not want the player to crash, because their attention was 'drawn' to the fancy buttons... lol

Quick question: Regardless of the 'style', will you be wanting a duplicate 'clicked' button? (ie: slight colour change to indicate clicked)

J

Title: Re: Star Backgound
Post by: bplus on June 05, 2018, 05:37:24 pm

Hi Johnno,

You know what would be fancy cool, crystal buttons.

I'd say crystal buttons would glow a bit with mouse over and light up when pressed.

Don't know if we could do all that, don't know if we could do any of that. ;-))

Your Star Background is looking good with a black silhouette terrain.

Title: Re: Star Backgound
Post by: johnno56 on June 05, 2018, 10:26:47 pm

"Crystal" buttons. Hmm.. Not sure if I've seen any of those. Slight glow with mouse-over. Brighter glow when clicked. How will that work if the player only uses the arrow keys? Perhaps just a change of state from no glow to full glow? So, in essence, you need a set of 12 buttons, right? Crystal you say? I suppose you needed them yesterday? lol I'm going to need a bottomless cup of coffee for 'this' project... lol

J

Title: Re: Star Backgound
Post by: Petr on June 06, 2018, 10:15:44 am

Hi. Crystal buttons can be very easy realised using _SETAPLHA if button is image&. I muss going out now, but i can writing demo when am back.

Title: Re: Star Backgound
Post by: Petr on June 06, 2018, 03:50:08 pm

So here it is, it use one Johnno56 picture:

Code: QB64: [Select]

SCREEN _NEWIMAGE(800, 600, 32)
DIM SHARED hide AS LONG
 
Image& = _LOADIMAGE("restart.png", 32)
hide& = _NEWIMAGE(_WIDTH(Image&), _HEIGHT(Image&), 32)
DO
 
    SELECT CASE Quad_Button(400, 300, Image&, 200, 0, 120) ' set alpha channel (transparency), 0 is full transparent, 255 is NOT transparent
        CASE 0: LOCATE 1, 1: PRINT "Button not pressed"
        CASE 1: LOCATE 1, 1: PRINT "Button pressed    "
        CASE 2: LOCATE 1, 1: PRINT "Mouse on position "
    END SELECT
    _DISPLAY
LOOP UNTIL _KEYHIT = 27
 
 
 
FUNCTION Quad_Button (X AS INTEGER, Y AS INTEGER, ButtonImage AS LONG, OFF_Color, ON_Color, On_PosColor AS LONG)
    WHILE _MOUSEINPUT: WEND
    _DEST hide&: LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0), BF: _DEST 0
    IF _MOUSEX >= X AND _MOUSEX <= X + _WIDTH(ButtonImage&) AND _MOUSEY >= Y AND _MOUSEY <= Y + _HEIGHT(ButtonImage&) THEN
        IF _MOUSEBUTTON(1) THEN GOSUB Button_Active
        GOSUB OnPosition
    END IF
 
    _SETALPHA OFF_Color, _RGB32(0, 0, 0), hide&
    _PUTIMAGE (X, Y), ButtonImage&
    _PUTIMAGE (X, Y), hide&
    _LIMIT 30
    Quad_Button = 0: EXIT FUNCTION
 
    OnPosition:
    _SETALPHA On_PosColor, _RGB32(0, 0, 0), hide&
    _PUTIMAGE (X, Y), ButtonImage&
    _PUTIMAGE (X, Y), hide&
    Quad_Button = 2: EXIT FUNCTION
    RETURN
 
    Button_Active:
    _SETALPHA ON_Color, _RGB32(0, 0, 0), hide&
    _PUTIMAGE (X, Y), ButtonImage&
    _PUTIMAGE (X, Y), hide&
    Quad_Button = 1
    EXIT FUNCTION
END FUNCTION
 

Please use picture RESTART.PNG from https://www.qb64.org/forum/index.php?topic=249.30 because attachments now works not.

Title: Re: Star Backgound
Post by: bplus on June 07, 2018, 10:11:33 am

Hi Petr,

Works fine and as expected for me; I had never noticed _SETALPHA before this. A rather complex function that one!

Thanks for your demo.

Title: Re: Star Backgound
Post by: johnno56 on June 11, 2018, 06:56:02 am

Not a problem. It's an image I through together using Gimp. Enjoy.

J

Title: Re: Star Backgound
Post by: Ashish on June 16, 2018, 12:29:57 pm

+[banned user]
Its cool to see spaceship running!

Title: Re: Star Backgound
Post by: bplus 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???

Title: Re: Star Backgound
Post by: johnno56 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'....

Title: Re: Star Backgound
Post by: Ashish 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]

 
'Original by [banned user]
'Fire MOD by Ashish
_TITLE "Space the Final Frontier [Fire MOD]"
 
RANDOMIZE TIMER
 
DIM SHARED fireSizeX, fireSizeY
fireSizeX = 120
fireSizeY = 19
DIM SHARED fireBuffer(fireSizeX, fireSizeY), colorPal(255) AS _UNSIGNED LONG, fuelControl
fuelControl = 0.23
'creating our palette for fire
FOR i = 255 TO 0 STEP -1
    IF i <= 255 AND i >= 200 THEN 'white to yellow
        colorPal(i) = _RGB32(map(i, 255, 200, 255, 255), map(i, 255, 200, 255, 242), map(i, 255, 200, 255, 0))
    ELSEIF i <= 201 AND i >= 79 THEN 'yellow to orange
        colorPal(i) = _RGB32(map(i, 201, 79, 255, 221), map(i, 201, 79, 242, 140), map(i, 201, 79, 0, 0))
    ELSEIF i <= 89 AND i >= 79 THEN 'orange to dark orange red
        colorPal(i) = _RGB32(map(i, 89, 79, 221, 183), map(i, 89, 79, 140, 45), map(i, 89, 79, 0, 0))
    ELSEIF i <= 78 AND i >= 0 THEN 'dark orange red to transparent
        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))
    END IF
NEXT
 
 
DIM Touch AS STRING
 
DIM SHARED frameRate AS INTEGER
DIM SHARED frameCount AS INTEGER
 
DIM SHARED frameTime AS STRING
frameTime = RIGHT$(TIME$, 2)
 
' \/\/\/\/\/\/\/\/\/\/\/\/
' Screen Width and Height
' /\/\/\/\/\/\/\/\/\/\/\/\
DIM SHARED sWidth AS INTEGER
DIM SHARED sHeight AS INTEGER
sWidth = 800
sHeight = 600
 
SCREEN _NEWIMAGE(sWidth, sHeight, 32)
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Stars Background and the Starship
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
DIM SHARED starBack AS LONG
DIM SHARED Starship AS LONG
 
' Stars Background:
' https://www.qb64.org/forum/index.php?PHPSESSID=fe200737599194549d14a890bf46be14&topic=250.0
starBack = _LOADIMAGE(".\images\Stars.png")
_PUTIMAGE (0, 0), starBack
 
' Starship:
' http://www.clipartlord.com/category/space-clip-art/spaceship-clip-art/
Starship = _LOADIMAGE(".\images\Starship.png")
_CLEARCOLOR _RGB(0, 0, 0), Starship
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Used to make sure Starship doesn't go offscreen
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
wShip = sWidth - 400
hShip = sHeight - 170
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Starship Location (Centered)
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
DIM SHARED shipX AS INTEGER
DIM SHARED shipY AS INTEGER
shipX = sWidth \ 2 - 200
shipY = sHeight \ 2 - 85
 
' \/\/\/\/\/\/\/\/\/\/\/
' Speed of the Starship
' /\/\/\/\/\/\/\/\/\/\/\
DIM SHARED warpSpeed AS INTEGER
warpSpeed = 2
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Celestial Objects (Stars and Planets)
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
TYPE Celestial
    ' Location
    x AS INTEGER
    y AS INTEGER
 
    ' Size
    w AS INTEGER
    h AS INTEGER
 
    ' Rotation
    c AS INTEGER
    r AS INTEGER
 
    ' Planet used
    used AS INTEGER
 
    ' Planet Spins
    spin AS INTEGER
 
    image AS LONG
END TYPE
 
' \/\/\/\/\/\/\/\/
' Stars Background
' /\/\/\/\/\/\/\/\
DIM SHARED Stars(2) AS Celestial
 
Stars(1).x = 0
Stars(2).x = 800
 
Stars(1).image = _NEWIMAGE(800, 600, 32)
_PUTIMAGE (0, 0), starBack, Stars(1).image
 
Stars(2).image = _NEWIMAGE(800, 600, 32)
Frontier
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Display text while Planets load
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
Touch = "Loading Planet Data...."
 
y = sHeight \ 2 - 8
x = sWidth \ 2 - (LEN(Touch) * 4)
_PRINTSTRING (x, y), Touch
 
DIM SHARED PlanetView(4) AS INTEGER
 
DIM SHARED Planet(40) AS Celestial
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Load all the planets (40 total)
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
FOR p = 1 TO 40
    ' Planets:
    ' http://www.clipartlord.com/category/space-clip-art/planets-clip-art/
    Planet(p).image = _LOADIMAGE(".\images\Planet" + RIGHT$("0" + LTRIM$(STR$(p)), 2) + ".png")
    _CLEARCOLOR _RGB(0, 0, 0), Planet(p).image
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Get the Width and Height of the planet
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    Planet(p).w = _WIDTH(Planet(p).image)
    Planet(p).h = _HEIGHT(Planet(p).image)
NEXT
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/
' Starship enters the scene
' /\/\/\/\/\/\/\/\/\/\/\/\/\
FOR x = -400 TO shipX STEP 10
    'fire
    FOR fy = 3 TO fireSizeY - 2
        fireBuffer(fireSizeX - 2, fy) = INT(RND * 128) + 128
    NEXT
    FOR fy = 3 TO fireSizeY - 2
        FOR fx = 0 TO fireSizeX - 2
            fireBuffer(fx, fy) = (fireBuffer(fx + 1, fy - 1) + fireBuffer(fx + 1, fy) + fireBuffer(fx + 2, fy) + fireBuffer(fx + 1, fy + 1)) * (fuelControl + .018327)
    NEXT fx, fy
 
    _PUTIMAGE (0, 0), starBack
 
    'rendering fire
    FOR fy = 0 TO fireSizeY
        FOR fx = 0 TO fireSizeX
            'PRINT INT(fireBuffer(fx, fy))
            PSET (fx + x + 115 - fireSizeX + 2, fy + shipY + 100), colorPal(INT(fireBuffer(fx, fy)))
    NEXT fx, fy
 
    _PUTIMAGE (x, shipY), Starship
 
    _DISPLAY
    _LIMIT 30
NEXT
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Show the animations until ESC is pressed
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
WHILE Touch <> CHR$(27)
    Background
 
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Checks to see if a key is pressed
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    Touch = INKEY$
    IF Touch <> "" THEN
        ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
        ' Keys 0-9 changes the warpspeed
        ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
        IF ASC(Touch) > 47 AND ASC(Touch) < 58 THEN warpSpeed = VAL(Touch)
 
        ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
        ' Home key centers the Starship
        ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
        IF Touch = CHR$(0) + CHR$(71) THEN
            shipX = sWidth \ 2 - 200
            shipY = sHeight \ 2 - 85
        END IF
 
        ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
        ' Up and Down Arrow Keys moves the Starship
        ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
        IF Touch = CHR$(0) + CHR$(72) THEN
            shipY = shipY - warpSpeed
            IF shipY < 0 THEN shipY = 0
        END IF
 
        IF Touch = CHR$(0) + CHR$(80) THEN
            shipY = shipY + warpSpeed
            IF shipY > hShip THEN shipY = hShip
        END IF
    END IF
 
    Framed
 
    _DISPLAY
    _LIMIT 60
WEND
END
 
SUB Background
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Places the stars Backgrounds
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
    _PUTIMAGE (Stars(1).x, 0), Stars(1).image
    _PUTIMAGE (Stars(2).x, 0), Stars(2).image
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Show planet(s)  (if available)
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    FOR v = 1 TO 2
        IF PlanetView(v) > 0 THEN
            ViewPlanet PlanetView(v), v
        END IF
    NEXT
    acc = (warpSpeed + 1) * .001905#
    'fire
    FOR fy = 3 TO fireSizeY - 2
        fireBuffer(fireSizeX - 2, fy) = INT(RND * 128) + 128
    NEXT
    FOR fy = 3 TO fireSizeY - 2
        FOR fx = 0 TO fireSizeX - 2
            fireBuffer(fx, fy) = (fireBuffer(fx + 1, fy - 1) + fireBuffer(fx + 1, fy) + fireBuffer(fx + 2, fy) + fireBuffer(fx + 1, fy + 1)) * (fuelControl + acc)
    NEXT fx, fy
    'rendering fire
    FOR fy = 0 TO fireSizeY
        FOR fx = 0 TO fireSizeX
            'PRINT INT(fireBuffer(fx, fy))
            PSET (fx + shipX + 115 - fireSizeX + 2, fy + shipY + 100), colorPal(INT(fireBuffer(fx, fy)))
    NEXT fx, fy
 
 
    ' \/\/\/\/\/\/\/\/\/
    ' Show the Starship
    ' /\/\/\/\/\/\/\/\/\
    _PUTIMAGE (shipX, shipY), Starship
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Have the background shift left by warpspeed
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    Stars(1).x = Stars(1).x - warpSpeed
    Stars(2).x = Stars(2).x - warpSpeed
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' When the background reaches the end reset background
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    IF Stars(2).x < 0 THEN
        Stars(1).x = 0
        Stars(2).x = 800
 
        ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
        ' Put the second image on the first to keep the animation proper
        ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
        _PUTIMAGE (0, 0), Stars(2).image, Stars(1).image
 
        ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
        ' Add Planets to the animation
        ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
        Frontier
    END IF
END SUB
 
SUB Frontier
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Reset the background and rotate to make things different
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    SELECT CASE INT(4 * RND)
        CASE 0: _PUTIMAGE (0, 0), starBack, Stars(2).image
        CASE 1: _PUTIMAGE (799, 0)-(0, 599), starBack, Stars(2).image
        CASE 2: _PUTIMAGE (0, 599)-(799, 0), starBack, Stars(2).image
        CASE 3: _PUTIMAGE (799, 599)-(0, 0), starBack, Stars(2).image
    END SELECT
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Choose a Planet to display
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\
    tag1:
    p1 = INT(40 * RND) + 1
    IF Planet(p1).used = 1 THEN GOTO tag1
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/
    ' Get the Width and Height
    ' /\/\/\/\/\/\/\/\/\/\/\/\
    w = Planet(p1).w
    h = Planet(p1).h
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Make sure planet isn't going off the screen
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    x1 = INT((sWidth - w) * RND)
    y1 = INT((sHeight - h) * RND)
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Set the Planet as used and save the location
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    IF PlanetView(1) = 0 THEN
        PlanetView(1) = p1
        'ELSE
        '  PlanetView(3) = p1
    END IF
 
    Planet(p1).x = 800 + x1
    Planet(p1).y = y1
 
    Planet(p1).used = 1
    Planet(p1).spin = INT(2 * RND)
 
    IF INT(2 * RND) = 1 THEN
        tag2:
        p2 = INT(40 * RND) + 1
        IF Planet(p2).used = 1 THEN GOTO tag2
 
        w = Planet(p2).w
        h = Planet(p2).h
 
        IF p2 <> p1 THEN
            IF w < Planet(p1).w AND h < Planet(p1).h THEN
                x2 = INT((sWidth - w) * RND)
                y2 = INT((sHeight - h) * RND)
            END IF
        END IF
 
        IF PlanetView(2) = 0 THEN
            PlanetView(2) = p2
            'ELSE
            '  PlanetView(4) = p2
        END IF
 
        Planet(p2).x = 800 + x2
        Planet(p2).y = y2
 
        Planet(p2).used = 1
        Planet(p2).spin = INT(2 * RND)
    END IF
END SUB
 
SUB ViewPlanet (p, v)
    'w = Planet(p).w
 
    'x = Planet(p).x
    'y = Planet(p).y
    '_PUTIMAGE (x, y), Planet(p).image, 0
 
    'x = x - 2
    'Planet(p).x = x
    '_PRINTSTRING (4, sHeight \ 2 - 8), STR$(x) + "    "
 
    'IF x + w < 0 THEN
    '  BEEP
    '  PlanetView(v) = 0
    '  Planet(p).used = 0
    'END IF
    'EXIT SUB
 
    w = Planet(p).w
    h = Planet(p).h
 
    x1 = Planet(p).x
    x2 = Planet(p).x + w
 
    y1 = Planet(p).y
    y2 = Planet(p).y + h
 
    SELECT CASE Planet(p).r
        CASE 0: _PUTIMAGE (x1, y1), Planet(p).image, 0
        CASE 1: _PUTIMAGE (x2, y1)-(x1, y2), Planet(p).image, 0
        CASE 2: _PUTIMAGE (x1, y2)-(x2, y1), Planet(p).image, 0
        CASE 3: _PUTIMAGE (x2, y2)-(x1, y1), Planet(p).image, 0
    END SELECT
 
    IF Planet(p).spin = 1 THEN
        Planet(p).c = Planet(p).c + 1
 
        IF Planet(p).c = 16 THEN
            Planet(p).c = 0
 
            Planet(p).r = Planet(p).r + 1
            IF Planet(p).r > 3 THEN Planet(p).r = 0
        END IF
    END IF
 
    x1 = x1 - warpSpeed
    Planet(p).x = x1
 
    IF x2 < 0 THEN
        PlanetView(v) = 0
        Planet(p).used = 0
    END IF
END SUB
 
SUB Framed
    IF RIGHT$(TIME$, 1) = frameTime THEN
        frameCount = frameCount + 1
    ELSE
        frameRate = frameCount
 
        frameCount = 0
        frameTime = RIGHT$(TIME$, 1)
    END IF
 
    _PRINTSTRING (4, 8), STR$(frameRate)
END SUB
 
 
'from p5js.bas
FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
    map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
END FUNCTION
 
 

Title: Re: Star Backgound
Post by: Petr on June 17, 2018, 05:07:42 am

Very nice original by [banned user] and also modification by Ashish! :-D

Title: Re: Star Backgound
Post by: johnno56 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

Title: Re: Star Backgound
Post by: FellippeHeitor 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]

_TITLE "Space the Final Frontier"
 
RANDOMIZE TIMER
CONST true = -1, false = NOT true
DIM Touch AS STRING
 
DIM SHARED frameRate AS INTEGER
DIM SHARED frameCount AS INTEGER
 
DIM SHARED frameTime AS STRING
frameTime = RIGHT$(TIME$, 2)
 
DIM SHARED modFire AS _BYTE
modFire = true
 
DIM SHARED fireSizeX, fireSizeY
fireSizeX = 120
fireSizeY = 19
 
DIM SHARED fireBuffer(fireSizeX, fireSizeY), colorPal(255) AS _UNSIGNED LONG, fuelControl
fuelControl = 0.23
 
'creating our palette for fire
FOR i = 255 TO 0 STEP -1
    IF i <= 255 AND i >= 200 THEN 'white to yellow
        colorPal(i) = _RGB32(map(i, 255, 200, 255, 255), map(i, 255, 200, 255, 242), map(i, 255, 200, 255, 0))
    ELSEIF i <= 201 AND i >= 79 THEN 'yellow to orange
        colorPal(i) = _RGB32(map(i, 201, 79, 255, 221), map(i, 201, 79, 242, 140), map(i, 201, 79, 0, 0))
    ELSEIF i <= 89 AND i >= 79 THEN 'orange to dark orange red
        colorPal(i) = _RGB32(map(i, 89, 79, 221, 183), map(i, 89, 79, 140, 45), map(i, 89, 79, 0, 0))
    ELSEIF i <= 78 AND i >= 0 THEN 'dark orange red to transparent
        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))
    END IF
NEXT
 
' \/\/\/\/\/\/\/\/\/\/\/\/
' Screen Width and Height
' /\/\/\/\/\/\/\/\/\/\/\/\
DIM SHARED sWidth AS INTEGER
DIM SHARED sHeight AS INTEGER
sWidth = 800
sHeight = 600
 
SCREEN _NEWIMAGE(sWidth, sHeight, 32)
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Stars Background and the Starship
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
DIM SHARED starBack AS LONG
DIM SHARED Starship AS LONG
 
' Stars Background:
' https://www.qb64.org/forum/index.php?PHPSESSID=fe200737599194549d14a890bf46be14&topic=250.0
starBack = _LOADIMAGE(".\images\Stars.png")
_PUTIMAGE (0, 0), starBack
 
' Starship:
' http://www.clipartlord.com/category/space-clip-art/spaceship-clip-art/
Starship = _LOADIMAGE(".\images\Starship.png")
_CLEARCOLOR _RGB(0, 0, 0), Starship
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Used to make sure Starship doesn't go offscreen
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
wShip = sWidth - 400
hShip = sHeight - 170
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Starship Location (Centered)
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
DIM SHARED shipX AS INTEGER
DIM SHARED shipY AS INTEGER
shipX = sWidth \ 2 - 200
shipY = sHeight \ 2 - 85
 
' \/\/\/\/\/\/\/\/\/\/\/
' Speed of the Starship
' /\/\/\/\/\/\/\/\/\/\/\
DIM SHARED warpSpeed AS INTEGER
warpSpeed = 2
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Celestial Objects (Stars and Planets)
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
TYPE Celestial
    ' Location
    x AS INTEGER
    y AS INTEGER
 
    ' Size
    w AS INTEGER
    h AS INTEGER
 
    ' Rotation
    c AS INTEGER
    r AS INTEGER
 
    ' Planet used
    used AS INTEGER
 
    ' Planet Spins
    spin AS INTEGER
 
    image AS LONG
END TYPE
 
' \/\/\/\/\/\/\/\/
' Stars Background
' /\/\/\/\/\/\/\/\
DIM SHARED Stars(2) AS Celestial
 
Stars(1).x = 0
Stars(2).x = 800
 
Stars(1).image = _NEWIMAGE(800, 600, 32)
_PUTIMAGE (0, 0), starBack, Stars(1).image
 
Stars(2).image = _NEWIMAGE(800, 600, 32)
Starfield
Frontier
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Display text while Planets load
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
Touch = "Loading Planet Data...."
 
y = sHeight \ 2 - 8
x = sWidth \ 2 - (LEN(Touch) * 4)
_PRINTSTRING (x, y), Touch
 
DIM SHARED PlanetView(4) AS INTEGER
 
DIM SHARED Planet(40) AS Celestial
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Load all the planets (40 total)
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
FOR p = 1 TO 40
    ' Planets:
    ' http://www.clipartlord.com/category/space-clip-art/planets-clip-art/
    Planet(p).image = _LOADIMAGE(".\images\Planet" + RIGHT$("0" + LTRIM$(STR$(p)), 2) + ".png")
    _CLEARCOLOR _RGB(0, 0, 0), Planet(p).image
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Get the Width and Height of the planet
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    Planet(p).w = _WIDTH(Planet(p).image)
    Planet(p).h = _HEIGHT(Planet(p).image)
NEXT
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/
' Starship enters the scene
' /\/\/\/\/\/\/\/\/\/\/\/\/\
FOR x = -400 TO shipX STEP 10
    IF modFire THEN
        'fire
        FOR fy = 3 TO fireSizeY - 2
            fireBuffer(fireSizeX - 2, fy) = INT(RND * 128) + 128
        NEXT
        FOR fy = 3 TO fireSizeY - 2
            FOR fx = 0 TO fireSizeX - 2
                fireBuffer(fx, fy) = (fireBuffer(fx + 1, fy - 1) + fireBuffer(fx + 1, fy) + fireBuffer(fx + 2, fy) + fireBuffer(fx + 1, fy + 1)) * (fuelControl + .018327)
        NEXT fx, fy
    END IF
 
    _PUTIMAGE (0, 0), starBack
 
    IF modFire THEN
        'rendering fire
        FOR fy = 0 TO fireSizeY
            FOR fx = 0 TO fireSizeX
                'PRINT INT(fireBuffer(fx, fy))
                PSET (fx + x + 115 - fireSizeX + 2, fy + shipY + 100), colorPal(INT(fireBuffer(fx, fy)))
        NEXT fx, fy
    END IF
 
    _PUTIMAGE (x, shipY), Starship
 
    _DISPLAY
    _LIMIT 30
NEXT
 
' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
' Show the animations until ESC is pressed
' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
WHILE Touch <> CHR$(27)
    Background
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Checks to see if a key is pressed
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    Touch = INKEY$
    IF Touch <> "" THEN
        ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
        ' Keys 0-9 changes the warpspeed
        ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
        IF ASC(Touch) > 47 AND ASC(Touch) < 58 THEN warpSpeed = VAL(Touch)
 
        ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
        ' M key will add the fire mod
        ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
        IF UCASE$(Touch) = "M" THEN
            modFire = NOT modFire
        END IF
 
        ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
        ' Home key centers the Starship
        ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
        IF Touch = CHR$(0) + CHR$(71) THEN
            shipX = sWidth \ 2 - 200
            shipY = sHeight \ 2 - 85
        END IF
 
        ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
        ' Up and Down Arrow Keys moves the Starship
        ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
        IF Touch = CHR$(0) + CHR$(72) THEN
            yMovement = -3
        END IF
 
        IF Touch = CHR$(0) + CHR$(80) THEN
            yMovement = 3
        END IF
    END IF
 
    shipY = shipY + yMovement
    IF yMovement > 0.5 THEN yMovement = yMovement - .05
    IF yMovement < -0.5 THEN yMovement = yMovement + .05
 
    'Framed
 
    _DISPLAY
    _LIMIT 60
WEND
END
 
FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
    map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
END FUNCTION
 
SUB Background
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Places the stars Backgrounds
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
    _PUTIMAGE (Stars(1).x, 0), Stars(1).image
    _PUTIMAGE (Stars(2).x, 0), Stars(2).image
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Show planet(s)  (if available)
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    FOR v = 1 TO 2
        IF PlanetView(v) > 0 THEN
            ViewPlanet PlanetView(v), v
        END IF
    NEXT
 
    IF modFire THEN
        acc = (warpSpeed + 1) * .001905#
 
        'fire
        FOR fy = 3 TO fireSizeY - 2
            fireBuffer(fireSizeX - 2, fy) = INT(RND * 128) + 128
        NEXT
 
        FOR fy = 3 TO fireSizeY - 2
            FOR fx = 0 TO fireSizeX - 2
                fireBuffer(fx, fy) = (fireBuffer(fx + 1, fy - 1) + fireBuffer(fx + 1, fy) + fireBuffer(fx + 2, fy) + fireBuffer(fx + 1, fy + 1)) * (fuelControl + acc)
        NEXT fx, fy
 
        'rendering fire
        FOR fy = 0 TO fireSizeY
            FOR fx = 0 TO fireSizeX
                'PRINT INT(fireBuffer(fx, fy))
                PSET (fx + shipX + 115 - fireSizeX + 2, fy + shipY + 100), colorPal(INT(fireBuffer(fx, fy)))
        NEXT fx, fy
    END IF
 
    ' \/\/\/\/\/\/\/\/\/
    ' Show the Starship
    ' /\/\/\/\/\/\/\/\/\
    _PUTIMAGE (shipX, shipY), Starship
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Have the background shift left by warpspeed
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    Stars(1).x = Stars(1).x - warpSpeed
    Stars(2).x = Stars(2).x - warpSpeed
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' When the background reaches the end reset background
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    IF Stars(2).x < 0 THEN
        Stars(1).x = 0
        Stars(2).x = 800
 
        ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
        ' Put the second image on the first to keep the animation proper
        ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
        _PUTIMAGE (0, 0), Stars(2).image, Stars(1).image
 
        Starfield
    END IF
END SUB
 
SUB Frontier
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Choose a Planet to display
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\
    'tag1:
    p1 = INT(40 * RND) + 1
    'IF Planet(p1).used = 1 THEN GOTO tag1
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/
    ' Get the Width and Height
    ' /\/\/\/\/\/\/\/\/\/\/\/\
    w = Planet(p1).w
    h = Planet(p1).h
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Make sure planet isn't going off the screen
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    x1 = INT((sWidth - w) * RND)
    y1 = INT((sHeight - h) * RND)
 
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Set the Planet as used and save the location
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    PlanetView(1) = p1
 
    Planet(p1).x = 800 + x1
    Planet(p1).y = y1
 
    Planet(p1).used = 1
    IF p1 < 29 THEN Planet(p2).spin = INT(2 * RND)
 
    IF INT(2 * RND) = 1 THEN
        p2 = INT(40 * RND) + 1
 
        w = Planet(p2).w
        h = Planet(p2).h
 
        IF p2 <> p1 THEN
            IF w < Planet(p1).w AND h < Planet(p1).h THEN
                x2 = INT((sWidth - w) * RND)
                y2 = INT((sHeight - h) * RND)
            END IF
        END IF
 
        PlanetView(2) = p2
 
        Planet(p2).x = 800 + x2
        Planet(p2).y = y2
 
        Planet(p2).used = 1
 
        IF p2 < 29 THEN Planet(p2).spin = INT(2 * RND)
    END IF
END SUB
 
SUB Starfield
    ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/
    ' Reset the background and rotate to make things different
    ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\
    SELECT CASE INT(4 * RND)
        CASE 0: _PUTIMAGE (0, 0), starBack, Stars(2).image
        CASE 1: _PUTIMAGE (799, 0)-(0, 599), starBack, Stars(2).image
        CASE 2: _PUTIMAGE (0, 599)-(799, 0), starBack, Stars(2).image
        CASE 3: _PUTIMAGE (799, 599)-(0, 0), starBack, Stars(2).image
    END SELECT
END SUB
 
SUB ViewPlanet (p, v)
    w = Planet(p).w
    h = Planet(p).h
 
    x1 = Planet(p).x
    x2 = Planet(p).x + w
 
    y1 = Planet(p).y
    y2 = Planet(p).y + h
 
    SELECT CASE Planet(p).r
        CASE 0: _PUTIMAGE (x1, y1), Planet(p).image, 0
        CASE 1: _PUTIMAGE (x2, y1)-(x1, y2), Planet(p).image, 0
        CASE 2: _PUTIMAGE (x1, y2)-(x2, y1), Planet(p).image, 0
        CASE 3: _PUTIMAGE (x2, y2)-(x1, y1), Planet(p).image, 0
    END SELECT
 
    IF Planet(p).spin = 1 THEN
        Planet(p).c = Planet(p).c + 1
 
        IF Planet(p).c = 16 THEN
            Planet(p).c = 0
 
            Planet(p).r = Planet(p).r + 1
            IF Planet(p).r > 3 THEN Planet(p).r = 0
        END IF
    END IF
 
    x1 = x1 - warpSpeed
    Planet(p).x = x1
 
    IF x1 + w < 0 THEN
        PlanetView(v) = 0
        Planet(p).used = 0
 
        ' \/\/\/\/\/\/\/\/\/\/\/\/\/\/
        ' Add Planets to the animation
        ' /\/\/\/\/\/\/\/\/\/\/\/\/\/\
        Frontier
    END IF
END SUB
 
SUB Framed
    IF RIGHT$(TIME$, 1) = frameTime THEN
        frameCount = frameCount + 1
    ELSE
        frameRate = frameCount
 
        frameCount = 0
        frameTime = RIGHT$(TIME$, 1)
    END IF
 
    _PRINTSTRING (4, 8), STR$(frameRate)
END SUB
 

Title: Re: Star Backgound
Post by: bplus 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

Title: Re: Star Backgound
Post by: Ashish 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.

Title: Re: Star Backgound
Post by: bplus 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

Title: Re: Star Backgound
Post by: bplus 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!

Title: Re: Star Backgound
Post by: bplus 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.

Title: Re: Star Backgound
Post by: johnno56 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

Title: Re: Star Backgound
Post by: johnno56 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)

Title: Re: Star Backgound
Post by: bplus on June 18, 2018, 11:50:55 pm

Hi Johnno,

Where are you getting the rectangle images?

Mars is fantastic except for the unseemly seam. There is probably some way to blend the two ends mainly with colors?

I started looking into converting a rectangle to sphere image and learned word tessellation and triangle strips. Saw some fairly reasonable trig equations for the points. Maybe halfway home?
http://hugi.scene.org/online/hugi27/hugi%2027%20-%20coding%20corner%20polaris%20sphere%20tessellation%20101.htm

Title: Re: Star Backgound
Post by: johnno56 on June 19, 2018, 12:35:04 am

Rectangular images? Google. "flat map mars" etc. Using Gimp's in built Sphere Animator makes a 'traditional' sphere if the image is 'stretched' out to a square. Any image/texture can be used. The more frames used (10 frames per second is the slowest) will give you a smoother rotation at the cost of more memory.... The Mars example works quite well except for, as you rightly pointed out, the 'seam'. Gimp is quite capable in producing 'seamless' images, but for an image as complex as Mars, may be a 'bit of a stretch' - no pun intended... lol

Here is a better one by Nasa:

https://www.dropbox.com/s/jix1n1mhswnp2q2/mars0_src.jpg?dl=0 (image)
https://www.dropbox.com/s/u1p8ueq4dlj6ef2/mars2.gif?dl=0 (gif - 100 frames)

Title: Re: Star Backgound
Post by: SirCrow on June 19, 2018, 01:17:51 am

Very nice. I'm using a much simpler stars BG in the Asteroids-based game I'm currently making. I want to upload it as a work in progress, but I'm confused about how the whole Linux thing works. With Windows, I'd compile it, there would be the .exe file, and it would be super-simple to run it. In Ubuntu, I don't even see an extension on the filename. I definitely want the game usable in both Windows and Linux! Should I just let the user take the source and compile it? Am I over-complicating this?

I love the way my stars move independently of the separate nebula/cloud BG as the ship flies around. I hope I'll get to share it here soon.

Title: Re: Star Backgound
Post by: bplus on June 19, 2018, 09:02:47 am

Hi SirCrow,

I sure don't need the exe (Windows) and much prefer the source to compile.

Title: Re: Star Backgound
Post by: bplus on June 19, 2018, 09:35:09 am

Hi [banned user],

Not bad! I like the detail but that seam...

Title: Re: Star Backgound
Post by: Ashish on June 19, 2018, 11:17:09 am

Hi [banned user]!
For more realistic planet, you can render a Sphere with planet texture using OpenGL.

Title: Re: Star Backgound
Post by: bplus on June 19, 2018, 12:02:36 pm

Quote from: Ashish on June 19, 2018, 11:17:09 am

Hi [banned user]!
For more realistic planet, you can render a Sphere with planet texture using OpenGL.

Hi Ashish,

I am pretty sure [banned user] would like help for that, I know I would...

Hi [banned user],

I was thinking drawing different phases of crescent moons in shady and light transparent colors in separate destination and layer them atop the circle planet. Draw circle in transparent light or dark then block out with black circle so only transparent crescent remains. (Thinking like a lazy, crazy coder?)

Title: My Asteroids-like Space Game
Post by: SirCrow on June 19, 2018, 12:19:12 pm

My work-in-progress game is finally ready to share:
http://qb64.thejoyfulprogrammer.com/showthread.php?tid=1349&rndtime=15294166471450489226

As to Linux/Ubuntu and running executable files, I really wish someone would tell me how to run them without involving the Terminal.

Title: Re: Star Backgound
Post by: bplus on June 19, 2018, 12:55:52 pm

OK [banned user] it works a little, not quite what I had in mind (need color that stays transparent for blackout) but I managed this:
https://www.qb64.org/forum/index.php?topic=286.0

Title: Re: Star Backgound
Post by: johnno56 on June 19, 2018, 05:45:16 pm

SirCrow,

To run a compiled executable can be as simple as double-clicking the executable or as involved as creating a script and launcher. Either process will avoid 'The Terminal' (insert dramatic music here... lol)

If memory serves correctly... From within the QB64 IDE select 'Run" then check "Output EXE to source folder". Once that is done, pressing F11, will produce ONLY the executable. From there you can either go to the source folder and double-click or create a Launcher.

I tested the F11 option on my machine and it produced the executable as advertised. I double-clicked the executable... and an image appeared for just a moment... then vanished. Break out 'The Terminal' (insert dramatic music here). Ran the executable, so I can see any errors, and errors there were.

---------------------------------------------------------------------------------------------------------------------------------------------------
john@john-H81M-DS2 ~/basic/qb64/starblast $ ./StarBlast_2018-6-19
[xcb] Unknown request in queue while dequeuing
[xcb] Most likely this is a multi-threaded client and XInitThreads has not been called
[xcb] Aborting, sorry about that.
StarBlast_2018-6-19: ../../src/xcb_io.c:179: dequeue_pending_request: Assertion `!xcb_xlib_unknown_req_in_deq' failed.
Aborted
---------------------------------------------------------------------------------------------------------------------------------------------------

At least it was apologetic... lol

Looks like, for me anyway, I cannot run the compiled executable because I am using a multi-core machine... If your machine is a single core, give it a try, and let me know how you get on?

Sorry I couldn't be of better help...

J

Title: Re: Star Backgound
Post by: odin on June 19, 2018, 08:36:14 pm

This topic started as an off-topic post, as it contained a single image not related to any QB64 code. The best place for that would be the off-topic board, as already explained.

As it progressed and became a collaborative program, it makes sense to have it again in the Programs board (as just moved) so you members can continue improving upon the collective effort.

Rules remain the same.

Love,

Odin.

Title: Re: Star Backgound
Post by: bplus on June 20, 2018, 09:44:34 am

Gremlin?

Code: QB64: [Select]

DIM SHARED texMask AS LONG
texMask = _NEWIMAGE(texWidth + 4, texHeight)  'plus 4 on width
 

Nice demo of mask! Great improvements.

Title: Re: Star Backgound
Post by: bplus on June 20, 2018, 10:14:41 am

Johnno's mars link:
https://www.dropbox.com/s/jix1n1mhswnp2q2/mars0_src.jpg?dl=0

has a much better blended seam, way less obvious! though the detail isn't quite as sharp.

BTW I tried -1 and -2 on image widths to reduce black seam and started getting a gremlin on the right side!

Title: Re: Star Backgound
Post by: SirCrow on June 20, 2018, 06:24:14 pm

Quote from: johnno56 on June 19, 2018, 05:45:16 pm

. . .
---------------------------------------------------------------------------------------------------------------------------------------------------
john@john-H81M-DS2 ~/basic/qb64/starblast $ ./StarBlast_2018-6-19
[xcb] Unknown request in queue while dequeuing
[xcb] Most likely this is a multi-threaded client and XInitThreads has not been called
[xcb] Aborting, sorry about that.
StarBlast_2018-6-19: ../../src/xcb_io.c:179: dequeue_pending_request: Assertion `!xcb_xlib_unknown_req_in_deq' failed.
Aborted
---------------------------------------------------------------------------------------------------------------------------------------------------

At least it was apologetic... lol

Looks like, for me anyway, I cannot run the compiled executable because I am using a multi-core machine... If your machine is a single core, give it a try, and let me know how you get on?

Sorry I couldn't be of better help...

J

Indeed, mine is also a mult-core machine! So no simply click-to-run, then, I guess. What the heck is XInitThreads, anyway? Where can I get me one of those?? Probably wouldn't solve the issue anyway. I've had that error msg. before. Thanks for the attention, Johnno. [Where are the smileys on this thing?]

Title: Re: Star Backgound
Post by: johnno56 on June 20, 2018, 08:40:50 pm

"What the heck is XInitThreads, anyway? Where can I get me one of those??"

I went to the x.org/archives and found THIS description... Hold onto your hat.

"The XInitThreads function initializes Xlib support for concurrent threads. This function must be the first Xlib function a multi-threaded program calls, and it must complete before any other Xlib call is made. This function returns a nonzero status if initialization was successful; otherwise, it returns zero. On systems that do not support threads, this function always returns zero.

It is only necessary to call this function if multiple threads might use Xlib concurrently. If all calls to Xlib functions are protected by some other access mechanism (for example, a mutual exclusion lock in a toolkit or through explicit client programming), Xlib thread initialization is not required. It is recommended that single-threaded programs not call this function."

I don't know about you, but as for me, this was WAY over my head. I think I would have difficulty understanding this even if it used simple English... I'm still none the wiser... Do you STILL want one? lol :D

Title: Re: XInitThreads (Multi-thread systems)
Post by: SirCrow on June 20, 2018, 08:59:36 pm

Seriously, if there's a way to install something, or whatever, and get good results from it, I'm willing to try.

Lately, I've had some experience trying to get things to work in my Ubuntu installation. I've had to type, copy, paste commands into that dreaded little Terminal window, and sometimes it actually makes things better! If there's something I can install, using that method or other, I want to know about it.

"It is recommended that single-threaded programs not call this function"So, naturally, the prog. I want to run insists on calling this function!

Title: Re: Star Backgound
Post by: johnno56 on June 20, 2018, 09:09:02 pm

Quote from: bplus on June 20, 2018, 10:14:41 am

Johnno's mars link:
https://www.dropbox.com/s/jix1n1mhswnp2q2/mars0_src.jpg?dl=0

has a much better blended seam, way less obvious! though the detail isn't quite as sharp.

BTW I tried -1 and -2 on image widths to reduce black seam and started getting a gremlin on the right side!

"isn't quite as sharp" - Reason being: The original image was over 2000 pixels wide. If the image was stretched to 2000x2000 it would take a huge amount of time to produce a globe of that size. The image was scaled down to 480x480, and as such, detail was sacrificed for time...

"Gremlin"?

I just had a crazy thought. (Stop laughing!) I hope that these animations are not going to be used in the demo... Can you imagine 27 or 28 planets processing 100 images each at a rate of 10 frames per second? That will be some serious lag time! Of course, I can reduce the number of frames, but it would make the planets spin like a top... lol

Title: Re: XInitThreads (Multi-thread systems)
Post by: johnno56 on June 20, 2018, 09:18:16 pm

Quote from: SirCrow on June 20, 2018, 08:59:36 pm

Seriously, if there's a way to install something, or whatever, and get good results from it, I'm willing to try.

Lately, I've had some experience trying to get things to work in my Ubuntu installation. I've had to type, copy, paste commands into that dreaded little Terminal window, and sometimes it actually makes things better! If there's something I can install, using that method or other, I want to know about it.

"It is recommended that single-threaded programs not call this function"So, naturally, the prog. I want to run insists on calling this function!

If I have read the description properly, there is nothing to install, as all Linux OS's have the Xlib already. It is THE first library called when booting. Without it, we would be staring at a blank screen. I think the problem is that a "single-threaded application is calling for this function (multi-threaded Xlib)?".

I have no clue what-so-ever as to know where to even begin to fix this one...

Title: Re: Star Backgound
Post by: johnno56 on June 21, 2018, 09:47:35 am

Very nicely done!

I had to reduce the "limit" to '30'. The wee beastie was spinning SO fast that I almost went cross-eyed watching it... lol

Title: Re: Star Backgound
Post by: bplus on June 21, 2018, 10:12:59 pm

Sphere Sim.bas

OK finally got this working as I had in mind but the effect is less than impressive. Still there is enough compression of image around edges specially at the equator that it does begin to take on more of a hemisphere look and less flat.

More comments in .bas file, using [banned user]'s latest Mars image:

Title: Re: Star Backgound
Post by: johnno56 on June 29, 2018, 05:34:23 am

To quote Darth Vader, Star Wars: Episode V - The Empire Strikes Back 1980, "Impressive. Most impressive."

Title: Re: Star Backgound
Post by: Petr on June 29, 2018, 10:33:52 am

Very nice work, Bplus!

Title: Re: Star Backgound
Post by: bplus on June 29, 2018, 04:44:33 pm

Thanks guys!

I tried a more dramatic grid to mount the sphere on but it had too many squares less than pixel so failed to look circular.

I didn't think anyone was interested due to lack of response, maybe I will try again with another frame idea.

Title: Re: Star Backgound
Post by: johnno56 on June 30, 2018, 12:19:19 am

Does QB64 have anything similar to sdlbasic's 'blt()' command. Basically, load a 'strip' of images, 'grab' a frame, display it, continue to the end of the strip and return to the start... If not, maybe some clever clogs, can whip up a function? Just curious...

I need more coffee... There are barely any traces of this mornings cup... lol... Could explain the insane suggestion... lol.

J

Title: Re: Star Backgound
Post by: FellippeHeitor on June 30, 2018, 01:14:43 am

Nothing similar builtin. You guys will have to cook your own.

Title: Re: Star Backgound
Post by: Petr on June 30, 2018, 03:58:44 am

BPlus, less work would you have if you use OpenGL for the sphere and an external help.c file, OpenGL has a direct command for the sphere. Do you remember the program "Planets.bas" from Ashish?

Johnno56: What exactly do you mean by this command? Do I understand that you will have a set of pictures and want to make a video loop? Something like this?

Title: Re: Star Backgound
Post by: johnno56 on June 30, 2018, 05:21:42 am

Petr,

Could not view the video. Youtube jumped on it... But anyway you are pretty much right. Imagine the frames of a film. Each frame is part of the animation process. The "Strip" of images are stored and each frame is captured and displayed in sequence. If the animation is an explosion then the sequence is run just once. A planet, set it up to continuously in a loop.

The command is: blt(slot, sx, sy, sw, sh, dx, dy)
slot: where the image is stored
sx: Source X coordinate
sy: Source Y coordinate
sw: Source image width
sh: Source image height
dx: Destination screen X coordinate
dy: Destination screen Y coordinate

I suppose the 'slot' can be simulated by using QB64's GET command and capture each frame... I think... Not too sure about that...
I know with sdlbasic it more efficient to animate a sprite that way....

Just wondering if QB64 could do something like that...

J

Title: Re: Star Backgound
Post by: Petr on June 30, 2018, 05:56:32 am

Hi Johnno, of course, QB64 know do it. Better as GET is _PUTIMAGE. Try my sources here:

Title: Re: Star Backgound
Post by: Petr on June 30, 2018, 06:18:42 am

TSo imagine someone saying my own video for copyright infringement to Yotube. I have not seen a bigger stupidity in my life. :-D This are "intelligent algorhytms" Youtube.

Title: Re: Star Backgound
Post by: johnno56 on June 30, 2018, 06:53:09 am

I want to thank you for the programs. I am having difficulty following them. I am still learning QB64 and a lot of the coding goes over my head. I think I maybe over stretching my abilities in trying to duplicate an sdlbasic command into a qb64 function. I thought it might be a simple "swap this for that" and it would be finished... Obviously "my" version of simple means extremely hard for me... lol

I think I may have to stick with what I know best... the simple stuff... I'm really sorry for wasting your time on this one. I obviously did not this this one through...

J

Title: Re: Star Backgound
Post by: Petr on June 30, 2018, 07:08:51 am

Johnno56, I can try to rewrite it if you give me your code in SDL. I'm not saying I'll do it, but I can try it after I come back if you want.

Title: Re: Star Backgound
Post by: Petr on June 30, 2018, 07:37:27 am

This maybe help you more:

Code: QB64: [Select]

'The command is: blt(slot, sx, sy, sw, sh, dx, dy)
'slot: where the image is stored
'sx: Source X coordinate
'sy: Source Y coordinate
'sw: Source image width
'sh: Source image height
'dx: Destination screen X coordinate
'dy: Destination screen Y coordinate
'-----------------------------------------------
 
 
'create source image: (165 frames contains number)
 
source& = _NEWIMAGE(800, 600, 256)
_DEST source& 'after this i write to graphic screen source&, but is unvisible!
FOR y = 0 TO 800 STEP 40
    FOR x = 0 TO 600 STEP 60
        frame = frame + 1
        LINE (x, y)-(x + 59, y + 39), , B
        _PRINTSTRING (x + 5, y + 8), STR$(frame)
NEXT x, y
 
'show source:
SCREEN source&
SLEEP 2
 
'as i see, _Putimage can be the same as blt?:
SCREEN _NEWIMAGE(320, 240, 256)
 
 
FOR ShowY = 0 TO 800 STEP 40
    FOR ShowX = 0 TO 600 STEP 60
        _PUTIMAGE (140, 130), source&, 0, (ShowX, ShowY)-(ShowX + 59, ShowY + 39)
        SLEEP
    NEXT ShowX
NEXT ShowY
 

Title: Re: Star Backgound
Post by: Petr on June 30, 2018, 07:39:09 am

_PUTIMAGE 'full source image to fit full destination area after _SOURCE and _DEST are set

_PUTIMAGE , sourceHandle&, destHandle& 'size full source to fit full destination area

_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle& 'full source to top-left corner destination position

_PUTIMAGE (dx1, dy1)-(dx2, dy2), sourceHandle&, destHandle& 'size full source to destination coordinate area

_PUTIMAGE (dx1, dy1), sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) 'portion of source to the top-left corner of the destination page

_PUTIMAGE , sourceHandle&, destHandle&, (sx1, sy1)-(sx2, sy2) 'portion of source to full destination area

_PUTIMAGE (dx1, dy1)-(dx2, dy2), sourceHandle&, destHandle&,(sx1, sy1) 'right side of source from top-left corner to destination

Title: Re: Star Backgound
Post by: johnno56 on June 30, 2018, 08:46:35 am

Petr,

I have attached the program and images. I made this in mid December of 2016. The images are crude but they serve the purpose of demo.

Sdlbasic does have the ability to create an executable, the only problem is, I am using Linux and the executable is OS specific.

J

I hope this helps...

Title: Re: Star Backgound
Post by: bplus on June 30, 2018, 10:02:39 am

I love it when I translate code from one Basic to another without a single error!

Code: QB64: [Select]

_TITLE "Walking Man trans by bplus started 2018-06-30"
'QB64 version 2017 1106/82 (the day before they switched to version 1.2)
CONST xmax = 800
CONST ymax = 600
SCREEN _NEWIMAGE(xmax, ymax, 32)
_SCREENMOVE 360, 60
 
walk& = _LOADIMAGE("walking720x146.png") ' 8 positions at 90 x 146   walk& is same as slot number
manW = 90 'width of man image
manH = 146 'height of man image
manN = 0 'man number 0 to 7 as walks = nSteps mod 8
nSteps = 0
manY = (ymax - manH) \ 2 'place top man image at manY always as walks across the screen
manX = -manW 'start off screen by 1 manW  manX is x location on screen of man
 
WHILE 0 = 0
    CLS
    ' blt(1, x*90, 0, 90, 146, movex, 45)
    '
    '   blt(sprite number,starting x position, starting y position, image width, image height, destination x, and y)
    '
    '   (I prefer a strip of characters. Others may use a 'grid' of characters.)
    '
    '   Sprite #1 is the 'walking' strip of characters
    '
    '   when x = 0 it will grab the first image locate at x*90 with a width of 90px and a height of 146px
    '   and display it at 'movex'x and 45y. Perform a short delay; increment to the next image; If the
    '   image grabbed is greater than 7 (the last image) then reset the image count to 0 (first image).
    '   move the curent image 5 pixels to the right. If the image moves off screen, make it reappear on
    '   the other side. Continue doing this until the escape key is pressed.
 
 
    '' _PUTIMAGE [STEP] [(dx1, dy1)-[STEP][(dx2, dy2)]][, sourceHandle&][, destHandle&][, ][STEP][(sx1, sy1)[-STEP][(sx2, sy2)]][_SMOOTH]
 
    'THE SKINNY: (notice the unintuitive positions of source handle and destination handle)
    'destination coordinates:  (x, y)-(x2, y2)  <<<< syntax
    'then source (image) handle (walk),
    'then destination handle = 0 for screening, then coordinates of image in
    'finally source coordinates off image of image handle:  (x, y)-(x2, y2)  <<<< syntax
 
    _PUTIMAGE (manX, manY)-STEP(manW, manH), walk&, 0, (manN * 90, 0)-STEP(manW, manH)
    manN = (manN + 1) MOD 8 'increase image index until hit 7 then back to 0
    manX = manX + 10
    IF manX >= xmax THEN manX = -manW 'move man back to left side of screen when hit right side
    _DISPLAY 'like   waitvbl(100) in sdlbas
    _LIMIT 10 'like wait(100) this limits displays to 10 per second
WEND
 
 

Title: Re: Star Backgound
Post by: bplus on June 30, 2018, 10:07:41 am

Well didn't need nSteps but can't remove it now. ;(

Too bad I can't make posts without single error! ;D

Title: Re: Star Backgound
Post by: bplus on June 30, 2018, 10:25:31 am

OH hey! Who can have man walk across Mars, first! ?

Or use Mars as a sort of treadmill?

Title: Re: Star Backgound
Post by: Petr on June 30, 2018, 03:12:05 pm

Hi Johnno56. I see that BPlus tried it too. So here is my version:

Code: QB64: [Select]

'
'   Walking
'
 
'setDisplay(1024,232,32,1)
SCREEN _NEWIMAGE(1024, 232, 32) ' (this is _DEST 0, or 0 in use with _PUTIMAGE)
movex = -90
 
'loadImage("assets/walking720x146.png",1)
source& = _LOADIMAGE(".\assets\walking720x146.png", 32)
 
 
 
x = 0
WHILE 0 = 0
    CLS
    '    blt(1,x*90,0,90,146,movex,45)
    _PUTIMAGE (movex, 45), source&, 0, (x * 90, 0)-(x * 90 + 90, 146)
    '
    '   blt(sprite number,starting x position, starting y position, image width, image height, destination x, and y)
    '
    '   (I prefer a strip of characters. Others may use a 'grid' of characters.)
    '
    '   Sprite #1 is the 'walking' strip of characters
    '
    '   when x = 0 it will grab the first image locate at x*90 with a width of 90px and a height of 146px
    '   and display it at 'movex'x and 45y. Perform a short delay; increment to the next image; If the
    '   image grabbed is greater than 7 (the last image) then reset the image count to 0 (first image).
    '   move the curent image 5 pixels to the right. If the image moves off screen, make it reappear on
    '   the other side. Continue doing this until the escape key is pressed.
    '    waitvbl()
    '   wait(100)
    _DELAY .1
 
    x = x + 1
    '    if x > 7 then: x = 0: end if
    IF x > 7 THEN x = 0
    movex = movex + 5
    '    if movex > 1024 then: movex = -90: end if
    IF movex > 1024 THEN movex = -90
 
    'if key(27) then: exit while: end if
    IF _KEYHIT = 27 THEN EXIT WHILE
WEND
_FREEIMAGE source&
END
 

Title: Re: Star Backgound
Post by: Petr on June 30, 2018, 03:56:12 pm

And here walks to and fro:

Code: QB64: [Select]

 
 
'
'   Walking
'
 
'setDisplay(1024,232,32,1)
SCREEN _NEWIMAGE(1024, 232, 32) ' (this is _DEST 0, or 0 in use with _PUTIMAGE)
movex = -90
 
'loadImage("assets/walking720x146.png",1)
source& = _LOADIMAGE(".\assets\walking720x146.png", 32)
source2& = ReverseImage&(source&)
 
movestep = 5
x = 0
WHILE 0 = 0
    CLS
    '    blt(1,x*90,0,90,146,movex,45)
    IF walk = 0 THEN _PUTIMAGE (movex, 45), source&, 0, (x * 90, 0)-(x * 90 + 90, 146)
    IF walk = 1 THEN _PUTIMAGE (movex, 45), source2&, 0, (x * 90, 0)-(x * 90 + 90, 146)
    '
    '   blt(sprite number,starting x position, starting y position, image width, image height, destination x, and y)
    '
    '   (I prefer a strip of characters. Others may use a 'grid' of characters.)
    '
    '   Sprite #1 is the 'walking' strip of characters
    '
    '   when x = 0 it will grab the first image locate at x*90 with a width of 90px and a height of 146px
    '   and display it at 'movex'x and 45y. Perform a short delay; increment to the next image; If the
    '   image grabbed is greater than 7 (the last image) then reset the image count to 0 (first image).
    '   move the curent image 5 pixels to the right. If the image moves off screen, make it reappear on
    '   the other side. Continue doing this until the escape key is pressed.
    '    waitvbl()
    '   wait(100)
    _DELAY .1
 
    ' IF walk = 0 THEN x = x + 1 ELSE x = x - 1
    IF walk = 0 THEN x = x + 1: IF x > 7 THEN x = 0
    IF walk = 1 THEN x = x - 1: IF x < 0 THEN x = 7
    '    if x > 7 then: x = 0: end if
 
    movex = movex + movestep
    '    if movex > 1024 then: movex = -90: end if
    IF movex > 1024 THEN
        IF walk = 0 THEN walk = 1: movestep = -5
    END IF
    IF movex < -90 THEN walk = 0: movestep = 5
    'if key(27) then: exit while: end if
    IF _KEYHIT = 27 THEN EXIT WHILE
WEND
_FREEIMAGE source&
END
 
 
 
FUNCTION ReverseImage& (image AS LONG)
    H = _HEIGHT(image&)
    W = _WIDTH(image&)
    IF _PIXELSIZE(image&) <= 1 THEN D = 256 ELSE D = 32
    ReverseImage& = _NEWIMAGE(W, H, D)
    _MAPTRIANGLE (0, 0)-(W, 0)-(0, H), image& TO(W, 0)-(0, 0)-(W, H), ReverseImage&
    _MAPTRIANGLE (0, H)-(W, H)-(W, 0), image& TO(W, H)-(0, H)-(0, 0), ReverseImage&
END FUNCTION
 

Title: Re: Star Backgound
Post by: johnno56 on June 30, 2018, 06:00:30 pm

Thanks guys.

I would not have had a snowball's chance of figuring out all that 'source' stuff...

'bplus': Thank you for the comments. Puts my chaotic thoughts into some semblance of order... lol

'petr': Two things. 1. Reverseimage! Cool. and 2. You are the first person that I know of that uses the correct phrase, "to and fro". Cool...

Now. Who wants to make him sing and dance in colour? Nah. Kidding. Forget the singing! Still kidding. Run and dance... lol

Thanks for the help guys. Much appreciated.

J

Title: Re: Star Backgound
Post by: bplus on July 01, 2018, 10:26:08 am

Hi Johnno,

Just for clarification, the translation of Walking Man demo does Run on your system and QB64 version now?

I was reading over an old _PUTIMAGE() thread at TJP and see that your system or QB64 version was failing to load images. That is fixed now, correct?

I had posted another demo using _PUTIMAGE there working with Cyber's font sheet not having read the original posts, now having read those posts, found your loading image problem. That's why I ask if that problem is fixed, I am curious what fixed it?

Title: Re: Star Backgound
Post by: johnno56 on July 01, 2018, 10:57:29 am

Hi bplus,

You are correct. Both yours and Petr's translation run on my machine. As to the images not loading, I'll have to go back an search for it, but at this time I cannot recall why the images were having difficulties. I'll check it out and get back to you.

J

Title: Re: Star Backgound
Post by: johnno56 on July 01, 2018, 11:08:34 am

I just read through the postings on TJP and I'm still as confused as I was then. Chances are it was probably due to a stupid typo on my part. The only thing I can think of was that Steve had mentioned something about a suspect version of qb64 that had messed up line endings. Since then I have downloaded the current version of qb64 and the problem has not returned. But I still suspect a typo....

J

Title: Re: Star Backgound
Post by: bplus on July 01, 2018, 12:24:52 pm

You know after I posted my question, I might have found an answer to the confusion.

It is about saving the exe with the source code, that way it has the same access to additional files as the source without having to fully path the filenames for loading files. You know that little thing you had to tick off in the Run Menu of IDE.

Title: Re: Star Backgound
Post by: bplus on July 01, 2018, 12:33:32 pm

Quote from: bplus on July 01, 2018, 12:24:52 pm

You know after I posted my question, I might have found an answer to the confusion.

It is about saving the exe with the source code, that way it has the same access to additional files as the source without having to fully path the filenames for loading files. You know that little thing you had to tick off in the Run Menu of IDE.

Maybe I should say, tick on, "Save EXE in the source folder". I remember that little thing ticked me off when I was trying out a new download of QB64, code was working but files weren't loading.

Title: Re: Star Backgound
Post by: johnno56 on July 01, 2018, 04:43:18 pm

There ya go. I'm glad at least one of us remembered my typo... lol (by the way... I just checked... it's still ticked... lol)

J

Title: Re: Star Backgound
Post by: bplus on October 31, 2018, 03:18:09 pm

Vastly improved Sphere Sim:

Code: QB64: [Select]

_TITLE "Fake sphere mapping by Paul Dunn, trans from SpecBas to QB64 2018-10-31 B+"
'10  Fake sphere mapping
'20 GRAPHIC NEW t LOAD "demos:3d/lava_strip.png":gw=gfxw t,gh=gfxh t:
'   palette copy t,0,256 to 0:
'   paper rgbn(0):
'   screen lock
'30 r=scrh/2.1,xc=SCRw/2,yc=SCRh/2,xo=0:
'   do:
'      for y=-r+1 to r-1:
'         x1=sqr(r*r-y*y),
'         tv=(asn(y/r)+1.5)/3:
'         for x=-x1 to x1:
'            tu=(asn(x/x1)+1.5)/6:
'            plot ink gpoint(t,(xo+tu*gw) mod gw,tv*gh);x+xc,y+yc:
'         next x:
'      next y:
'      xo+=1,xo%=gw:
'      wait screen:
'      cls:
'   loop
 
SCREEN _NEWIMAGE(800, 600, 32)
surface& = _LOADIMAGE("martian.png")
'surface& = _LOADIMAGE("mars.png") 'this image has a color change where ends meet
'surface& = _LOADIMAGE("mars0.jpeg") 'better
 
gw = _WIDTH(surface&)
gh = _HEIGHT(surface&)
map& = _NEWIMAGE(gw, gh, 32)
_DEST map&
_PUTIMAGE , surface&, map&
_DEST 0
 
stars& = _LOADIMAGE("stars.png")
_SOURCE stars&
_DEST 0
_PUTIMAGE
 
r = _HEIGHT / 3
xc = _WIDTH / 2
yc = _HEIGHT / 2
xo = 0
DO
    FOR y = -r TO r
        x1 = SQR(r * r - y * y)
        tv = (_ASIN(y / r) + 1.5) / 3
        FOR x = -x1 + 1 TO x1
            tu = (_ASIN(x / x1) + 1.5) / 6
            _SOURCE map&
            pc~& = POINT((xo + tu * gw) MOD gw, tv * gh)
            _DEST 0
            PSET (x + xc, y + yc), pc~&
            'plot ink gpoint(t,(xo+tu*gw) mod gw,tv*gh);x+xc,y+yc
        NEXT x
    NEXT y
    xo = xo + 1
    xo = xo MOD gw
    _DISPLAY
    _LIMIT 60
    ' wait screen
    'CLS
LOOP
 
 

Title: Re: Star Backgound
Post by: SierraKen on August 18, 2019, 01:32:33 am

Well, I decided to make my own Solar System. This time with an orbiting Moon. The movement around the Earth wasn't the hard part like I thought. But the relative speed going around the Earth compared to the speed of Earth going around the Sun is where I'm stuck. The main problem is that I don't know this kind of math. It's the same math I used in my Math Graphics program. But I've tried pretty much everything. I know the Earth moves at the same speed as the Moon going around the Sun, but I can't get the speed of the Moon right. Is there any math people out there that could help me with 1 equation? I know the Moon orbits the Earth 13 times a year and I tried that but it keeps staying on around 10 for some reason. Any help is appreciated, thanks. I'm sure a couple of the lines are wrong in the same area, for the Moon. The other planets I think are OK.

Code: QB64: [Select]

SCREEN _NEWIMAGE(800, 600, 32)
one:
_LIMIT 500
mercury = 0.241
venus = 0.6152
mars = 1.8809
moon = 12.368
seconds = seconds + .01
moonseconds = moonseconds + .0013
s = (60 - seconds) * 6 + 180
s1 = (60 - seconds) * 6 + 180 / mercury
s2 = (60 - seconds) * 6 + 180 / venus
s3 = (60 - seconds) * 6 + 180 / mars
s4 = (60 - moonseconds) * 6 + 180
 
 
x1 = INT(SIN(s1 / 45 * 3.141592) * 45) + 400
y1 = INT(COS(s1 / 45 * 3.141592) * 45) + 300
 
x2 = INT(SIN(s2 / 90 * 3.141592) * 90) + 400
y2 = INT(COS(s2 / 90 * 3.141592) * 90) + 300
 
x = INT(SIN(s / 180 * 3.141592) * 180) + 400
y = INT(COS(s / 180 * 3.141592) * 180) + 300
 
x3 = INT(SIN(s3 / 270 * 3.141592) * 270) + 400
y3 = INT(COS(s3 / 270 * 3.141592) * 270) + 300
 
'Moon
x4 = INT(SIN(s / 18 * 3.141592) * 18) + x
y4 = INT(COS(s / 18 * 3.141592) * 18) + y
 
 
 
CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
PAINT (x1, y1), _RGB32(120, 98, 102)
 
CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
PAINT (x2, y2), _RGB32(161, 67, 39)
 
CIRCLE (x, y), 5, _RGB32(0, 0, 255)
PAINT (x, y), _RGB32(0, 0, 255)
 
 
CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
PAINT (x3, y3), _RGB32(240, 72, 22)
 
'Moon
CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
PAINT (x4, y4), _RGB32(179, 179, 181)
 
 
 
CIRCLE (400, 300), 10, _RGB32(249, 240, 22)
PAINT (400, 300), _RGB32(249, 240, 22)
_DISPLAY
IF seconds > 99999 THEN
    CLS
    seconds = 0
    GOTO one:
END IF
'_DELAY .001
CLS
GOTO one:
 
 
 

Title: Re: Star Backgound
Post by: STxAxTIC on August 18, 2019, 03:08:14 am

Welp, I tried solving this from the ground up and ended up reaching for a full-blown n-layers-deep parent-body simulation, and said "this does NOT help this guy", so I scrapped it entirely and went back to your code.

I'm not sure what inspired some of the mathematical decisions here, but if you want the moon to go around 13 times a year, this got me closer:

Code: QB64: [Select]

SCREEN _NEWIMAGE(800, 600, 32)
one:
_LIMIT 500
mercury = 0.241
venus = 0.6152
mars = 1.8809
moon = 12.368
seconds = seconds + .01
moonseconds = moonseconds + .01
s = (60 - seconds) * 6 + 180
s1 = (60 - seconds) * 6 + 180 / mercury
s2 = (60 - seconds) * 6 + 180 / venus
s3 = (60 - seconds) * 6 + 180 / mars
s4 = (60 - moonseconds) * 6 + 180
 
 
x1 = INT(SIN(s1 / 45 * 3.141592) * 45) + 400
y1 = INT(COS(s1 / 45 * 3.141592) * 45) + 300
 
x2 = INT(SIN(s2 / 90 * 3.141592) * 90) + 400
y2 = INT(COS(s2 / 90 * 3.141592) * 90) + 300
 
x = INT(SIN(s / 180 * 3.141592) * 180) + 400
y = INT(COS(s / 180 * 3.141592) * 180) + 300
 
x3 = INT(SIN(s3 / 270 * 3.141592) * 270) + 400
y3 = INT(COS(s3 / 270 * 3.141592) * 270) + 300
 
'Moon
x4 = INT(SIN(19 * s3 / 270 * 3.141592) * 18) + x
y4 = INT(COS(19 * s3 / 270 * 3.141592) * 18) + y
 
CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
PAINT (x1, y1), _RGB32(120, 98, 102)
 
CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
PAINT (x2, y2), _RGB32(161, 67, 39)
 
CIRCLE (x, y), 5, _RGB32(0, 0, 255)
PAINT (x, y), _RGB32(0, 0, 255)
 
 
CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
PAINT (x3, y3), _RGB32(240, 72, 22)
 
'Moon
CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
PAINT (x4, y4), _RGB32(179, 179, 181)
 
 
 
CIRCLE (400, 300), 10, _RGB32(249, 240, 22)
PAINT (400, 300), _RGB32(249, 240, 22)
_DISPLAY
IF seconds > 99999 THEN
    CLS
    seconds = 0
    GOTO one:
END IF
'_DELAY .001
CLS
GOTO one:
 

Title: Re: Star Backgound
Post by: OldMoses on August 18, 2019, 07:57:08 am

The planets in my program are moving "on rails" as well. https://www.qb64.org/forum/index.php?topic=1429.0 That is, the program is not using a gravitational equation. Now the first thing that jumps out at me is that you are assigning almost the exact same numbers to the planets that I did, except the Moon is radically different. The planets are done using the orbital period in years per revolution, while the Moon is using revolutions per year. I'd suggest not treating the moon as a special case, with "moonseconds" as opposed to "seconds", require that it conform to one universal equation. I'll see what I can come up with and post when done. I type rather slowly...

Try this...

By changing p and adding appropriate data, you can easily add more moons and planets.

Code: QB64: [Select]

TYPE planet
    nam AS STRING * 10
    parent AS STRING * 10
    x AS INTEGER
    y AS INTEGER
    s AS SINGLE
    orad AS INTEGER
    oprd AS SINGLE
    rad AS SINGLE
    r AS INTEGER
    g AS INTEGER
    b AS INTEGER
END TYPE
 
DIM SHARED p AS INTEGER
p = 6 '                                                         change p to equal number of planets/satellites
 
REDIM SHARED exo(p) AS planet
 
FOR a = 1 TO p
    READ exo(a).nam
    READ exo(a).parent
    READ exo(a).x
    READ exo(a).y
    READ exo(a).orad
    READ exo(a).oprd
    READ exo(a).rad
    READ exo(a).r
    READ exo(a).g
    READ exo(a).b
NEXT a
 
DATA "Sol","Sol",400,300,0,0,5,249,240,22
DATA "Mercury","Sol",0,0,45,0.241,5,120,98,102
DATA "Venus","Sol",0,0,90,0.6152,5,161,67,39
DATA "Earth","Sol",0,0,180,1,5,0,0,255
DATA "Mars","Sol",0,0,270,1.8809,5,240,72,22
DATA "Moon","Earth",0,0,18,0.0748,2.5,179,179,181
 
SCREEN _NEWIMAGE(800, 600, 32)
one:
_LIMIT 500
seconds = seconds + .01
b = 1
CIRCLE (exo(b).x, exo(b).y), exo(b).rad, _RGB32(exo(b).r, exo(b).g, exo(b).b)
PAINT (exo(b).x, exo(b).y), _RGB32(exo(b).r, exo(b).g, exo(b).b)
 
FOR b = 2 TO p
    exo(b).s = (60 - seconds) * 6 + 180 / exo(b).oprd
    exo(b).x = INT(SIN(_D2R(exo(b).s / exo(b).oprd)) * exo(b).orad) + exo(FindParent(b)).x
    exo(b).y = INT(COS(_D2R(exo(b).s / exo(b).oprd)) * exo(b).orad) + exo(FindParent(b)).y
    CIRCLE (exo(b).x, exo(b).y), exo(b).rad, _RGB32(exo(b).r, exo(b).g, exo(b).b)
    PAINT (exo(b).x, exo(b).y), _RGB32(exo(b).r, exo(b).g, exo(b).b)
NEXT b
_DISPLAY
IF seconds > 99999 THEN
    CLS
    seconds = 0
    GOTO one:
END IF
'_DELAY .001
CLS
GOTO one:
 
FUNCTION FindParent (var AS INTEGER)
 
    'Accepts a planetary body index (var) and finds the index of its parent body
 
    FOR x = 1 TO p
        IF exo(var).parent = exo(x).nam THEN o = x
    NEXT x
    FindParent = o
 
END FUNCTION 'FindParent
 
 

Title: Re: Star Backgound
Post by: SierraKen on August 18, 2019, 11:34:28 am

LOL thanks STxAxTIC! Was easier than I thought. I'm going to stick with your way since it's just about all my code and it will be on my website. Thank you also OldMoses, but the way you program, using TYPE and broken up variables, etc. I just haven't reached that level of expertise yet. STxAxTIC I added your nick to the top of the code. I'll put that on my website probably sometime today, unless I play around with it more. Oh and yes, I used orbital numbers compared to Earth's orbit for other planets. I think I was just thinking too much about this. The Earth and Moon go around the sun in equal time, so just use equal numbers.

Title: Re: Star Backgound
Post by: OldMoses on August 18, 2019, 12:06:35 pm

Quote from: SierraKen on August 18, 2019, 11:34:28 am

Thank you also OldMoses, but the way you program, using TYPE and broken up variables, etc. I just haven't reached that level of expertise yet.

If you only knew the power of the Darkside....and we have cookies. ;)

Seriously though, you should try playing around with it some, it's really not as complex as it may seem. You owe it to yourself to push your skills in that direction.

I know you've been doing some fairly sophisticated programming, some of which I can't grasp on a casual reading, so I believe you will not find the concepts difficult. A well designed type array makes adding elements a breeze without a lot of code revision, and is easy to modify if needed. If anything, the variables are less "broken up", and one can keep indexed data ordered easier. You'll be astonished at what you can do with a very small amount of code once the infrastructure is there.

As an illustration, I added the moons of Mars (Phobos & Deimos) to the code. The only thing necessary was to change p from 6 to 8, and to add two data lines for the moons. Since their orbital periods are so fast, I slowed them down by a factor of 100, to make them easier on the eyes.

Code: QB64: [Select]

TYPE planet
    nam AS STRING * 10
    parent AS STRING * 10
    x AS INTEGER
    y AS INTEGER
    s AS SINGLE
    orad AS INTEGER
    oprd AS SINGLE
    rad AS SINGLE
    r AS INTEGER
    g AS INTEGER
    b AS INTEGER
END TYPE
 
DIM SHARED p AS INTEGER
p = 8 '                                                         change p to equal number of planets/satellites
 
REDIM SHARED exo(p) AS planet
 
FOR a = 1 TO p
    READ exo(a).nam
    READ exo(a).parent
    READ exo(a).x
    READ exo(a).y
    READ exo(a).orad
    READ exo(a).oprd
    READ exo(a).rad
    READ exo(a).r
    READ exo(a).g
    READ exo(a).b
NEXT a
 
DATA "Sol","Sol",400,300,0,0,5,249,240,22
DATA "Mercury","Sol",0,0,45,0.241,5,120,98,102
DATA "Venus","Sol",0,0,90,0.6152,5,161,67,39
DATA "Earth","Sol",0,0,180,1,5,0,0,255
DATA "Mars","Sol",0,0,270,1.8809,5,240,72,22
DATA "Moon","Earth",0,0,18,0.0748,2.5,179,179,181
DATA "Phobos","Mars",0,0,10,0.0873,1.5,179,179,181
DATA "Deimos","Mars",0,0,30,0.3458,1.5,179,179,181
 
SCREEN _NEWIMAGE(800, 600, 32)
one:
_LIMIT 500
seconds = seconds + .01
b = 1
CIRCLE (exo(b).x, exo(b).y), exo(b).rad, _RGB32(exo(b).r, exo(b).g, exo(b).b)
PAINT (exo(b).x, exo(b).y), _RGB32(exo(b).r, exo(b).g, exo(b).b)
 
FOR b = 2 TO p
    exo(b).s = (60 - seconds) * 6 + 180 / exo(b).oprd
    exo(b).x = INT(SIN(_D2R(exo(b).s / exo(b).oprd)) * exo(b).orad) + exo(FindParent(b)).x
    exo(b).y = INT(COS(_D2R(exo(b).s / exo(b).oprd)) * exo(b).orad) + exo(FindParent(b)).y
    CIRCLE (exo(b).x, exo(b).y), exo(b).rad, _RGB32(exo(b).r, exo(b).g, exo(b).b)
    PAINT (exo(b).x, exo(b).y), _RGB32(exo(b).r, exo(b).g, exo(b).b)
NEXT b
_DISPLAY
IF seconds > 99999 THEN
    CLS
    seconds = 0
    GOTO one:
END IF
'_DELAY .001
CLS
GOTO one:
 
FUNCTION FindParent (var AS INTEGER)
 
    'Accepts a planetary body index (var) and finds the index of its parent body
 
    FOR x = 1 TO p
        IF exo(var).parent = exo(x).nam THEN o = x
    NEXT x
    FindParent = o
 
END FUNCTION 'FindParent
 

Title: Re: Star Backgound
Post by: SierraKen on August 18, 2019, 06:24:04 pm

I decided to make my own Solar System Simulator. It has all the planets. It doesn't have Pluto for 2 reasons, one is that Pluto is now a Kupier Belt Object instead of a regular planet, but mostly also because Pluto's orbit is way too hard to calculate. I looked up equations for it online and someone even says it has never been done by anyone and been verified, because it's an elongated orbit going in and out of Neptune's orbit and also it's not the the same vertical plane as the rest of the Solar System. The awesome thing about my little program is that it uses the mouse to zoom in and out to see the rest of the planets (using the mouse wheel) and it also identifies the objects when you put your mouse over them (except The Moon since it's too close to Earth). Check out my funky Saturn. :) By the way, I don't mean to try to be better than anyone else in here with my programming, I just get ideas and go with it. And I think all of us do that. I hope anyway.

(Better version is after this one which has viewing tilt.)

Code: QB64: [Select]

'Ken G. made thie program on August 18, 2019,
'Thank you to STxAxTIC on the QB64.org forum for a little bit of help with the Moon orbit!
 
_TITLE "Solar System Simulator by Ken G. - Use Mouse To Identify and Mouse Wheel To Zoom In and Out For More Planets"
SCREEN _NEWIMAGE(800, 600, 32)
mercury = 0.241
venus = 0.6152
mars = 1.8809
jupiter = 11.8618
saturn = 29.457
uranus = 84.0205
neptune = 164.8
pluto = 248
angle = 180
one:
_LIMIT 500
mouseWheel = 0
DO WHILE _MOUSEINPUT
    mouseX = _MOUSEX
    mouseY = _MOUSEY
    mouseLeftButton = _MOUSEBUTTON(1)
    mouseRightButton = _MOUSEBUTTON(2)
    mouseMiddleButton = _MOUSEBUTTON(3)
    mouseWheel = mouseWheel + _MOUSEWHEEL
LOOP
IF mouseWheel < 0 THEN angle = angle - 10
IF mouseWheel > 0 THEN angle = angle + 10
 
IF mouseX > 385 AND mouseX < 415 AND mouseY > 285 AND mouseY < 315 THEN LOCATE 2, 49: PRINT "Sun    "
IF mouseX > x1 - 15 AND mouseX < x1 + 15 AND mouseY > y1 - 15 AND mouseY < y1 + 15 THEN LOCATE 2, 49: PRINT "Mercury"
IF mouseX > x2 - 15 AND mouseX < x2 + 15 AND mouseY > y2 - 15 AND mouseY < y2 + 15 THEN LOCATE 2, 49: PRINT "Venus  "
IF mouseX > x - 15 AND mouseX < x + 15 AND mouseY > y - 15 AND mouseY < y + 15 THEN LOCATE 2, 49: PRINT "Earth  "
IF mouseX > x3 - 15 AND mouseX < x3 + 15 AND mouseY > y3 - 15 AND mouseY < y3 + 15 THEN LOCATE 2, 49: PRINT "Mars   "
IF mouseX > x5 - 15 AND mouseX < x5 + 15 AND mouseY > y5 - 15 AND mouseY < y5 + 15 THEN LOCATE 2, 49: PRINT "Jupiter"
IF mouseX > x6 - 15 AND mouseX < x6 + 15 AND mouseY > y6 - 15 AND mouseY < y6 + 15 THEN LOCATE 2, 49: PRINT "Saturn "
IF mouseX > x7 - 15 AND mouseX < x7 + 15 AND mouseY > y7 - 15 AND mouseY < y7 + 15 THEN LOCATE 2, 49: PRINT "Uranus "
IF mouseX > x8 - 15 AND mouseX < x8 + 15 AND mouseY > y8 - 15 AND mouseY < y8 + 15 THEN LOCATE 2, 49: PRINT "Neptune"
 
 
a$ = INKEY$
IF a$ = CHR$(27) THEN END
IF a$ = CHR$(0) + CHR$(72) THEN angle = angle + 10
IF a$ = CHR$(0) + CHR$(80) THEN angle = angle - 10
IF angle > 360 THEN angle = 360
IF angle < 0 THEN angle = 0
 
seconds = seconds + .01
 
s1 = (60 - seconds) * 6 + 180 / mercury
s2 = (60 - seconds) * 6 + 180 / venus
s3 = (60 - seconds) * 6 + 180 'Earth and Moon
s4 = (60 - seconds) * 6 + 180 / mars
s5 = (60 - seconds) * 6 + 180 / jupiter
s6 = (60 - seconds) * 6 + 180 / saturn
s7 = (60 - seconds) * 6 + 180 / uranus
s8 = (60 - seconds) * 6 + 180 / neptune
 
'Mercury
x1 = INT(SIN(s1 / 45 * 3.141592) * angle / 4) + 400
y1 = INT(COS(s1 / 45 * 3.141592) * angle / 4) + 300
 
'Venus
x2 = INT(SIN(s2 / 90 * 3.141592) * angle / 2) + 400
y2 = INT(COS(s2 / 90 * 3.141592) * angle / 2) + 300
 
'Earth
x = INT(SIN(s3 / 180 * 3.141592) * angle) + 400
y = INT(COS(s3 / 180 * 3.141592) * angle) + 300
 
'Mars
x3 = INT(SIN(s4 / 270 * 3.141592) * angle * 1.5) + 400
y3 = INT(COS(s4 / 270 * 3.141592) * angle * 1.5) + 300
 
'Moon
x4 = INT(SIN(19 * s3 / 270 * 3.141592) * angle / 10) + x
y4 = INT(COS(19 * s3 / 270 * 3.141592) * angle / 10) + y
 
'Outer Planets
'Jupiter
x5 = INT(SIN(s5 / 450 * 3.141592) * angle * 3) + 400
y5 = INT(COS(s5 / 450 * 3.141592) * angle * 3) + 300
 
'Saturn
x6 = INT(SIN(s6 / 630 * 3.141592) * angle * 4.5) + 400
y6 = INT(COS(s6 / 630 * 3.141592) * angle * 4.5) + 300
 
'Uranus
x7 = INT(SIN(s7 / 810 * 3.141592) * angle * 6) + 400
y7 = INT(COS(s7 / 810 * 3.141592) * angle * 6) + 300
 
'Neptune
x8 = INT(SIN(s8 / 990 * 3.141592) * angle * 7.5) + 400
y8 = INT(COS(s8 / 990 * 3.141592) * angle * 7.5) + 300
 
'Mercury
CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
PAINT (x1, y1), _RGB32(120, 98, 102)
 
'Venus
CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
PAINT (x2, y2), _RGB32(161, 67, 39)
 
'Earth
CIRCLE (x, y), 5, _RGB32(0, 0, 255)
PAINT (x, y), _RGB32(0, 0, 255)
 
'Mars
CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
PAINT (x3, y3), _RGB32(240, 72, 22)
 
'Moon
CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
PAINT (x4, y4), _RGB32(179, 179, 181)
 
'Outer Planets
'Jupiter
CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
PAINT (x5, y5), _RGB32(255, 166, 127)
 
'Saturn
CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
PAINT (x6, y6), _RGB32(255, 127, 127)
FOR rings = 1 TO 2
    CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127)
NEXT rings
 
'Uranus
CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
PAINT (x7, y7), _RGB32(127, 166, 255)
 
'Neptune
CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
PAINT (x8, y8), _RGB32(0, 78, 255)
 
'Sun
CIRCLE (400, 300), 5, _RGB32(249, 240, 22)
PAINT (400, 300), _RGB32(249, 240, 22)
_DISPLAY
IF seconds > 99999 THEN
    CLS
    seconds = 0
    GOTO one:
END IF
CLS
GOTO one:
 
 

Title: Re: Star Backgound
Post by: SierraKen on August 18, 2019, 08:55:42 pm

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]

'Ken G. made thie program on August 18, 2019,
'Thank you to STxAxTIC on the QB64.org forum for a little bit of help with The Moon orbit!
 
_TITLE "Solar System Simulator by Ken G. Use Mouse Over Planets, Mouse Wheel to Zoom, and Up and Down Arrow Keys To Tilt."
SCREEN _NEWIMAGE(800, 600, 32)
mercury = 0.241
venus = 0.6152
mars = 1.8809
jupiter = 11.8618
saturn = 29.457
uranus = 84.0205
neptune = 164.8
angle = 180
tilt = 1
one:
_LIMIT 500
mouseWheel = 0
DO WHILE _MOUSEINPUT
    mouseX = _MOUSEX
    mouseY = _MOUSEY
    mouseLeftButton = _MOUSEBUTTON(1)
    mouseRightButton = _MOUSEBUTTON(2)
    mouseMiddleButton = _MOUSEBUTTON(3)
    mouseWheel = mouseWheel + _MOUSEWHEEL
LOOP
IF mouseWheel < 0 THEN angle = angle - 10
IF mouseWheel > 0 THEN angle = angle + 10
 
IF mouseX > 385 AND mouseX < 415 AND mouseY > 285 AND mouseY < 315 THEN LOCATE 2, 49: PRINT "Sun    "
IF mouseX > x1 - 15 AND mouseX < x1 + 15 AND mouseY > y1 - 15 AND mouseY < y1 + 15 THEN LOCATE 2, 49: PRINT "Mercury"
IF mouseX > x2 - 15 AND mouseX < x2 + 15 AND mouseY > y2 - 15 AND mouseY < y2 + 15 THEN LOCATE 2, 49: PRINT "Venus  "
IF mouseX > x - 15 AND mouseX < x + 15 AND mouseY > y - 15 AND mouseY < y + 15 THEN LOCATE 2, 49: PRINT "Earth  "
IF mouseX > x3 - 15 AND mouseX < x3 + 15 AND mouseY > y3 - 15 AND mouseY < y3 + 15 THEN LOCATE 2, 49: PRINT "Mars   "
IF mouseX > x5 - 15 AND mouseX < x5 + 15 AND mouseY > y5 - 15 AND mouseY < y5 + 15 THEN LOCATE 2, 49: PRINT "Jupiter"
IF mouseX > x6 - 15 AND mouseX < x6 + 15 AND mouseY > y6 - 15 AND mouseY < y6 + 15 THEN LOCATE 2, 49: PRINT "Saturn "
IF mouseX > x7 - 15 AND mouseX < x7 + 15 AND mouseY > y7 - 15 AND mouseY < y7 + 15 THEN LOCATE 2, 49: PRINT "Uranus "
IF mouseX > x8 - 15 AND mouseX < x8 + 15 AND mouseY > y8 - 15 AND mouseY < y8 + 15 THEN LOCATE 2, 49: PRINT "Neptune"
 
a$ = INKEY$
IF a$ = CHR$(27) THEN END
IF a$ = CHR$(0) + CHR$(72) THEN tilt = tilt + 1
IF a$ = CHR$(0) + CHR$(80) THEN tilt = tilt - 1
IF angle > 360 THEN angle = 360
IF angle < 10 THEN angle = 10
IF tilt > 90 THEN tilt = 90
IF tilt < 1 THEN tilt = 1
seconds = seconds + .01
s1 = (60 - seconds) * 6 + 180 / mercury
s2 = (60 - seconds) * 6 + 180 / venus
s3 = (60 - seconds) * 6 + 180 'Earth and Moon
s4 = (60 - seconds) * 6 + 180 / mars
s5 = (60 - seconds) * 6 + 180 / jupiter
s6 = (60 - seconds) * 6 + 180 / saturn
s7 = (60 - seconds) * 6 + 180 / uranus
s8 = (60 - seconds) * 6 + 180 / neptune
 
'Mercury
x1 = INT(SIN(s1 / 45 * 3.141592) * angle / 4) + 400
y1 = INT(COS(s1 / 45 * 3.141592) * (angle / 4) / tilt) + 300
 
'Venus
x2 = INT(SIN(s2 / 90 * 3.141592) * angle / 2) + 400
y2 = INT(COS(s2 / 90 * 3.141592) * (angle / 2) / tilt) + 300
 
'Earth
x = INT(SIN(s3 / 180 * 3.141592) * angle) + 400
y = INT(COS(s3 / 180 * 3.141592) * angle / tilt) + 300
 
'Mars
x3 = INT(SIN(s4 / 270 * 3.141592) * angle * 1.5) + 400
y3 = INT(COS(s4 / 270 * 3.141592) * (angle * 1.5) / tilt) + 300
 
'Moon
x4 = INT(SIN(19 * s3 / 270 * 3.141592) * angle / 10) + x
y4 = INT(COS(19 * s3 / 270 * 3.141592) * (angle / 10) / tilt) + y
 
'Outer Planets
'Jupiter
x5 = INT(SIN(s5 / 450 * 3.141592) * angle * 3) + 400
y5 = INT(COS(s5 / 450 * 3.141592) * (angle * 3) / tilt) + 300
 
'Saturn
x6 = INT(SIN(s6 / 630 * 3.141592) * angle * 4.5) + 400
y6 = INT(COS(s6 / 630 * 3.141592) * (angle * 4.5) / tilt) + 300
 
'Uranus
x7 = INT(SIN(s7 / 810 * 3.141592) * angle * 6) + 400
y7 = INT(COS(s7 / 810 * 3.141592) * (angle * 6) / tilt) + 300
 
'Neptune
x8 = INT(SIN(s8 / 990 * 3.141592) * angle * 7.5) + 400
y8 = INT(COS(s8 / 990 * 3.141592) * (angle * 7.5) / tilt) + 300
 
'Mercury
CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
PAINT (x1, y1), _RGB32(120, 98, 102)
 
'Venus
CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
PAINT (x2, y2), _RGB32(161, 67, 39)
 
'Earth
CIRCLE (x, y), 5, _RGB32(0, 0, 255)
PAINT (x, y), _RGB32(0, 0, 255)
 
'Mars
CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
PAINT (x3, y3), _RGB32(240, 72, 22)
 
'Moon
CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
PAINT (x4, y4), _RGB32(179, 179, 181)
 
'Outer Planets
'Jupiter
CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
PAINT (x5, y5), _RGB32(255, 166, 127)
 
'Saturn
CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
PAINT (x6, y6), _RGB32(255, 127, 127)
FOR rings = 1 TO 2
    CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
NEXT rings
 
'Uranus
CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
PAINT (x7, y7), _RGB32(127, 166, 255)
 
'Neptune
CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
PAINT (x8, y8), _RGB32(0, 78, 255)
 
'Sun
CIRCLE (400, 300), 5, _RGB32(249, 240, 22)
PAINT (400, 300), _RGB32(249, 240, 22)
_DISPLAY
IF seconds > 99999 THEN
    CLS
    seconds = 0
    GOTO one:
END IF
CLS
GOTO one:
 

Title: Re: Star Backgound
Post by: SMcNeill on August 18, 2019, 09:20:13 pm

Code: [Select]

DO WHILE _MOUSEINPUT
    mouseX = _MOUSEX
    mouseY = _MOUSEY
    mouseLeftButton = _MOUSEBUTTON(1)
    mouseRightButton = _MOUSEBUTTON(2)
    mouseMiddleButton = _MOUSEBUTTON(3)
    mouseWheel = mouseWheel + _MOUSEWHEEL
LOOP

Warning: The code above is very susceptible to causing lag inside a program, and should generally be avoided at all cost.

Move the mouse quickly back and forth across the screen several times and watch how it lags as it keeps reassigning values over and over to all those variables... mouse starts in far left, moves to far right, that’s several thousand updates to mousex while the mousebuffer is clearing...

Much better is generally:

Code: [Select]

DO WHILE _MOUSEINPUT
    ‘ mouseX = _MOUSEX
    ‘ mouseY = _MOUSEY
    ‘ mouseLeftButton = _MOUSEBUTTON(1)
    ‘ mouseRightButton = _MOUSEBUTTON(2)
    ‘ mouseMiddleButton = _MOUSEBUTTON(3)
    mouseWheel = mouseWheel + _MOUSEWHEEL
LOOP
mouseX = _MOUSEX
mouseY = _MOUSEY
mouseLeftButton = _MOUSEBUTTON(1)
mouseRightButton = _MOUSEBUTTON(2)
mouseMiddleButton = _MOUSEBUTTON(3)

Who cares how many times the mouse registered an x movement of a fraction of a pixel? What we need to really know is “where is the mouse once that movement stops”. After all, we’re not actually doing anything by updating the value a zillion times in the previous loop as it moves across the screen — we just keep overwriting mousex and mousey so we know their value once _MOUSEINPUT = 0.

Get the mouse states after the loop, and not during, and prevent the lag issues before they start.

Title: Re: Star Backgound
Post by: bplus on August 18, 2019, 09:23:39 pm

Hi Ken,

I like the tilting allot! and am curious where the figures:

Quote

mercury = 0.241
venus = 0.6152
mars = 1.8809
jupiter = 11.8618
saturn = 29.457
uranus = 84.0205
neptune = 164.8

come from?

Title: Re: Star Backgound
Post by: SierraKen on August 18, 2019, 09:27:42 pm

Thanks! Those figures are comparing those planets with Earth. With Earth as 1 (rotation speed) and the others are all relative to that. Or something like that. lol For example, Mercury flies around the Sun faster than Earth does, so it's less than 1. When you go past Earth, I think I did times instead of division. Speed in the program isn't exact, but I tried. I may have to adjust them.

Title: Re: Star Backgound
Post by: SierraKen on August 18, 2019, 09:35:56 pm

To be exact, those numbers originally came from the Internet, with the real speeds comparing them to Earth.

Title: Re: Star Backgound
Post by: johnno56 on August 18, 2019, 10:42:03 pm

Well... If we are talking 'exact'... 'Those' figures are the length of time in years (Earth years) for each planet to complete a single orbit around the Sun.

Simply calculating the length of the orbit, 2 * pi * semi-major axis, dividing it by the number of hours it takes to orbit, will give you the planet's orbiting velocity. This method crude at best. The orbit is assumed to be circular.

Mercury: 87.96878448 days at 107,138.4 mph
Venus: 224.6996656 days at 78,367.7 mph
Earth: 365.24 days at 66,661.22 mph

I think I will stop there... my poor little calculator is complaining of keypad stress... lol

Title: Re: Star Backgound
Post by: 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.

Code: QB64: [Select]

'Ken G. made thie program on August 18, 2019,
'Thank you to STxAxTIC on the QB64.org forum for a little bit of help with The Moon orbit!
 
_TITLE "Solar System Simulator by Ken G. Use Mouse Over Planets, Mouse Wheel to Zoom, and Up and Down Arrow Keys To Tilt."
SCREEN _NEWIMAGE(800, 600, 32)
DIM z(10)
mercury = 0.241
venus = 0.6152
mars = 1.8809
jupiter = 11.8618
saturn = 29.457
uranus = 84.0205
neptune = 164.8
angle = 180
tilt = 1
one:
_LIMIT 500
mouseWheel = 0
DO WHILE _MOUSEINPUT
    mouseX = _MOUSEX
    mouseY = _MOUSEY
    mouseLeftButton = _MOUSEBUTTON(1)
    mouseRightButton = _MOUSEBUTTON(2)
    mouseMiddleButton = _MOUSEBUTTON(3)
    mouseWheel = mouseWheel + _MOUSEWHEEL
LOOP
IF mouseWheel < 0 THEN angle = angle - 10
IF mouseWheel > 0 THEN angle = angle + 10
 
IF mouseX > 385 AND mouseX < 415 AND mouseY > 285 AND mouseY < 315 THEN LOCATE 2, 49: PRINT "Sun    "
IF mouseX > x1 - 15 AND mouseX < x1 + 15 AND mouseY > y1 - 15 AND mouseY < y1 + 15 THEN LOCATE 2, 49: PRINT "Mercury"
IF mouseX > x2 - 15 AND mouseX < x2 + 15 AND mouseY > y2 - 15 AND mouseY < y2 + 15 THEN LOCATE 2, 49: PRINT "Venus  "
IF mouseX > x - 15 AND mouseX < x + 15 AND mouseY > y - 15 AND mouseY < y + 15 THEN LOCATE 2, 49: PRINT "Earth  "
IF mouseX > x3 - 15 AND mouseX < x3 + 15 AND mouseY > y3 - 15 AND mouseY < y3 + 15 THEN LOCATE 2, 49: PRINT "Mars   "
IF mouseX > x5 - 15 AND mouseX < x5 + 15 AND mouseY > y5 - 15 AND mouseY < y5 + 15 THEN LOCATE 2, 49: PRINT "Jupiter"
IF mouseX > x6 - 15 AND mouseX < x6 + 15 AND mouseY > y6 - 15 AND mouseY < y6 + 15 THEN LOCATE 2, 49: PRINT "Saturn "
IF mouseX > x7 - 15 AND mouseX < x7 + 15 AND mouseY > y7 - 15 AND mouseY < y7 + 15 THEN LOCATE 2, 49: PRINT "Uranus "
IF mouseX > x8 - 15 AND mouseX < x8 + 15 AND mouseY > y8 - 15 AND mouseY < y8 + 15 THEN LOCATE 2, 49: PRINT "Neptune"
 
a$ = INKEY$
IF a$ = CHR$(27) THEN END
IF a$ = CHR$(0) + CHR$(72) THEN tilt = tilt + 1
IF a$ = CHR$(0) + CHR$(80) THEN tilt = tilt - 1
IF angle > 360 THEN angle = 360
IF angle < 10 THEN angle = 10
IF tilt > 30 THEN tilt = 30
IF tilt < 1 THEN tilt = 1
seconds = seconds + .01
s1 = (60 - seconds) * 6 + 180 / mercury
s2 = (60 - seconds) * 6 + 180 / venus
s3 = (60 - seconds) * 6 + 180 'Earth and Moon
s4 = (60 - seconds) * 6 + 180 / mars
s5 = (60 - seconds) * 6 + 180 / jupiter
s6 = (60 - seconds) * 6 + 180 / saturn
s7 = (60 - seconds) * 6 + 180 / uranus
s8 = (60 - seconds) * 6 + 180 / neptune
 
 
'Mercury
oldx1 = x1
x1 = INT(SIN(s1 / 45 * 3.141592) * angle / 4) + 400
y1 = INT(COS(s1 / 45 * 3.141592) * (angle / 4) / tilt) + 300
 
'Venus
oldx2 = x2
x2 = INT(SIN(s2 / 90 * 3.141592) * angle / 2) + 400
y2 = INT(COS(s2 / 90 * 3.141592) * (angle / 2) / tilt) + 300
 
'Earth
oldx = x
x = INT(SIN(s3 / 180 * 3.141592) * angle) + 400
y = INT(COS(s3 / 180 * 3.141592) * angle / tilt) + 300
 
'Mars
oldx3 = x3
x3 = INT(SIN(s4 / 270 * 3.141592) * angle * 1.5) + 400
y3 = INT(COS(s4 / 270 * 3.141592) * (angle * 1.5) / tilt) + 300
 
'Moon
x4 = INT(SIN(19 * s3 / 270 * 3.141592) * angle / 10) + x
y4 = INT(COS(19 * s3 / 270 * 3.141592) * (angle / 10) / tilt) + y
 
'Outer Planets
'Jupiter
oldx5 = x5
x5 = INT(SIN(s5 / 450 * 3.141592) * angle * 3) + 400
y5 = INT(COS(s5 / 450 * 3.141592) * (angle * 3) / tilt) + 300
 
'Saturn
oldx6 = x6
x6 = INT(SIN(s6 / 630 * 3.141592) * angle * 4.5) + 400
y6 = INT(COS(s6 / 630 * 3.141592) * (angle * 4.5) / tilt) + 300
 
'Uranus
oldx7 = x7
x7 = INT(SIN(s7 / 810 * 3.141592) * angle * 6) + 400
y7 = INT(COS(s7 / 810 * 3.141592) * (angle * 6) / tilt) + 300
 
'Neptune
oldx8 = x8
x8 = INT(SIN(s8 / 990 * 3.141592) * angle * 7.5) + 400
y8 = INT(COS(s8 / 990 * 3.141592) * (angle * 7.5) / tilt) + 300
 
 
'Sun
CIRCLE (400, 300), 2, _RGB32(249, 240, 22)
PAINT (400, 300), _RGB32(249, 240, 22)
 
IF tilt > 6 THEN
    IF x1 > oldx1 THEN z(1) = 1
    IF x2 > oldx2 THEN z(2) = 1
    IF x3 > oldx3 THEN z(3) = 1
    IF x5 > oldx5 THEN z(4) = 1
    IF x6 > oldx6 THEN z(5) = 1
    IF x7 > oldx7 THEN z(6) = 1
    IF x8 > oldx8 THEN z(7) = 1
    IF x > oldx THEN z(8) = 1
    IF x1 < oldx1 THEN z(1) = 0
    IF x2 < oldx2 THEN z(2) = 0
    IF x3 < oldx3 THEN z(3) = 0
    IF x5 < oldx5 THEN z(4) = 0
    IF x6 < oldx6 THEN z(5) = 0
    IF x7 < oldx7 THEN z(6) = 0
    IF x8 < oldx8 THEN z(7) = 0
    IF x < oldx THEN z(8) = 0
 
    IF z(1) = 0 THEN
        'Mercury
        CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
        PAINT (x1, y1), _RGB32(120, 98, 102)
    END IF
 
    IF z(2) = 0 THEN
        'Venus
        CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
        PAINT (x2, y2), _RGB32(161, 67, 39)
    END IF
 
    IF z(8) = 0 THEN
        'Earth
        CIRCLE (x, y), 5, _RGB32(0, 0, 255)
        PAINT (x, y), _RGB32(0, 0, 255)
        'Moon
        CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
        PAINT (x4, y4), _RGB32(179, 179, 181)
    END IF
    IF z(3) = 0 THEN
        'Mars
        CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
        PAINT (x3, y3), _RGB32(240, 72, 22)
    END IF
    IF z(4) = 0 THEN
        'Outer Planets
        'Jupiter
        CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
        PAINT (x5, y5), _RGB32(255, 166, 127)
    END IF
    IF z(5) = 0 THEN
        'Saturn
        CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
        PAINT (x6, y6), _RGB32(255, 127, 127)
        FOR rings = 1 TO 2
            CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
        NEXT rings
    END IF
    IF z(6) = 0 THEN
        'Uranus
        CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
        PAINT (x7, y7), _RGB32(127, 166, 255)
    END IF
    IF z(7) = 0 THEN
        'Neptune
        CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
        PAINT (x8, y8), _RGB32(0, 78, 255)
    END IF
 
ELSE
 
    'Mercury
    CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
    PAINT (x1, y1), _RGB32(120, 98, 102)
 
    'Venus
    CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
    PAINT (x2, y2), _RGB32(161, 67, 39)
 
    'Earth
    CIRCLE (x, y), 5, _RGB32(0, 0, 255)
    PAINT (x, y), _RGB32(0, 0, 255)
    'Moon
    CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
    PAINT (x4, y4), _RGB32(179, 179, 181)
 
    'Mars
    CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
    PAINT (x3, y3), _RGB32(240, 72, 22)
 
    'Outer Planets
    'Jupiter
    CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
    PAINT (x5, y5), _RGB32(255, 166, 127)
 
    'Saturn
    CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
    PAINT (x6, y6), _RGB32(255, 127, 127)
    FOR rings = 1 TO 2
        CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
    NEXT rings
 
    'Uranus
    CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
    PAINT (x7, y7), _RGB32(127, 166, 255)
 
    'Neptune
    CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
    PAINT (x8, y8), _RGB32(0, 78, 255)
 
END IF
_DISPLAY
IF seconds > 99999 THEN
    CLS
    seconds = 0
    GOTO one:
END IF
CLS
GOTO one:
 
 

Title: Re: Star Backgound
Post by: SierraKen 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]

'Ken G. made thie program on August 18, 2019,
'Thank you to STxAxTIC on the QB64.org forum for a little bit of help with The Moon orbit!
 
_TITLE "Solar System Simulator by Ken G. Use Mouse Over Planets, Mouse Wheel to Zoom, and Up and Down Arrow Keys To Tilt."
SCREEN _NEWIMAGE(800, 600, 32)
DIM z(10)
mercury = 0.241
venus = 0.6152
mars = 1.8809
jupiter = 11.8618
saturn = 29.457
uranus = 84.0205
neptune = 164.8
angle = 180
tilt = 1
one:
_LIMIT 500
mouseWheel = 0
DO WHILE _MOUSEINPUT
    mouseX = _MOUSEX
    mouseY = _MOUSEY
    mouseLeftButton = _MOUSEBUTTON(1)
    mouseRightButton = _MOUSEBUTTON(2)
    mouseMiddleButton = _MOUSEBUTTON(3)
    mouseWheel = mouseWheel + _MOUSEWHEEL
LOOP
IF mouseWheel < 0 THEN angle = angle - 10
IF mouseWheel > 0 THEN angle = angle + 10
 
IF mouseX > 385 AND mouseX < 415 AND mouseY > 285 AND mouseY < 315 THEN LOCATE 2, 49: PRINT "Sun    "
IF mouseX > x1 - 15 AND mouseX < x1 + 15 AND mouseY > y1 - 15 AND mouseY < y1 + 15 THEN LOCATE 2, 49: PRINT "Mercury"
IF mouseX > x2 - 15 AND mouseX < x2 + 15 AND mouseY > y2 - 15 AND mouseY < y2 + 15 THEN LOCATE 2, 49: PRINT "Venus  "
IF mouseX > x - 15 AND mouseX < x + 15 AND mouseY > y - 15 AND mouseY < y + 15 THEN LOCATE 2, 49: PRINT "Earth  "
IF mouseX > x3 - 15 AND mouseX < x3 + 15 AND mouseY > y3 - 15 AND mouseY < y3 + 15 THEN LOCATE 2, 49: PRINT "Mars   "
IF mouseX > x5 - 15 AND mouseX < x5 + 15 AND mouseY > y5 - 15 AND mouseY < y5 + 15 THEN LOCATE 2, 49: PRINT "Jupiter"
IF mouseX > x6 - 15 AND mouseX < x6 + 15 AND mouseY > y6 - 15 AND mouseY < y6 + 15 THEN LOCATE 2, 49: PRINT "Saturn "
IF mouseX > x7 - 15 AND mouseX < x7 + 15 AND mouseY > y7 - 15 AND mouseY < y7 + 15 THEN LOCATE 2, 49: PRINT "Uranus "
IF mouseX > x8 - 15 AND mouseX < x8 + 15 AND mouseY > y8 - 15 AND mouseY < y8 + 15 THEN LOCATE 2, 49: PRINT "Neptune"
 
a$ = INKEY$
IF a$ = CHR$(27) THEN END
IF a$ = CHR$(0) + CHR$(72) THEN tilt = tilt + 1
IF a$ = CHR$(0) + CHR$(80) THEN tilt = tilt - 1
IF angle > 360 THEN angle = 360
IF angle < 10 THEN angle = 10
IF tilt > 50 THEN tilt = 50
IF tilt < 1 THEN tilt = 1
seconds = seconds + .01
s1 = (60 - seconds) * 6 + 180 / mercury
s2 = (60 - seconds) * 6 + 180 / venus
s3 = (60 - seconds) * 6 + 180 'Earth and Moon
s4 = (60 - seconds) * 6 + 180 / mars
s5 = (60 - seconds) * 6 + 180 / jupiter
s6 = (60 - seconds) * 6 + 180 / saturn
s7 = (60 - seconds) * 6 + 180 / uranus
s8 = (60 - seconds) * 6 + 180 / neptune
 
 
'Mercury
oldx1 = x1
x1 = INT(SIN(s1 / 45 * 3.141592) * angle / 4) + 400
y1 = INT(COS(s1 / 45 * 3.141592) * (angle / 4) / tilt) + 300
 
'Venus
oldx2 = x2
x2 = INT(SIN(s2 / 90 * 3.141592) * angle / 2) + 400
y2 = INT(COS(s2 / 90 * 3.141592) * (angle / 2) / tilt) + 300
 
'Earth
oldx = x
x = INT(SIN(s3 / 180 * 3.141592) * angle) + 400
y = INT(COS(s3 / 180 * 3.141592) * angle / tilt) + 300
 
'Mars
oldx3 = x3
x3 = INT(SIN(s4 / 270 * 3.141592) * angle * 1.5) + 400
y3 = INT(COS(s4 / 270 * 3.141592) * (angle * 1.5) / tilt) + 300
 
'Moon
x4 = INT(SIN(19 * s3 / 270 * 3.141592) * angle / 10) + x
y4 = INT(COS(19 * s3 / 270 * 3.141592) * (angle / 10) / tilt) + y
 
'Outer Planets
'Jupiter
oldx5 = x5
x5 = INT(SIN(s5 / 450 * 3.141592) * angle * 3) + 400
y5 = INT(COS(s5 / 450 * 3.141592) * (angle * 3) / tilt) + 300
 
'Saturn
oldx6 = x6
x6 = INT(SIN(s6 / 630 * 3.141592) * angle * 4.5) + 400
y6 = INT(COS(s6 / 630 * 3.141592) * (angle * 4.5) / tilt) + 300
 
'Uranus
oldx7 = x7
x7 = INT(SIN(s7 / 810 * 3.141592) * angle * 6) + 400
y7 = INT(COS(s7 / 810 * 3.141592) * (angle * 6) / tilt) + 300
 
'Neptune
oldx8 = x8
x8 = INT(SIN(s8 / 990 * 3.141592) * angle * 7.5) + 400
y8 = INT(COS(s8 / 990 * 3.141592) * (angle * 7.5) / tilt) + 300
 
 
'Sun
CIRCLE (400, 300), 5, _RGB32(249, 240, 22)
PAINT (400, 300), _RGB32(249, 240, 22)
 
IF tilt > 6 THEN
    IF x1 > oldx1 AND x1 > 375 AND x1 < 425 THEN z(1) = 1
    IF x2 > oldx2 AND x2 > 375 AND x2 < 425 THEN z(2) = 1
    IF x3 > oldx3 AND x3 > 375 AND x3 < 425 THEN z(3) = 1
    IF x5 > oldx5 AND x5 > 375 AND x5 < 425 THEN z(4) = 1
    IF x6 > oldx6 AND x6 > 375 AND x6 < 425 THEN z(5) = 1
    IF x7 > oldx7 AND x7 > 375 AND x7 < 425 THEN z(6) = 1
    IF x8 > oldx8 AND x8 > 375 AND x8 < 425 THEN z(7) = 1
    IF x > oldx AND x > 375 AND x < 425 THEN z(8) = 1
 
    IF x1 > oldx1 AND x1 > 424 THEN z(1) = 0
    IF x2 > oldx2 AND x2 > 424 THEN z(2) = 0
    IF x3 > oldx3 AND x3 > 424 THEN z(3) = 0
    IF x5 > oldx5 AND x5 > 424 THEN z(4) = 0
    IF x6 > oldx6 AND x6 > 424 THEN z(5) = 0
    IF x7 > oldx7 AND x7 > 424 THEN z(6) = 0
    IF x8 > oldx8 AND x8 > 424 THEN z(7) = 0
    IF x > oldx AND x > 424 THEN z(8) = 0
 
 
    IF x1 < oldx1 THEN z(1) = 0
    IF x2 < oldx2 THEN z(2) = 0
    IF x3 < oldx3 THEN z(3) = 0
    IF x5 < oldx5 THEN z(4) = 0
    IF x6 < oldx6 THEN z(5) = 0
    IF x7 < oldx7 THEN z(6) = 0
    IF x8 < oldx8 THEN z(7) = 0
    IF x < oldx THEN z(8) = 0
 
    IF z(1) = 0 THEN
        'Mercury
        CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
        PAINT (x1, y1), _RGB32(120, 98, 102)
    END IF
 
    IF z(2) = 0 THEN
        'Venus
        CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
        PAINT (x2, y2), _RGB32(161, 67, 39)
    END IF
 
    IF z(8) = 0 THEN
        'Earth
        CIRCLE (x, y), 5, _RGB32(0, 0, 255)
        PAINT (x, y), _RGB32(0, 0, 255)
        'Moon
        CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
        PAINT (x4, y4), _RGB32(179, 179, 181)
    END IF
    IF z(3) = 0 THEN
        'Mars
        CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
        PAINT (x3, y3), _RGB32(240, 72, 22)
    END IF
    IF z(4) = 0 THEN
        'Outer Planets
        'Jupiter
        CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
        PAINT (x5, y5), _RGB32(255, 166, 127)
    END IF
    IF z(5) = 0 THEN
        'Saturn
        CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
        PAINT (x6, y6), _RGB32(255, 127, 127)
        FOR rings = 4 TO 5
            CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .2
        NEXT rings
    END IF
    IF z(6) = 0 THEN
        'Uranus
        CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
        PAINT (x7, y7), _RGB32(127, 166, 255)
    END IF
    IF z(7) = 0 THEN
        'Neptune
        CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
        PAINT (x8, y8), _RGB32(0, 78, 255)
    END IF
 
ELSE
 
    'Mercury
    CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
    PAINT (x1, y1), _RGB32(120, 98, 102)
 
    'Venus
    CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
    PAINT (x2, y2), _RGB32(161, 67, 39)
 
    'Earth
    CIRCLE (x, y), 5, _RGB32(0, 0, 255)
    PAINT (x, y), _RGB32(0, 0, 255)
    'Moon
    CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
    PAINT (x4, y4), _RGB32(179, 179, 181)
 
    'Mars
    CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
    PAINT (x3, y3), _RGB32(240, 72, 22)
 
    'Outer Planets
    'Jupiter
    CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
    PAINT (x5, y5), _RGB32(255, 166, 127)
 
    'Saturn
    CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
    PAINT (x6, y6), _RGB32(255, 127, 127)
    FOR rings = 1 TO 2
        CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
    NEXT rings
 
    'Uranus
    CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
    PAINT (x7, y7), _RGB32(127, 166, 255)
 
    'Neptune
    CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
    PAINT (x8, y8), _RGB32(0, 78, 255)
 
END IF
_DISPLAY
IF seconds > 99999 THEN
    CLS
    seconds = 0
    GOTO one:
END IF
CLS
GOTO one:
 
 

Title: Re: Star Backgound
Post by: SierraKen 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]
'Ken G. made thie program on August 18, 2019,
'Thank you to STxAxTIC on the QB64.org forum for a little bit of help with The Moon orbit!

_TITLE "Solar System Simulator by Ken G. Use Mouse Over Planets, Mouse Wheel to Zoom, and Up and Down Arrow Keys To Tilt."
SCREEN _NEWIMAGE(800, 600, 32)
DIM z(10)
mercury = 0.241
venus = 0.6152
mars = 1.8809
jupiter = 11.8618
saturn = 29.457
uranus = 84.0205
neptune = 164.8
angle = 180
tilt = 1
one:
_LIMIT 500
mouseWheel = 0
DO WHILE _MOUSEINPUT
mouseX = _MOUSEX
mouseY = _MOUSEY
mouseLeftButton = _MOUSEBUTTON(1)
mouseRightButton = _MOUSEBUTTON(2)
mouseMiddleButton = _MOUSEBUTTON(3)
mouseWheel = mouseWheel + _MOUSEWHEEL
LOOP
IF mouseWheel < 0 THEN angle = angle - 10
IF mouseWheel > 0 THEN angle = angle + 10

IF mouseX > 385 AND mouseX < 415 AND mouseY > 285 AND mouseY < 315 THEN LOCATE 2, 49: PRINT "Sun "
IF mouseX > x1 - 15 AND mouseX < x1 + 15 AND mouseY > y1 - 15 AND mouseY < y1 + 15 THEN LOCATE 2, 49: PRINT "Mercury"
IF mouseX > x2 - 15 AND mouseX < x2 + 15 AND mouseY > y2 - 15 AND mouseY < y2 + 15 THEN LOCATE 2, 49: PRINT "Venus "
IF mouseX > x - 15 AND mouseX < x + 15 AND mouseY > y - 15 AND mouseY < y + 15 THEN LOCATE 2, 49: PRINT "Earth "
IF mouseX > x3 - 15 AND mouseX < x3 + 15 AND mouseY > y3 - 15 AND mouseY < y3 + 15 THEN LOCATE 2, 49: PRINT "Mars "
IF mouseX > x5 - 15 AND mouseX < x5 + 15 AND mouseY > y5 - 15 AND mouseY < y5 + 15 THEN LOCATE 2, 49: PRINT "Jupiter"
IF mouseX > x6 - 15 AND mouseX < x6 + 15 AND mouseY > y6 - 15 AND mouseY < y6 + 15 THEN LOCATE 2, 49: PRINT "Saturn "
IF mouseX > x7 - 15 AND mouseX < x7 + 15 AND mouseY > y7 - 15 AND mouseY < y7 + 15 THEN LOCATE 2, 49: PRINT "Uranus "
IF mouseX > x8 - 15 AND mouseX < x8 + 15 AND mouseY > y8 - 15 AND mouseY < y8 + 15 THEN LOCATE 2, 49: PRINT "Neptune"

a$ = INKEY$
IF a$ = CHR$(27) THEN END
IF a$ = CHR$(0) + CHR$(72) THEN tilt = tilt + 1
IF a$ = CHR$(0) + CHR$(80) THEN tilt = tilt - 1
IF angle > 360 THEN angle = 360
IF angle < 10 THEN angle = 10
IF tilt > 30 THEN tilt = 30
IF tilt < 1 THEN tilt = 1
seconds = seconds + .01
s1 = (60 - seconds) * 6 + 180 / mercury
s2 = (60 - seconds) * 6 + 180 / venus
s3 = (60 - seconds) * 6 + 180 'Earth and Moon
s4 = (60 - seconds) * 6 + 180 / mars
s5 = (60 - seconds) * 6 + 180 / jupiter
s6 = (60 - seconds) * 6 + 180 / saturn
s7 = (60 - seconds) * 6 + 180 / uranus
s8 = (60 - seconds) * 6 + 180 / neptune

'Mercury
oldx1 = x1
x1 = INT(SIN(s1 / 45 * 3.141592) * angle / 4) + 400
y1 = INT(COS(s1 / 45 * 3.141592) * (angle / 4) / tilt) + 300

'Venus
oldx2 = x2
x2 = INT(SIN(s2 / 90 * 3.141592) * angle / 2) + 400
y2 = INT(COS(s2 / 90 * 3.141592) * (angle / 2) / tilt) + 300

'Earth
oldx = x
x = INT(SIN(s3 / 180 * 3.141592) * angle) + 400
y = INT(COS(s3 / 180 * 3.141592) * angle / tilt) + 300

'Mars
oldx3 = x3
x3 = INT(SIN(s4 / 270 * 3.141592) * angle * 1.5) + 400
y3 = INT(COS(s4 / 270 * 3.141592) * (angle * 1.5) / tilt) + 300

'Moon
x4 = INT(SIN(19 * s3 / 270 * 3.141592) * angle / 10) + x
y4 = INT(COS(19 * s3 / 270 * 3.141592) * (angle / 10) / tilt) + y

'Outer Planets
'Jupiter
oldx5 = x5
x5 = INT(SIN(s5 / 450 * 3.141592) * angle * 3) + 400
y5 = INT(COS(s5 / 450 * 3.141592) * (angle * 3) / tilt) + 300

'Saturn
oldx6 = x6
x6 = INT(SIN(s6 / 630 * 3.141592) * angle * 4.5) + 400
y6 = INT(COS(s6 / 630 * 3.141592) * (angle * 4.5) / tilt) + 300

'Uranus
oldx7 = x7
x7 = INT(SIN(s7 / 810 * 3.141592) * angle * 6) + 400
y7 = INT(COS(s7 / 810 * 3.141592) * (angle * 6) / tilt) + 300

'Neptune
oldx8 = x8
x8 = INT(SIN(s8 / 990 * 3.141592) * angle * 7.5) + 400
y8 = INT(COS(s8 / 990 * 3.141592) * (angle * 7.5) / tilt) + 300

'Sun
CIRCLE (400, 300), 2, _RGB32(249, 240, 22)
PAINT (400, 300), _RGB32(249, 240, 22)

IF tilt > 6 THEN
IF x1 > oldx1 THEN z(1) = 1
IF x2 > oldx2 THEN z(2) = 1
IF x3 > oldx3 THEN z(3) = 1
IF x5 > oldx5 THEN z(4) = 1
IF x6 > oldx6 THEN z(5) = 1
IF x7 > oldx7 THEN z(6) = 1
IF x8 > oldx8 THEN z(7) = 1
IF x > oldx THEN z(8) = 1
IF x1 < oldx1 THEN z(1) = 0
IF x2 < oldx2 THEN z(2) = 0
IF x3 < oldx3 THEN z(3) = 0
IF x5 < oldx5 THEN z(4) = 0
IF x6 < oldx6 THEN z(5) = 0
IF x7 < oldx7 THEN z(6) = 0
IF x8 < oldx8 THEN z(7) = 0
IF x < oldx THEN z(8) = 0

IF z(1) = 0 THEN
'Mercury
CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
PAINT (x1, y1), _RGB32(120, 98, 102)
END IF

IF z(2) = 0 THEN
'Venus
CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
PAINT (x2, y2), _RGB32(161, 67, 39)
END IF

IF z(8) = 0 THEN
'Earth
CIRCLE (x, y), 5, _RGB32(0, 0, 255)
PAINT (x, y), _RGB32(0, 0, 255)
'Moon
CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
PAINT (x4, y4), _RGB32(179, 179, 181)
END IF
IF z(3) = 0 THEN
'Mars
CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
PAINT (x3, y3), _RGB32(240, 72, 22)
END IF
IF z(4) = 0 THEN
'Outer Planets
'Jupiter
CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
PAINT (x5, y5), _RGB32(255, 166, 127)
END IF
IF z(5) = 0 THEN
'Saturn
CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
PAINT (x6, y6), _RGB32(255, 127, 127)
FOR rings = 1 TO 2
CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
NEXT rings
END IF
IF z(6) = 0 THEN
'Uranus
CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
PAINT (x7, y7), _RGB32(127, 166, 255)
END IF
IF z(7) = 0 THEN
'Neptune
CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
PAINT (x8, y8), _RGB32(0, 78, 255)
END IF

ELSE

'Mercury
CIRCLE (x1, y1), 5, _RGB32(120, 98, 102)
PAINT (x1, y1), _RGB32(120, 98, 102)

'Venus
CIRCLE (x2, y2), 5, _RGB32(161, 67, 39)
PAINT (x2, y2), _RGB32(161, 67, 39)

'Earth
CIRCLE (x, y), 5, _RGB32(0, 0, 255)
PAINT (x, y), _RGB32(0, 0, 255)
'Moon
CIRCLE (x4, y4), 2.5, _RGB32(179, 179, 181)
PAINT (x4, y4), _RGB32(179, 179, 181)

'Mars
CIRCLE (x3, y3), 5, _RGB32(240, 72, 22)
PAINT (x3, y3), _RGB32(240, 72, 22)

'Outer Planets
'Jupiter
CIRCLE (x5, y5), 5, _RGB32(255, 166, 127)
PAINT (x5, y5), _RGB32(255, 166, 127)

'Saturn
CIRCLE (x6, y6), 5, _RGB32(255, 127, 127)
PAINT (x6, y6), _RGB32(255, 127, 127)
FOR rings = 1 TO 2
CIRCLE (x6, y6), 7 + rings, _RGB32(255, 127, 127), , , .65
NEXT rings

'Uranus
CIRCLE (x7, y7), 5, _RGB32(127, 166, 255)
PAINT (x7, y7), _RGB32(127, 166, 255)

'Neptune
CIRCLE (x8, y8), 5, _RGB32(0, 78, 255)
PAINT (x8, y8), _RGB32(0, 78, 255)

END IF
_DISPLAY
IF seconds > 99999 THEN
CLS
seconds = 0
GOTO one:
END IF
CLS
GOTO one:

Title: Re: Star Backgound
Post by: OldMoses 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.

Title: Re: Star Backgound
Post by: SierraKen 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. :)

Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: johnno56 on June 04, 2018, 09:15:23 pm