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

[Dav]

Thanks, @Petr.  Nice spinning Star, @OldMoses.  I like the your spinning ornaments, @SierraKen.  Hey, I like everything posted here. Nice tree up there especially, @bplus.

I'm trying to come up with a way to make mine a folded card at the beginning, then when you click on it to open, it unfolds like a card showing the drawing screen and plays - like those store bought cards do.

- Dav

[bplus]

Yeah Ken yours is super, fun to compare to your first :)

Old Moses, I am glad someone thought to bring in a star!

[Petr]

Hi guys, and here is my output. It is bigger source code and forum can not load it. It is my Christmas 2020 theme program.

[johnno56]

Hi Petr,

The program downloaded fine but did not run. It was expecting 'mp3' and 'font' files...

J

[Petr]

OK. Source code upgraded, font is now in the source code.  Try it again, please.  It is running correctly under Windows. (previous version also)

[SierraKen]

Petr, that's totally amazing. I never knew so many sounds can be put into one program like that. And your 3D is always incredible. Great job!

[Dav]

Well done, @Petr!   Enjoyable.  I like the screen fading, and the audio fading with the scene makes it more realistic.  I never get tired of listening to Silent Night.  And the cracking firewood sound in background gives the scene a warmer feeling.

For some reason the program crashes for me during Silent night playback, I get this error alert message: gluBuild2DMipmaps failed.  So I haven't made it through the whole program, but what I can see I like very much.

I'm using Windows7-32bit, QB64-GL v1.4 32bit.

- Dav

[bplus]

+1 Wow nice production Petr!

My system played Silent Night at least 3 times, Windows laptop 64 bit QB64 v1.4 stable.

Feliz Navidad :)

[NOVARSEG]

Petr
Excellent!!!

[Petr]

Hi i find memory leak in my program. Please goto row 1192 and find "_FREEIMAGE virt" on row 1197. Add to row 1198 this:  _FREEIMAGE Ve(TVO_S + 13).T    so  as in this short program list:


    TeVe(4).T = 0
    TeVe(4).T = _COPYIMAGE(virt, 33)
    TeVe(4).S = 1

    _DEST pred
    _FREEIMAGE virt
   
_FREEIMAGE Ve(TVO_S + 13).T
    Cube3D -.5, 0, 2.8, .7, .5, .1, 0, TeVe(), coordinates()
    INARR coordinates(), Ve(), TVO_S

END SUB

SUB Krb
    FOR S = 1 TO 6
        Sofa(S).T = KRB_textura&



memory usage now is cca 206 megabytes. I find no more bugs (just chaotic programming).

[SierraKen]

I fixed it Petr, thanks.

[SierraKen]

Here is another one from me. It shows snow falling on a hill that piles up a bit, and also onto a Christmas Tree on top of the hill.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. DIM sx(600), sy(600), rr(600)
3. DIM stackx(2000), stacky(2000), stackr(2000)
4. DIM cx AS INTEGER, cy AS INTEGER, r AS INTEGER, c AS _UNSIGNED LONG
5. size = 1
6. _TITLE "Merry Christmas!!!"
7. DO
8.     _LIMIT 100
9.     cx = 400: cy = 1100: r = 700: c = _RGB32(127, 255, 127)
10.     fillCircle cx, cy, r, c
11.     'Christmas Tree
12.     tx = 390: ty = 400: r = 10: c = _RGB32(255, 0, 0)
13.     LINE (tx, ty)-(tx + 20, ty - 75), _RGB32(183, 127, 127), BF
14.     'left side
15.     LINE (tx, ty - 75)-(tx - 150, ty - 75), _RGB32(127, 255, 127)
16.     LINE (tx - 150, ty - 75)-(tx, ty - 150), _RGB32(127, 255, 127)
17.     cx = tx - 150: cy = ty - 75
18.     fillCircle cx, cy, r, c
19.     LINE (tx, ty - 150)-(tx - 100, ty - 150), _RGB32(127, 255, 127)
20.     LINE (tx - 100, ty - 150)-(tx, ty - 200), _RGB32(127, 255, 127)
21.     cx = tx - 100: cy = ty - 150
22.     fillCircle cx, cy, r, c
23.     LINE (tx, ty - 200)-(tx - 50, ty - 200), _RGB32(127, 255, 127)
24.     LINE (tx - 50, ty - 200)-(tx + 5, ty - 250), _RGB32(127, 255, 127)
25.     cx = tx - 50: cy = ty - 200
26.     fillCircle cx, cy, r, c
27.     'right side
28.     LINE (tx + 20, ty - 75)-(tx + 170, ty - 75), _RGB32(127, 255, 127)
29.     LINE (tx + 170, ty - 75)-(tx + 20, ty - 150), _RGB32(127, 255, 127)
30.     cx = tx + 170: cy = ty - 75
31.     fillCircle cx, cy, r, c
32.     LINE (tx + 20, ty - 150)-(tx + 120, ty - 150), _RGB32(127, 255, 127)
33.     LINE (tx + 120, ty - 150)-(tx + 20, ty - 200), _RGB32(127, 255, 127)
34.     cx = tx + 120: cy = ty - 150
35.     fillCircle cx, cy, r, c
36.     LINE (tx + 20, ty - 200)-(tx + 70, ty - 200), _RGB32(127, 255, 127)
37.     LINE (tx + 70, ty - 200)-(tx + 5, ty - 250), _RGB32(127, 255, 127)
38.     cx = tx + 70: cy = ty - 200
39.     fillCircle cx, cy, r, c
40.     cx = tx + 5: cy = ty - 260
41.     r = 10
42.     c = _RGB32(255, 255, 127)
43.     fillCircle cx, cy, r, c
44.     tt = INT(RND * 100) + 1
45.     IF tt > 95 THEN
46.         a = a + 1
47.         IF a > 500 THEN a = 1
48.         sx(a) = RND * _WIDTH
49.         sy(a) = 1
50.         rr(a) = RND * 5
51.     END IF
52.     FOR t = 1 TO 500
53.         sy(t) = sy(t) + 1
54.         cx = sx(t): cy = sy(t)
55.         r = rr(t)
56.         c = _RGB32(255, 255, 255)
57.         fillCircle cx, cy, r, c
58.         IF POINT(sx(t), sy(t) + rr(t) + 1) = _RGB32(127, 255, 127) THEN GOTO stacked:
59.         IF POINT(sx(t), sy(t) + rr(t) + 1) = _RGB32(255, 255, 127) THEN GOTO stacked:
60.         IF POINT(sx(t), sy(t) + rr(t) + 1) = _RGB32(255, 0, 0) THEN GOTO stacked:
61.     NEXT t
62.     nex:
63.     IF snow <> 0 THEN
64.         FOR sn = 1 TO snow
65.             cx = stackx(sn)
66.             cy = stacky(sn)
67.             r = stackr(sn)
68.             c = _RGB32(252, 252, 252)
69.             fillCircle cx, cy, r, c
70.         NEXT sn
71.     END IF
72.     _DISPLAY
73.     LINE (0, 0)-(_WIDTH, _HEIGHT), _RGB32(0, 0, 0), BF
74. LOOP
75.  
76. stacked:
77. snow = snow + 1
78. IF snow > 1800 THEN snow = 1: size = 1
79. IF snow / 200 = INT(snow / 200) THEN size = size * 1.4
80. stackx(snow) = sx(t)
81. stacky(snow) = sy(t) - (size / 2)
82. stackr(snow) = rr(t) + size
83. sx(t) = -200: sy(t) = 800
84. GOTO nex:
85.  
86. 'from Steve Gold standard
87. SUB fillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
88.     DIM Radius AS INTEGER, RadiusError AS INTEGER
89.     DIM X AS INTEGER, Y AS INTEGER
90.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
91.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
92.     LINE (CX - X, CY)-(CX + X, CY), C, BF
93.     WHILE X > Y
94.         RadiusError = RadiusError + Y * 2 + 1
95.         IF RadiusError >= 0 THEN
96.             IF X <> Y + 1 THEN
97.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
98.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
99.             END IF
100.             X = X - 1
101.             RadiusError = RadiusError - X * 2
102.         END IF
103.         Y = Y + 1
104.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
105.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
106.     WEND
107. END SUB
108.  

[Dav]

Nice one, @SierraKen.

@Petr: That fixed it for me.  Nice Christmas demo you made.

- Dav

[Petr]

@SierraKen Nice work!
@Dav I'm glad it's okay now :)

[Dav]

Made a little ornament thing.  Draws random color ornament balls like you see on Christmas trees around here.  Nothing great, I just felt like making something.

- Dav

Code: QB64: [Select]

1. '=============
2. 'Ornaments.bas
3. '=============
4. 'Draws random Christmas ornaments
5. 'Coded by Dav, DEC/2020
6.  
7. SCREEN _NEWIMAGE(600, 600, 32)
8.  
9. DO
10.     x = RND * _WIDTH: y = RND * _HEIGHT 'random x/y
11.     size = 50 + RND * 50 'random size ornament
12.  
13.     'select random ornament color,red,greem or blue
14.     SELECT CASE INT(RND * 3) + 1
15.         CASE 1: r = (RND * 100) + 155: g = 100: b = 100 'red
16.         CASE 2: g = (RND * 100) + 155: r = 100: b = 100 'green
17.         CASE 3: b = (RND * 100) + 155: r = 100: g = 100 'blue
18.     END SELECT
19.  
20.     ball x, y, size, r, g, b
21.  
22.     _LIMIT 30
23.  
24. LOOP
25.  
26. SUB ball (x, y, size, r, g, b)
27.     'draws a gradient ball
28.     FOR s = 1 TO size STEP .5
29.         CIRCLE (x, y), s, _RGB(r, g, b)
30.         r = r - 1: g = g - 1: b = b - 1
31.     NEXT
32.     'Draw top of ornament
33.     LINE (x - 10, y - size - 10)-(x + 10, y - size), _RGB(r, g, b), BF
34. END SUB
35.