package require Tk

proc every {ms body} {eval $body; after $ms [info level 0]}
proc lpick list {lindex $list [expr {int(rand()*[llength $list])}]}

proc Candle {id} {
    set Color [lpick {yellow linen white orange gold "light yellow" goldenrod}]
    .c itemconfig $id -fill $Color
    if {$Color != "yellow" } {after 16 Candle $id}
}
proc Flicker {} { Candle [lpick $::Selection] }

pack [canvas .c -width 200 -height 300 -background darkblue]
.c create rect 95 250 105 280 -fill brown
.c create rect 70 270 130 290 -fill black

foreach dx {40 55 70 85 100} y {20 60 100 140 180} {
    .c create poly 100 $y [expr 100-$dx] [expr $y+70] \
                          [expr 100+$dx] [expr $y+70] -fill darkgreen -tag Tree

    .c create rect [expr 108-$dx] [expr $y+45] \
                   [expr 112-$dx] [expr $y+65] -fill red    -tag Candle
    .c create oval [expr 107-$dx] [expr $y+36] \
                   [expr 113-$dx] [expr $y+44] -fill yellow -tag Flame

    .c create rect [expr  88+$dx] [expr $y+45] \
                   [expr  92+$dx] [expr $y+65] -fill red    -tag Candle
    .c create oval [expr  87+$dx] [expr $y+36] \
                   [expr  93+$dx] [expr $y+44] -fill yellow -tag Flame
}

wm title . "Xmas" 
set Selection [.c find withtag Flame]
every 200 { Flicker }