Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on September 04, 2019, 11:28:42 pm

Title: Lightning Globe
Post by: SierraKen on September 04, 2019, 11:28:42 pm
I've been working on a new lightning globe program. It's just something fun I'm messing around with. But like usual, I think I got it down and then something really weird happens. The program stops completely or it's trapped in a loop somewhere and I can't figure it out. It's a very small program and any help is appreciated, thanks. It makes 1 lightning bolt from the center to where you click your mouse on the globe. Then it stops! LOL I have no idea why yet. You can see that I'm even testing it at the bottom of the program to see if the whole program stops or what, and it does. I do that with 2 LOCATE lines. I mean, the program keeps going (somewhere) but it doesn't reach the bottom of the program after you make 1 lightning bolt first. Is there some focus command I don't know about using the mouse? Oh also for some reason, instead of making a white circle on the globe, it makes a white square, with a CIRCLE command??? lol

Code: QB64: [Select]
  1. _TITLE "Lightning Globe by Ken G."
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. x = 400
  4. y = 300
  5. c = 0
  6. st = 2
  7. FOR sz = 1 TO 200 STEP .25
  8.     c = c + .05
  9.     CIRCLE (x, y), sz, _RGB32(c, c, c)
  10. NEXT sz
  11. c = 0
  12. FOR sz = 1 TO 30 STEP .25
  13.     c = c + .005
  14.     CIRCLE (x, y), sz, _RGB32(c, c, c)
  15. NEXT sz
  16.  
  17. 'Main Loop
  18.  
  19. go:
  20. mouseWheel = 0
  22.     handx = _MOUSEX
  23.     handy = _MOUSEY
  24.     mouseLeftButton = _MOUSEBUTTON(1)
  25.     mouseRightButton = _MOUSEBUTTON(2)
  26.     mouseMiddleButton = _MOUSEBUTTON(3)
  27.     mouseWheel = mouseWheel + _MOUSEWHEEL
  29. IF mouseLeftButton = -1 THEN
  30.     IF POINT(handx, handy) <> _RGB32(0, 0, 0) THEN
  31.         RANDOMIZE TIMER
  32.         lxx = (RND * 60) + 370
  33.         lyy = (RND * 60) + 270
  34.         DO
  35.             oldlx = lxx
  36.             oldly = lyy
  37.             IF lxx < handx THEN dxx = 10
  38.             IF lxx > handx THEN dxx = -10
  39.             IF lyy < handy THEN dyy = 10
  40.             IF lyy > handy THEN dyy = -10
  41.             RANDOMIZE TIMER
  42.             dx = (RND * 8) - 4
  43.             dy = (RND * 8) - 4
  44.             lxx = lxx + dx
  45.             lyy = lyy + dy
  46.             lxx = lxx + dxx
  47.             lyy = lyy + dyy
  48.             IF POINT(lxx, lyy) = _RGB32(0, 0, 0) THEN
  49.                 FOR sz = 1 TO 10 STEP .5
  50.                     CIRCLE (handx, handy), sz, _RGB32(255, 255, 255)
  51.                 NEXT sz
  52.                 _DELAY .02
  53.                 GOTO nex:
  54.             END IF
  55.             LINE (oldlx, oldly)-(lxx, lyy), _RGB32(255, 255, 255)
  56.         LOOP
  57.     END IF
  59. nex:
  60. LOCATE 2, 1: PRINT ttt: ttt = ttt + 1
  61. LOCATE 1, 1: PRINT handx, handy, mouseLeftButton
  62. GOTO go:
  63. 'Going back to the start of Main Loop.
  64.  
  65.  
Title: Re: Lightning Globe
Post by: SierraKen on September 05, 2019, 12:04:56 am
Nevermind, LOL I found the problem..... I added a _LIMIT 50 at the bottom loop and it's making the last line non-stop because the globe is 3D, not 2D, and I was thinking the lightning would go to the edge of the globe but it doesn't of course. LOL Will try to fix it...
Title: Re: Lightning Globe
Post by: bplus on September 05, 2019, 01:21:47 am
Hi Ken, man I gave up trying to fix yours, here's mine to break!

Code: QB64: [Select]
  1. _TITLE "Lightning Globe" 'B+ 2019-09-05
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. _SCREENMOVE 300, 60
  4. COLOR &HFF00BBFF
  6.     CLS
  7.     CIRCLE (400, 300), 30, &HFF202040
  8.     PAINT (400, 300), &HFF202040
  9.     CIRCLE (400, 300), 200, &HFFFFFFFF
  10.     PAINT (400, 300), &H16FFFFFF, &HFFFFFFFF
  11.  
  13.     mx = _MOUSEX: my = _MOUSEY: MB = _MOUSEBUTTON(1)
  14.     a = _ATAN2(my - 300, mx - 400)
  15.     IF MB THEN
  16.         'from random point of circle
  17.         LINE (0, 0)-(_WIDTH, _HEIGHT), &H88FFFFFF, BF
  18.         _DISPLAY
  19.         CLS
  20.         CIRCLE (400, 300), 30, &HFF202040
  21.         PAINT (400, 300), &HFF202040
  22.         IF ((mx - 400) ^ 2 + (my - 300) ^ 2) ^ .5 > 200 THEN
  23.             rx = 400 + 200 * COS(a): ry = 300 + 200 * SIN(a)
  24.         ELSE
  25.             rx = mx: ry = my
  26.         END IF
  27.         a = _PI(2) * RND
  28.         gx = 400 + 30 * COS(a): gy = 300 + 30 * SIN(a)
  29.         Lightning rx, ry, gx, gy, 100
  30.         CIRCLE (400, 300), 200, &HFFFFFFFF
  31.         PAINT (400, 300), &H16FFFFFF, &HFFFFFFFF
  32.         _DELAY .001
  33.     END IF
  34.     _LIMIT 100
  35.     _DISPLAY
  37.  
  38. SUB Lightning (xx1, yy1, xx2, yy2, dd)
  39.     x1 = xx1: y1 = yy1: x2 = xx2: y2 = yy2: d = dd
  40.     IF d < 5 THEN
  41.         COLOR _RGB(225, 225, 245)
  42.         LINE (x1, y1)-(x2, y2)
  43.     ELSE
  44.         mx = (x2 + x1) / 2
  45.         my = (y2 + y1) / 2
  46.         mx = mx + -.5 * RND * d * .4 * rand&&(-5, 5)
  47.         my = my + -.5 * RND * d * .4 * rand&&(-5, 5)
  48.         Lightning x1, y1, mx, my, d / 2
  49.         Lightning x2, y2, mx, my, d / 2
  50.     END IF
  52.  
  53. FUNCTION rand&& (lo&&, hi&&)
  54.     rand&& = INT(RND * (hi&& - lo&& + 1)) + lo&&
  56.  
  57.  
  58.  
Title: Re: Lightning Globe
Post by: SierraKen on September 05, 2019, 01:22:27 am
LOL I did it! I made the Lightning Globe I wanted to make to begin with. You can even hold down the mouse button on the globe and it makes different lightning to your mouse pointer. It could use a little sprucing up, like I removed the POINT command to where you click at and just made a IF/THEN for a make-believe box around the globe. I still don't know exactly how to use POINT with IF/THEN statements. It didn't seem to work when I tried it like this: a& = POINT(x,y) : IF a& <> _RGB32(0,0,0) THEN  .... Or instead of the _RGB32(0,0,0) do you just use 0 ? Anyways, please check out my new Lightning Globe. Use the mouse to click it. Esc ends the program.

Code: QB64: [Select]
  1. _TITLE "Lightning Globe by Ken G. - Use Mouse and Left Mouse Button On the Globe. Esc to end."
  2. _LIMIT 100
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. x = 400
  5. y = 300
  6. c = 1
  7. st = 2
  8. go:
  9. a$ = INKEY$
  10. IF a$ = CHR$(27) THEN END
  11. _LIMIT 200
  12. FOR sz = 1 TO 200 STEP .25
  13.     c = c + .05
  14.     CIRCLE (x, y), sz, _RGB32(c, c, c)
  15. NEXT sz
  16. c = 0
  17. FOR sz = 1 TO 30 STEP .25
  18.     c = c + .005
  19.     CIRCLE (x, y), sz, _RGB32(c, c, c)
  20. NEXT sz
  21.  
  22. mouseWheel = 0
  24.     handx = _MOUSEX
  25.     handy = _MOUSEY
  26.     mouseLeftButton = _MOUSEBUTTON(1)
  27.     mouseRightButton = _MOUSEBUTTON(2)
  28.     mouseMiddleButton = _MOUSEBUTTON(3)
  29.     mouseWheel = mouseWheel + _MOUSEWHEEL
  31. _LIMIT 200
  32. IF mouseLeftButton = -1 THEN
  33.     IF handx < 600 AND handx > 200 AND handy > 100 AND handy < 500 THEN
  34.         RANDOMIZE TIMER
  35.         lxx = (RND * 60) + 370
  36.         lyy = (RND * 60) + 270
  37.         DO
  38.             _LIMIT 300
  39.             oldlx = lxx
  40.             oldly = lyy
  41.             IF lxx < handx THEN dxx = 10
  42.             IF lxx > handx THEN dxx = -10
  43.             IF lyy < handy THEN dyy = 10
  44.             IF lyy > handy THEN dyy = -10
  45.             RANDOMIZE TIMER
  46.             dx = (RND * 8) - 4
  47.             dy = (RND * 8) - 4
  48.             lxx = lxx + dx
  49.             lyy = lyy + dy
  50.             lxx = lxx + dxx
  51.             lyy = lyy + dyy
  52.             LINE (oldlx, oldly)-(lxx, lyy), _RGB32(255, 255, 255)
  53.             ttt = ttt + 1
  54.             IF ttt > 20 THEN GOTO nex:
  55.         LOOP
  56.     END IF
  58. nex:
  59. ttt = 0
  61. lxx2 = (RND * 60) + 370
  62. lyy2 = (RND * 60) + 270
  64. lxx3 = (RND * 200) + 270
  65. lyy3 = (RND * 200) + 170
  67. lxx4 = (RND * 60) + 370
  68. lyy4 = (RND * 60) + 270
  70. lxx5 = (RND * 200) + 270
  71. lyy5 = (RND * 200) + 170
  72.  
  73.  
  75.     _LIMIT 200
  76.     oldlx2 = lxx2
  77.     oldly2 = lyy2
  78.     oldlx4 = lxx4
  79.     oldly4 = lyy4
  80.     IF lxx2 < lxx3 THEN dxx = 10
  81.     IF lxx2 > lxx3 THEN dxx = -10
  82.     IF lyy2 < lyy3 THEN dyy = 10
  83.     IF lyy2 > lyy3 THEN dyy = -10
  84.  
  85.     IF lxx4 < lxx5 THEN dxx2 = 10
  86.     IF lxx4 > lxx5 THEN dxx2 = -10
  87.     IF lyy4 < lyy5 THEN dyy2 = 10
  88.     IF lyy4 > lyy5 THEN dyy2 = -10
  90.     dx = (RND * 8) - 4
  91.     dy = (RND * 8) - 4
  93.     dx2 = (RND * 8) - 4
  94.     dy2 = (RND * 8) - 4
  95.     lxx2 = lxx2 + dx
  96.     lyy2 = lyy2 + dy
  97.     lxx2 = lxx2 + dxx
  98.     lyy2 = lyy2 + dyy
  99.     lxx4 = lxx4 + dx2
  100.     lyy4 = lyy4 + dy2
  101.     lxx4 = lxx4 + dxx2
  102.     lyy4 = lyy4 + dyy2
  103.     LINE (oldlx2, oldly2)-(lxx2, lyy2), _RGB32(155, 155, 155)
  104.     LINE (oldlx4, oldly4)-(lxx4, lyy4), _RGB32(155, 155, 155)
  105.     ttt2 = ttt2 + 1
  106.     IF ttt2 > 10 THEN GOTO nex2:
  108.  
  109. nex2:
  110. LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 30), BF
  111. ttt2 = 0
  113. GOTO go:
  114. 'Going back to the start of Main Loop.
  115.  
  116.  
Title: Re: Lightning Globe
Post by: SierraKen on September 05, 2019, 01:26:17 am
Yours is pretty cool B+. But why the flashing all around screen? I like how you have 2 lightning bolts instead of my 1 that the user makes. I might spruce mine up some.
Title: Re: Lightning Globe
Post by: bplus on September 05, 2019, 01:30:54 am
Quote
But why the flashing all around screen?

Drama
Title: Re: Lightning Globe
Post by: SierraKen on September 05, 2019, 01:35:49 am
Ah OK cool... so visual effects. :)

Try out mine and tell me what you think. I used a lot of what you taught me, like the fade out with RGB32 constantly erasing the screen. Man, back in the old days with the older computers, that was unheard of pretty much. So programs like this were incredibly harder to erase everything. I posted mine above.
Title: Re: Lightning Globe
Post by: bplus on September 05, 2019, 09:14:06 am
Ken, you are coming along nicely keep trying new things to get practice with them. You have ambitions beyond your experience which is great motivator, don't give up on arrays and SUBs these are power tools that will help you achieve your vision. Learning mouse is great!

For polling the mouse ie, getting updates of location and mouse buttons do this:
Code: QB64: [Select]
  1.    WHILE _MOUSEINPUT: WEND ' <<<<<<<<<<<<<<<<<<<<<<< empty loop, because that is all you need!
  2.     mx = _MOUSEX: my = _MOUSEY: MB = _MOUSEBUTTON(1) '<<<< right after store states of mouse
  3.  

Now IF you need wheel info, THEN  put something inside the WHILE _MOUSEINPUT: WEND loop.
Title: Re: Lightning Globe
Post by: FellippeHeitor on September 05, 2019, 10:55:37 am
Quote from: bplus on September 05, 2019, 01:30:54 am
Drama

🤣
Title: Re: Lightning Globe
Post by: SMcNeill on September 05, 2019, 11:31:41 am
Quote from: bplus on September 05, 2019, 01:21:47 am
Hi Ken, man I gave up trying to fix yours, here's mine to break!

Code: QB64: [Select]
  1. _TITLE "Lightning Globe" 'B+ 2019-09-05
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. _SCREENMOVE 300, 60
  4. COLOR &HFF00BBFF
  6.     CLS
  7.     CIRCLE (400, 300), 30, &HFF202040
  8.     PAINT (400, 300), &HFF202040
  9.     CIRCLE (400, 300), 200, &HFFFFFFFF
  10.     PAINT (400, 300), &H16FFFFFF, &HFFFFFFFF
  11.  
  13.     mx = _MOUSEX: my = _MOUSEY: MB = _MOUSEBUTTON(1)
  14.     a = _ATAN2(my - 300, mx - 400)
  15.     IF MB THEN
  16.         'from random point of circle
  17.         LINE (0, 0)-(_WIDTH, _HEIGHT), &H88FFFFFF, BF
  18.         _DISPLAY
  19.         CLS
  20.         CIRCLE (400, 300), 30, &HFF202040
  21.         PAINT (400, 300), &HFF202040
  22.         IF ((mx - 400) ^ 2 + (my - 300) ^ 2) ^ .5 > 200 THEN
  23.             rx = 400 + 200 * COS(a): ry = 300 + 200 * SIN(a)
  24.         ELSE
  25.             rx = mx: ry = my
  26.         END IF
  27.         a = _PI(2) * RND
  28.         gx = 400 + 30 * COS(a): gy = 300 + 30 * SIN(a)
  29.         Lightning rx, ry, gx, gy, 100
  30.         CIRCLE (400, 300), 200, &HFFFFFFFF
  31.         PAINT (400, 300), &H16FFFFFF, &HFFFFFFFF
  32.         _DELAY .001
  33.     END IF
  34.     _LIMIT 100
  35.     _DISPLAY
  37.  
  38. SUB Lightning (xx1, yy1, xx2, yy2, dd)
  39.     x1 = xx1: y1 = yy1: x2 = xx2: y2 = yy2: d = dd
  40.     IF d < 5 THEN
  41.         COLOR _RGB(225, 225, 245)
  42.         LINE (x1, y1)-(x2, y2)
  43.     ELSE
  44.         mx = (x2 + x1) / 2
  45.         my = (y2 + y1) / 2
  46.         mx = mx + -.5 * RND * d * .4 * rand&&(-5, 5)
  47.         my = my + -.5 * RND * d * .4 * rand&&(-5, 5)
  48.         Lightning x1, y1, mx, my, d / 2
  49.         Lightning x2, y2, mx, my, d / 2
  50.     END IF
  52.  
  53. FUNCTION rand&& (lo&&, hi&&)
  54.     rand&& = INT(RND * (hi&& - lo&& + 1)) + lo&&
  56.  
  57.  
  58.  

Here's mine, in about half the code, without any of that fancy math to get lost in. ;D

Take a look at how simple this little lightning zapper is, and see if you guys understand how it works.  I honestly don't think you can get any simpler than this little concept:

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(640, 480, 32)
  3. CONST LevelOfVariance = 5 'Change this value to have fun with the strength of the "draw" to target.
  5.     _LIMIT 60
  6.     CLS
  7.     CIRCLE (320, 240), 20, &HFFAAAAAA
  8.     PAINT (320, 240), &HFFAAAAAA
  11.         StartX = 320: StartY = 240: EndX = _MOUSEX: EndY = _MOUSEY
  12.         Kolor = &HFF000000 + INT(RND * &H1000000)
  13.         COLOR Kolor
  14.         DO UNTIL StartX = EndX AND StartY = EndY
  15.             CoinToss = RND * 100 'The strength of "draw" which pulls the lightning to the target.
  16.             IF CoinToss < LevelOfVariance THEN 'Higher values meander less and go directly to the target.
  17.                 XChange = SGN(EndX - StartX) '-1,0,1, drawn always towards the mouse
  18.                 YChange = SGN(EndY - StartY)
  19.             ELSE
  20.                 XChange = INT(RND * 3) - 1 '-1, 0, or 1, drawn in a random direction to let the lightning wander
  21.                 YChange = INT(RND * 3) - 1
  22.             END IF
  23.             StartX = StartX + XChange
  24.             StartY = StartY + YChange
  25.             PSET (StartX, StartY), Kolor
  26.         LOOP
  27.     END IF
  28.     _DISPLAY
Title: Re: Lightning Globe
Post by: SierraKen on September 05, 2019, 12:44:18 pm
Thanks B+, I added your Mouse code to a Notepad. Yeah, I should use SUB's more, etc... hard to teach an old dog new tricks :).

Steve that's really awesome! I wonder if there's a way to make a window a circle instead of a rectangle, I never seen one all these years I think.
Title: Re: Lightning Globe
Post by: bplus on September 05, 2019, 12:48:40 pm
Hi Ken,

You can make a peep hole in a rectangle screen...

Oh man! Steve's got my mind in the gutter at IRC ;-P

Hey Ken, try out IRC!
Title: Re: Lightning Globe
Post by: SierraKen on September 05, 2019, 04:37:49 pm
Here is an updated version of mine. I enhanced it by making 2 lightning bolts at 25% of the time. Seems like more often, but that's what I set it on. I also sped it up some and added a glow to the entire globe when you make a lightning bolt. I still don't know the math to make the bolts 100% inside the globe. I tried a POINT command along with the mouse button click, but no luck. For some reason is squeezes through and still makes a bolt outside the globe even farther than what I have now. So I went back with the invisible box around the globe.
B+, yeah I been to the IRC room 3 times now, it's pretty cool. :)

Code: QB64: [Select]
  1. _TITLE "Lightning Globe by Ken G. - Use Mouse and Left Mouse Button On the Globe. Esc to end."
  2. _LIMIT 100
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. x = 400
  5. y = 300
  6. c = 1
  7. st = 2
  8. l = 500
  9. go:
  10. a$ = INKEY$
  11. IF a$ = CHR$(27) THEN END
  12. _LIMIT 200
  13. FOR sz = 1 TO 200 STEP .25
  14.     c = c + .05 + r
  15.     CIRCLE (x, y), sz, _RGB32(c, c, c)
  16. NEXT sz
  17. c = 0
  18. FOR sz = 1 TO 30 STEP .25
  19.     c = c + .005
  20.     CIRCLE (x, y), sz, _RGB32(c, c, c)
  21. NEXT sz
  22.  
  24. handx = _MOUSEX: handy = _MOUSEY: MB = _MOUSEBUTTON(1)
  25. _LIMIT 200
  26.  
  27. IF l > 500 THEN l = 500
  28. IF l < 50 THEN l = 50
  29. IF MB = -1 THEN
  30.     IF handx < 600 AND handx > 200 AND handy > 100 AND handy < 500 THEN
  31.         r = .1
  32.         RANDOMIZE TIMER
  33.         lxx = (RND * 60) + 370
  34.         lyy = (RND * 60) + 270
  35.         RANDOMIZE TIMER
  36.         lxxx = (RND * 60) + 370
  37.         lyyy = (RND * 60) + 270
  38.         bolts = INT(RND * 100) + 1
  39.         DO
  40.             _LIMIT 500
  41.             oldlx = lxx
  42.             oldly = lyy
  43.             oldlxx = lxxx
  44.             oldlyy = lyyy
  45.             IF lxx < handx THEN dxx = 10
  46.             IF lxx > handx THEN dxx = -10
  47.             IF lyy < handy THEN dyy = 10
  48.             IF lyy > handy THEN dyy = -10
  49.             IF lxxx < handx THEN dxxx = 10
  50.             IF lxxx > handx THEN dxxx = -10
  51.             IF lyyy < handy THEN dyyy = 10
  52.             IF lyyy > handy THEN dyyy = -10
  53.             RANDOMIZE TIMER
  54.             dx = (RND * 8) - 4
  55.             dy = (RND * 8) - 4
  56.             RANDOMIZE TIMER
  57.             dxxxx = (RND * 8) - 4
  58.             dyyyy = (RND * 8) - 4
  59.             lxx = lxx + dx
  60.             lyy = lyy + dy
  61.             lxx = lxx + dxx
  62.             lyy = lyy + dyy
  63.             lxxx = lxxx + dxxxx
  64.             lyyy = lyyy + dyyyy
  65.             lxxx = lxxx + dxxx
  66.             lyyy = lyyy + dyyy
  67.             LINE (oldlx, oldly)-(lxx, lyy), _RGB32(255, 255, 255)
  68.             IF bolts > 75 THEN LINE (oldlxx, oldlyy)-(lxxx, lyyy), _RGB32(255, 255, 255)
  69.             ttt = ttt + 1
  70.             IF ttt > 20 THEN GOTO nex:
  71.         LOOP
  72.     END IF
  74. r = 0
  75. nex:
  76. ttt = 0
  78. lxx2 = (RND * 60) + 370
  79. lyy2 = (RND * 60) + 270
  81. lxx3 = (RND * 200) + 270
  82. lyy3 = (RND * 200) + 170
  84. lxx4 = (RND * 60) + 370
  85. lyy4 = (RND * 60) + 270
  87. lxx5 = (RND * 200) + 270
  88. lyy5 = (RND * 200) + 170
  89.  
  90.  
  92.     _LIMIT 500
  93.     oldlx2 = lxx2
  94.     oldly2 = lyy2
  95.     oldlx4 = lxx4
  96.     oldly4 = lyy4
  97.     IF lxx2 < lxx3 THEN dxx = 10
  98.     IF lxx2 > lxx3 THEN dxx = -10
  99.     IF lyy2 < lyy3 THEN dyy = 10
  100.     IF lyy2 > lyy3 THEN dyy = -10
  101.  
  102.     IF lxx4 < lxx5 THEN dxx2 = 10
  103.     IF lxx4 > lxx5 THEN dxx2 = -10
  104.     IF lyy4 < lyy5 THEN dyy2 = 10
  105.     IF lyy4 > lyy5 THEN dyy2 = -10
  107.     dx = (RND * 8) - 4
  108.     dy = (RND * 8) - 4
  110.     dx2 = (RND * 8) - 4
  111.     dy2 = (RND * 8) - 4
  112.     lxx2 = lxx2 + dx
  113.     lyy2 = lyy2 + dy
  114.     lxx2 = lxx2 + dxx
  115.     lyy2 = lyy2 + dyy
  116.     lxx4 = lxx4 + dx2
  117.     lyy4 = lyy4 + dy2
  118.     lxx4 = lxx4 + dxx2
  119.     lyy4 = lyy4 + dyy2
  120.     LINE (oldlx2, oldly2)-(lxx2, lyy2), _RGB32(155, 155, 155)
  121.     LINE (oldlx4, oldly4)-(lxx4, lyy4), _RGB32(155, 155, 155)
  122.     ttt2 = ttt2 + 1
  123.     IF ttt2 > 10 THEN GOTO nex2:
  125.  
  126. nex2:
  127. LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 30), BF
  128. ttt2 = 0
  130. GOTO go:
  131. 'Going back to the start of Main Loop.
  132.  
Title: Re: Lightning Globe
Post by: SierraKen on September 05, 2019, 04:55:12 pm
LOL!  Thank you Steve (SMcneill) for the math!! He gave it to me in the IRC room. It's a lot simpler than I thought using the _HPOT command to get the longer side of a right triangle! So I finally got it where you can't make the lightning outside of the globe. Although sometimes the lightning does go a little bit outside, but I will keep that there just for the brightness and mystery of the electricity.  :) So here is what I have. By the way, I was thinking a lot about this program last night and it might have been B+'s globe that he posted months ago that inspired me to make this. When I started this I didn't think about that, but later on I remembered his. Thanks B+ and Steve!

Code: QB64: [Select]
  1. 'This program was made on Sept. 5, 2019 by Ken G.
  2. 'Thank you to B+ and Steve for the inspiration and some help.
  3. _TITLE "Lightning Globe by Ken G. - Use Mouse and Left Mouse Button On the Globe. Esc to end."
  4. _LIMIT 100
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6. x = 400
  7. y = 300
  8. c = 1
  9. st = 2
  10. l = 500
  11. go:
  12. a$ = INKEY$
  13. IF a$ = CHR$(27) THEN END
  14. _LIMIT 200
  15. FOR sz = 1 TO 200 STEP .25
  16.     c = c + .05 + r
  17.     CIRCLE (x, y), sz, _RGB32(c, c, c)
  18. NEXT sz
  19. c = 0
  20. FOR sz = 1 TO 30 STEP .25
  21.     c = c + .005
  22.     CIRCLE (x, y), sz, _RGB32(c, c, c)
  23. NEXT sz
  24.  
  26. handx = _MOUSEX: handy = _MOUSEY: MB = _MOUSEBUTTON(1)
  27. _LIMIT 200
  28.  
  29. IF l > 500 THEN l = 500
  30. IF l < 50 THEN l = 50
  31. IF MB = -1 THEN
  32.     'IF handx < 600 AND handx > 200 AND handy > 100 AND handy < 500 THEN
  33.     IF _HYPOT(handx - 400, handy - 300) < 200 THEN
  34.  
  35.         r = .1
  36.         RANDOMIZE TIMER
  37.         lxx = (RND * 60) + 370
  38.         lyy = (RND * 60) + 270
  39.         RANDOMIZE TIMER
  40.         lxxx = (RND * 60) + 370
  41.         lyyy = (RND * 60) + 270
  42.         bolts = INT(RND * 100) + 1
  43.         DO
  44.             _LIMIT 500
  45.             oldlx = lxx
  46.             oldly = lyy
  47.             oldlxx = lxxx
  48.             oldlyy = lyyy
  49.             IF lxx < handx THEN dxx = 10
  50.             IF lxx > handx THEN dxx = -10
  51.             IF lyy < handy THEN dyy = 10
  52.             IF lyy > handy THEN dyy = -10
  53.             IF lxxx < handx THEN dxxx = 10
  54.             IF lxxx > handx THEN dxxx = -10
  55.             IF lyyy < handy THEN dyyy = 10
  56.             IF lyyy > handy THEN dyyy = -10
  57.             RANDOMIZE TIMER
  58.             dx = (RND * 8) - 4
  59.             dy = (RND * 8) - 4
  60.             RANDOMIZE TIMER
  61.             dxxxx = (RND * 8) - 4
  62.             dyyyy = (RND * 8) - 4
  63.             lxx = lxx + dx
  64.             lyy = lyy + dy
  65.             lxx = lxx + dxx
  66.             lyy = lyy + dyy
  67.             lxxx = lxxx + dxxxx
  68.             lyyy = lyyy + dyyyy
  69.             lxxx = lxxx + dxxx
  70.             lyyy = lyyy + dyyy
  71.             LINE (oldlx, oldly)-(lxx, lyy), _RGB32(255, 255, 255)
  72.             IF bolts > 75 THEN LINE (oldlxx, oldlyy)-(lxxx, lyyy), _RGB32(255, 255, 255)
  73.             ttt = ttt + 1
  74.             IF ttt > 20 THEN GOTO nex:
  75.         LOOP
  76.     END IF
  78. r = 0
  79. nex:
  80. ttt = 0
  82. lxx2 = (RND * 60) + 370
  83. lyy2 = (RND * 60) + 270
  85. lxx3 = (RND * 200) + 270
  86. lyy3 = (RND * 200) + 170
  88. lxx4 = (RND * 60) + 370
  89. lyy4 = (RND * 60) + 270
  91. lxx5 = (RND * 200) + 270
  92. lyy5 = (RND * 200) + 170
  93.  
  94.  
  96.     _LIMIT 500
  97.     oldlx2 = lxx2
  98.     oldly2 = lyy2
  99.     oldlx4 = lxx4
  100.     oldly4 = lyy4
  101.     IF lxx2 < lxx3 THEN dxx = 10
  102.     IF lxx2 > lxx3 THEN dxx = -10
  103.     IF lyy2 < lyy3 THEN dyy = 10
  104.     IF lyy2 > lyy3 THEN dyy = -10
  105.  
  106.     IF lxx4 < lxx5 THEN dxx2 = 10
  107.     IF lxx4 > lxx5 THEN dxx2 = -10
  108.     IF lyy4 < lyy5 THEN dyy2 = 10
  109.     IF lyy4 > lyy5 THEN dyy2 = -10
  111.     dx = (RND * 8) - 4
  112.     dy = (RND * 8) - 4
  114.     dx2 = (RND * 8) - 4
  115.     dy2 = (RND * 8) - 4
  116.     lxx2 = lxx2 + dx
  117.     lyy2 = lyy2 + dy
  118.     lxx2 = lxx2 + dxx
  119.     lyy2 = lyy2 + dyy
  120.     lxx4 = lxx4 + dx2
  121.     lyy4 = lyy4 + dy2
  122.     lxx4 = lxx4 + dxx2
  123.     lyy4 = lyy4 + dyy2
  124.     LINE (oldlx2, oldly2)-(lxx2, lyy2), _RGB32(155, 155, 155)
  125.     LINE (oldlx4, oldly4)-(lxx4, lyy4), _RGB32(155, 155, 155)
  126.     ttt2 = ttt2 + 1
  127.     IF ttt2 > 10 THEN GOTO nex2:
  129.  
  130. nex2:
  131. LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 30), BF
  132. ttt2 = 0
  134. GOTO go:
  135. 'Going back to the start of Main Loop.
  136.  
  137.  

Title: Re: Lightning Globe
Post by: SierraKen on September 05, 2019, 09:09:21 pm
Here is the final version of my Lightning Globe (most likely). I made a stand and changed the colors of the electricity to a bright purple like the real ones are. I also made filled in circles to where the lightning begins in the center and larger ones where they end.

Code: QB64: [Select]
  1. 'This program was made on Sept. 5, 2019 by Ken G.
  2. 'Thank you to B+ and Steve for the inspiration and some help.
  3. _TITLE "Lightning Globe by Ken G. - Use Mouse and Left Mouse Button On the Globe. Esc to end."
  4. _SCREENMOVE 400, 60
  5. SCREEN _NEWIMAGE(800, 600, 32)
  6. x = 400
  7. y = 300
  8. c = 1
  9. st = 2
  10. go:
  11. a$ = INKEY$
  12. IF a$ = CHR$(27) THEN END
  13. _LIMIT 1000
  14. LINE (400, 300)-(150, 600), _RGB32(50, 50, 50)
  15. LINE (400, 300)-(650, 600), _RGB32(50, 50, 50)
  16. LINE (150, 600)-(650, 600), _RGB32(50, 50, 50)
  17. PAINT (500, 580), _RGB32(50, 50, 50)
  18.  
  19. FOR sz = 1 TO 200 STEP .25
  20.     c = c + .05 + r
  21.     CIRCLE (x, y), sz, _RGB32(c, c / 2, c)
  22. NEXT sz
  23. c = 0
  24. FOR sz = 1 TO 30 STEP .25
  25.     c = c + .005
  26.     CIRCLE (x, y), sz, _RGB32(c, c, c)
  27. NEXT sz
  28.  
  30. handx = _MOUSEX: handy = _MOUSEY: MB = _MOUSEBUTTON(1)
  31.  
  32. IF l > 500 THEN l = 500
  33. IF l < 50 THEN l = 50
  34.  
  35. IF MB = -1 AND _HYPOT(handx - 400, handy - 300) < 200 THEN
  36.     r = .1
  38.     lxx = (RND * 60) + 370
  39.     lyy = (RND * 60) + 270
  41.     lxxx = (RND * 60) + 370
  42.     lyyy = (RND * 60) + 270
  43.     bolts = INT(RND * 100) + 1
  44.     CIRCLE (lxx, lyy), 4, _RGB32(255, 245, 255)
  45.     PAINT (lxx, lyy), _RGB32(255, 245, 255)
  46.     IF bolts > 50 THEN
  47.         CIRCLE (lxxx, lyyy), 4, _RGB32(255, 245, 255)
  48.         PAINT (lxxx, lyyy), _RGB32(255, 245, 255)
  49.     END IF
  50.  
  51.     DO
  52.         _LIMIT 1000
  53.         oldlx = lxx
  54.         oldly = lyy
  55.         oldlxx = lxxx
  56.         oldlyy = lyyy
  57.         IF lxx < handx THEN dxx = 10
  58.         IF lxx > handx THEN dxx = -10
  59.         IF lyy < handy THEN dyy = 10
  60.         IF lyy > handy THEN dyy = -10
  61.         IF lxxx < handx THEN dxxx = 10
  62.         IF lxxx > handx THEN dxxx = -10
  63.         IF lyyy < handy THEN dyyy = 10
  64.         IF lyyy > handy THEN dyyy = -10
  65.         RANDOMIZE TIMER
  66.         dx = (RND * 8) - 4
  67.         dy = (RND * 8) - 4
  68.         RANDOMIZE TIMER
  69.         dxxxx = (RND * 8) - 4
  70.         dyyyy = (RND * 8) - 4
  71.         lxx = lxx + dx
  72.         lyy = lyy + dy
  73.         lxx = lxx + dxx
  74.         lyy = lyy + dyy
  75.         lxxx = lxxx + dxxxx
  76.         lyyy = lyyy + dyyyy
  77.         lxxx = lxxx + dxxx
  78.         lyyy = lyyy + dyyy
  79.         LINE (oldlx, oldly)-(lxx, lyy), _RGB32(255, 230, 255)
  80.         IF bolts > 50 THEN LINE (oldlxx, oldlyy)-(lxxx, lyyy), _RGB32(255, 230, 255)
  81.         ttt = ttt + 1
  82.         IF ttt > 20 THEN
  83.             CIRCLE (lxx, lyy), 10, _RGB32(255, 245, 255)
  84.             PAINT (lxx, lyy), _RGB32(255, 245, 255)
  85.             GOTO nex:
  86.         END IF
  87.     LOOP
  89. r = 0
  90. nex:
  91. ttt = 0
  93. lxx2 = (RND * 60) + 370
  94. lyy2 = (RND * 60) + 270
  96. lxx3 = (RND * 200) + 270
  97. lyy3 = (RND * 200) + 170
  99. lxx4 = (RND * 60) + 370
  100. lyy4 = (RND * 60) + 270
  102. lxx5 = (RND * 200) + 270
  103. lyy5 = (RND * 200) + 170
  104.  
  105. CIRCLE (lxx2, lyy2), 4, _RGB32(255, 245, 255)
  106. PAINT (lxx2, lyy2), _RGB32(255, 245, 255)
  107. CIRCLE (lxx4, lyy4), 4, _RGB32(255, 245, 255)
  108. PAINT (lxx4, lyy4), _RGB32(255, 245, 255)
  109.  
  111.     _LIMIT 1000
  112.     oldlx2 = lxx2
  113.     oldly2 = lyy2
  114.     oldlx4 = lxx4
  115.     oldly4 = lyy4
  116.     IF lxx2 < lxx3 THEN dxx = 10
  117.     IF lxx2 > lxx3 THEN dxx = -10
  118.     IF lyy2 < lyy3 THEN dyy = 10
  119.     IF lyy2 > lyy3 THEN dyy = -10
  120.  
  121.     IF lxx4 < lxx5 THEN dxx2 = 10
  122.     IF lxx4 > lxx5 THEN dxx2 = -10
  123.     IF lyy4 < lyy5 THEN dyy2 = 10
  124.     IF lyy4 > lyy5 THEN dyy2 = -10
  126.     dx = (RND * 8) - 4
  127.     dy = (RND * 8) - 4
  129.     dx2 = (RND * 8) - 4
  130.     dy2 = (RND * 8) - 4
  131.     lxx2 = lxx2 + dx
  132.     lyy2 = lyy2 + dy
  133.     lxx2 = lxx2 + dxx
  134.     lyy2 = lyy2 + dyy
  135.     lxx4 = lxx4 + dx2
  136.     lyy4 = lyy4 + dy2
  137.     lxx4 = lxx4 + dxx2
  138.     lyy4 = lyy4 + dyy2
  139.     LINE (oldlx2, oldly2)-(lxx2, lyy2), _RGB32(255, 161, 255)
  140.     LINE (oldlx4, oldly4)-(lxx4, lyy4), _RGB32(255, 161, 255)
  141.     ttt2 = ttt2 + 1
  142.     IF ttt2 > 50 THEN
  143.         CIRCLE (lxx2, lyy2), 8, _RGB32(255, 230, 255)
  144.         PAINT (lxx2, lyy2), _RGB32(255, 230, 255)
  145.         CIRCLE (lxx4, lyy4), 8, _RGB32(255, 230, 255)
  146.         PAINT (lxx4, lyy4), _RGB32(255, 230, 255)
  147.         GOTO nex2:
  148.     END IF
  150.  
  151. nex2:
  152. LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0, 30), BF
  153. ttt2 = 0
  155. GOTO go:
  156. 'Going back to the start of Main Loop.
  157.  
  158.  
Title: Re: Lightning Globe
Post by: bplus on September 05, 2019, 09:14:11 pm
That's pretty cool, Ken :)
Title: Re: Lightning Globe
Post by: SierraKen on September 05, 2019, 09:43:45 pm
Thanks B+! I'll put it on my website now.
Title: Re: Lightning Globe
Post by: SierraKen on September 05, 2019, 09:52:46 pm
I just found 1 _LIMIT 100 after the SCREENMOVE command up on top, so I removed it from my post.
Text Only | Text with Attachments