Bubble Universe

bplus
Global Moderator

b = b + ...

Posts: 796

Bubble Universe Nov 20, 2022 17:05:20 GMT dbox and carlos45 like this

Quote

Post by bplus on Nov 20, 2022 17:05:20 GMT

I will continue to scatter this throughout the coding universe:

Const xmax = 512, ymax = 512
_Title "Bubble Universe - ESC to exit" ' from johnno at RCBasic forum 2022-11-14
Screen _NewImage(xmax, ymax, 32)
' ---------------
' Paul Dunn posted this code but for SpecBAS in a facebook group.
' It looked so cool that I had to  rewrite it in Naalaa 7. Marcus
'
' bplus QB64 Mod of RCB version by Johnno56
TAU = 6.283185307179586
n = 200
r = TAU / 235
x = 0
y = 0
v = 0
t = 0
hw = xmax / 2
hh = ymax / 2
Do
    Color _RGB32(0, 0, 0)
    Cls
    For i = 0 To n
        For j = 0 To n
            u = Sin(i + v) + Sin(r * i + x)
            v = Cos(i + v) + Cos(r * i + x)
            x = u + t
            Color _RGB(i, j, 99)
            PSet (hw + u * hw * 0.4, hh + v * hh * 0.4)
        Next
    Next
    t = t + 0.001 ' slowed way way down from .025
    _Display
    _Limit 30
Loop Until _KeyDown(27)

QBJS Share (works without any mods):
qbjs.org/index.html?code=Q29uc3QgeG1heCA9IDUxMiwgeckMCl9UaXRsZSAiQnViYmxlIFVuaXZlcnNlIC0gRVNDIHRvIGV4aXQiICcgZnJvbSBqb2hubm8gYXQgUkNCYXNpYyBmb3J1bSAyMDIyLTExLTE0ClNjcmVlbiBfTmV3SW1hZ2UoxHnGcywgMzIpCicgLc4BCicgUGF1bCBEdW5uIHBvc3RlZCB0aGlzIGNvZGUgYnV0xGUgU3BlY0JBUyBpbiBhIGZhY2Vib29rIGdyb3VwLgonIEl0IGxvb2tlZCBzbyBjb29sIHRoYXQgSSBoYWTkAMcgcmV3cml0ZSBpdMRDTmFhbGFhIDcuIE1hcmN1cwonCicgYnBsdXMgUUI2NCBNb2Qgb2bkAOYg5AEQaW9uIGJ5IErlAP81NgpUQVUgPSA2LjI4MzE4NTMwNzE3OTU4NgpuID0gMjAwCnIgPSDEJC8gMjM1CuQBbDAKecUGdsUGdMUGaHcgPeYBmC8gMgpoaCA95gGaxA5EbwogICAgQ29sb3IgX1JHQjMyKDAsIMQDKcYabHPFCEZvciBpxE8gVG8gbsUTyBdq0hfEAXUgPSBTaW4oaSArIHYpICvFDXIgKiDEEXjGXsgB5ACvQ29zyizEDdcs5ADndSArIHTNFuoAwihpLCBqLCA5Oc43UFNldCAoaHcgKyB1ICogaHcgKiAwLjQsIGhoxHXEE2jGE8o4TmV4xmbJCeQBUnQgKyAwLjAwMSAnIHNsb3dlZCB3YXnFBGRvd27mAsMuMDI1xTJfRGlzcGxhecYNTGltaXQgMzAKTG9vcCBVbnRpbCBfS2V5RG93bigyNykK

Last Edit: Nov 20, 2022 17:09:04 GMT by bplus

Cheers! to the stars of Basic where ever they shine!

visionmercer New Member Posts: 12	Bubble Universe Nov 21, 2022 8:33:55 GMT bplus likes this Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by visionmercer on Nov 21, 2022 8:33:55 GMT It's mesmerizing, I "translated" the other two Bubble Universes, that I found in the examples for SpecBAS(link) Bubble Universe 2 in QBJS Bubble Universe 3 in QBJS

bplus Global Moderator b = b + ... Posts: 796	Bubble Universe Nov 21, 2022 9:41:17 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by bplus on Nov 21, 2022 9:41:17 GMT Nice! I did not know there were more. Thanks
	Cheers! to the stars of Basic where ever they shine!

bplus Global Moderator b = b + ... Posts: 796	Bubble Universe Nov 21, 2022 20:35:14 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by bplus on Nov 21, 2022 20:35:14 GMT I am enjoying smaller t changes t = t + .005 and faster updates _Limit 200
	Cheers! to the stars of Basic where ever they shine!

dbox Junior Member Posts: 83	Bubble Universe Nov 21, 2022 20:56:21 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by dbox on Nov 21, 2022 20:56:21 GMT It is really remarkable how much is going on with these with so little code.

bplus Global Moderator b = b + ... Posts: 796	Bubble Universe Nov 21, 2022 23:18:58 GMT Quote Select Post Deselect Post Link to Post Member Give Gift Back to Top Post by bplus on Nov 21, 2022 23:18:58 GMT Paul Dunn definitely a Basic star as developer of SpecBas. Some code of his was source for my QB64 sphere mapping and rotation.
	Cheers! to the stars of Basic where ever they shine!

dbox
Junior Member

Posts: 83

Bubble Universe Nov 22, 2022 18:17:41 GMT

Quote

Post by dbox on Nov 22, 2022 18:17:41 GMT

Here's a screensaver mode. Press "F" for Fullscreen: Bubble Universe Screensaver

Import Dom From "lib/web/dom.bas"
Dom.GetImage(0).style.border = "0"

Dim max: max = _ResizeHeight
If _ResizeWidth < max Then max = _ResizeWidth

Const xmax = max, ymax = max
_Title "Bubble Universe - ESC to exit" ' from johnno at RCBasic forum 2022-11-14
Screen _NewImage(xmax, ymax, 32)
'_FullScreen
' ---------------
' Paul Dunn posted this code but for SpecBAS in a facebook group.
' It looked so cool that I had to  rewrite it in Naalaa 7. Marcus
'
' bplus QB64 Mod of RCB version by Johnno56
TAU = 6.283185307179586
n = 200
r = TAU / 235
x = 0
y = 0
v = 0
t = 0
hw = xmax / 2
hh = ymax / 2
Do
    Color _RGB32(0, 0, 0)
    Cls
    For i = 0 To n
        For j = 0 To n
            u = Sin(i + v) + Sin(r * i + x)
            v = Cos(i + v) + Cos(r * i + x)
            x = u + t
            Color _RGB(i, j, 99)
            PSet (hw + u * hw * 0.4, hh + v * hh * 0.4)
        Next
    Next
    t = t + 0.005 ' slowed way way down from .025
    _Display
    _Limit 50
    Dim k: k = InKey$
    If k = "F" or k = "f" Then
        _FullScreen Not _FullScreen
    End If
Loop Until _KeyDown(27)

SixVivid Guest	Bubble Universe Apr 20, 2023 8:15:27 GMT Quote Select Post Deselect Post Link to Post Back to Top Post by SixVivid on Apr 20, 2023 8:15:27 GMT This is awesome

Bubble Universe

Post by bplus on Nov 20, 2022 17:05:20 GMT

Post by visionmercer on Nov 21, 2022 8:33:55 GMT

Post by bplus on Nov 21, 2022 9:41:17 GMT

Post by bplus on Nov 21, 2022 20:35:14 GMT

Post by dbox on Nov 21, 2022 20:56:21 GMT

Post by bplus on Nov 21, 2022 23:18:58 GMT

Post by dbox on Nov 22, 2022 18:17:41 GMT

Post by SixVivid on Apr 20, 2023 8:15:27 GMT