A Lava Lamp to stare at.

[Dav]

The code looks interesting, Bplus.  Can’t run it right now, browsing on my iPad on a borrowed connection, but when I get back home and connected I’ll run that program.

- Dav

[bplus]

Don't get too excited just some old code I have, in fact I may work up a mod that might be more interesting

[Steffan-68]

What would this look like here?

    Star.JPG

    or STARS.PNG

Code: (Select All)

 '============

'LAVALAMP.BAS

'============

'By Dav, SEP/2024 for QB64PE



Screen _NewImage(1000, 700, 32)

Bild& = _LoadImage(".\star.jpg", 32)



Do



    Cls

    _PutImage , Bild&, 0

    t = Timer * 3 'control speed here



    'plasma background

    'For y = 0 To _Height Step 2

    'For x = 0 To _Width Step 2

    'r = Int(128 + 127 * Sin((x * .01) + t))

    'g = Int(128 + 127 * Sin((y * .01) + t * 1.2))

    'b = Int(128 + 127 * Sin((x * .01) + (y * 0.01) + t * .8))

    'Line (x, y)-Step(1, 1), _RGBA(r, g, b, 50), BF

    'Next

    'Next



    'oily plasma blobs

    For y = 50 To _Height - 51

        For x = 325 To 675

            '____________________________

            r = Int(128 + 127 * Sin((x * .01) + t))

            g = Int(128 + 127 * Sin((y * .01) + t * 1.2))

            b = Int(128 + 127 * Sin((x * .01) + (y * 0.01) + t * .8))

            '________________________________________



            disx = x - _Width \ 2

            dixy = y - _Height \ 2

            wav = Sin(t + dixy * .05 + disx * .05) * 35

            rad = 150 + 50 * Sin(t * 1.5 + dixy * .1) + wav

            pulse = 1 + .5 * Sin(t + dixy * .1)

            If Sqr(disx ^ 2 / (85 * pulse) ^ 2 + dixy ^ 2 / (rad * pulse) ^ 2) < 1 Then

                clr = Int(255 - Sqr(disx ^ 2 + dixy ^ 2) / 2)

                Line (x, y)-Step(1, 1), _RGBA(r, g, b, 150), BF '_RGBA(255, clr, clr / 3, 150), BF

            End If

        Next

    Next



    'draw top half of lamp

    For y = 50 To 350

        wfix = (350 - y) / 3

        Line (325 + wfix, y)-(675 - wfix, y), _RGBA(255, 255, 100, 50), BF

    Next

    'draw bottom half of lamp

    For y = 351 To 650

        wfix = (y - 351) / 3

        Line (325 + wfix, y)-(675 - wfix, y), _RGBA(255, 255, 100, 50), BF

    Next



    'lamp top

    Line (425, 20)-(575, 50), _RGB(150, 100, 0), BF

    Line (425, 20)-(575, 50), _RGBA(255, 255, 100, 75), B



    'lamp base

    Line (375, 650)-(625, 700), _RGB(150, 100, 0), BF

    Line (375, 650)-(625, 700), _RGBA(255, 255, 100, 75), B



    _Display

    _Limit 30



Loop Until InKey$ <> ""

[Dav]

Nice effect, @bplus!  Fall color fire. Looks neat.

@Steffan-68: Nice touch!  That's just what the plasma blobs needed, more color.  I like both images as a background.  

I'm at the coffee shop again to catch up on the news.  We're gonna be without power for a LOT longer looks like.  No estimate yet.  Not going to complain. The situation in other areas in NC are far much worse than here.  I have a relative in Asheville and she says it horrible.  One river town we liked to visit sometimes, Chimney Rock, NC got totally swept away.  Lake Lure, NC another beautiful vacation spot we visited sometime (the movie 'Dirty Dancing' was filmed there) is nearly wiped away too I heard, because the dam broke.  That's really sad.

- Dav

[Dav]

Hey, Steve, how did you do with the storm?  We got our power back on last night. My family member in Asheville says they have no water, no internet, barely any cell service. One grocery and one gas station is  open, loooooong lines.  They can’t get out of the area.  Wish I could bring her some supplies but there’s no way in either for the general public apparently.

- Dav

[SMcNeill]

The town of Floyd lost power for about three days here, and they had the grocery stores shut down that whole time, so there wasn't a single place to get groceries locally.   Washed the crap out of our dirt roads once more, and I've got to go fix a few pipes that got washed out by the creeks here on the farm, but overall, I really don't think things were that bad.  A few miles further north, in Giles County, they apparently got slammed hard (which is kinda weird as I would've figured them further out of the track and getting less than us, but I guess that's how these things go sometimes), but as for me personally, it was more a PITA than anything else.

Being a guy into computers and technology and all that jazz, my home probably has every "smart feature" that you can install on it.  Heck, I even have a 2nd router into my primary router, just for all the lightbulbs to connect to the internet so Alex can control them.   *THOSE* are great when they work -- and made me want to set my house on fire the other day during the storm!

Problem with smart bulbs is they connect to your wireless internet.  Power flickers off, and they use connection.  To tell you they're trying to connect, and for you to check to make certain the router is ready, they blink-blink-blink-blink-blink incessantly until they reconnect to the internet. 

The power here flickered on and off a zillion times in this storm, as the wind kept blowing crap onto the powerlines, and that flick off was enough to reboot the router...  Of course, the lights came on as soon as the power did, but the router hadn't made the internet connection yet...  and so blink-blink-blink-blink-blink...   EVERY damn light in my house.   blink-blink-blink-blink-blink...   And then they'd quit once they reconnected to the net... Just for the power to go off and  blink-blink-blink-blink-blink... blink-blink-blink-blink-blink... blink-blink-blink-blink-blink...

blink-blink-blink-blink-blink...

blink-blink-blink-blink-blink...

blink-blink-blink-blink-blink...

GAHHHH!!!!!!!!!

Guess who is going out to buy UPS for that damn router/modem later this week??   

So, except for the lack of grocery stores being open and  blink-blink-blink-blink-blink driving me crazy, things really weren't that bad here at home. 

[Dav]

Glad to hear nothing major happened to you and your farm. My little sister lives about 40 miles south of you, said it wasn’t that bad for her. Yeah, no power was our only real problem.  Luckily none of our big trees fell.  One of our neighbors trees fell on their house, nobody got hurt.  Without power to watch her shows, my wife was the stronger storm around here.

Next major purchase for us, a generator.

- Dav

[SMcNeill]

Hey, Steve, how did you do with the storm?  We got our power back on last night. My family member in Asheville says they have no water, no internet, barely any cell service. One grocery and one gas station is  open, loooooong lines.  They can’t get out of the area.  Wish I could bring her some supplies but there’s no way in either for the general public apparently.

- Dav

Update:  I guess the locality around here got hit harder than I thought it did.  Me, personally, I guess I'm a self-contained hermit.  As long as they pump power my way, I'm happy.  If they don't, I have generators and thus I'm happy.  My water comes from a natural spring on my land.  My sewer and such are all self-contained.  I'm not hooked up to almost anything public except telephone and electric.

And that's where the issue seems to come in. https://www.yahoo.com/news/boil-water-no...05153.html

The storm was a couple of weeks back now, but apparently it flooded and wiped the heck out of the local water infrastructure.  I went to town today and for the first time in several weeks, I ordered some fast food.  No tea.  No coffee.  Wendy's has no chili or taco salads.  No soda out of the machines...   Everything in the whole dang county was shut down with a BOIL WATER advisory.  Even after all this time, we apparently don't have water that's safe in the urban areas for people to use for drinking or cooking!

Which makes me damn glad that I'm an old-time hobo farmer and independent from all these public resources!!

But Good God!  How the heck could I have missed a local "boil water" requirement for two weeks??   Am I really that out of touch  with reality and that big of a recluse?!   

/SIGH

Now I just feel old and out of touch with the world around me.

[Dav]

Lol, why were they even open 

I guess they are playing it safe with the water.  I read that article link.  hmm, I don’t think I would drink discolored water even after boiling it.  My kin just south of you on says their water is ok.  My kin in Asheville says their water is back on but they have to boiled their water for a while too. 

Sounds like if you had a solar generator setup and a satellite phone/internet hookup you’d be pretty well prepared for anything.

- Dav

[Pete]

So the biggest disaster I'm reading about here is being experienced by Dav's sister. My condolences to her. I wish she lived further away from Steve. I'm 3000 miles out, and it's still pretty painful at times!  

Now Steve doesn't qualify for this, but if I were Dav, I'd go down to my basement, throw a bucket of water on the floor, and call FEMA for my $750 hurricane damage check. That's all those really hit hard folks in Asheville are getting in the way of federal assistance. Did you guys know that under Biden/Harris FEMA claims it doesn't even have enough money to make the same piddly effort if another storm strikes. Why? Because that administration decided to take American tax payer dollars away from FEMA to do things like put around $30,000 on EBT cards for flown in Haitian migrants.

Oh and Steve, don't buy some upgrade for your router. The next time this happens just nail up a disco ball in your living room and charge for admission. If the storm hits on a weekend, you'll clean up!

Pete