🎄🎁✨ Holiday Season - are you ready to code?

[bplus]

Hi @STxAxTIC

I tried your latest and not getting it, maybe need more instruction. By walking forward I assume arrow up key, I do encounter snow that I see and Winter Wonder Land (something like that) in descriptor but see no snowmen or trees I keep going and I seem to end up in space? Some turning left and right required? I did a little of that too, maybe more?

[bplus]

Well I am looking forward to Fellippe's, 2018 Christmas entry was a beauty!

[STxAxTIC]

bplus do you spend any time in 3D simulations of any kind? i can make a video i suppose...

EDIT: I just found a snowman off the terrain, so I definitely have a placement variable wrong. Consider the above a prototype, haha.

[bplus]

Well while waiting for STx to fix his, Fellippe, _vince, Ashish? TempodiBasic? I made another one that was going to go into my Christmas Album:

Programmable Tree Lights version 1 (proof of concept):

Code: QB64: [Select]

1. _TITLE "Programmable Tree Lights, press (&hold) 1, 2, 3 for program" ' b+ 2020-12-19
2. RANDOMIZE TIMER
3. CONST Xmax = 700, Ymax = 700, NLites = 55, RLite = 30
4. TYPE LiteSystem
5.     X AS SINGLE
6.     Y AS SINGLE
7.     C AS _UNSIGNED LONG
8. END TYPE
9. DIM SHARED L(1 TO NLites) AS LiteSystem
10. SCREEN _NEWIMAGE(Xmax, Ymax, 32)
11. _DELAY .25
12. _SCREENMOVE _MIDDLE
13.  
14. ' Get locations for a pyramid of circles st: ========================================================
15. 'let n = number of circles at base of pile
16. n = 10
17.  
18. 'let r = radius of each circle
19. r = RLite
20.  
21. 'let base be total length of pile
22. baseLength = 2 * r * n
23.  
24. 'center pyramid in middle of screen
25. startx = (Xmax - baseLength) / 2
26.  
27.  
28. 'Stringing the lights on tree, adjusted to fit mostly on the tree
29. 'stacking circles that form equilateral triangles at their origins have a height change of
30. deltaHeight = r * 3 ^ .5 'r times the sqr(3)
31. i = 1
32. FOR row = n TO 1 STEP -1
33.     IF row = n THEN y = Ymax - r - 1 ELSE y = y - deltaHeight
34.     FOR col = 1 TO row
35.         x = startx + col * 2 * r - r
36.         IF RND < .5 THEN
37.             r1 = (RND < .45): r2 = (RND < .33): r3 = (RND < .33)
38.             IF r1 = 0 AND r2 = 0 AND r3 = 0 THEN
39.                 c~& = _RGB32(100 + RND * 155, 0, RND * 255)
40.             ELSE
41.                 c~& = _RGB32(r1 * -(100 + RND * 155), r2 * -(100 + RND * 155), r3 * -(100 + RND * 155))
42.             END IF
43.         ELSE
44.             c~& = _RGB32(100 + RND * 155, 100 + RND * 155, 100 + RND * 155)
45.         END IF
46.         L(i).X = x: L(i).Y = y - 3.2 * r - 50: L(i).C = c~&
47.         i = i + 1
48.     NEXT
49.     startx = startx + r
50. NEXT
51.  
52. ' making the stars
53. horizon = Ymax - 4 * r
54. nstars = 100
55. DIM xstar(100), ystar(100), rstar(100)
56. FOR i = 1 TO 100
57.     xstar(i) = RND * (Xmax): ystar(i) = RND * horizon:
58.     IF i < 75 THEN
59.         rstar(i) = 0
60.     ELSEIF i < 95 THEN
61.         rstar(i) = 1
62.     ELSE
63.         rstar(i) = 2
64.     END IF
65. NEXT
66.  
67. ' making the background
68. back = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
69. CLS
70. FOR i = 0 TO horizon
71.     LINE (0, i)-(Xmax, i), _RGB32(i / horizon * 70, i / horizon * 22, 60 * (i) / horizon)
72. NEXT
73. land = Ymax - horizon
74. FOR i = horizon TO Ymax
75.     cc = 128 + (i - horizon) / land * 127
76.     LINE (0, i)-(Xmax, i), _RGB32(cc, cc, cc)
77. NEXT
78. FOR i = 1 TO 100
79.     fcirc xstar(i), ystar(i), rstar(i), &HFFEEEEFF
80. NEXT
81. _PUTIMAGE , 0, back
82.  
83. program$ = "1" ' just random
84. show program$ ' avoid the pause for key checking
85. DO
86.     t! = TIMER(.01) '                 needed this for better response to keypresses at such low _LIMIT on loop
87.     WHILE TIMER(.01) - t! < .25
88.         k$ = INKEY$
89.         IF LEN(k$) THEN
90.             IF INSTR("123", k$) > 0 THEN program$ = k$
91.             EXIT WHILE
92.         END IF
93.         _LIMIT 400
94.     WEND '                           dang!   still have to hold key down for a while
95.     _PUTIMAGE , back, 0
96.     show program$
97.     _DISPLAY
98.     _LIMIT 5
99. LOOP UNTIL INKEY$ = CHR$(27)
100.  
101. SUB show (prog$)
102.     STATIC offset
103.     Pinetree 25, 30, 650, 600
104.     SELECT CASE prog$
105.         CASE "1" 'random blink mostly on
106.             FOR i = 1 TO NLites
107.                 IF RND < .8 THEN Lite L(i).X, L(i).Y, L(i).C
108.             NEXT
109.         CASE "2" ' random red white and blue
110.             FOR i = 1 TO NLites
111.                 r = RND
112.                 IF r < .33 THEN
113.                     Lite L(i).X, L(i).Y, &HFFCC0000
114.                 ELSEIF r < .66 THEN
115.                     Lite L(i).X, L(i).Y, &HFFFFFFFF
116.                 ELSE
117.                     Lite L(i).X, L(i).Y, &HFF0000BB
118.                 END IF
119.             NEXT
120.         CASE "3" ' twinkle
121.             FOR i = 1 TO NLites
122.                 fcirc L(i).X, L(i).Y, 2, &HFF00DDFF
123.                 IF RND < .05 THEN Lite L(i).X, L(i).Y, &HFF00DDFF
124.             NEXT
125.     END SELECT
126.     _TITLE "Program: " + prog$ + "  Programmable Tree Lights, press (&hold) 1, 2, 3 for program"
127. END SUB
128.  
129. SUB Lite (x, y, c AS _UNSIGNED LONG)
130.     FOR r = 25 TO 0 STEP -1
131.         fcirc x, y, r, &H01FFFFFF
132.     NEXT
133.     fcirc x, y, 4, c
134. END SUB
135.  
136. SUB Pinetree (treeX, treeY, wide, high)
137.     'tannen baum by PeterMaria W  orig 440x460
138.     'fits here  LINE (0, 0)-(440, 410), , B
139.     STATIC t&
140.     IF t& = 0 THEN
141.         t& = _NEWIMAGE(440, 410, 32)
142.         _DEST t&
143.         bpx = 220: bpy = 410
144.         tpx = bpx
145.         FOR aa = -4 TO 4
146.             bpxx = bpx + aa
147.             bpyy = bpy - 390
148.             LINE (X + bpxx, y + bpy)-(X + bpx, y + bpyy), _RGB32(30, 30, 0)
149.         NEXT
150.         ra = 160
151.         tpy = bpy - 40
152.         FOR ht = 1 TO 40
153.             FOR xs = -100 TO 100 STEP 40
154.                 xsh = xs / 100
155.                 rs = RND * 4 / 10
156.                 tpxx = tpx + (xsh * ra)
157.                 tpyy = tpy - rs * ra
158.                 LINE (X + tpx, y + tpy)-(X + tpxx, y + tpyy), _RGB32(50, 40, 20)
159.                 FOR aa = 1 TO 30
160.                     fra = RND * 10 / 10 * ra
161.                     x1 = tpx + (xsh * fra)
162.                     y1 = tpy - rs * fra
163.                     x2 = tpx + xsh * (fra + ra / 5)
164.                     y2 = tpy - rs * fra + (-rs + (RND * 8) / 10 - 0.4) * (ra / 5)
165.                     LINE (X + x1, y + y1)-(X + x2, y + y2), _RGB32(RND * 80, RND * 70 + 40, RND * 60)
166.                 NEXT
167.             NEXT
168.             ra = ra - 4
169.             tpy = tpy - 9
170.         NEXT
171.         _DEST 0
172.     END IF
173.     wf = wide / 440: hf = high / 410
174.     _PUTIMAGE (treeX, treeY)-STEP(440 * wf, 410 * hf), t&, 0
175. END SUB
176.  
177. 'from Steve Gold standard
178. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
179.     DIM Radius AS INTEGER, RadiusError AS INTEGER
180.     DIM X AS INTEGER, Y AS INTEGER
181.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
182.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
183.     LINE (CX - X, CY)-(CX + X, CY), C, BF
184.     WHILE X > Y
185.         RadiusError = RadiusError + Y * 2 + 1
186.         IF RadiusError >= 0 THEN
187.             IF X <> Y + 1 THEN
188.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
189.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
190.             END IF
191.             X = X - 1
192.             RadiusError = RadiusError - X * 2
193.         END IF
194.         Y = Y + 1
195.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
196.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
197.     WEND
198. END SUB
199.  
200.  

Feel free to take this and run with it, a 1000 ways to go from here! :)

[Dav]

You all are making such great stuff!!  Very impressive.  Works of art, really.

I tried making a good looking Christmas tree in code, but just couldn't.  So I thought I'd share our Christmas tree here at home which I think is special.  Every ornament was handmade by my mom, who is no longer with us. Guess I'm breaking the no external files suggestion, but @FellippeHeitor you did hint at a musical serenade during the zoom meeting, so the attachment is filling that suggestion.

Here's a peek into Christmas around here.  A screensaver of our Christmas tree with some 'Silent Night' background music I quickly recorded today.  You will need the attachment davstree.dat.

- Dav

Code: QB64: [Select]

1. 'DavsTree.bas
2. '============
3. 'Screensaver of my Christmas tree 2020
4. 'Coded by Dav, DEC/2020, dedicated to my mother.
5. 'MERRY CHRISTMAS EVERYONE!
6.  
7. 'I just wanted to share what Christmas look around here.
8. 'Here's our tree.  Every ornament was handmade by my mother.
9. 'I'm improving on 'Silent Night'for the background music.
10. 'Just having some fun playing, mistakes and all!   - Dav
11.  
12. SCREEN _NEWIMAGE(800, 600, 32)
13.  
14. 'Start music
15. b& = _SNDOPEN("davstree.dat"): _SNDPLAY b&
16.  
17. _DELAY 1
18. FOR f = 1 TO 13
19.     ShowFrame "davstree.dat", f
20. NEXT
21. _DELAY 2
22.  
23. 'stop music if playing
24. _SNDSTOP b&: _SNDCLOSE b&
25.  
26.  
27. :::::::::::::
28. ::::: END:::: 'Merry Christmas!
29. :::::::::::::
30.  
31. '=============================================================
32. 'Adapted from my QBV video format...
33. SUB ShowFrame (file$, framenum)
34.     FF = FREEFILE
35.     OPEN file$ FOR BINARY AS FF
36.     SEEK FF, LOF(FF) - 19
37.     Ver$ = INPUT$(7, FF) 'Version of QBV video format
38.     Audio$ = INPUT$(1, FF) 'Audio setting
39.     vidwidth = CVI(INPUT$(2, FF)) 'Width of video
40.     vidheight = CVI(INPUT$(2, FF)) 'Height of video
41.     VidData = CVL(INPUT$(4, FF)) 'Place in file Video data starts
42.     frames = CVI(INPUT$(2, FF)) 'How many frames in file
43.     fps = CVI(INPUT$(2, FF)) 'How many fps
44.     SEEK FF, VidData + 1
45.     FOR vid = 1 TO frames
46.         framelen$ = INPUT$(4, FF)
47.         frame$ = INPUT$(CVL(framelen$), FF)
48.         IF vid = framenum THEN EXIT FOR
49.     NEXT
50.     'make a temp jpg on disk
51.     FFF = FREEFILE
52.     OPEN "_tmp_qbv_frame_.jpg" FOR OUTPUT AS FFF
53.     PRINT #FFF, frame$;
54.     CLOSE FFF
55.     'load it
56.     frm& = _LOADIMAGE("_tmp_qbv_frame_.jpg")
57.     'erase it
58.     KILL "_tmp_qbv_frame_.jpg"
59.  
60.  
61.     'fade in from black...
62.     FOR a = 255 TO 0 STEP -4
63.         _PUTIMAGE (0, 0), frm&
64.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, a), BF
65.         _LIMIT 30
66.         _DISPLAY
67.     NEXT
68.  
69.     _DELAY 3.9
70.  
71.     'fade out to black
72.     FOR a = 0 TO 255 STEP 4
73.         _PUTIMAGE (0, 0), frm&
74.         LINE (0, 0)-(_WIDTH, _HEIGHT), _RGBA(0, 0, 0, a), BF
75.         _LIMIT 30
76.         _DISPLAY
77.     NEXT
78.  
79.     _FREEIMAGE frm&
80.     CLOSE FF
81.  
82. END SUB
83.  
84.  

[bplus]

That was really nice, handmade ornaments remind me of Christmas's past. I think my sister took off with the ones I grew up with when she moved to Denver. We had things made from clothespins ( 2 varieties), Popsicle sticks, pine cones, foil, pie tins, tiny photos... Specially valued were 3 old ornaments from Grandma's house one was a small sphere with clock face. She used to host Christmas with 2 sets of families for like 25 years.

Love the music with the story!

[bplus]

Here is version #2 of Programmable Tree Lights, new pyramid scheme, 10 color sets, 4 direction modes:
Press digit for color set, letter keys for wave direction h = horizontal, v = vertical, d = diagonal, e = diagonal the other way :)

Code: QB64: [Select]

1. _TITLE "Programmable Tree Lights v2" ' b+ 2020-12-19
2. RANDOMIZE TIMER
3. CONST Xmax = 700, Ymax = 700, N_Rows = 10, N_Cols = 2 * N_Rows - 1
4. CONST X_Spacer = 30, Y_Spacer = 52, X_Offset = 50
5. TYPE ColorSeed
6.     Red AS SINGLE
7.     Green AS SINGLE
8.     Blue AS SINGLE
9. END TYPE
10. DIM SHARED ColorSet(10) AS ColorSeed, ColorSetIndex AS LONG
11. DIM SHARED pR, pG, pB, pN, pStart, pMode$
12. DIM SHARED TG(1 TO N_Cols, 1 TO N_Rows) AS LONG
13. SCREEN _NEWIMAGE(Xmax, Ymax, 32)
14. _DELAY .25
15. _SCREENMOVE _MIDDLE
16.  
17. ' setup some color seeds in ColorSet user can change out with Shift + digit key
18. FOR i = 0 TO 9 ' 10 random color seeds
19.     resetPlasma
20.     ColorSet(i).Red = pR: ColorSet(i).Green = pG: ColorSet(i).Blue = pB
21. NEXT
22.  
23. 'Stringing the lights on tree, adjusted to fit mostly on the tree   2*N - 1 Pryramid
24. FOR row = 1 TO 10
25.     l$ = xStr$(2 * row - 1, "X")
26.     o$ = xStr$(10 - row, "O")
27.     b$ = o$ + l$ + o$
28.     FOR Col = 1 TO N_Cols
29.         IF MID$(b$, Col, 1) = "O" THEN TG(Col, row) = 0 ELSE TG(Col, row) = -1
30.     NEXT
31.     PRINT b$
32. NEXT
33.  
34. ' making the stars
35. horizon = Ymax - 4 * r
36. nstars = 100
37. DIM xstar(100), ystar(100), rstar(100)
38. FOR i = 1 TO 100
39.     xstar(i) = RND * (Xmax): ystar(i) = RND * horizon:
40.     IF i < 75 THEN
41.         rstar(i) = 0
42.     ELSEIF i < 95 THEN
43.         rstar(i) = 1
44.     ELSE
45.         rstar(i) = 2
46.     END IF
47. NEXT
48. CLS
49. ' make a circle tree and align circles to tree with spacers and offsets with new Pyramid Scheme
50. 'Pinetree 25, 30, 650, 600
51. 'FOR row = 1 TO N_Rows
52. '    FOR col = 1 TO N_Cols
53. '        IF TG(col, row) THEN CIRCLE (col * X_Spacer + X_Offset, row * Y_Spacer), 10
54. '    NEXT
55. 'NEXT
56.  
57. ' making the background
58. back = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
59. CLS
60. horizon = Ymax - 100
61. FOR i = 0 TO horizon
62.     LINE (0, i)-(Xmax, i), _RGB32(i / horizon * 70, i / horizon * 22, 60 * (i) / horizon)
63. NEXT
64. land = Ymax - horizon
65. FOR i = horizon TO Ymax
66.     cc = 128 + (i - horizon) / land * 127
67.     LINE (0, i)-(Xmax, i), _RGB32(cc, cc, cc)
68. NEXT
69. FOR i = 1 TO 100
70.     fcirc xstar(i), ystar(i), rstar(i), &HFFEEEEFF
71. NEXT
72. _PUTIMAGE , 0, back
73.  
74. ColorSetIndex = 1: pMode$ = "h"
75. show ' avoid the pause for key checking
76. DO
77.     k$ = INKEY$
78.     IF LEN(k$) THEN
79.         IF INSTR("0123456789", k$) > 0 THEN
80.             ColorSetIndex = VAL(k$)
81.         ELSEIF INSTR("vhde", k$) > 0 THEN
82.             pMode$ = k$
83.         END IF
84.     END IF
85.     _PUTIMAGE , back, 0
86.     show
87.     _DISPLAY
88.     _LIMIT 10
89. LOOP UNTIL INKEY$ = CHR$(27)
90.  
91. SUB show
92.     Pinetree 25, 30, 650, 600
93.     _TITLE "Programmable Tree Lights (0-9) Color Set: " + TS$(ColorSetIndex) + "  (v, h, d, e) Mode: " + pMode$
94.     pR = ColorSet(ColorSetIndex).Red: pG = ColorSet(ColorSetIndex).Green: pB = ColorSet(ColorSetIndex).Blue
95.     pStart = pStart + 1
96.     SELECT CASE pMode$
97.         CASE "h"
98.             FOR row = 1 TO N_Rows
99.                 pRow = pStart + row
100.                 FOR col = 1 TO N_Cols
101.                     pN = pRow
102.                     IF TG(col, row) THEN Lite col * X_Spacer + X_Offset, row * Y_Spacer, Plasma~&
103.                 NEXT
104.             NEXT
105.         CASE "v"
106.             FOR row = 1 TO N_Rows
107.                 FOR col = 1 TO N_Cols
108.                     pN = pStart + col
109.                     IF TG(col, row) THEN Lite col * X_Spacer + X_Offset, row * Y_Spacer, Plasma~&
110.                 NEXT
111.             NEXT
112.         CASE "d"
113.             FOR row = 1 TO N_Rows
114.                 FOR col = 1 TO N_Cols
115.                     pN = pStart + col - row
116.                     IF TG(col, row) THEN Lite col * X_Spacer + X_Offset, row * Y_Spacer, Plasma~&
117.                 NEXT
118.             NEXT
119.         CASE "e"
120.             FOR row = 1 TO N_Rows
121.                 FOR col = 1 TO N_Cols
122.                     pN = pStart + row + col
123.                     IF TG(col, row) THEN Lite col * X_Spacer + X_Offset, row * Y_Spacer, Plasma~&
124.                 NEXT
125.             NEXT
126.  
127.     END SELECT
128. END SUB
129.  
130. SUB Lite (x, y, c AS _UNSIGNED LONG)
131.     cAnalysis c, cR, cG, cB, cA
132.     FOR r = 35 TO 0 STEP -2
133.         fcirc x, y, r, _RGB32(cR, cG, cB, 1)
134.     NEXT
135.     fcirc x, y, 4, c
136. END SUB
137.  
138. SUB Pinetree (treeX, treeY, wide, high)
139.     'tannen baum by PeterMaria W  orig 440x460
140.     'fits here  LINE (0, 0)-(440, 410), , B
141.     STATIC t&
142.     IF t& = 0 THEN
143.         t& = _NEWIMAGE(440, 410, 32)
144.         _DEST t&
145.         bpx = 220: bpy = 410
146.         tpx = bpx
147.         FOR aa = -4 TO 4
148.             bpxx = bpx + aa
149.             bpyy = bpy - 390
150.             LINE (X + bpxx, y + bpy)-(X + bpx, y + bpyy), _RGB32(30, 30, 0)
151.         NEXT
152.         ra = 160
153.         tpy = bpy - 40
154.         FOR ht = 1 TO 40
155.             FOR xs = -100 TO 100 STEP 40
156.                 xsh = xs / 100
157.                 rs = RND * 4 / 10
158.                 tpxx = tpx + (xsh * ra)
159.                 tpyy = tpy - rs * ra
160.                 LINE (X + tpx, y + tpy)-(X + tpxx, y + tpyy), _RGB32(50, 40, 20)
161.                 FOR aa = 1 TO 30
162.                     fra = RND * 10 / 10 * ra
163.                     x1 = tpx + (xsh * fra)
164.                     y1 = tpy - rs * fra
165.                     x2 = tpx + xsh * (fra + ra / 5)
166.                     y2 = tpy - rs * fra + (-rs + (RND * 8) / 10 - 0.4) * (ra / 5)
167.                     LINE (X + x1, y + y1)-(X + x2, y + y2), _RGB32(RND * 80, RND * 70 + 40, RND * 60)
168.                 NEXT
169.             NEXT
170.             ra = ra - 4
171.             tpy = tpy - 9
172.         NEXT
173.         _DEST 0
174.     END IF
175.     wf = wide / 440: hf = high / 410
176.     _PUTIMAGE (treeX, treeY)-STEP(440 * wf, 410 * hf), t&, 0
177. END SUB
178.  
179. SUB cAnalysis (c AS _UNSIGNED LONG, outRed, outGrn, outBlu, outAlp)
180.     outRed = _RED32(c): outGrn = _GREEN32(c): outBlu = _BLUE32(c): outAlp = _ALPHA32(c)
181. END SUB
182.  
183. FUNCTION Plasma~& ()
184.     pN = pN + 1 'dim shared cN as _Integer64, pR as integer, pG as integer, pB as integer
185.     Plasma~& = _RGB32(127 + 127 * SIN(pR * pN), 127 + 127 * SIN(pG * pN), 127 + 127 * SIN(pB * pN))
186. END FUNCTION
187.  
188. SUB resetPlasma ()
189.     pR = RND ^ 2: pG = RND ^ 2: pB = RND ^ 2: pN = 0
190. END SUB
191.  
192. FUNCTION xStr$ (x, strng$)
193.     FOR i = 1 TO x
194.         xStr$ = xStr$ + strng$
195.     NEXT
196. END FUNCTION
197.  
198. FUNCTION TS$ (n AS INTEGER)
199.     TS$ = _TRIM$(STR$(n))
200. END FUNCTION
201.  
202. 'from Steve Gold standard
203. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
204.     DIM Radius AS INTEGER, RadiusError AS INTEGER
205.     DIM X AS INTEGER, Y AS INTEGER
206.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
207.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
208.     LINE (CX - X, CY)-(CX + X, CY), C, BF
209.     WHILE X > Y
210.         RadiusError = RadiusError + Y * 2 + 1
211.         IF RadiusError >= 0 THEN
212.             IF X <> Y + 1 THEN
213.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
214.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
215.             END IF
216.             X = X - 1
217.             RadiusError = RadiusError - X * 2
218.         END IF
219.         Y = Y + 1
220.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
221.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
222.     WEND
223. END SUB
224.  
225.  

[Dav]

Thanks, @bplus.  My wife begs me to throw those old ornaments out every year, but it ain't gonna happen. Haven't ran your last post yet, but the code looks interesting...

- Dav

[FellippeHeitor]

@Dav
That.
Was.
So.
Wholesome.

Man, you rocked that Silent Night! That was amazing! Being able to peek through your X-Mas tree and seeing the hand-made ornaments was so heartwarming.

I thank you so much for sharing that piece. It's wonderful.

@everyone else, I'm still to check your pieces... I'll finally begin having some time off in this holiday season. I'll check your entries soon.

Just to make sure we're all on the same page: is it ok to feature you guys' contributions in a video compilation on our youtube channel?

@Dav is it ok to feature your Silent Night rendition on said video?

PS: I'm running it again and watching the temp files being generated one by one in real time in the background! That's so cool!

[jack]

Dav that was awesome :)

[Dav]

Thanks guys!

@FellippeHeitor: sure, you can use my silent night version on your videos. I wish i had made another recording though, it was a quick 1st take on a cheap keyboard at the last minute, just to add some sound to make it more interesting. Anyway, glad you like it!

Im thinking to expand this idea into a slideshow kit, i have some screen fx and wipes to use.

- Dav

[Petr]

@Dav: Now I've run your program and it's a really beautiful job. Merry Christmas! :)

@FellippeHeitor: I will be honored if you add a video from my program to a video on the Youtube site QB64.

[Dav]

Thankyou @Petr. By the way, have you posted the source code of the easy 3d tunnel video you have on your youtube channel? Looks cool!

- Dav

[Petr]

@Dav: This is just an appetizer :) The code will be available as soon as I add the turns.

[Adrian]

very cool programs everyone!