Mid-Year Christmas Lights

[SierraKen]

LOL just me experimenting again. Some of you might have made this before because it looks very familiar, but I think it's neat. It changes to new lights in different locations every few seconds.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. DIM xx(10), yy(10)
3. DIM cc(10)
4. _TITLE "Christmas Lights"
5. start:
6. _LIMIT 10
7. tt = 2
8. t2 = 1
9. FOR a = 1 TO 10
10.     xx(a) = RND * 800
11.     yy(a) = RND * 600
12.     c = INT(RND * 2) + 1
13.     IF c = 1 THEN cc(a) = _RGB32(255, 0, 0)
14.     IF c = 2 THEN cc(a) = _RGB32(0, 255, 0)
15. NEXT a
16.  
17. DO
18.     _LIMIT 10
19.     a$ = INKEY$
20.     IF a$ = CHR$(27) THEN END
21.     t2 = t2 + 1
22.     FOR amount = 1 TO 10
23.         FOR t = 359 + t2 TO t2 STEP -1
24.             tt = tt + .25
25.             x = (SIN(t) * (90 - tt)) + xx(amount)
26.             y = (COS(t) * tt) + yy(amount)
27.             CIRCLE (x, y), 1, cc(amount)
28.         NEXT t
29.         tt = 2
30.     NEXT amount
31.     _DISPLAY
32.     CLS
33.     m = m + 1
34.     IF m = 50 THEN m = 0: GOTO start:
35. LOOP
36.  

[bplus]

Hi Ken,

Nice effect.

You know if you can draw one of those diamond lights ornaments, you can draw any amount at any scale in a subroutine. All you would do is supply it with an x, y center, a color and a scale. The scale you would use with the multipliers of the radius for SIN and COS calculations to find the x,y pixels for the lights.

THEN
You can decorate trees or garland with those lights or hang them from top of screen and/or spell out Merry Christmas or Happy New Year or both ;)

PLUS you could blink them or have them roll through color patterns.

[FellippeHeitor]

These are very good looking!

[SierraKen]

Thanks guys! B+ yeah the lights started out really huge, so I figured out how to shrink them without having a bunch of pixel "glow" all over the place lol. I might play around with it and make something neat like that. :)

[SierraKen]

Here is a much better version. Instead of just 10 at a time, I made 80 at a time with PSET instead of CIRCLE and increased the screen to 1000 x 800. I think most people have this size of screen by now, or larger. If by chance you are still using a 20 year old CRT monitor with 800 x 600, you can still run it but press Esc to quit the program since X will probably be off the screen.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1200, 800, 32)
2. DIM xx(80), yy(80)
3. DIM cc(80)
4. _TITLE "Christmas Lights"
5. start:
6. _LIMIT 10
7. tt = 2
8. t2 = 1
9. FOR a = 1 TO 80
10.     xx(a) = RND * 1200
11.     yy(a) = RND * 800
12.     c = INT(RND * 2) + 1
13.     IF c = 1 THEN cc(a) = _RGB32(255, 0, 0)
14.     IF c = 2 THEN cc(a) = _RGB32(0, 255, 0)
15. NEXT a
16.  
17. DO
18.     _LIMIT 10
19.     a$ = INKEY$
20.     IF a$ = CHR$(27) THEN END
21.     t2 = t2 + 5
22.     FOR amount = 1 TO 80
23.         FOR t = 359 + t2 TO t2 STEP -1
24.             tt = tt + .25
25.             x = (SIN(t) * (90 - tt)) + xx(amount)
26.             y = (COS(t) * tt) + yy(amount)
27.             PSET (x, y), cc(amount)
28.         NEXT t
29.         tt = 2
30.     NEXT amount
31.     _DISPLAY
32.     CLS
33.     m = m + 1
34.     IF m = 50 THEN m = 0: GOTO start:
35. LOOP
36.  

[bplus]

Actually with graphics, you can draw all you want off screen might waste time but does not error.

[bplus]

That is rather weird object that ornament. But I pinned it down and fiddled with it:

Code: QB64: [Select]

1. _TITLE "Draw Ken's Ornament" 'b+ 2020-08-26
2. SCREEN _NEWIMAGE(1000, 700, 32)
3. _DELAY .25
4. _SCREENMOVE _MIDDLE
5. RANDOMIZE TIMER
6. DIM SHARED pR, pG, pB, pN AS DOUBLE
7.  
8. resetPlasma
9. drawOrnament 500, 350, 90, 0
10. LINE (400, 250)-STEP(200, 200), , B
11. _DELAY 3
12. resetPlasma
13. FOR r = 0 TO 200
14.     CLS
15.     PRINT r
16.     drawOrnament 500, 350, r, 0
17.     _DISPLAY
18.     _LIMIT 10
19. NEXT
20. resetPlasma
21. FOR r = 0 TO 200
22.     CLS
23.     PRINT r
24.     drawOrnament 500, 350, r, -1
25.     _DISPLAY
26.     _LIMIT 10
27. NEXT
28. CLS
29. DO
30.     CLS
31.     rStop = (RND * 80 + 5) \ 1
32.     FOR a = 1 TO rStop
33.         resetPlasma
34.         drawOrnament RND * 1000, RND * 700, 90, RND * 1 \ 1
35.     NEXT
36.     _DISPLAY
37.     _DELAY 2
38. LOOP UNTIL _KEYDOWN(27) = -1
39.  
40.  
41. 'Ken designed at r = 100, no 90 is best radius
42. SUB drawOrnament (x, y, r, lineTF) ' well use r for radius instead of a scale
43.     ' took me awhile to pin down this drawing!
44.     'CIRCLE (x, y), 3
45.     'CIRCLE (x + r, y), 3
46.     'CIRCLE (x - r, y), 3
47.     'CIRCLE (x, y + r), 3
48.     'CIRCLE (x, y - r), 3
49.     t2 = .22
50.     FOR a = 359 + t2 TO t2 STEP -1
51.         x = x + tt * COS(a)
52.         y = y + (r - tt) * SIN(a)
53.         tt = tt + .25
54.         IF a = 359 + t2 THEN
55.             PSET (x, y), Plasma~&
56.         ELSE
57.             IF lineTF THEN LINE -(x, y), Plasma~& ELSE PSET (x, y), Plasma~&
58.         END IF
59.     NEXT
60. END SUB
61.  
62. FUNCTION Plasma~& ()
63.     pN = pN + .1 'dim shared cN as Double, pR as integer, pG as integer, pB as integer
64.     Plasma~& = _RGB32(127 + 127 * SIN(pR * pN), 127 + 127 * SIN(pG * pN), 127 + 127 * SIN(pB * pN))
65. END SUB
66.  
67. SUB resetPlasma ()
68.     pR = RND ^ 2: pG = RND ^ 2: pB = RND ^ 2
69. END SUB
70.  
71.