Challenges

[2112]

That's great Dav, looks like a flower. I also like your game mazeball, I finished all 10 levels... great game.

[Dav]

That's great Dav, looks like a flower. I also like your game mazeball, I finished all 10 levels... great game.

Hey, thanks @2112.  Glad you enjoyed MazeBall. Some of those higher levels are tricky, good job.

Here's one more.  Since bplus added plasma colors I had to follow.  Layers of spiral patterns over a moving plasma background.   

- Dav

Code: (Select All)

'SinCosPlay3.bas

'Dav, NOV/2025



Screen _NewImage(Int(_DesktopHeight * .75), Int(_DesktopHeight * .75), 32)



Do

    Cls



    'background plasma

    For y = 0 To _Height - 1 Step 2

        For x = 0 To _Width - 1 Step 2

            v = Sin(x * .15 + t * .5) + Sin(y * .2 + t * .7) + Sin((x + y) * .1 + t)

            r1 = 128 + 127 * Sin(v / 2 * _Pi + t * .3)

            g1 = 128 + 127 * Sin(v / 3 * _Pi + t * .5 + _Pi / 4)

            b1 = 128 + 127 * Sin(v / 4 * _Pi + t * .7 + _Pi / 2)

            Line (x, y)-Step(3, 3), _RGBA(r1, g1, b1, 150)

        Next

    Next



    'spirals on top

    For s = 0 To 15

        For r = 0 To _Width / 2

            a = r * .1 + (s * (_Pi * 2 / 16) + t * .5) + Sin(r * .05 + t) * 2

            x = _Width / 2 + Cos(a) * r

            y = _Height / 2 + Sin(a) * r

            r1 = 128 + 127 * Sin(r * .1 + t + s)

            g1 = 128 + 127 * Sin(r * .1 + t + s + _Pi / 3)

            b1 = 128 + 127 * Sin(r * .1 + t + s + _Pi * 2 / 3)

            Line (x + Cos(a) * 3, y + Sin(a) * 3)-Step(2, 2), _RGBA(r1, g1, b1, 255), BF

        Next

    Next



    t = t + .1



    _Display

    _Limit 30

Loop

[bplus]

+1 @Dav I tried some mods on it last night but couldn't get better but did get very much worse, so I guess its already perfected!

That is true plasma in the background. I suppose I made a mistake naming my coloring scheme plasma. I learned it in conjunction with a plasma creating program and the name stuck with me since.

Perhaps I should change the names to ResetColoring and Coloring~&, ie Coloring instead of Plasma. 
Confuse less old time Basic coders.

[Dav]

Have 1 more of these SinCos things, might as well post it too ...

- Dav

Code: (Select All)

'SinCosPlay4.bas

'Dav, Nov/2025



Screen _NewImage(_DesktopHeight, Int(_DesktopHeight * .75), 32)



Do

    Cls , _RGB(32, 32, 64)

    For i = 0 To 359 Step .1

        x = (_Width / 2) + i * Sin((t * Sin(t * 0.14)) * i * _Pi(2) / 360 + (t * 3))

        y = (_Height / 2) + i * Cos((t * Cos(t * 0.13)) * i * _Pi(2) / 360)

        r = 127 + 127 * Sin(i * _Pi / 45 + t * 4)

        clr& = _RGBA(r, r * 2, r * 3, 25)

        Line (x, y)-Step(6, 6), clr&, BF

    Next

    t = t + .01

    _Display

    _Limit 30

Loop Until _KeyHit

[Petr]

@Dav

Very nice!

[dbox]

Couple of nice ones here @Dav.  Mind if I add them to the QBJS samples?  (https://boxgaming.github.io/qbjs-samples)

[Dav]

Thanks, @Petr!

@dbox: I don’t mind at all.  Go right ahead!

[dbox]

@dbox: I don’t mind at all.  Go right ahead!

Awesome, thanks!  They have been added to the Dav collection:
boxgaming.github.io/qbjs-samples/#author=Dav

I particularly like this one:
boxgaming.github.io/qbjs-samples/#src=sin-cos-play2.bas

[Dav]

@dbox: I don’t mind at all.  Go right ahead!

Awesome, thanks!  They have been added to the Dav collection:
boxgaming.github.io/qbjs-samples/#author=Dav

I particularly like this one:
boxgaming.github.io/qbjs-samples/#src=sin-cos-play2.bas

Cool!  Thanks. Didn’t you get that exploding planet thing I made a couple yeras ago to work in qbjs?  I seem to recall that one some reason.  You added a sound effect or something extra I believe.

Any code i ever post here you have my permission to adapt/incude in your qbjs project.  Qbjs is wonderful. I have the offline version on my ipad home screen.

EDIT:  Found the exploding planet here: https://qb64phoenix.com/forum/showthread...7#pid19507

EDIT2:  @CharlieJV, I also give you permission to use any of my code posted on the forum for your BAM project too if you wish.  

- Dav

[NakedApe]

Great stuff, @Dav. Fun to play with! +1