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

[bplus]

Here's something:

Code: QB64: [Select]

1. _TITLE "b+ mod SierraKen's Ornament - Press Esc to quit." ' b+ 2020-12-09
2. CONST Xmax = 800, Ymax = 600, nOrn = 21, OrnR = 50
3. REDIM SHARED Orn AS LONG
4. SCREEN _NEWIMAGE(Xmax, Ymax, 32)
5. REDIM OrnX(1 TO nOrn), OrnY(1 TO nOrn), OrnA(1 TO nOrn)
6.  
7. ' Get locations for a pyramid of circles st: ========================================================
8. 'let n = number of circles at base of pile
9. n = 6
10.  
11. 'let r = radius of each circle
12. r = OrnR
13.  
14. 'let base be total length of pile
15. baseLength = 2 * r * n
16.  
17. 'center pyramid in middle of screen
18. startx = (Xmax - baseLength) / 2
19.  
20. 'stacking circles that form equilateral triangles at their origins have a height change of
21. deltaHeight = r * 3 ^ .5 'r times the sqr(3)
22. i = 1
23. FOR row = n TO 1 STEP -1
24.     IF row = n THEN y = Ymax - r - 1 ELSE y = y - deltaHeight
25.     FOR col = 1 TO row
26.         x = startx + col * 2 * r - r
27.         'CIRCLE (x, y), r
28.         OrnX(i) = x: OrnY(i) = y: OrnA(i) = RND * 360
29.         i = i + 1
30.     NEXT
31.     startx = startx + r
32. NEXT
33. ' ======================================================================================================
34.  
35. ornament 'draw ornament and note the background is transparent at moment
36.  
37. _DELAY 1.5
38. Orn = _NEWIMAGE(262, 262, 32)
39.  
40. _PUTIMAGE , 0, Orn, (Xmax / 2 - 131, Ymax / 2 - 131)-STEP(262, 262)
41. CLS
42. DO
43.     FOR i = 1 TO nOrn
44.         OrnA(i) = OrnA(i) + 1
45.         drawOrn OrnX(i), OrnY(i), 50, OrnA(i)
46.     NEXT
47.     _DISPLAY
48.     _LIMIT 60
49. LOOP UNTIL INKEY$ = CHR$(27)
50.  
51. SUB drawOrn (x, y, r, degreeAngle)
52.     OffScrn = _NEWIMAGE(262, 262, 32)
53.     _DEST OffScrn
54.     RotoZoom 131, 131, Orn, 1, degreeAngle
55.     _PUTIMAGE (x - r, y - r)-STEP(2 * r, 2 * r), OffScrn, 0
56.     _DEST 0
57.     _FREEIMAGE OffScrn
58. END SUB
59.  
60. SUB ornament
61.     c3 = 180
62.     FOR cir = .01 TO 133 STEP .1
63.         c3 = c3 - .07
64.         CIRCLE (400, 300), cir, _RGB32(0, c3, 0)
65.     NEXT cir
66.     yy = 300
67.     CIRCLE (400, yy), 130, &HFFFFFFFF, 2 * _PI, _PI, .5
68.     yy = yy - 40.5
69.     CIRCLE (400, yy), 124, &HFFFFFFFF, 2 * _PI, _PI, .4
70.     yy = yy - 30.5
71.     CIRCLE (400, yy), 105, &HFFFFFFFF, 2 * _PI, _PI, .39
72.     yy = 300
73.     yy = yy + 22.5
74.     CIRCLE (400, yy), 130, &HFFFFFFFF, 2 * _PI, _PI, .5
75.     yy = yy + 22.5
76.     CIRCLE (400, yy), 125, &HFFFFFFFF, 2 * _PI, _PI, .5
77.     yy = yy + 22.5
78.     CIRCLE (400, yy), 110, &HFFFFFFFF, 2 * _PI, _PI, .5
79.     yy = yy + 22.5
80.     CIRCLE (400, yy), 75, &HFFFFFFFF, , , .5
81.     yy = yy + 22.5
82.     CIRCLE (400, yy), 15, &HFFFFFFFF, , , .5
83. END SUB
84.  
85. SUB RotoZoom (X AS LONG, Y AS LONG, Image AS LONG, Scale AS SINGLE, Rotation AS SINGLE)
86.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
87.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
88.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
89.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
90.     sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
91.     FOR i& = 0 TO 3
92.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
93.         px(i&) = x2&: py(i&) = y2&
94.     NEXT
95.     _MAPTRIANGLE (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
96.     _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
97. END SUB
98.  

[SierraKen]

I turned mine into a Musical Christmas Tree Ornament. It plays Jingle Bells while the ornament turns. The PLAY command plays notes in the background but you need to add "MB" at the start of the PLAY string, as you can see in my JingleBells SUB. I found the notes and lyrics online. The lyrics stay in time with the song as it plays and writes them in the _TITLE bar.

Code: QB64: [Select]

1. 'Musical Christmas Tree Ornament - Sing to Jingle Bells with your computer!
2. 'by SierraKen
3. 'Music Notes and Lyrics found here: https://www.piano-keyboard-guide.com/how-to-play-jingle-bells-easy-piano-keyboard-tutorial-for-beginners/
4.  
5. DIM i AS LONG
6. DIM orn AS LONG
7. RANDOMIZE TIMER
8. t = 1
9. i& = _NEWIMAGE(800, 600, 32)
10. SCREEN i&
11. ornament
12. orn& = _COPYIMAGE(0)
13. CLS
14. JingleBells
15. READ song$: _TITLE song$
16. DO
17.     _LIMIT 60
18.     RotoZoom 400, 300, orn&, 1, turn 'Angle
19.     _DELAY .01
20.     _DISPLAY
21.     CLS
22.     a$ = INKEY$
23.     IF a$ = CHR$(27) THEN END
24.     IF e = 1 AND a$ = " " THEN RESTORE song: e = 0: CLS: turn = 0: READ song$: _TITLE song$: JingleBells
25.     turn = turn + 1
26.     IF turn / 145 = INT(turn / 145) AND e <> 1 THEN
27.         READ song$
28.         IF song$ = "done" THEN e = 1: GOTO skip:
29.         _TITLE song$
30.         skip:
31.         IF e = 1 THEN _TITLE "Musical Christmas Tree Ornament - Press Space Bar to play song again. - Press Esc to quit."
32.     END IF
33. LOOP
34. song:
35. DATA "Jingle bells, jingle bells."
36. DATA "Jingle all the way"
37. DATA "Oh, what fun it is to ride"
38. DATA "In a one horse open sleigh hey"
39. DATA "Jingle bells, jingle bells"
40. DATA "Jingle all the way"
41. DATA "Oh, what fun it is to ride"
42. DATA "In a one horse open sleigh"
43. DATA "Dashing through the snow"
44. DATA "On a one horse open sleigh"
45. DATA "O'er the fields we go,"
46. DATA "Laughing all the way"
47. DATA "Bells on bob tail ring,"
48. DATA "making spirits bright"
49. DATA "What fun it is to laugh and sing"
50. DATA "A sleighing song tonight, Oh"
51. DATA "Jingle bells, jingle bells"
52. DATA "Jingle all the way"
53. DATA "Oh, what fun it is to ride"
54. DATA "In a one horse open sleigh hey"
55. DATA "Jingle bells, jingle bells"
56. DATA "Jingle all the way"
57. DATA "Oh, what fun it is to ride"
58. DATA "In a one horse open sleigh"
59. DATA "done"
60.  
61. SUB JingleBells
62.     PLAY "MB L5 E E E E E E"
63.     PLAY "MB L5 E G C D E"
64.     PLAY "MB L5 F F F F F E E"
65.     PLAY "MB L5 E E E D D E D G"
66.     PLAY "MB L5 E E E E E E"
67.     PLAY "MB L5 E G C D E"
68.     PLAY "MB L5 F F F F F E E"
69.     PLAY "MB L5 E E G G F D C"
70.  
71.     PLAY "MB L5 G E D C G"
72.     PLAY "MB L5 G G G E D C A"
73.     PLAY "MB L5 A F E D B"
74.     PLAY "MB L5 A G F D E"
75.     PLAY "MB L5 G E D C G"
76.     PLAY "MB L5 G E D C A"
77.     PLAY "MB L5 A A F E D G G G"
78.     PLAY "MB L5 G A G F D C G"
79.  
80.     PLAY "MB L5 E E E E E E"
81.     PLAY "MB L5 E G C D E"
82.     PLAY "MB L5 F F F F F E E"
83.     PLAY "MB L5 E E E D D E D G"
84.     PLAY "MB L5 E E E E E E"
85.     PLAY "MB L5 E G C D E"
86.     PLAY "MB L5 F F F F F E E"
87.     PLAY "MB L5 E E G G F D C"
88. END SUB
89.  
90.  
91. SUB ornament
92.     c3 = 255
93.     FOR cir = .01 TO 130 STEP .1
94.         c3 = c3 - .1
95.         CIRCLE (400, 300), cir, _RGB32(0, 0, c3)
96.     NEXT cir
97.     yy = 300
98.     c4 = INT(RND * 155) + 100
99.     c5 = INT(RND * 155) + 100
100.     c6 = INT(RND * 155) + 100
101.     CIRCLE (400, yy), 130, _RGB32(c4, c5, c6), 2 * _PI, _PI, .5
102.     yy = yy - 40.5
103.     CIRCLE (400, yy), 124, _RGB32(c4, c5, c6), 2 * _PI, _PI, .4
104.     yy = yy - 30.5
105.     CIRCLE (400, yy), 105, _RGB32(c4, c5, c6), 2 * _PI, _PI, .39
106.     yy = 300
107.     yy = yy + 22.5
108.     CIRCLE (400, yy), 130, _RGB32(c4, c5, c6), 2 * _PI, _PI, .5
109.     yy = yy + 22.5
110.     CIRCLE (400, yy), 125, _RGB32(c4, c5, c6), 2 * _PI, _PI, .5
111.     yy = yy + 22.5
112.     CIRCLE (400, yy), 110, _RGB32(c4, c5, c6), 2 * _PI, _PI, .5
113.     yy = yy + 22.5
114.     CIRCLE (400, yy), 75, _RGB32(c4, c5, c6), , , .5
115.     yy = yy + 22.5
116.     CIRCLE (400, yy), 15, _RGB32(c4, c5, c6), , , .5
117. END SUB
118.  
119.  
120.  
121. SUB RotoZoom (X AS LONG, Y AS LONG, Image AS LONG, Scale AS SINGLE, Rotation AS SINGLE)
122.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
123.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
124.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
125.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
126.     sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
127.     FOR i& = 0 TO 3
128.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
129.         px(i&) = x2&: py(i&) = y2&
130.     NEXT
131.     _MAPTRIANGLE (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
132.     _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
133. END SUB
134.  

[SierraKen]

LOL That's awesome B+! I will have to study how you did that sometime. :)

[bplus]

That's a great demo of PLAY Ken! I'll have to give that a try.

[SMcNeill]

If it's Christmas time, then it's all about time to go caroling, for which this little program might be of some help:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 720, 32)
2.  
3.  
4. REDIM songs(100) AS STRING
5.  
6.  
7. DO
8.     READ text$
9.     IF text$ = "EOD" THEN EXIT DO
10.     IF LEFT$(text$, 3) = "***" THEN count = count + 1: lines = 0
11.     IF lines > 40 THEN songs(count) = songs(count) + "  (CONTINUE)  ": lines = 0: count = count + 1
12.     lines = lines + 1
13.     songs(count) = songs(count) + text$ + CHR$(10)
14. LOOP
15.  
16. FOR i = 1 TO count
17.     CLS
18.     PRINT songs(i)
19.     SLEEP
20. NEXT
21.  
22. CLS
23. PRINT "Would you like to print these to a file, so you can print or view them elsewhere?"
24. DO: i$ = UCASE$(INPUT$(1)): LOOP UNTIL i$ = "Y" OR i$ = "N"
25. IF i$ = "Y" THEN
26.     INPUT "Give me a file name to save to: "; filename$
27.     IF filename$ = "" THEN filename$ = "Christmas Lyrics.txt"
28.     OPEN filename$ FOR OUTPUT AS #1
29.     RESTORE
30.     DO
31.         READ text$
32.         IF text$ = "EOD" THEN EXIT DO
33.         IF LEFT$(text$, 3) = "***" THEN PRINT #1, ""
34.         PRINT #1, text$
35.     LOOP
36.     CLOSE
37. END IF
38.  
39. SYSTEM
40.  
41.  
42. DATA "**** Angels We Have Heard On High ****"
43. DATA "Angels we have heard on high"
44. DATA "Sweetly singing over the plains"
45. DATA "And the mountains in reply,"
46. DATA "Echoing their joyous strains."
47. DATA "Glo-ori-a"
48. DATA "In excelsis de-o"
49. DATA "Glo-ori-a"
50. DATA "In excelsis de-o"
51. DATA "Shepherds, why this Jubilee?"
52. DATA "Why your joyous strains prolong?"
53. DATA "What the gladsome tidings be"
54. DATA "Which inspire your heavenly song?"
55. DATA "Glo-ori-a"
56. DATA "In excelsis de-o"
57. DATA "Glo-ori-a"
58. DATA "In excelsis de-o"
59. DATA "Come to Bethlehem and see"
60. DATA "Him whose birth the angels sing;"
61. DATA "Come, adore on bended knee"
62. DATA "Christ, the Lord,"
63. DATA "the newborn King"
64. DATA "Glo-ori-a"
65. DATA "In excelsis de-o"
66. DATA "Glo-ori-a"
67. DATA "In excelsis de-o"
68. DATA "See Him in a manger laid"
69. DATA "Jesus, Lord of heaven and earth!"
70. DATA "Mary, Joseph, lend your aid,"
71. DATA "With us sing our Savior's birth."
72. DATA "Glo-ori-a"
73. DATA "In excelsis de-o"
74. DATA "Glo-ori-a"
75. DATA "In excelsis de-o"
76. DATA "**** Away In a Manger ****"
77. DATA "Away in a manger,"
78. DATA "no crib for His bed,"
79. DATA "The little Lord Jesus"
80. DATA "laid down His sweet head;"
81. DATA "The stars in the heavens"
82. DATA "looked down where He lay,"
83. DATA "The little Lord Jesus"
84. DATA "asleep on the hay."
85. DATA "The cattle are lowing,"
86. DATA "the poor Baby wakes,"
87. DATA "But little Lord Jesus,"
88. DATA "no crying He makes."
89. DATA "I love Thee, Lord Jesus;"
90. DATA "look down from the sky"
91. DATA "And stay by my cradle"
92. DATA "till morning is nigh."
93. DATA "Be near me, Lord Jesus;"
94. DATA "I ask Thee to stay"
95. DATA "Close by me forever"
96. DATA "and love me I pray!"
97. DATA "Bless all the dear children"
98. DATA "in Thy tender care,"
99. DATA "And fit us for Heaven"
100. DATA "to live with Thee there."
101. DATA "Away in a manger,"
102. DATA "no crib for His bed,"
103. DATA "The little Lord Jesus"
104. DATA "laid down His sweet head;"
105. DATA "The stars in the heavens"
106. DATA "looked down where He lay,"
107. DATA "The little Lord Jesus"
108. DATA "asleep on the hay."
109. DATA "**** Deck The Halls ****"
110. DATA "Deck the halls with boughs of holly"
111. DATA " Fa-la-la-la-la, la-la-la-la"
112. DATA "'Tis the season to be jolly"
113. DATA " Fa-la-la-la-la, la-la-la-la"
114. DATA "Don we now our gay apparel"
115. DATA " Fa-la-la, la-la-la, la-la-la."
116. DATA "Troll the ancient Yule-tide carol"
117. DATA " Fa-la-la-la-la, la-la-la-la."
118. DATA "See the blazing Yule before us."
119. DATA " Fa-la-la-la-la, la-la-la-la"
120. DATA "Strike the harp and join the chorus."
121. DATA " Fa-la-la-la-la, la-la-la-la"
122. DATA "Follow me in merry measure."
123. DATA " Fa-la-la-la-la, la-la-la-la"
124. DATA "While I tell of Yule-tide treasure."
125. DATA " Fa-la-la-la-la, la-la-la-la"
126. DATA "Fast away the old year passes."
127. DATA " Fa-la-la-la-la, la-la-la-la"
128. DATA "Hail the new year, lads and lasses"
129. DATA " Fa-la-la-la-la, la-la-la-la"
130. DATA "Sing we joyous, all together."
131. DATA " Fa-la-la-la-la, la-la-la-la"
132. DATA "heedless of the wind and weather."
133. DATA " Fa-la-la-la-la, la-la-la-la"
134. DATA "**** Do You Hear What I Hear ****"
135. DATA "Said the night wind to the little lamb,"
136. DATA "do you see what I see"
137. DATA "Way up in the sky, little lamb,"
138. DATA "do you see what I see"
139. DATA "A star, a star, dancing in the night"
140. DATA "With a tail as big as a kite"
141. DATA "With a tail as big as a kite"
142. DATA "Said the little lamb to the shepherd boy,"
143. DATA "do you hear what I hear"
144. DATA "Ringing through the sky, shepherd boy,"
145. DATA "do you hear what I hear"
146. DATA "A song, a song, high above the trees"
147. DATA "With a voice as big as the sea"
148. DATA "With a voice as big as the sea"
149. DATA "Said the shepherd boy to the mighty king,"
150. DATA "do you know what I know"
151. DATA "In your palace warm, mighty king,"
152. DATA "do you know what I know"
153. DATA "A Child, a Child shivers in the cold"
154. DATA "Let us bring Him silver and gold"
155. DATA "Let us bring Him silver and gold"
156. DATA "Said the king to the people everywhere,"
157. DATA "listen to what I say"
158. DATA "Pray for peace, people everywhere!"
159. DATA "listen to what I say"
160. DATA "The Child, the Child, sleeping in the night"
161. DATA "He will bring us goodness and light"
162. DATA "He will bring us goodness and light"
163. DATA "**** Far, Far Away on Judea's Plains ****"
164. DATA "Far, far away on Judea's plains,"
165. DATA "Shepherds of old"
166. DATA "heard the joyous strains:"
167. DATA "Glory to God, Glory to God,"
168. DATA "Glory to God in the highest:"
169. DATA "Peace on earth,"
170. DATA "good-will to men;"
171. DATA "Peace on earth,"
172. DATA "good-will to men!"
173. DATA "Sweet are these strains"
174. DATA "of redeeming love,"
175. DATA "Message of mercy from heaven above:"
176. DATA "Glory to God, Glory to God,"
177. DATA "Glory to God in the highest:"
178. DATA "Peace on earth,"
179. DATA "good-will to men;"
180. DATA "Peace on earth,"
181. DATA "Lord, with the angels"
182. DATA "we too would rejoice,"
183. DATA "Help us to sing with"
184. DATA "the heart and voice:"
185. DATA "Glory to God, Glory to God,"
186. DATA "Glory to God in the highest:"
187. DATA "Peace on earth,"
188. DATA "good-will to men;"
189. DATA "Peace on earth,"
190. DATA "good-will to men!"
191. DATA "Hasten the time when,"
192. DATA "from every clime,"
193. DATA "Men shall unite"
194. DATA "in the strains sublime:"
195. DATA "Glory to God, Glory to God,"
196. DATA "Glory to God in the highest:"
197. DATA "Peace on earth,"
198. DATA "good-will to men;"
199. DATA "Peace on earth,"
200. DATA "good-will to men!"
201. DATA "**** Frosty the Snow Man ****"
202. DATA "Frosty the snowman was a jolly happy soul,"
203. DATA "With a corncob pipe and a button nose"
204. DATA "and two eyes made out of coal."
205. DATA "Frosty the snowman is a fairy tale, they say,"
206. DATA "He was made of snow but the children"
207. DATA "know how he came to life one day."
208. DATA "There must have been some magic in that"
209. DATA "old silk hat they found."
210. DATA "For when they placed it on his head"
211. DATA "he began to dance around."
212. DATA "O, Frosty the snowman"
213. DATA "was alive as he could be,"
214. DATA "And the children say he could laugh"
215. DATA "and play just the same as you and me."
216. DATA "Thumpetty thump thump,"
217. DATA "thumpety thump thump,"
218. DATA "Look at Frosty go."
219. DATA "Thumpetty thump thump,"
220. DATA "thumpety thump thump,"
221. DATA "Over the hills of snow."
222. DATA "Frosty the snowman knew"
223. DATA "the sun was hot that day,"
224. DATA "So he said, 'Let's run and"
225. DATA "we'll have some fun"
226. DATA "now before I melt away.'"
227. DATA "Down to the village,"
228. DATA "with a broomstick in his hand,"
229. DATA "Running here and there all"
230. DATA "around the square saying,"
231. DATA "Catch me if you can."
232. DATA "He led them down the streets of town"
233. DATA "right to the traffic cop."
234. DATA "And he only paused a moment when"
235. DATA "he heard him holler 'Stop!'"
236. DATA "For Frosty the snow man"
237. DATA "had to hurry on his way,"
238. DATA "But he waved goodbye saying,"
239. DATA "'Don't you cry,"
240. DATA "I'll be back again some day.'"
241. DATA "Thumpetty thump thump,"
242. DATA "thumpety thump thump,"
243. DATA "Look at Frosty go."
244. DATA "Thumpetty thump thump,"
245. DATA "thumpety thump thump,"
246. DATA "Over the hills of snow."
247. DATA "**** Go, Tell It On The Mountain ****"
248. DATA "While shepherds kept their watching"
249. DATA "Over silent flocks by night,"
250. DATA "Behold throughout the heavens,"
251. DATA "There shone a holy light:"
252. DATA "Go, Tell It On The Mountain,"
253. DATA "Over the hills and everywhere;"
254. DATA "Go, Tell It On The Mountain"
255. DATA "That Jesus Christ is born."
256. DATA "The shepherds feared and trembled"
257. DATA "When lo! above the earth"
258. DATA "Rang out the angel chorus"
259. DATA "That hailed our Saviour's birth:"
260. DATA "Go, Tell It On The Mountain,"
261. DATA "Over the hills and everywhere;"
262. DATA "Go, Tell It On The Mountain"
263. DATA "That Jesus Christ is born."
264. DATA "Down in a lowly manger"
265. DATA "Our humble Christ was born"
266. DATA "And God send us salvation,"
267. DATA "That blessed Christmas morn:"
268. DATA "Go, Tell It On The Mountain,"
269. DATA "Over the hills and everywhere;"
270. DATA "Go, Tell It On The Mountain"
271. DATA "That Jesus Christ is born."
272. DATA "When I am a seeker,"
273. DATA "I seek both night and day;"
274. DATA "I seek the Lord to help me,"
275. DATA "And He shows me the way:"
276. DATA "Go, Tell It On The Mountain,"
277. DATA "Over the hills and everywhere;"
278. DATA "Go, Tell It On The Mountain"
279. DATA "That Jesus Christ is born."
280. DATA "He made me a watchman"
281. DATA "Upon the city wall,"
282. DATA "And if I am a Christian,"
283. DATA "I am the least of all."
284. DATA "Go, Tell It On The Mountain,"
285. DATA "Over the hills and everywhere;"
286. DATA "Go, Tell It On The Mountain"
287. DATA "That Jesus Christ is born."
288. DATA "**** God Rest Ye Merry, Gentlemen ****"
289. DATA "God Rest Ye Merry, Gentlemen,"
290. DATA "Let nothing you dismay;"
291. DATA "Remember Christ, our Saviour,"
292. DATA "Was born on Christmas day,"
293. DATA "To save us all from Satan's power"
294. DATA "When we were gone astray."
295. DATA "O tidings of comfort and joy,"
296. DATA "comfort and joy,"
297. DATA "O tidings of comfort and joy."
298. DATA "In Bethlehem, in Jewry,"
299. DATA "This blessed Babe was born,"
300. DATA "And laid within a manger,"
301. DATA "Upon this blessed morn;"
302. DATA "That which His Mother Mary,"
303. DATA "Did nothing take in scorn."
304. DATA "O tidings of comfort and joy,"
305. DATA "comfort and joy,"
306. DATA "O tidings of comfort and joy."
307. DATA "From God our Heavenly Father,"
308. DATA "A blessed Angel came;"
309. DATA "And unto certain Shepherds"
310. DATA "Brought tidings of the same:"
311. DATA "How that in Bethlehem was born"
312. DATA "The Son of God by Name."
313. DATA "O tidings of comfort and joy,"
314. DATA "comfort and joy,"
315. DATA "O tidings of comfort and joy."
316. DATA "'Fear not,' then said the Angel,"
317. DATA "'let nothing you affright,"
318. DATA "This day is born a Saviour"
319. DATA "Of pure Virgin bright,"
320. DATA "To free all those who trust in Him"
321. DATA "From Satan's power and might.'"
322. DATA "O tidings of comfort and joy,"
323. DATA "comfort and joy,"
324. DATA "O tidings of comfort and joy."
325. DATA "The shepherds at those tidings"
326. DATA "Rejoiced much in mind,"
327. DATA "And left their flocks a-feeding,"
328. DATA "In tempest, storm, and wind:"
329. DATA "And went to Bethlehem straightway,"
330. DATA "The Son of God to find."
331. DATA "O tidings of comfort and joy,"
332. DATA "comfort and joy,"
333. DATA "O tidings of comfort and joy."
334. DATA "And when they came to Bethlehem"
335. DATA "Where our dear Saviour lay,"
336. DATA "They found Him in a manger,"
337. DATA "Where oxen feed on hay;"
338. DATA "His Mother Mary kneeling down,"
339. DATA "Unto the Lord did pray."
340. DATA "O tidings of comfort and joy,"
341. DATA "comfort and joy,"
342. DATA "O tidings of comfort and joy."
343. DATA "Now to the Lord sing praises,"
344. DATA "All you within this place,"
345. DATA "And with true love and brotherhood"
346. DATA "Each other now embrace;"
347. DATA "This holy tide of Christmas"
348. DATA "All other doth deface."
349. DATA "O tidings of comfort and joy,"
350. DATA "comfort and joy,"
351. DATA "O tidings of comfort and joy."
352. DATA "**** Hark! The Herald Angels Sing ****"
353. DATA "Hark! the herald angels sing"
354. DATA "'Glory to the newborn King"
355. DATA "Peace on earth and mercy mild,"
356. DATA "God and sinners reconciled!'"
357. DATA "Joyful, all ye nations rise;"
358. DATA "Join the triumph of the skies;"
359. DATA "With angelic host proclaim"
360. DATA "'Christ is born in Bethlehem!'"
361. DATA "Hark! the herald angels sing"
362. DATA "'Glory to the newborn King!'"
363. DATA "Christ, by highest heaven adored;"
364. DATA "Christ the everlasting Lord;"
365. DATA "Late in time behold Him come,"
366. DATA "Offspring of the favored one."
367. DATA "Veiled in flesh, the Godhead see;"
368. DATA "hail the incarnate Deity"
369. DATA "Pleased as man with men to dwell,"
370. DATA "Jesus, our Emmanuel"
371. DATA "Hark! the herald angels sing,"
372. DATA "'Glory to the newborn King'"
373. DATA "Hail! the heaven-born Prince of Peace!"
374. DATA "Hail! the Son of Righteousness!"
375. DATA "Light and life to all He brings,"
376. DATA "risen with healing in His wings."
377. DATA "Mild He lays His glory by,"
378. DATA "born that man no more may die;"
379. DATA "Born to raise the sons of earth,"
380. DATA "born to give them second birth"
381. DATA "Hark! the herald angels sing,"
382. DATA "'Glory to the newborn King'"
383. DATA "**** I Heard the Bells on Christmas Day ****"
384. DATA "I Heard the Bells on Christmas Day"
385. DATA "Their old familiar carols play,"
386. DATA "And wild and sweet the words repeat"
387. DATA "Of peace on earth, good will to men."
388. DATA "I thought how, as the day had come,"
389. DATA "The belfries of all Christendom"
390. DATA "Had rolled along the unbroken song"
391. DATA "Of peace on earth, good will to men."
392. DATA "And in despair I bowed my head:"
393. DATA "'There is no peace on earth,' I said,"
394. DATA "'For hate is strong and mocks the song"
395. DATA "Of peace on earth, good will to men.'"
396. DATA "Then pealed the bells more loud and deep:"
397. DATA "'God is not dead, nor doth he sleep;"
398. DATA "The wrong shall fail, the right prevail,"
399. DATA "With peace on earth, good will to men.'"
400. DATA "Till, ringing singing, on its way,"
401. DATA "The world revolved from night to day,"
402. DATA "A voice, a chime, a chant sublime,"
403. DATA "Of peace on earth, good will to men!"
404. DATA "**** It Came Upon The Midnight Clear ****"
405. DATA "It came upon the midnight clear,"
406. DATA "That glorious song of old,"
407. DATA "From angels bending near the earth"
408. DATA "With news of joy foretold,"
409. DATA "'Peace on the earth, good will to men"
410. DATA "From heaven's all gracious King.'"
411. DATA "The world in solemn stillness lay,"
412. DATA "To hear the angels sing."
413. DATA "Still through the cloven skies they come,"
414. DATA "Love's banner all unfurled;"
415. DATA "And still their heavenly music floats"
416. DATA "Over all the weary world."
417. DATA "Above its sad and lowly plains"
418. DATA "Old echoes plaintive ring,"
419. DATA "And ever over its Babel sounds"
420. DATA "The blessed angels sing."
421. DATA "Yet with the woes of sin and strife"
422. DATA "The world has suffered long;"
423. DATA "Beneath the Angel-strain have rolled"
424. DATA "Two thousand years of wrong;"
425. DATA "And man at war with man hears not"
426. DATA "The love-song which they bring;"
427. DATA "O! hush the noise, ye men of strife,"
428. DATA "And hear the Angels sing."
429. DATA "O ye, beneath life's crushing load"
430. DATA "Whose forms are bending low,"
431. DATA "Who toil along the climbing way"
432. DATA "With painful steps and slow;"
433. DATA "Look now! for glad and golden hours"
434. DATA "Come swiftly on the wing;"
435. DATA "O rest beside the weary road"
436. DATA "And hear the angels sing."
437. DATA "For lo! the days are hastening on,"
438. DATA "By prophets seen of old,"
439. DATA "When with the ever-circling years"
440. DATA "Shall come the time foretold,"
441. DATA "When the new heaven and earth shall own"
442. DATA "The Prince of Peace their King,"
443. DATA "And the whole world send back the song"
444. DATA "Which now the angels sing."
445. DATA "**** Jingle Bells ****"
446. DATA "Dashing through the snow"
447. DATA "On a one-horse open sleigh,"
448. DATA "Over the fields we go,"
449. DATA "Laughing all the way;"
450. DATA "Bells on bob-tail ring,"
451. DATA "making spirits bright,"
452. DATA "What fun it is to ride and sing"
453. DATA "A sleighing song tonight"
454. DATA "Jingle bells, jingle bells,"
455. DATA "jingle all the way!"
456. DATA "O what fun it is to ride"
457. DATA "In a one-horse open sleigh"
458. DATA "A day or two ago,"
459. DATA "I thought I'd take a ride,"
460. DATA "And soon Miss Fanny Bright"
461. DATA "Was seated by my side;"
462. DATA "The horse was lean and lank;"
463. DATA "Misfortune seemed his lot;"
464. DATA "He got into a drifted bank,"
465. DATA "And we, we got upsot."
466. DATA "Jingle Bells, Jingle Bells,"
467. DATA "Jingle all the way!"
468. DATA "What fun it is to ride"
469. DATA "In a one-horse open sleigh."
470. DATA "A day or two ago,"
471. DATA "the story I must tell"
472. DATA "I went out on the snow"
473. DATA "And on my back I fell;"
474. DATA "A gent was riding by"
475. DATA "In a one-horse open sleigh,"
476. DATA "He laughed as there"
477. DATA "I sprawling lie,"
478. DATA "But quickly drove away."
479. DATA "Jingle Bells, Jingle Bells,"
480. DATA "Jingle all the way!"
481. DATA "What fun it is to ride"
482. DATA "In a one-horse open sleigh."
483. DATA "Now the ground is white"
484. DATA "Go it while you're young,"
485. DATA "Take the girls tonight"
486. DATA "And sing this sleighing song;"
487. DATA "Just get a bob-tailed bay"
488. DATA "two-forty as his speed"
489. DATA "Hitch him to an open sleigh"
490. DATA "And crack! you'll take the lead."
491. DATA "Jingle Bells, Jingle Bells,"
492. DATA "Jingle all the way!"
493. DATA "What fun it is to ride"
494. DATA "In a one-horse open sleigh."
495. DATA "**** Joy To The World ****"
496. DATA "Joy to the world! The Lord is come."
497. DATA "Let earth receive her King"
498. DATA "Let every heart"
499. DATA "Prepare Him room"
500. DATA "And Saints and angels sing"
501. DATA "And Saints and angels sing"
502. DATA "And Saints and Saints and angels sing"
503. DATA "Joy to the world, the Saviour reigns"
504. DATA "Let Saints their songs employ"
505. DATA "While fields and floods"
506. DATA "rocks, hills and plains"
507. DATA "Repeat the sounding joy"
508. DATA "Repeat the sounding joy"
509. DATA "Repeat, Repeat, the sounding joy"
510. DATA "Joy to the world with truth and grace"
511. DATA "And makes the nations prove"
512. DATA "The glories of His righteousness"
513. DATA "And wonders of His love"
514. DATA "And wonders of His love"
515. DATA "And wonders and wonders of His love"
516. DATA "No more will sin and sorrow grow,"
517. DATA "Nor thorns infest the ground;"
518. DATA "He'll come and make the blessings flow"
519. DATA "Far as the curse was found,"
520. DATA "Far as the curse was found,"
521. DATA "Far as, far as the curse was found."
522. DATA "He rules the world with truth and grace,"
523. DATA "And gives to nations proof"
524. DATA "The glories of His righteousness,"
525. DATA "And wonders of His love;"
526. DATA "And wonders of His love;"
527. DATA "And wonders, wonders of His love."
528. DATA "Rejoice! Rejoice in the Most High,"
529. DATA "While Israel spreads abroad"
530. DATA "Like stars that glitter in the sky,"
531. DATA "And ever worship God,"
532. DATA "And ever worship God,"
533. DATA "And ever, and ever worship God."
534. DATA "**** O Come, All Ye Faithful ****"
535. DATA "O come, all ye faithful,"
536. DATA "Joyful and triumphant,"
537. DATA "O come ye,"
538. DATA "O come ye to Bethlehem;"
539. DATA "Come and behold Him"
540. DATA "Born the King of angels;"
541. DATA "O come, let us adore Him,"
542. DATA "O come, let us adore Him,"
543. DATA "O come, let us adore Him,"
544. DATA "Christ, the Lord."
545. DATA "Sing, choirs of angels,"
546. DATA "Sing in exultation,"
547. DATA "Sing, all ye citizens"
548. DATA "of heaven above;"
549. DATA "Glory to God,"
550. DATA "Glory in the highest;"
551. DATA "O come, let us adore Him,"
552. DATA "O come, let us adore Him,"
553. DATA "O come, let us adore Him,"
554. DATA "Christ, the Lord."
555. DATA "Yea, Lord, we greet Thee,"
556. DATA "Born this happy morning,"
557. DATA "Jesus, to Thee be"
558. DATA "all glory given;"
559. DATA "Son of the Father,"
560. DATA "Now in flesh appearing;"
561. DATA "O come, let us adore Him,"
562. DATA "O come, let us adore Him,"
563. DATA "O come, let us adore Him,"
564. DATA "Christ, the Lord."
565. DATA "**** O Holy Night ****"
566. DATA "O holy night,"
567. DATA "the stars are brightly shining;"
568. DATA "It is the night of"
569. DATA "our dear Savior's birth!"
570. DATA "Long lay the world"
571. DATA "in sin and error pining,"
572. DATA "Till He appeared"
573. DATA "and the soul felt its worth."
574. DATA "A thrill of hope,"
575. DATA "the weary world rejoices,"
576. DATA "For yonder breaks"
577. DATA "a new and glorious morn."
578. DATA "Fall on your knees,"
579. DATA "O hear the angel voices!"
580. DATA "O night divine,"
581. DATA "O night when Christ was born!"
582. DATA "O night divine, O night,"
583. DATA "O night divine!"
584. DATA "Led by the light of Faith"
585. DATA "serenely beaming,"
586. DATA "With glowing hearts"
587. DATA "by His cradle we stand."
588. DATA "So led by light of a star"
589. DATA "sweetly gleaming,"
590. DATA "Here came the wise men"
591. DATA "from Orient land."
592. DATA "The King of Kings lay thus"
593. DATA "in lowly manger,"
594. DATA "In all our trials"
595. DATA "born to be our Friend!"
596. DATA "He knows our need,"
597. DATA "To our weakness no stranger;"
598. DATA "Behold your King!"
599. DATA "Before the lowly bend!"
600. DATA "Behold your King! your King!"
601. DATA "before Him bend."
602. DATA "Truly He taught us"
603. DATA "to love one another;"
604. DATA "His law is love and"
605. DATA "His gospel is peace."
606. DATA "Chains shall He break"
607. DATA "for the slave is our brother"
608. DATA "And in His name"
609. DATA "all oppression shall cease."
610. DATA "Sweet hymns of joy in"
611. DATA "grateful chorus raise we,"
612. DATA "Let all within us"
613. DATA "praise His holy name!"
614. DATA "Christ is the Lord,"
615. DATA "Oh praise His name forever,"
616. DATA "His pow'r and glory evermore proclaim"
617. DATA "His pow'r and glory"
618. DATA "evermore proclaim."
619. DATA "**** O Little Town of Bethlehem ****"
620. DATA "O little town of Bethlehem,"
621. DATA "How still we see thee lie."
622. DATA "Above thy deep and dreamless sleep"
623. DATA "The silent stars go by;"
624. DATA "Yet in thy dark streets shineth"
625. DATA "The everlasting Light;"
626. DATA "The hopes and fears of all the years"
627. DATA "Are met in thee tonight."
628. DATA "For Christ is born of Mary,"
629. DATA "And, gathered all above"
630. DATA "While mortals sleep, the angels keep"
631. DATA "Their watch of wondering love."
632. DATA "O morning stars, together"
633. DATA "Proclaim the holy birth."
634. DATA "And praises sing to God the King."
635. DATA "And peace to men on earth."
636. DATA "How silently, how silently"
637. DATA "The wondrous gift is given!"
638. DATA "So God imparts to human hearts"
639. DATA "The blessings of His heaven."
640. DATA "No ear may hear His coming;"
641. DATA "But in this world of sin,"
642. DATA "Where meek souls will receive Him,"
643. DATA "still The dear Christ enters in."
644. DATA "Where children, pure and happy,"
645. DATA "Pray to the Blessed Child;"
646. DATA "Where misery cries out to thee,"
647. DATA "Son of the Mother mild;"
648. DATA "Where charity stands watching,"
649. DATA "And faith holds wide the door,"
650. DATA "The dark night wakes, the glory breaks,"
651. DATA "and Christmas comes once more."
652. DATA "O Holy Child of Bethlehem,"
653. DATA "Descend to us, we pray;"
654. DATA "Cast out our sin and enter in;"
655. DATA "Be born in us today!"
656. DATA "We hear the Christmas angels"
657. DATA "The great glad tidings tell;"
658. DATA "O come to us, abide with us,"
659. DATA "Our Lord Emmanuel!"
660. DATA "**** Rudolph The Red-Nosed Reindeer ****"
661. DATA "You know Dasher and Dancer"
662. DATA "And Prancer and Vixen,"
663. DATA "Comet and Cupid"
664. DATA "And Donner and Blitzen."
665. DATA "But do you recall"
666. DATA "The most famous reindeer of all?"
667. DATA "Rudolph the red-nosed reindeer"
668. DATA "(reindeer)"
669. DATA "Had a very shiny nose"
670. DATA "(like a light bulb)"
671. DATA "And if you ever saw it"
672. DATA "(saw it)"
673. DATA "You would even say it glows"
674. DATA "(like a flash light)"
675. DATA "All of the other reindeer"
676. DATA "(reindeer)"
677. DATA "Used to laugh and call him names"
678. DATA "(like Pinochio)"
679. DATA "They never let poor Rudolph"
680. DATA "(Rudolph)"
681. DATA "Play in any reindeer games"
682. DATA "(like Monopoly)"
683. DATA "Then one foggy Christmas Eve"
684. DATA "Santa came to say"
685. DATA "(Ho Ho Ho)"
686. DATA "Rudolph with your nose so bright"
687. DATA "Won't you guide my sleigh tonight?"
688. DATA "Then all the reindeer loved him"
689. DATA "(loved him)"
690. DATA "And they shouted out with glee"
691. DATA "(yippee)"
692. DATA "'Rudolph the red-nosed reindeer"
693. DATA "(reindeer)"
694. DATA "You'll go down in history!'"
695. DATA "(like Columbus)"
696. DATA "**** Silent Night ****"
697. DATA "Silent night, holy night!"
698. DATA "All is calm, All is bright"
699. DATA "Round yon Virgin, Mother and Child"
700. DATA "Holy Infant so Tender and mild,"
701. DATA "Sleep in heavenly peace,"
702. DATA "Sleep in heavenly peace."
703. DATA "Silent night, holy night!"
704. DATA "Shepherds quake at the sight!"
705. DATA "Glories stream from heaven afar;"
706. DATA "Heavenly hosts sing Al-le-lu-ia!"
707. DATA "Christ the Saviour is born!"
708. DATA "Christ the Saviour is born!"
709. DATA "Silent night, holy night!"
710. DATA "Wondrous star, lend thy light!"
711. DATA "With the angels let us sing"
712. DATA "Alleluia to our King!"
713. DATA "Christ the Saviour is here,"
714. DATA "Jesus the Saviour is here!"
715. DATA "Silent night, Holy night!"
716. DATA "Son of God, love's pure light"
717. DATA "Radiant beams from Thy holy face,"
718. DATA "with the dawn of redeeming grace,"
719. DATA "Jesus Lord at thy birth;"
720. DATA "Jesus Lord at thy birth."
721. DATA "**** The First Noel ****"
722. DATA "The first Noel the angels did say"
723. DATA "Was to certain poor shepherds"
724. DATA "in fields as they lay,"
725. DATA "In fields where they lay"
726. DATA "keeping their sheep"
727. DATA "On a cold winter's night"
728. DATA "that was so deep."
729. DATA "Noel Noel Noel Noel!"
730. DATA "Born is the King of Israel!"
731. DATA "They looked up and saw a star"
732. DATA "Shining in the East beyond them far,"
733. DATA "And to the earth it gave great light,"
734. DATA "And so it continued both day and night."
735. DATA "Noel Noel Noel Noel!"
736. DATA "Born is the King of Israel!"
737. DATA "And by the light of that same star"
738. DATA "Three wise men came from country far,"
739. DATA "To seek for a King was their intent"
740. DATA "And to follow the star"
741. DATA "wherever it went."
742. DATA "Noel Noel Noel Noel!"
743. DATA "Born is the King of Israel!"
744. DATA "This star drew nigh to the northwest"
745. DATA "Over Bethlehem it took its rest,"
746. DATA "And there it did both stop and stay"
747. DATA "Right over the place where Jesus lay."
748. DATA "Noel Noel Noel Noel!"
749. DATA "Born is the King of Israel!"
750. DATA "Then did they know assuredly"
751. DATA "Within that house the King did lie:"
752. DATA "One entered in then for to see,"
753. DATA "And found the Babe in poverty:"
754. DATA "Noel Noel Noel Noel!"
755. DATA "Born is the King of Israel!"
756. DATA "Then entered in those wise men three"
757. DATA "Full reverently upon their knee,"
758. DATA "And offered there in His presence"
759. DATA "Their gold, and myrrh and frankincense."
760. DATA "Noel Noel Noel Noel!"
761. DATA "Born is the King of Israel!"
762. DATA "Then let us all with one accord"
763. DATA "Sing praises to our heavenly Lord,"
764. DATA "That hath made heaven"
765. DATA "and earth of naught"
766. DATA "And with His blood"
767. DATA "mankind hath bought."
768. DATA "Noel Noel Noel Noel!"
769. DATA "Born is the King of Israel!"
770. DATA "**** The Shepherd's Carol (round) ****"
771. DATA "Mary, Mary hush, see the Child"
772. DATA "Joseph, Joseph, look see how mild"
773. DATA "This is Jesus; this is our King"
774. DATA "This is our Savior, his praises we sing."
775. DATA "**** The Twelve Days of Christmas ****"
776. DATA "On the first day of Christmas"
777. DATA "my true love sent to me:"
778. DATA "A partridge in a pear tree."
779. DATA "On the second day of Christmas"
780. DATA "my true love sent to me:"
781. DATA "Two turtle doves"
782. DATA "And a Partridge in a pear tree."
783. DATA "On the third day of Christmas"
784. DATA "my true love sent to me:"
785. DATA "Three French Hens,"
786. DATA "Two turtle doves"
787. DATA "And a Partridge in a pear tree."
788. DATA "On the fourth day of Christmas"
789. DATA "my true love sent to me:"
790. DATA "Four calling birds,"
791. DATA "Three French Hens,"
792. DATA "Two turtle doves"
793. DATA "And a Partridge in a pear tree."
794. DATA "On the fifth day of Christmas"
795. DATA "my true love sent to me:"
796. DATA "Five golden rings,"
797. DATA "Four calling birds,"
798. DATA "Three French Hens,"
799. DATA "Two turtle doves"
800. DATA "And a Partridge in a pear tree."
801. DATA "On the sixth day of Christmas"
802. DATA "my true love sent to me:"
803. DATA "Six geese a laying,"
804. DATA "Five golden rings,"
805. DATA "Four calling birds,"
806. DATA "Three French Hens,"
807. DATA "Two turtle doves"
808. DATA "And a Partridge in a pear tree."
809. DATA "On the seventh day of Christmas"
810. DATA "my true love sent to me:"
811. DATA "Seven swans a swimming,"
812. DATA "Six geese a laying,"
813. DATA "Five golden rings,"
814. DATA "Four calling birds,"
815. DATA "Three French Hens,"
816. DATA "Two turtle doves"
817. DATA "And a Partridge in a pear tree."
818. DATA "On the eighth day of Christmas"
819. DATA "my true love sent to me:"
820. DATA "Eight maids a milking,"
821. DATA "Seven swans a swimming,"
822. DATA "Six geese a laying,"
823. DATA "Five golden rings,"
824. DATA "Four calling birds,"
825. DATA "Three French Hens,"
826. DATA "Two turtle doves"
827. DATA "And a Partridge in a pear tree."
828. DATA "On the ninth day of Christmas"
829. DATA "my true love sent to me:"
830. DATA "Nine ladies dancing,"
831. DATA "Eight maids a milking,"
832. DATA "Seven swans a swimming,"
833. DATA "Six geese a laying,"
834. DATA "Five golden rings,"
835. DATA "Four calling birds,"
836. DATA "Three French Hens,"
837. DATA "Two turtle doves"
838. DATA "And a Partridge in a pear tree."
839. DATA "On the tenth day of Christmas"
840. DATA "my true love sent to me:"
841. DATA "Ten lords a leaping,"
842. DATA "Nine ladies dancing,"
843. DATA "Eight maids a milking,"
844. DATA "Seven swans a swimming,"
845. DATA "Six geese a laying,"
846. DATA "Five golden rings,"
847. DATA "Four calling birds,"
848. DATA "Three French Hens,"
849. DATA "Two turtle doves"
850. DATA "And a Partridge in a pear tree."
851. DATA "On the eleventh day of Christmas"
852. DATA "my true love sent to me:"
853. DATA "Eleven pipers piping,"
854. DATA "Ten lords a leaping,"
855. DATA "Nine ladies dancing,"
856. DATA "Eight maids a milking,"
857. DATA "Seven swans a swimming,"
858. DATA "Six geese a laying,"
859. DATA "Five golden rings,"
860. DATA "Four calling birds,"
861. DATA "Three French Hens,"
862. DATA "Two turtle doves"
863. DATA "And a Partridge in a pear tree."
864. DATA "On the twelfth day of Christmas"
865. DATA "my true love sent to me:"
866. DATA "Twelve drummers drumming,"
867. DATA "Eleven pipers piping,"
868. DATA "Ten lords a leaping,"
869. DATA "Nine ladies dancing,"
870. DATA "Eight maids a milking,"
871. DATA "Seven swans a swimming,"
872. DATA "Six geese a laying,"
873. DATA "Five golden rings,"
874. DATA "Four calling birds,"
875. DATA "Three French Hens,"
876. DATA "Two turtle doves"
877. DATA "And a Partridge in a pear tree."
878. DATA "**** Up On the Housetop ****"
879. DATA "Up on the housetop"
880. DATA "reindeer pause,"
881. DATA "Out jumps good old Santa Claus."
882. DATA "Down thru' the chimney"
883. DATA "with lots of toys,"
884. DATA "All for the little ones,"
885. DATA "Christmas joys."
886. DATA "Ho, ho, ho!"
887. DATA "Who wouldn't go!"
888. DATA "Ho, ho, ho!"
889. DATA "Who wouldn't go!"
890. DATA "Up on the housetop,"
891. DATA "click, click, click,"
892. DATA "Down thru' the chimney"
893. DATA "with good Saint Nick."
894. DATA "First comes the stocking"
895. DATA "of little Nell,"
896. DATA "Oh, dear Santa"
897. DATA "fill it well;"
898. DATA "Give her a dolly"
899. DATA "that laughs and cries"
900. DATA "One that will open"
901. DATA "and shut her eyes."
902. DATA "Ho, ho, ho!"
903. DATA "Who wouldn't go!"
904. DATA "Ho, ho, ho!"
905. DATA "Who wouldn't go!"
906. DATA "Up on the housetop,"
907. DATA "click, click, click,"
908. DATA "Down thru' the chimney"
909. DATA "with good Saint Nick."
910. DATA "Next comes the stocking"
911. DATA "of little Will,"
912. DATA "Oh just see"
913. DATA "what a glorious fill"
914. DATA "Here is a hammer"
915. DATA "and lots of tacks,"
916. DATA "Also a ball"
917. DATA "and a whip that cracks."
918. DATA "Ho, ho, ho!"
919. DATA "Who wouldn't go!"
920. DATA "Ho, ho, ho!"
921. DATA "Who wouldn't go!"
922. DATA "Up on the housetop,"
923. DATA "click, click, click,"
924. DATA "Down thru' the chimney"
925. DATA "with good Saint Nick."
926. DATA "**** We Three Kings ****"
927. DATA "[all sing]"
928. DATA "We three kings of orient are,"
929. DATA "bearing gifts we traverse afar"
930. DATA "Field and fountain,"
931. DATA "moor and mountain,"
932. DATA "following yonder star."
933. DATA "O star of wonder, star of night,"
934. DATA "star with royal beauty bright."
935. DATA "Westward leading, still proceeding,"
936. DATA "Guide us to thy perfect light."
937. DATA "[Melchior sings]"
938. DATA "Born a King on Bethlehem's plain,"
939. DATA "Gold I bring to crown Him again"
940. DATA "King for ever, ceasing never"
941. DATA "over us all to reign."
942. DATA "[all sing]"
943. DATA "O star of wonder, star of night,"
944. DATA "star with royal beauty bright."
945. DATA "Westward leading, still proceeding,"
946. DATA "Guide us to thy perfect light."
947. DATA "[Casper sings]"
948. DATA "Frankincense to offer have I,"
949. DATA "incense owns a Deity nigh"
950. DATA "Prayer and praising, all men raising,"
951. DATA "Worship Him, God most high."
952. DATA "[all sing]"
953. DATA "O star of wonder, star of night,"
954. DATA "star with royal beauty bright."
955. DATA "Westward leading, still proceeding,"
956. DATA "Guide us to thy perfect light."
957. DATA "[Balthazar sings]"
958. DATA "Myrrh is mine,"
959. DATA "its bitter perfume breathes"
960. DATA "a life of gathering gloom."
961. DATA "Sorrowing, sighing, bleeding, dying,"
962. DATA "sealed in the stone cold tomb."
963. DATA "[all sing]"
964. DATA "O star of wonder, star of night,"
965. DATA "star with royal beauty bright."
966. DATA "Westward leading, still proceeding,"
967. DATA "Guide us to thy perfect light."
968. DATA "Glorious now behold Him arise,"
969. DATA "King and God and Sacrifice!"
970. DATA "Al-le-lu-ia, al-le-lu-ia,"
971. DATA "heaven to earth replies."
972. DATA "O star of wonder, star of night,"
973. DATA "star with royal beauty bright."
974. DATA "Westward leading, still proceeding,"
975. DATA "Guide us to thy perfect light."
976. DATA "**** We Wish You A Merry Christmas ****"
977. DATA "We wish you a merry Christmas"
978. DATA "We wish you a merry Christmas"
979. DATA "We wish you a merry Christmas"
980. DATA "And a happy New Year."
981. DATA "Glad tidings we bring"
982. DATA "To you and your kin;"
983. DATA "Glad tidings for Christmas"
984. DATA "And a happy New Year!"
985. DATA "We want some figgy pudding"
986. DATA "We want some figgy pudding"
987. DATA "We want some figgy pudding"
988. DATA "Please bring it right here!"
989. DATA "Glad tidings we bring"
990. DATA "To you and your kin;"
991. DATA "Glad tidings for Christmas"
992. DATA "And a happy New Year!"
993. DATA "We won't go until we get some"
994. DATA "We won't go until we get some"
995. DATA "We won't go until we get some"
996. DATA "So bring it out here!"
997. DATA "Glad tidings we bring"
998. DATA "To you and your kin;"
999. DATA "Glad tidings for Christmas"
1000. DATA "And a happy New Year!"
1001. DATA "We wish you a Merry Christmas"
1002. DATA "We wish you a Merry Christmas"
1003. DATA "We wish you a Merry Christmas"
1004. DATA "And a happy New Year."
1005. DATA "Glad tidings we bring"
1006. DATA "To you and your kin;"
1007. DATA "Glad tidings for Christmas"
1008. DATA "And a happy New Year!"
1009. DATA "**** What Child Is This? ****"
1010. DATA "What Child is this, who laid to rest,"
1011. DATA "On Mary's lap is sleeping?"
1012. DATA "Whom angels greet with anthems sweet"
1013. DATA "While shepherds watch are keeping?"
1014. DATA "This, this is Christ the King"
1015. DATA "Whom shepherds guard and angels sing."
1016. DATA "Haste, haste to bring Him laud,"
1017. DATA "The Babe, the Son of Mary."
1018. DATA "Why lies He in such mean estate"
1019. DATA "Where ox and ass are feeding?"
1020. DATA "Good Christian, fear: for sinners here,"
1021. DATA "The silent Word is pleading."
1022. DATA "This, this is Christ the King"
1023. DATA "Whom shepherds guard and angels sing."
1024. DATA "Haste, haste to bring Him laud,"
1025. DATA "The Babe, the Son of Mary."
1026. DATA "Nails, spear, shall pierce Him through,"
1027. DATA "The Cross be borne, for me, for you:"
1028. DATA "Hail, hail, the Word made flesh,"
1029. DATA "The Babe, the Son of Mary!"
1030. DATA "This, this is Christ the King"
1031. DATA "Whom shepherds guard and angels sing."
1032. DATA "Haste, haste to bring Him laud,"
1033. DATA "The Babe, the Son of Mary."
1034. DATA "So bring Him incense, gold and myrrh;"
1035. DATA "Come peasant, king to own Him."
1036. DATA "The King of Kings salvation brings;"
1037. DATA "Let loving hearts enthrone Him."
1038. DATA "This, this is Christ the King"
1039. DATA "Whom shepherds guard and angels sing."
1040. DATA "Haste, haste to bring Him laud,"
1041. DATA "The Babe, the Son of Mary."
1042. DATA "Raise, raise, the song on high,"
1043. DATA "The Virgin sings her lullaby:"
1044. DATA "Joy joy for Christ is born,"
1045. DATA "The Babe, the Son of Mary!"
1046. DATA "This, this is Christ the King"
1047. DATA "Whom shepherds guard and angels sing."
1048. DATA "Haste, haste to bring Him laud,"
1049. DATA "The Babe, the Son of Mary."
1050. DATA "**** While Shepherds Watched Their Flocks ****"
1051. DATA "While shepherds watched their flocks by night,"
1052. DATA "All seated on the ground,"
1053. DATA "The angel of the Lord came down,"
1054. DATA "And glory shone around."
1055. DATA "'Fear not,' said he, for mighty dread"
1056. DATA "Had seized their troubled mind,"
1057. DATA "'Glad tidings of great joy I bring"
1058. DATA "To you and all mankind.'"
1059. DATA "'To you, in David's town this day,"
1060. DATA "Is born of David's line"
1061. DATA "The Savior who is Christ the Lord,"
1062. DATA "And this shall be the sign:"
1063. DATA "The heavenly Babe you there shall find"
1064. DATA "To human view displayed,"
1065. DATA "All meanly wrapped in swathing bands,"
1066. DATA "And in a manger laid.'"
1067. DATA "Thus spake the seraph, and forthwith"
1068. DATA "Appeared a shining throng"
1069. DATA "Of angels praising God and thus"
1070. DATA "Addressed their joyful song:"
1071. DATA "'All glory be to God on high"
1072. DATA "And on the earth be peace,"
1073. DATA "Goodwill henceforth from heaven to men"
1074. DATA "Begin and never cease.'"
1075. DATA "**** With Wondering Awe ****"
1076. DATA "With wondering awe the wise men saw"
1077. DATA "The star in heaven springing,"
1078. DATA "And with delight, in peaceful night,"
1079. DATA "They heard the angel singing:"
1080. DATA "Hosanna, hosanna, hosanna to His name!"
1081. DATA "By light of star they traveled far"
1082. DATA "To seek the lowly manger,"
1083. DATA "A humble bed wherein was laid"
1084. DATA "The wondrous little Stranger."
1085. DATA "Hosanna, hosanna, hosanna to His name!"
1086. DATA "And still is found, the world around,"
1087. DATA "The old and hallowed story,"
1088. DATA "And still is sung in every tongue"
1089. DATA "The angels' song of glory:"
1090. DATA "Hosanna, hosanna, hosanna to His name!"
1091. DATA "The heavenly star its rays afar"
1092. DATA "On every land is throwing,"
1093. DATA "And shall not cease till holy peace"
1094. DATA "In all the earth is growing."
1095. DATA "Hosanna, hosanna, hosanna to His name!"
1096. DATA "EOD"
1097.  

Less than 30 songs here, but the format should be simple enough that anyone can add the lyrics to whatever they like to this listing without any problems.  View them on your screen, or print them to a file to carry on your phone/ipad as you go and serenade your neighbors for X-Mas.  :D

[Dav]

There's some really cool stuff posted here. It made me throw something together.  Here's an old school animated Christmas card.  A little snow, a little tree, a little present, a little Santa, a little music.  Merry Christmas!

- Dav

Code: QB64: [Select]

1. '=================
2. 'CHRISTMAS2020.bas
3. '=================
4. 'Christmas card to the QB64 community.
5. 'Coded by Dav, DEC/2020
6.  
7. 'Shows a liite snow, santa, tree, present, animation, music.
8. 'Merry Christmas.
9.  
10. SCREEN _NEWIMAGE(868, 540, 32)
11.  
12. DIM SHARED wht& 'subs use this...
13. wht& = _RGB(255, 255, 255) 'white color
14.  
15. ON TIMER(.5) GOSUB ANIMATE
16.  
17. _PRINTMODE _KEEPBACKGROUND
18.  
19.  
20. '======  draw white color outlines first ...
21.  
22. 'Draw tree star
23. CLINE ("199129209145214126234126219113232095211101201083196102176102192117180134199129")
24.  
25. 'Draw the tree
26. CLINE ("199129175168190168156210168210142237160237129276141276110312132312102348120348")
27. CLINE ("120348093385108394136399172402242402283399316393327387300348312348284311309311")
28. CLINE ("309311276275289275258236272236246209259209224168239168214126")
29. CLINE ("173402181435234435242402")
30.  
31. 'Draw fireplace
32. CLINE ("613328613275618272618268613269613215607209612206613199")
33. CLINE ("467345489346493206529188582188627204627344649344")
34. CLINE ("507327506276503274506270505216514207513196")
35. CLINE ("448340418358417364692364692359669342")
36. CLINE ("490345508328613328626345")
37. LINE (422, 105)-(697, 166), wht&, B: LINE (449, 166)-(466, 344), wht&, B
38. LINE (648, 166)-(669, 345), wht&, B: LINE (481, 0)-(481, 104), wht&
39. LINE (631, 0)-(631, 104), wht&
40.  
41. 'draw santa
42. CLINE ("514208540214560217583215603211611207613199")
43. CLINE ("524210524252539257561218580254594251598230595213")
44. CLINE ("582254591271591275589275590280593284599282598278606278613274")
45. CLINE ("539258529275529278531280530283523284522280514282506276")
46. CLINE ("529189556195569194587190")
47. CLINE ("594251598270613269")
48. CLINE ("526253523272506270")
49.  
50. 'draw window
51. CLINE ("000104157104157000"): CLINE ("000093146093146000")
52. CLINE ("035093035028146028"): CLINE ("028093028028000028")
53. CLINE ("000022028022028000"): CLINE ("035000035022146022")
54.  
55. 'draw present
56. CLINE ("412428388416375425383446402446425434459438452407422425421422412428")
57. CLINE ("377432353433352451421470488451487435420448403446391446")
58. CLINE ("419448422469420515359492358452"): CLINE ("420437447444470439459438")
59. CLINE ("470439469456454460455442"): CLINE ("386433395430404433")
60. CLINE ("458433487436467440")
61. LINE (412, 428)-(416, 438), wht&: LINE (421, 424)-(424, 434), wht&
62. LINE (427, 430)-(443, 423), wht&: LINE (352, 434)-(380, 440), wht&
63. LINE (373, 440)-(372, 456), wht&: LINE (392, 446)-(392, 461), wht&
64. LINE (450, 461)-(450, 504), wht&: LINE (463, 458)-(463, 499), wht&
65. LINE (420, 516)-(482, 491), wht&: LINE (482, 491)-(481, 452), wht&
66. LINE (378, 458)-(378, 500), wht&: LINE (395, 462)-(394, 505), wht&
67.  
68. 'draw walls (left side)
69. LINE (0, 190)-(173, 190), wht&: LINE (244, 190)-(449, 190), wht&
70. LINE (0, 206)-(159, 206), wht&: LINE (257, 206)-(449, 206), wht&
71. LINE (0, 338)-(109, 338), wht&: LINE (305, 338)-(449, 338), wht&
72.  
73. 'draw walls (right side)
74. CLINE ("669192805192867229"): CLINE ("669209805209867244")
75. CLINE ("669341806341867390"): LINE (805, 0)-(805, 341), wht&
76.  
77.  
78. '======= Paint in the colors....
79.  
80. CPAINT ("371435362445366469424443407455408491441454438484371435466436478446473471"), _RGB(31, 255, 31)
81. CPAINT ("400436420430440430380450446440460450385475455475"), _RGB(255, 0, 0)
82. CPAINT ("750260380240060240660222543118455183"), _RGB(76, 109, 138)
83. CPAINT ("525056638214600345153019033026"), _RGB(40, 57, 72)
84. CPAINT ("707075499209620246297077"), _RGB(67, 87, 123)
85. CPAINT ("569192537226582236"), _RGB(205, 4, 23)
86. CPAINT ("515235557278603253"), _RGB(80, 120, 153)
87. CPAINT ("786202092198322199"), _RGB(83, 120, 153)
88. CPAINT ("827217842226"), _RGB(74, 107, 136)
89. PAINT (207, 417), _RGB(176, 65, 13), wht&
90. PAINT (204, 113), _RGB(255, 255, 69), wht&
91. PAINT (204, 239), _RGB(0, 94, 0), wht&
92. PAINT (650, 470), _RGB(28, 40, 50), wht&
93. PAINT (840, 120), _RGB(56, 80, 102), wht&
94. PAINT (842, 285), _RGB(62, 89, 114), wht&
95. PAINT (567, 206), wht&, wht&
96.  
97. 'draw santas thought box
98. LINE (657, 20)-(790, 70), wht&, BF
99. LINE (637, 100)-(680, 70), wht&
100. LINE (637, 100)-(734, 70), wht&
101. PAINT (680, 77), wht&, wht&
102. COLOR _RGB(0, 0, 0)
103. _PRINTSTRING (662, 27), "I KNEW I ate"
104. _PRINTSTRING (662, 45), "too much turkey"
105.  
106. '=====================================================
107.  
108.  
109. TIMER ON
110.  
111. 'Play We wish you a Merry Christmas song...
112. Music$ = "mbt160o2g4o3c4c8d8c8o2b8a4a4a4o3d4d8e8d8c8o2b4g4g4o3e4e8f8"
113. Music$ = Music$ + "e8d8c4o2a4g8g8a4o3d4o2b4o3c2o2g4o3c4c4c4o2b2b4o3"
114. Music$ = Music$ + "c4o2b4a4g2o3d4e4d4c4o3g4o2g4g8g8a4o3d4o2b4o3c2"
115. Music$ = Music$ + "o2g4o3c4c8d8c8o2b8a4a4a4o3d4d8e8d8c8o2b4g4g4"
116. Music$ = Music$ + "o3e4e8f8e8d8c4o2a4g8g8a4o3d4o2b4o3c2"
117. PLAY Music$
118.  
119. 'Show until keypress
120. DO: LOOP UNTIL INKEY$ <> ""
121.  
122.  
123. END
124.  
125. '======================================================================
126.  
127.  
128.  
129. '======
130. ANIMATE:
131. '======
132.  
133. 'show a little snow in window frames
134. SNOW 0, 0, 27, 20 'top left frame
135. SNOW 36, 0, 145, 20 'top right frame
136. SNOW 0, 29, 27, 90 'bottom left
137. SNOW 36, 29, 145, 91 'bottom right
138.  
139. 'Draw/color ornaments
140. CCIRCLE ("198157051981871123019805191224062302230717126011")
141. CCIRCLE ("217250082562550515430209195295122282900425427806")
142. CCIRCLE ("256303051493390718033008209321092433451528032906")
143. CCIRCLE ("1543751319136804230383062863630927838707")
144.  
145. 'blink a message
146. IF INT(RND * 2) + 1 = 1 THEN COLOR _RGB(0, 0, 0) ELSE COLOR _RGB(255, 255, 255)
147.  
148. _PRINTSTRING (450, 128), "M E R R Y  C H R I S T M A S"
149.  
150. RETURN
151.  
152.  
153. '==========================================================================
154.  
155. SUB CLINE (a$)
156.     'draws continuious white line based on string of x/y cordinates
157.     '(yes, I could have used DRAW instead, but wanted to roll my own...)
158.     'set first line draw position
159.     LINE (VAL(MID$(a$, 1, 3)), VAL(MID$(a$, 4, 3)))-(VAL(MID$(a$, 7, 3)), VAL(MID$(a$, 10, 3))), wht&
160.     'continue based on last line position
161.     FOR d = 13 TO LEN(a$) STEP 6
162.         LINE -(VAL(MID$(a$, d, 3)), VAL(MID$(a$, d + 3, 3))), wht&
163.     NEXT
164. END SUB
165.  
166. SUB CPAINT (a$, clr&)
167.     'paints string of cordinates with color, stops at wht& color
168.     FOR t = 1 TO LEN(a$) STEP 6
169.         PAINT (VAL(MID$(a$, t, 3)), VAL(MID$(a$, t + 3, 3))), clr&, wht&
170.     NEXT
171. END SUB
172.  
173. SUB CCIRCLE (a$)
174.     'Draw circles based on string of x/y/r data, colors it too
175.     FOR t = 1 TO LEN(a$) STEP 8
176.         CIRCLE (VAL(MID$(a$, t, 3)), VAL(MID$(a$, t + 3, 3))), VAL(MID$(a$, t + 6, 2)), wht&
177.         clr& = INT(RND * 5) + 1 'pick from 5 random colors
178.         IF clr& = 1 THEN clr& = _RGB(128, 255, 255) 'almost white
179.         IF clr& = 2 THEN clr& = _RGB(255, 255, 69) 'yellow
180.         IF clr& = 3 THEN clr& = _RGB(205, 4, 23) 'red
181.         IF clr& = 4 THEN clr& = _RGB(31, 255, 32) 'green
182.         IF clr& = 5 THEN clr& = _RGB(0, 31, 221) 'blue
183.         PAINT (VAL(MID$(a$, t, 3)), VAL(MID$(a$, t + 3, 3))), clr&, wht&
184.     NEXT
185. END SUB
186.  
187. SUB SNOW (x1, y1, x2, y2)
188.     'random snow pattern in given window
189.     LINE (x1, y1)-(x2, y2), _RGB(0, 0, 0), BF 'snow plow
190.     FOR x = x1 TO x2
191.         FOR y = y1 TO y2
192.             IF INT(RND * 200) = 1 THEN PSET (x, y), wht&
193.         NEXT
194.     NEXT
195. END SUB
196.  

[bplus]

Ahh-ha! That's cute Dav!

[SierraKen]

Awesome idea Steve, another way to make QB64 into a useful tool. :)

Dav, that's just incredible. You must have spent hours on that. Good job!

[Dav]

Thanks, ya'll.  Yep, I did spend too much time on it. 

I just edited the code to add a Santa's thought box.  Forgot to add it.  Run it again to read what santa says.

- Dav

[SierraKen]

LOL good one. :)

[Petr]

Very nice work, Dav!

[SierraKen]

I worked on the Christmas Tree Ornaments one again for most of the day today and made it much better. I learned a little bit from B+'s mod. Making many of them was easier than I thought. :) I got caught in a minor snag when the different shapes of them slowed and sped up the lyrics on the title bar a fraction so I changed it completely to TIMER. On my last one I was using the number of rotation degree on the ornament for the lyrics as well and it just doesn't work with many of them. Plus TIMER is a lot better for different types of computers. I also have it change to new ornaments every couple of seconds with completely different colors. :) The program ends when the song finishes. I also found out some more things about the PLAY command in that you only need one "MB" command in the string as well as any other command, which you put at the start of your list of PLAY commands. I changed the octave of the song to a bit more bass also. I'm pretty happy about this one. Tell me what you think, thanks.

Edit: I just remembered this this won't work right before midnight because of the TIMER, which counts up from midnight. So I made it so the program stops if it's a few seconds before midnight or less. When it ends, it tells you to please run it after midnight because of the TIMER. This certain code probably won't be tested because I very rarely stay up past midnight. But I believe it works. 

Code: QB64: [Select]

1. 'Musical Christmas Tree Ornaments
2. 'Made on December 10, 2020.
3. 'by SierraKen
4. 'Music Notes and Lyrics found here: https://www.piano-keyboard-guide.com/how-to-play-jingle-bells-easy-piano-keyboard-tutorial-for-beginners/
5.  
6. DIM i AS LONG
7. DIM orn AS LONG
8. DIM ornx(30), orny(30), size(30)
9. DIM x AS LONG, y AS LONG
10. DIM image AS LONG, scale AS SINGLE, rotation AS SINGLE
11.  
12. JingleBells
13. start:
14. READ lyrics$
15. IF lyrics$ = "done" THEN END
16. _TITLE lyrics$
17. IF orn& <> 0 THEN _FREEIMAGE orn&
18. RANDOMIZE TIMER
19. t = 1
20. i& = _NEWIMAGE(800, 600, 32)
21. SCREEN i&
22. ornament
23. orn& = _COPYIMAGE(0)
24. FOR o = 1 TO 30
25.     ornx(o) = RND * _WIDTH
26.     orny(o) = RND * _HEIGHT
27.     size(o) = RND
28.     x = ornx(o)
29.     y = orny(o)
30.     scale = size(o)
31.     rotation = turn
32.     image = orn&
33.     RotoZoom x, y, image, scale, rotation
34. NEXT o
35. CLS
36. oldt = TIMER
37. IF oldt > 86327 THEN CLS: PRINT "Please run this program after midnight.": PRINT "It won't work right before midnight because of the TIMER it uses.": END
38. DO
39.     _LIMIT 60
40.     FOR oo = 1 TO 30
41.         x = ornx(oo)
42.         y = orny(oo)
43.         scale = size(oo)
44.         rotation = turn
45.         image = orn&
46.         RotoZoom x, y, image, scale, rotation
47.     NEXT oo
48.     _DELAY .01
49.     _DISPLAY
50.     CLS
51.     a$ = INKEY$
52.     IF a$ = CHR$(27) THEN END
53.     turn = turn + 1
54.     t = TIMER - oldt
55.     IF t > 2.37 THEN GOTO start:
56. LOOP
57.  
58. song:
59. DATA "Jingle bells, jingle bells."
60. DATA "Jingle all the way"
61. DATA "Oh, what fun it is to ride"
62. DATA "In a one horse open sleigh hey"
63. DATA "Jingle bells, jingle bells"
64. DATA "Jingle all the way"
65. DATA "Oh, what fun it is to ride"
66. DATA "In a one horse open sleigh"
67. DATA "Dashing through the snow"
68. DATA "On a one horse open sleigh"
69. DATA "O'er the fields we go,"
70. DATA "Laughing all the way"
71. DATA "Bells on bob tail ring,"
72. DATA "making spirits bright"
73. DATA "What fun it is to laugh and sing"
74. DATA "A sleighing song tonight, Oh"
75. DATA "Jingle bells, jingle bells"
76. DATA "Jingle all the way"
77. DATA "Oh, what fun it is to ride"
78. DATA "In a one horse open sleigh hey"
79. DATA "Jingle bells, jingle bells"
80. DATA "Jingle all the way"
81. DATA "Oh, what fun it is to ride"
82. DATA "In a one horse open sleigh"
83. DATA "done"
84.  
85. SUB JingleBells
86.     PLAY "MB O3 L5 E E E E E E"
87.     PLAY "E G C D E"
88.     PLAY "F F F F F E E"
89.     PLAY "E E E D D E D G"
90.     PLAY "E E E E E E"
91.     PLAY "E G C D E"
92.     PLAY "F F F F F E E"
93.     PLAY "E E G G F D C"
94.  
95.     PLAY "G E D C G"
96.     PLAY "G G G E D C A"
97.     PLAY "A F E D B"
98.     PLAY "A G F D E"
99.     PLAY "G E D C G"
100.     PLAY "G E D C A"
101.     PLAY "A A F E D G G G"
102.     PLAY "G A G F D C G"
103.  
104.     PLAY "E E E E E E"
105.     PLAY "E G C D E"
106.     PLAY "F F F F F E E"
107.     PLAY "E E E D D E D G"
108.     PLAY "E E E E E E"
109.     PLAY "E G C D E"
110.     PLAY "F F F F F E E"
111.     PLAY "E E G G F D C"
112. END SUB
113.  
114. SUB ornament
115.     c1 = INT(RND * 155) + 100
116.     c2 = INT(RND * 155) + 100
117.     c3 = INT(RND * 155) + 100
118.     shade = 0
119.     FOR cir = .01 TO 130 STEP .1
120.         shade = shade - .1
121.         CIRCLE (400, 300), cir, _RGB32(c1 + shade, c2 + shade, c3 + shade)
122.     NEXT cir
123.     yy = 300
124.     c4 = INT(RND * 155) + 100
125.     c5 = INT(RND * 155) + 100
126.     c6 = INT(RND * 155) + 100
127.     CIRCLE (400, yy), 130, _RGB32(c4, c5, c6), 2 * _PI, _PI, .5
128.     yy = yy - 40.5
129.     CIRCLE (400, yy), 124, _RGB32(c4, c5, c6), 2 * _PI, _PI, .4
130.     yy = yy - 30.5
131.     CIRCLE (400, yy), 105, _RGB32(c4, c5, c6), 2 * _PI, _PI, .39
132.     yy = 300
133.     yy = yy + 22.5
134.     CIRCLE (400, yy), 130, _RGB32(c4, c5, c6), 2 * _PI, _PI, .5
135.     yy = yy + 22.5
136.     CIRCLE (400, yy), 125, _RGB32(c4, c5, c6), 2 * _PI, _PI, .5
137.     yy = yy + 22.5
138.     CIRCLE (400, yy), 110, _RGB32(c4, c5, c6), 2 * _PI, _PI, .5
139.     yy = yy + 22.5
140.     CIRCLE (400, yy), 75, _RGB32(c4, c5, c6), , , .5
141.     yy = yy + 22.5
142.     CIRCLE (400, yy), 15, _RGB32(c4, c5, c6), , , .5
143. END SUB
144.  
145. SUB RotoZoom (X AS LONG, Y AS LONG, Image AS LONG, Scale AS SINGLE, Rotation AS SINGLE)
146.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
147.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
148.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
149.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
150.     sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
151.     FOR i& = 0 TO 3
152.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
153.         px(i&) = x2&: py(i&) = y2&
154.     NEXT
155.     _MAPTRIANGLE (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
156.     _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
157. END SUB
158.  

[OldMoses]

A simple little tree topper. I wasn't expecting the gold effect.

Code: QB64: [Select]

1. DIM o(4) AS SINGLE
2. DIM i(4) AS SINGLE
3.  
4. SCREEN _NEWIMAGE(600, 600, 32)
5.  
6. a = _PI * 2 / 5: b = a / 2: r = _PI * 2 / 360
7. c1& = &HFFFF0000: c2& = &HFF00FF00
8.  
9. FOR x = 0 TO 4
10.     o(x) = x * a
11.     i(x) = x * a - b
12. NEXT x
13.  
14. x = 0: d = 1
15. DO
16.     CLS
17.     FOR k = 0 TO 100 STEP 5
18.         FOR j = 0 TO 4
19.             LINE (SIN(o(j) + (x * r)) * (200 - k) + 300, COS(o(j) + (x * r)) * (200 - k) + 300)-_
20.                 (SIN(i(j) + (x * r)) * (80 - k) + 300, COS(i(j) + (x * r)) * (80 - k) + 300), c1&
21.             LINE (SIN(o(j) + (x * r)) * (200 - k) + 300, COS(o(j) + (x * r)) * (200 - k) + 300)-_
22.                 (SIN(i(j) + a + (x * r)) * (80 - k) + 300, COS(i(j) + a + (x * r)) * (80 - k) + 300), c1&
23.         NEXT j
24.         SWAP c1&, c2&
25.     NEXT k
26.     IF x MOD 72 = 0 THEN
27.         d = -d: SWAP c1&, c2&
28.     END IF
29.     x = x + d
30.     _LIMIT 100
31.     _DISPLAY
32. LOOP UNTIL _KEYDOWN(27)

[SierraKen]

I just updated my last code above because of the TIMER before midnight problem. TIMER counts up from midnight and the program wouldn't work if you started it right before midnight. So I added code that ends the program if it's near midnight, and explains why.

[SierraKen]

OldMoses that's really cool looking!