« previous next »
Pages: [1]   Go Down

Author Topic: Lava Lamp  (Read 4895 times)

0 Members and 1 Guest are viewing this topic.

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Lava Lamp
« on: December 13, 2019, 02:14:33 am »
I've wanted to make one of these since I was a kid, and finally did it. It's not exactly like a lava lamp in that there's no movement inside of it. But the lava forms up and up as it gets hotter and hotter and then it forms down and down when it cools off. Then all of the lava fades out and starts over again. :) Just something I threw together tonight. I also added a fade in and out brightness of the glass border. I know the details could be better, etc. so I might work on that a bit later. But for now, what do you think of it?

Note: There's a much better one after this one with movement.

Code: QB64: [Select]
  1. _TITLE "Lava Lamp - by Ken G."
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. LINE (300, 100)-(500, 500), _RGB32(127, 127, 150), B
  4. b = 50
  5. 'Going Up!
  6. up:
  7. y = 496
  8. t = 1
  9. tt = 0
  10. ttt = 0
  12.     _LIMIT 30
  13.     IF bb = 1 THEN b = b + 1
  14.     IF bb = 2 THEN b = b - 1
  15.     IF b < 51 THEN bb = 1
  16.     IF b > 255 THEN bb = 2
  17.     LINE (300, 100)-(500, 500), _RGB32(b, b, b), B
  19.     xx = (RND * 185) + 306
  20.     t = t * 1.005
  21.     yy = y - t
  22.     IF yy < 108 THEN
  23.         yy = 108
  24.         tt = tt + 1
  25.         IF tt > 15 THEN
  26.             GOTO down:
  27.         END IF
  28.     END IF
  30.     szz = (RND * 10) + .25
  31.     r = RND * 2
  32.     FOR sz = .25 TO szz
  33.         CIRCLE (xx, yy), sz, _RGB32(255, 0, 0), , , r
  34.     NEXT sz
  36.  
  37. 'Going Down!
  38. down:
  39. t = 1
  40. tt = 0
  41. y = 108
  43.     _LIMIT 30
  44.     IF bb = 1 THEN b = b + 1
  45.     IF bb = 2 THEN b = b - 1
  46.     IF b < 51 THEN bb = 1
  47.     IF b > 255 THEN bb = 2
  48.     LINE (300, 100)-(500, 500), _RGB32(b, b, b), B
  50.     xx = (RND * 185) + 306
  51.     t = t * 1.005
  52.     yy = y + t
  53.     IF yy > 500 THEN
  54.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, 30), BF
  55.         yy = 500
  56.         tt = tt + 1
  57.         IF tt > 15 THEN
  58.             GOTO up:
  59.         END IF
  60.     END IF
  62.     szz = (RND * 10) + .25
  63.     r = RND * 2
  64.     FOR sz = .25 TO szz
  65.         CIRCLE (xx, yy), sz, _RGB32(255, 0, 0), , , r
  66.     NEXT sz
  68.  
  69.  

« Last Edit: December 13, 2019, 03:28:12 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Lava Lamp
« Reply #1 on: December 13, 2019, 03:29:39 pm »
This morning I made a MUCH better one with movement of lava randomly going up and down and changing shape. The speed is also random. It doesn't make any formations like the last one, but I like this one better. I also changed the shape of the window so it's 100% lava lamp. :) Do you like it? I also learned on this one that we can make the graphic "trail" effect with any background color, I thought we were just stuck with black. lol

Note: If you have photosensitivity problems, I deleted this one so go to the next one. The next one is better anyway for everyone.

« Last Edit: December 13, 2019, 03:44:56 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Lava Lamp
« Reply #2 on: December 13, 2019, 03:42:43 pm »
Because of photosensitivity to some of the public out there, I decided to change it so it doesn't flash as much and each lava keeps the same shape but does change sizes as it goes up or down. I actually have a better liking to this one anyway. This one has the moving lava.

Note: There is even a better one after this one, with an added bubble and some lava on each end.


Code: QB64: [Select]
  1. _TITLE "Lava"
  2. DIM x(1000), y(1000), d(1000), speed(1000)
  3. SCREEN _NEWIMAGE(200, 600, 32)
  4. LINE (0, 2)-(198, 598), _RGB32(127, 127, 150), B
  5.  
  7.     _LIMIT 50
  8.     t = t + 1
  9.     IF t > 800 THEN t = 0
  11.     d(t) = INT(RND * 2) + 1
  12.     IF d(t) = 1 THEN y(t) = 10
  13.     IF d(t) = 1 THEN y(t) = 590
  14.     speed(t) = (RND * 2) + 1
  16.     x(t) = RND * 190
  17.     s = RND * 2.5
  18.     DO
  19.         LINE (0, 2)-(198, 598), _RGB32(127, 127, 150), B
  20.         IF d(t) = 1 THEN
  21.             y(t) = y(t) - speed(t)
  22.             IF y(t) < 0 THEN y(t) = 0: GOTO more:
  23.             RANDOMIZE TIMER
  24.             si = RND * 30
  25.             FOR sz = .25 TO si
  26.                 CIRCLE (x(t), y(t)), sz, _RGB32(255, 0, 0), , , s
  27.             NEXT sz
  28.         END IF
  29.  
  30.         IF d(t) = 2 THEN
  31.             y(t) = y(t) + speed(t)
  32.             IF y(t) > 590 THEN y(t) = 590: GOTO more:
  33.             RANDOMIZE TIMER
  34.             si = RND * 30
  35.             FOR sz = .25 TO si
  36.                 CIRCLE (x(t), y(t)), sz, _RGB32(255, 0, 0), , , s
  37.             NEXT sz
  38.         END IF
  39.         LINE (0, 0)-(200, 600), _RGBA(75, 40, 40, 30), BF
  40.         _DISPLAY
  41.         _DELAY .005
  42.     LOOP
  43.     more:
  44.     t = t + 1
  46.  
« Last Edit: December 13, 2019, 06:31:44 pm by SierraKen »
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Lava Lamp
« Reply #3 on: December 13, 2019, 05:19:29 pm »
I am reminded of my lava experiments in 2015 with SmallBASIC...

lets see how long to get a translation. :)

Ken you might like this.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Lava Lamp
« Reply #4 on: December 13, 2019, 05:26:01 pm »
Great! post it here bplus! I might enhance mine a bit more too.
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Lava Lamp
« Reply #5 on: December 13, 2019, 06:31:04 pm »
I added a smaller lava bubble. So now I got a blob and a bubble. I also added lava stuck on the top and the bottom to show where they come from.

Note: The one after this has randomly stretched lava cords from the blob to where the blob came from.

Code: QB64: [Select]
  1. _TITLE "Lava"
  2. DIM x(1000), y(1000), d(1000), speed(1000), xx(1000), yy(1000), speed2(1000), d2(1000)
  3. DisplayScreen = _NEWIMAGE(200, 600, 32)
  4. BlobScreen = _NEWIMAGE(200, 600, 32)
  5. BubbleScreen = _NEWIMAGE(200, 600, 32)
  6.  
  7. SCREEN DisplayScreen
  8. LINE (0, 2)-(198, 598), _RGB32(127, 127, 150), B
  9.  
  11.     _LIMIT 50
  12.     'Blobs Setup
  13.     t = t + 1
  14.     IF t > 800 THEN t = 0
  16.     d(t) = INT(RND * 2) + 1
  17.     IF d(t) = 2 THEN y(t) = 10
  18.     IF d(t) = 1 THEN y(t) = 590
  19.     speed(t) = (RND * 2) + 1
  21.     x(t) = RND * 190
  22.     s = RND * 2.5
  23.     'Formations Setup
  24.     tt = tt + 1
  26.     d2(tt) = (RND * 2) + 1
  27.     IF d2(tt) = 2 THEN yy(tt) = 10
  28.     IF d2(tt) = 1 THEN yy(tt) = 590
  29.     speed2(tt) = (RND * 5) + 1
  31.     xx(tt) = RND * 190
  32.     yy(tt) = 598
  33.  
  34.     DO
  35.         _SOURCE BlobScreen: _DEST BlobScreen
  36.         'Up
  37.         LINE (0, 2)-(198, 598), _RGB32(127, 127, 150), B
  38.         CIRCLE (100, 0), 100, _RGB32(255, 0, 0), , , .5
  39.         PAINT (100, 0), _RGB32(255, 0, 0)
  40.         CIRCLE (100, 598), 100, _RGB32(255, 0, 0), , , .5
  41.         PAINT (100, 598), _RGB32(255, 0, 0)
  42.         IF d(t) = 1 THEN
  43.             y(t) = y(t) - speed(t)
  44.             IF y(t) < 0 THEN y(t) = 0: GOTO more:
  45.             RANDOMIZE TIMER
  46.             si = RND * 30
  47.             FOR sz = .25 TO si
  48.                 CIRCLE (x(t), y(t)), sz, _RGB32(255, 0, 0), , , s
  49.             NEXT sz
  50.         END IF
  51.  
  52.         'Down
  53.         IF d(t) = 2 THEN
  54.             y(t) = y(t) + speed(t)
  55.             IF y(t) > 590 THEN y(t) = 590: GOTO more:
  56.             RANDOMIZE TIMER
  57.             si = RND * 30
  58.             FOR sz = .25 TO si
  59.                 CIRCLE (x(t), y(t)), sz, _RGB32(255, 0, 0), , , s
  60.             NEXT sz
  61.         END IF
  62.  
  63.         _SOURCE BubbleScreen
  64.         'Bubble
  65.         yy(tt) = yy(tt) - speed2(tt)
  66.         IF yy(tt) < 0 THEN yy(tt) = 0
  67.         CIRCLE (xx(tt), yy(tt)), 2, _RGB32(255, 0, 0)
  68.  
  69.         _PUTIMAGE , BlobScreen, DisplayScreen
  70.         _PUTIMAGE , BubbleScreen, DisplayScreen
  71.  
  72.         _DISPLAY
  73.         _DELAY .005
  74.         LINE (0, 0)-(200, 600), _RGBA(75, 40, 40, 30), BF
  75.     LOOP
  76.     more:
  77.     t = t + 1
  79.  
  80.  
« Last Edit: December 13, 2019, 07:47:02 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Lava Lamp
« Reply #6 on: December 13, 2019, 07:46:16 pm »
This time I added randomly sized lava cords that stretch from the blob to where the blob came from.

Note: Skip this one again.

Code: QB64: [Select]
  1. _TITLE "Lava"
  2. DIM x(1000), y(1000), d(1000), speed(1000), xx(1000), yy(1000), speed2(1000), d2(1000), cord(1000)
  3. DisplayScreen = _NEWIMAGE(200, 600, 32)
  4. BlobScreen = _NEWIMAGE(200, 600, 32)
  5. BubbleScreen = _NEWIMAGE(200, 600, 32)
  6.  
  7. SCREEN DisplayScreen
  8. LINE (0, 2)-(198, 598), _RGB32(127, 127, 150), B
  9.  
  11.     _LIMIT 50
  12.     'Blobs Setup
  13.     t = t + 1
  14.     IF t > 800 THEN t = 0
  16.     d(t) = INT(RND * 2) + 1
  17.     IF d(t) = 2 THEN y(t) = 10
  18.     IF d(t) = 1 THEN y(t) = 590
  19.     speed(t) = (RND * 2) + 1
  21.     x(t) = RND * 190
  22.     s = RND * 2.5
  24.     cord(t) = (RND * 480) + 120
  25.  
  26.     'Bubbles Setup
  27.     tt = tt + 1
  29.     d2(tt) = (RND * 2) + 1
  30.     IF d2(tt) = 2 THEN yy(tt) = 10
  31.     IF d2(tt) = 1 THEN yy(tt) = 590
  32.     speed2(tt) = (RND * 5) + 1
  34.     xx(tt) = RND * 190
  35.     yy(tt) = 598
  36.  
  37.  
  38.     DO
  39.         _SOURCE BlobScreen: _DEST BlobScreen
  40.         'Up
  41.         LINE (0, 2)-(198, 598), _RGB32(127, 127, 150), B
  42.         CIRCLE (100, 0), 100, _RGB32(255, 0, 0), , , .5
  43.         PAINT (100, 0), _RGB32(255, 0, 0)
  44.         CIRCLE (100, 598), 100, _RGB32(255, 0, 0), , , .5
  45.         PAINT (100, 598), _RGB32(255, 0, 0)
  46.         IF d(t) = 1 THEN
  47.             y(t) = y(t) - speed(t)
  48.             IF y(t) < 0 THEN y(t) = 0: GOTO more:
  49.             RANDOMIZE TIMER
  50.             si = RND * 30
  51.             FOR sz = .25 TO si
  52.                 CIRCLE (x(t), y(t)), sz, _RGB32(255, 0, 0), , , s
  53.             NEXT sz
  54.             IF y(t) < cord(t) THEN GOTO skipcord:
  55.             LINE (x(t) - 1, 590)-(x(t) + 1, y(t)), _RGB32(255, 0, 0), BF
  56.             skipcord:
  57.         END IF
  58.  
  59.         'Down
  60.         IF d(t) = 2 THEN
  61.             y(t) = y(t) + speed(t)
  62.             IF y(t) > 590 THEN y(t) = 590: GOTO more:
  63.             RANDOMIZE TIMER
  64.             si = RND * 30
  65.             FOR sz = .25 TO si
  66.                 CIRCLE (x(t), y(t)), sz, _RGB32(255, 0, 0), , , s
  67.             NEXT sz
  68.             IF y(t) > cord(t) THEN GOTO skipcord2:
  69.             LINE (x(t) - 1, 10)-(x(t) + 1, y(t)), _RGB32(255, 0, 0), BF
  70.             skipcord2:
  71.  
  72.         END IF
  73.  
  74.         _SOURCE BubbleScreen
  75.         'Bubble
  76.         yy(tt) = yy(tt) - speed2(tt)
  77.         IF yy(tt) < 0 THEN yy(tt) = 0
  78.         CIRCLE (xx(tt), yy(tt)), 2, _RGB32(255, 0, 0)
  79.  
  80.         _PUTIMAGE , BlobScreen, DisplayScreen
  81.         _PUTIMAGE , BubbleScreen, DisplayScreen
  82.  
  83.         _DISPLAY
  84.         _DELAY .005
  85.         LINE (0, 0)-(200, 600), _RGBA(75, 40, 40, 30), BF
  86.     LOOP
  87.     more:
  88.     t = t + 1
  90.  

« Last Edit: December 13, 2019, 09:14:59 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Lava Lamp
« Reply #7 on: December 13, 2019, 09:11:53 pm »
Sorry for so many posts, but I keep making this thing better. :)
This time I removed the unnecessary PUT's and SCREEN's, etc. and just kept with the one SCREEN. I was experimenting with it earlier to see if I needed it but I don't.
This time I also made the lava cord thickness depending on the size of the blob and when the blob changes size, the cord does too. So it kinda has a stretching effect to it.

Note: One error in this one, fixed version is after this one.

Code: QB64: [Select]
  1. _TITLE "Lava"
  2. DIM x(1000), y(1000), d(1000), speed(1000), xx(1000), yy(1000), speed2(1000), d2(1000), cord(1000)
  3. SCREEN _NEWIMAGE(200, 600, 32)
  4.  
  5. LINE (0, 2)-(198, 598), _RGB32(127, 127, 150), B
  6.  
  8.     _LIMIT 50
  9.     'Blobs Setup
  10.     t = t + 1
  11.     IF t > 800 THEN t = 0
  13.     d(t) = INT(RND * 2) + 1
  14.     IF d(t) = 2 THEN y(t) = 10
  15.     IF d(t) = 1 THEN y(t) = 590
  16.     speed(t) = (RND * 2) + 1
  18.     x(t) = RND * 190
  19.     s = RND * 2.5
  21.     cord(t) = (RND * 480) + 120
  22.  
  23.     'Bubbles Setup
  24.     tt = tt + 1
  26.     d2(tt) = (RND * 2) + 1
  27.     IF d2(tt) = 2 THEN yy(tt) = 10
  28.     IF d2(tt) = 1 THEN yy(tt) = 590
  29.     speed2(tt) = (RND * 5) + 1
  31.     xx(tt) = RND * 190
  32.     yy(tt) = 598
  33.  
  34.  
  35.     DO
  36.         'Up
  37.         LINE (0, 2)-(198, 598), _RGB32(127, 127, 150), B
  38.         CIRCLE (100, 0), 100, _RGB32(255, 0, 0), , , .5
  39.         PAINT (100, 0), _RGB32(255, 0, 0)
  40.         CIRCLE (100, 598), 100, _RGB32(255, 0, 0), , , .5
  41.         PAINT (100, 598), _RGB32(255, 0, 0)
  42.         IF d(t) = 1 THEN
  43.             y(t) = y(t) - speed(t)
  44.             IF y(t) < 0 THEN y(t) = 0: GOTO more:
  45.             RANDOMIZE TIMER
  46.             si = RND * 30
  47.             FOR sz = .25 TO si
  48.                 CIRCLE (x(t), y(t)), sz, _RGB32(255, 0, 0), , , s
  49.             NEXT sz
  50.             IF y(t) < cord(t) THEN GOTO skipcord:
  51.             LINE (x(t) - sz / 5, 590)-(x(t) + sz / 5, y(t)), _RGB32(255, 0, 0), BF
  52.             skipcord:
  53.         END IF
  54.  
  55.         'Down
  56.         IF d(t) = 2 THEN
  57.             y(t) = y(t) + speed(t)
  58.             IF y(t) > 590 THEN y(t) = 590: GOTO more:
  59.             RANDOMIZE TIMER
  60.             si = RND * 30
  61.             FOR sz = .25 TO si
  62.                 CIRCLE (x(t), y(t)), sz, _RGB32(255, 0, 0), , , s
  63.             NEXT sz
  64.             IF y(t) > cord(t) THEN GOTO skipcord2:
  65.             LINE (x(t) - sz / 5, 10)-(x(t) + sz / 5, y(t)), _RGB32(255, 0, 0), BF
  66.             skipcord2:
  67.  
  68.         END IF
  69.  
  70.         'Bubble
  71.         yy(tt) = yy(tt) - speed2(tt)
  72.         IF yy(tt) < 0 THEN yy(tt) = 0
  73.         CIRCLE (xx(tt), yy(tt)), 2, _RGB32(255, 0, 0)
  74.  
  75.         _DISPLAY
  76.         _DELAY .005
  77.         LINE (0, 0)-(200, 600), _RGBA(75, 40, 40, 30), BF
  78.     LOOP
  79.     more:
  80.     t = t + 1
  82.  
« Last Edit: December 13, 2019, 10:08:35 pm by SierraKen »
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Lava Lamp
« Reply #8 on: December 13, 2019, 10:07:50 pm »
Dang sorry again, I left out 1 line to make tt = 0. lol

Here's the fix:

Code: QB64: [Select]
  1. _TITLE "Lava"
  2. DIM x(1000), y(1000), d(1000), speed(1000), xx(1000), yy(1000), speed2(1000), d2(1000), cord(1000)
  3. SCREEN _NEWIMAGE(200, 600, 32)
  4.  
  5. LINE (0, 2)-(198, 598), _RGB32(127, 127, 150), B
  6.  
  8.     _LIMIT 50
  9.     'Blobs Setup
  10.     t = t + 1
  11.     IF t > 800 THEN t = 0
  13.     d(t) = INT(RND * 2) + 1
  14.     IF d(t) = 2 THEN y(t) = 10
  15.     IF d(t) = 1 THEN y(t) = 590
  16.     speed(t) = (RND * 2) + 1
  18.     x(t) = RND * 190
  19.     s = RND * 2.5
  21.     cord(t) = (RND * 480) + 120
  22.  
  23.     'Bubbles Setup
  24.     tt = tt + 1
  25.     IF tt > 800 THEN tt = 0
  27.     d2(tt) = (RND * 2) + 1
  28.     IF d2(tt) = 2 THEN yy(tt) = 10
  29.     IF d2(tt) = 1 THEN yy(tt) = 590
  30.     speed2(tt) = (RND * 5) + 1
  32.     xx(tt) = RND * 190
  33.     yy(tt) = 598
  34.  
  35.  
  36.     DO
  37.         'Up
  38.         LINE (0, 2)-(198, 598), _RGB32(127, 127, 150), B
  39.         CIRCLE (100, 0), 100, _RGB32(255, 0, 0), , , .5
  40.         PAINT (100, 0), _RGB32(255, 0, 0)
  41.         CIRCLE (100, 598), 100, _RGB32(255, 0, 0), , , .5
  42.         PAINT (100, 598), _RGB32(255, 0, 0)
  43.         IF d(t) = 1 THEN
  44.             y(t) = y(t) - speed(t)
  45.             IF y(t) < 0 THEN y(t) = 0: GOTO more:
  46.             RANDOMIZE TIMER
  47.             si = RND * 30
  48.             FOR sz = .25 TO si
  49.                 CIRCLE (x(t), y(t)), sz, _RGB32(255, 0, 0), , , s
  50.             NEXT sz
  51.             IF y(t) < cord(t) THEN GOTO skipcord:
  52.             LINE (x(t) - sz / 5, 590)-(x(t) + sz / 5, y(t)), _RGB32(255, 0, 0), BF
  53.             skipcord:
  54.         END IF
  55.  
  56.         'Down
  57.         IF d(t) = 2 THEN
  58.             y(t) = y(t) + speed(t)
  59.             IF y(t) > 590 THEN y(t) = 590: GOTO more:
  60.             RANDOMIZE TIMER
  61.             si = RND * 30
  62.             FOR sz = .25 TO si
  63.                 CIRCLE (x(t), y(t)), sz, _RGB32(255, 0, 0), , , s
  64.             NEXT sz
  65.             IF y(t) > cord(t) THEN GOTO skipcord2:
  66.             LINE (x(t) - sz / 5, 10)-(x(t) + sz / 5, y(t)), _RGB32(255, 0, 0), BF
  67.             skipcord2:
  68.  
  69.         END IF
  70.  
  71.         'Bubble
  72.         yy(tt) = yy(tt) - speed2(tt)
  73.         IF yy(tt) < 0 THEN yy(tt) = 0
  74.         CIRCLE (xx(tt), yy(tt)), 2, _RGB32(255, 0, 0)
  75.  
  76.         _DISPLAY
  77.         _DELAY .005
  78.         LINE (0, 0)-(200, 600), _RGBA(75, 40, 40, 30), BF
  79.     LOOP
  80.     more:
  82.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Lava Lamp
« Reply #9 on: December 14, 2019, 11:24:01 am »
More literal meaning to Lava Light:

Code: QB64: [Select]
  1. _TITLE "Lava Flow" 'bplus 2019-12-12 based on Lava 3.bas SmallBASIC 2015-04-25
  2.  
  3. '================================================================================
  4. '                  Press Spacebar for slightly different lava effect
  5. '================================================================================
  6.  
  7. CONST xmax = 1200, ymax = 720, n = 800, bg = &HFF000000 '<< try different colors
  8. DIM SHARED x(1 TO n), y(1 TO n), xr(1 TO n), yr(1 TO n), c(1 TO n) AS _UNSIGNED LONG
  9. SCREEN _NEWIMAGE(xmax, ymax, 32)
  12. FOR i = 1 TO n: new i, -1: NEXT 'init lava
  13. LINE (0, 0)-(xmax, ymax), bg, BF 'black'n screen
  15.     IF INKEY$ = " " THEN toggle = 1 - toggle
  16.     FOR i = 1 TO n
  17.         IF toggle THEN COLOR c(i) ELSE COLOR lavaColor~&
  18.         fEllipse x(i), y(i), xr(i), yr(i)
  19.         x(i) = x(i) + xr(i)
  20.         y(i) = y(i) + (INT(RND * 3) - 1) * yr(i) + .1
  21.         IF x(i) > xmax THEN new i, 0
  22.         IF y(i) < -5 OR y(i) > ymax + 5 THEN new i, 0
  23.     NEXT
  24.     xp = INT(RND * (xmax - 5)) + 1
  25.     yp = INT(RND * (ymax - 5)) + 1
  26.     PAINT (xp, yp), fire~&, bg
  27.     IF xp MOD 100 = 50 OR xp MOD 100 = 55 THEN PAINT (xp, yp), bg, bg
  28.     _LIMIT 30
  31.  
  32. SUB fEllipse (CX AS LONG, CY AS LONG, xRadius AS LONG, yRadius AS LONG)
  33.     DIM scale AS SINGLE, x AS LONG, y AS LONG
  34.     scale = yRadius / xRadius
  35.     LINE (CX, CY - yRadius)-(CX, CY + yRadius), , BF
  36.     FOR x = 1 TO xRadius
  37.         y = scale * SQR(xRadius * xRadius - x * x)
  38.         LINE (CX + x, CY - y)-(CX + x, CY + y), , BF
  39.         LINE (CX - x, CY - y)-(CX - x, CY + y), , BF
  40.     NEXT
  42.  
  43. SUB new (i, rndxTF)
  44.     IF rndxTF THEN x(i) = INT(RND * (xmax - 10)) + 5 ELSE x(i) = RND * 10
  45.     y(i) = INT(RND * (ymax - 10)) + 5
  46.     xr(i) = INT(RND * 4) + 3
  47.     yr(i) = RND * xr(i) * .5
  48.     c(i) = lavaColor~&
  50.  
  51. FUNCTION fire~&
  52.     IF RND < .25 THEN fire~& = &HFF000000 ELSE fire~& = _RGB32(255, RND * 128 + 127, 0)
  54.  
  55. FUNCTION lavaColor~&
  56.     r = INT(RND * 31)
  57.     IF r MOD 4 = 0 THEN lavaColor = bg ELSE lavaColor~& = _RGB32(r / 30 * 128 + 127, RND * r / 45 * 255, 0)
  59.  
  60.  
Logged

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Lava Lamp
« Reply #10 on: December 14, 2019, 12:59:11 pm »
Pretty neat bplus, I thought about using PAINT to fill things sorta like that, but I never got around to it. Yours turns your entire monitor into one. :)
Logged
Pages: [1]   Go Up
« previous next »