2025 and ANOTHER Tree! :)

[bplus]

Thanks Ken, already have a mod to it! BTW this is mod of something shared long ago.

Color changing, stars and ground added:

Code: (Select All)

_Title "little xmas tree 2" ' b+ 2025-12-24 mod fixes center screen and star
' add color changing, stars and ground
Screen _NewImage(280, 180, 12)
For star = 1 To 25
    Circle (Rnd * 280, Rnd * 180), Int(Rnd * 2)
Next
Line (0, 150)-(280, 180), 8, BF
Color 2
PSet (140 + Cos(0), 20)
For I = 0 To 70 Step 0.1
    Color Int(Rnd * 15) + 1
    Line -(I * Cos(I) + 140, 20 - I * (Sin(I) * 0.2 - 2))
Next
Color 14
Line (136, 22)-(140, 12)
Line -(144, 22): Line -(134, 16)
Line -(146, 16): Line -(136, 22)
Sleep

'              Merry Christmas QB64 Fans!