Richard Suchenwirth 2005-12-22 - Ho ho ho, here we go:
package require Tk
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
.c create rect [expr 108-$dx] [expr $y+45] \
[expr 112-$dx] [expr $y+65] -fill red
.c create oval [expr 107-$dx] [expr $y+36] \
[expr 113-$dx] [expr $y+44] -fill yellow
.c create rect [expr 88+$dx] [expr $y+45] \
[expr 92+$dx] [expr $y+65] -fill red
.c create oval [expr 87+$dx] [expr $y+36] \
[expr 93+$dx] [expr $y+44] -fill yellow
}