12-22-2025, 12:21 AM
Merry Christmas everyone!
Code: (Select All)
'Merry Christmas - Christmas Tree and Snow by SierraKen
'Updated on Dec. 21, 2025
Dim x(501)
Dim y(501)
Dim size(501)
Cls
Screen _NewImage(800, 600, 32)
Randomize Timer
_Title "Merry Christmas! By SierraKen - Press Space Bar for different ground. Esc to quit."
start:
GoSub snow
GoSub ground
dir = 1
Do
_Limit 1000
If dir = 1 Then sun = sun + .25
If sun > 127 Then dir = 2
If dir = 2 Then sun = sun - .25
If sun < 2 Then dir = 1
Paint (1, 1), _RGB32(sun, sun * 2, sun * 2)
For cc = 300 To 600
cc2 = cc2 + 1
Line (0, cc)-(800, cc), _RGB32(cc21, cc22, cc23)
Next cc
cc2 = 0
For t = 1 To 500
y(t) = y(t) + (Rnd * 5) + 2
For sz = 1 To size(t) Step .1
Circle (x(t), y(t)), sz, _RGB32(255, 255, 255)
Next sz
Next t
For t = 1 To 500
If y(t) > 600 Then y(t) = 0
Next t
tree:
t = 0
tt = 0
y = 300
Randomize Timer
c1 = Int(Rnd * 100) + 20
c2 = Int(Rnd * 150) + 60
c4 = c2
c3 = Int(Rnd * 100) + 20
'Christmas Tree
Line (380, 520)-(420, 200), _RGB32(127, 255, 127), BF
'Right Side
Line (400, 180)-(475, 255), _RGB32(127, 255, 127)
Line (475, 255)-(420, 255), _RGB32(127, 255, 127)
Paint (430, 240), _RGB32(127, 255, 127)
Line (420, 255)-(495, 330), _RGB32(127, 255, 127)
Line (495, 330)-(420, 330), _RGB32(127, 255, 127)
Paint (430, 300), _RGB32(127, 255, 127)
Line (420, 330)-(515, 405), _RGB32(127, 255, 127)
Line (515, 405)-(420, 405), _RGB32(127, 255, 127)
Paint (500, 400), _RGB32(127, 255, 127)
Line (420, 405)-(535, 480), _RGB32(127, 255, 127)
Line (535, 480)-(420, 480), _RGB32(127, 255, 127)
Paint (430, 470), _RGB32(127, 255, 127)
'Left Side
Line (400, 180)-(325, 255), _RGB32(127, 255, 127)
Line (325, 255)-(380, 255), _RGB32(127, 255, 127)
Paint (350, 240), _RGB32(127, 255, 127)
Line (380, 255)-(305, 330), _RGB32(127, 255, 127)
Line (305, 330)-(380, 330), _RGB32(127, 255, 127)
Paint (350, 300), _RGB32(127, 255, 127)
Line (380, 330)-(285, 405), _RGB32(127, 255, 127)
Line (285, 405)-(380, 405), _RGB32(127, 255, 127)
Paint (300, 400), _RGB32(127, 255, 127)
Line (380, 405)-(265, 480), _RGB32(127, 255, 127)
Line (265, 480)-(380, 480), _RGB32(127, 255, 127)
Paint (300, 460), _RGB32(127, 255, 127)
'Tip
Paint (400, 195), _RGB32(127, 255, 127)
'Star
Line (390, 185)-(400, 160), _RGB32(255, 255, 255)
Line (400, 160)-(410, 185), _RGB32(255, 255, 255)
Line (410, 185)-(390, 170), _RGB32(255, 255, 255)
Line (390, 170)-(410, 170), _RGB32(255, 255, 255)
Line (410, 170)-(390, 185), _RGB32(255, 255, 255)
'tinsel
For am = 1 To 250
tx = Int(Rnd * 800)
ty = Int(Rnd * 595) + 205
If Point(tx, ty) = _RGB32(127, 255, 127) Then
tc1 = 244
tc2 = 244
tc3 = 244
sz2 = Int(Rnd * 8) + 3
For sz = .25 To sz2 Step .25
tc1 = tc1 + 1
tc2 = tc2 + 1
tc3 = tc3 + 1
Line (tx, ty)-(tx, ty + sz), _RGB32(tc1, tc2, tc3)
Next sz
End If
Next am
_Display
Cls
a$ = InKey$
If a$ = Chr$(27) Then End
If a$ = " " Then GoTo start
Loop
ground:
'Draw ground.
Randomize Timer
cc21 = Int(Rnd * 255)
cc22 = Int(Rnd * 200)
cc23 = Int(Rnd * 255)
Return
snow:
For t = 1 To 500
x(t) = Rnd * 800
y(t) = Rnd * 600
size(t) = Rnd * 5
Next t
Return
