Easter Egg Decorating

[bplus]

Holy crap, vince and dbox win. Bro, lemme make that link bigger:

...

They haven't gotten to decorating yet and STx is already voting!

Who cares about colors it's all about the math! LOL

[SierraKen]

That's neat Steve but there's no egg anywhere on the screen. The Matrix letters just fall everywhere.

Vince that's really cool! I started to attempt something like that yesterday but I think I had a problem with the square root of a negative number and I just wasn't figuring out the math good enough.
DBox, I get an Illegal String Conversion error on Line 42.

Code: QB64: [Select]

1.  Dim c: c = DomCreate("div")
2.  

[dbox]

They haven't gotten to decorating yet and STx is already voting!

Who cares about colors it's all about the math! LOL

Updated with maths AND colors: View in QBJS

[dbox]

That's neat Steve but there's no egg anywhere on the screen. The Matrix letters just fall everywhere.

Vince that's really cool! I started to attempt something like that yesterday but I think I had a problem with the square root of a negative number and I just wasn't figuring out the math good enough.
DBox, I get an Illegal String Conversion error on Line 42.

Code: QB64: [Select]

1.  Dim c: c = DomCreate("div")
2.  

Hey @SierraKen, is there more to that program?  I don't see any errors when I run just that line in a new QBJS window.

[SierraKen]

DBox, I ran it  on QB64, I don't have QBJS.

[dbox]

DBox, I ran it  on QB64, I don't have QBJS.

Oh, I see.  Yes, I'm afraid that example won't run in QB64 since it uses web controls.  QBJS is just a web page, you don't actually have to have anything installed you can view and run the code by just Clicking this link

[bplus]

OK!

 

[SMcNeill]

That's neat Steve but there's no egg anywhere on the screen. The Matrix letters just fall everywhere.

They're not falling inside the egg for you?   Shouldn't you be seeing something like this:

 

Here, I've painted the egg itself BLACK, so that the green matrix letters show up better on it and are easier to see as they move and rain down across the surface of the egg.   Are you not getting this effect somehow?

[SierraKen]

Oh that is awesome DBox! I had no idea that existed. Pretty cool egg maker too!
B+, I had a feeling you were going to go wild on us.. LOLOL, awesome.
Steve, no it doesn't show the egg, I have the .png in the same folder too. But that looks awesome!

[SMcNeill]

Maybe it'll look a little more egglike for you, if I use a different color scheme?

Code: QB64: [Select]

1. $Color:32
2. WorkScreen = _NewImage(800, 800, 32)
3. DisplayScreen = _NewImage(800, 800, 32)
4. egg = _LoadImage("egg.png", 32)
5. font = _LoadFont("courbd.ttf", 36, "monospace")
6. Screen DisplayScreen
7.  
8. _Delay .5
9. _ScreenMove _Middle
10.  
11. Dim m(1 To _Width)
12.  
13. For i = 1 To UBound(m)
14.     m(i) = -Int(Rnd * _Height)
15. Next
16.  
17. _Dest WorkScreen
18. _Font font
19.  
20. Do
21.  
22.     _Dest WorkScreen
23.  
24.     Line (0, 0)-(_Width, _Height), &H20D2B48C, BF '_RGBA32(0, 0, 0, 20), BF
25.  
26.     For i = 1 To UBound(m)
27.         Color _RGB32(0, 255, 0), 0
28.         m(i) = m(i) + _FontHeight
29.         If m(i) > 0 Then
30.             If m(i) > _Height Then m(i) = -Int(Rnd * _Height)
31.             _PrintString (i * _FontWidth - _FontWidth, m(i)), Chr$(_Ceil(Rnd * 254))
32.         End If
33.     Next
34.  
35.     For y = 0 To _Height(egg) - 1
36.         For x = 0 To _Width(egg) - 1
37.             _Source egg
38.  
39.             p&& = _Alpha(Point(x, y))
40.  
41.             _Source WorkScreen
42.             If p&& > 200 Then
43.                 p&& = Point(x, y)
44.                 _Dest DisplayScreen
45.                 PSet (x, y), p&&
46.             End If
47.         Next
48.     Next
49.     _Display
50. Loop Until _KeyDown(27)
51.  

 

Does this make it a little more obvious that the letters are raining down across the eggshell?  Or should I just toss the matrix rain idea and see if something like flickering flames might look better for an animated egg paint?

[SMcNeill]

Steve, no it doesn't show the egg, I have the .png in the same folder too. But that looks awesome!

Windows machine?  Let's rule out something simple like a upper/lowercase situation with Linux filenames and such to begin with.  I'm curious why the heck you're not seeing the same effect that I am with the code.  Latest version of QB64 too, I take it? 

Umm...

(Starts digging into the code to see where the heck the overlays might be messing up on different systems...)

[SierraKen]

Steve I found the problem, I accidentally didn't copy/paste the first line WorkScreen = _NewImage(800, 800, 32)   
LOL DOH.
I'll try your other one now.

[SMcNeill]

Steve I found the problem, I accidentally didn't copy/paste the first line WorkScreen = _NewImage(800, 800, 32)   
LOL DOH.
I'll try your other one now.

LOL!  Had me all worried that there was something majorly off in the code.  Unfortunately, I'm now going to have to add your name to my EVIL CODER list, right below Pete's entry!  I was trying to sip on my coffee when I read your response, and you made me chuckle so badly that I snorted hot coffee out my nose!

If *that* doesn't qualify someone to be listed as an EVIL CODER, then I don't know what does!  :P

[SierraKen]

ROFL.... you might chuckle even more to find out that I'm a preacher at my Christian church. :)

Your other one is awesome! I might have to use your Matrix code on stuff sometimes.

[CharlieJV]

(SNIP!)

Hey, thanks for sharing that code!  BASIC Anywhere Machine version:

• view source code
• run the program