+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Christmas Code (https://qb64phoenix.com/forum/forumdisplay.php?fid=48)
+---- Thread: Ascii Christmas Tree (/showthread.php?tid=3223)
Ascii Christmas Tree - bplus - 11-21-2024
inspired by @fistfullofnails questions
Code: (Select All)
_Title "Ascii Christmas Tree" ' b+ 2024-11-21
xc = 40 ' screen center x column
' draw tree trunk
Color , 6
For i = 23 To 24
Locate i, xc: Print " ";
Next
Color , 2 ' color in tree
For i = 1 To 20
Locate i + 2, xc - Int(i / 2) ' rows 3 to 22
For j = 1 To i
Print " ";
Next
Next
' light up and twinkle
Do
i = Int(Rnd * 20) + 1
k = Int(Rnd * i) + 1
If Rnd < .25 Then
Color Int(Rnd * 16)
Locate i + 2, xc - Int(i / 2) + k - 1: Print "*";
Else
Color , 2
Locate i + 2, xc - Int(i / 2) + k - 1: Print " ";
End If
_Limit 60
LoopRE: Ascii Christmas Tree - Pete - 11-21-2024
Well...
RE: Ascii Christmas Tree - eoredson - 11-30-2024
@pete: could you add some ornaments to it!?
RE: Ascii Christmas Tree - Pete - 12-01-2024
Sure, how about some friggin' icicles?
|
| |
|||
||| |
|||| |
||||| |
|| |||
RE: Ascii Christmas Tree - SierraKen - 12-24-2024
LOL total 80's! Merry Christmas everyone!
RE: Ascii Christmas Tree - fistfullofnails - 12-26-2024
Very funny.
RE: Ascii Christmas Tree - Pete - 12-27-2024
Okay, fine....
https://qb64phoenix.com/forum/showthread.php?tid=3219&pid=30816#pid30816
Pete
- All aboard!