Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on August 25, 2020, 10:02:10 pm

Title: Mid-Year Christmas Lights
Post by: SierraKen on August 25, 2020, 10:02:10 pm
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:
  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)
  16.  
  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:
  36.  
Title: Re: Mid-Year Christmas Lights
Post by: bplus on August 26, 2020, 11:47:36 am
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.

Title: Re: Mid-Year Christmas Lights
Post by: FellippeHeitor on August 26, 2020, 12:03:16 pm
These are very good looking!
Title: Re: Mid-Year Christmas Lights
Post by: SierraKen on August 26, 2020, 02:39:40 pm
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. :)
Title: Re: Mid-Year Christmas Lights
Post by: SierraKen on August 26, 2020, 05:11:16 pm
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:
  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)
  16.  
  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:
  36.  

Title: Re: Mid-Year Christmas Lights
Post by: bplus on August 26, 2020, 07:03:37 pm
Actually with graphics, you can draw all you want off screen might waste time but does not error.
Title: Re: Mid-Year Christmas Lights
Post by: bplus on August 26, 2020, 09:02:47 pm
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
  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
  12. resetPlasma
  13. FOR r = 0 TO 200
  14.     CLS
  15.     PRINT r
  16.     drawOrnament 500, 350, r, 0
  17.     _DISPLAY
  18.     _LIMIT 10
  20. resetPlasma
  21. FOR r = 0 TO 200
  22.     CLS
  23.     PRINT r
  24.     drawOrnament 500, 350, r, -1
  25.     _DISPLAY
  26.     _LIMIT 10
  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
  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
  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))
  66.  
  67. SUB resetPlasma ()
  68.     pR = RND ^ 2: pG = RND ^ 2: pB = RND ^ 2
  70.  
  71.  
Text Only | Text with Attachments