aUCBLogo Demos and Tests / xmas

to star :size
   setpc rgb (258-2.57*:size)/256 0 0
   repeat 4 [arc 90 :size rt 180]
   bk 1
end

to superstar ; Superstar by Olga
   setpensize[2 2]
   repeat 100[star repcount]
end

to tree :size :level :ang
   if :level<1[setpc 4 circle 3 setpc 6 circle 2 setpc 10 stop]
   setpensize se :level :level fd :size lt :ang
   tree 0.5*:size :level-1 :ang-12 rt :ang
   tree 0.7*:size :level-1 :ang-12 rt :ang
   tree 0.5*:size :level-1 :ang-12 lt :ang
   setpensize se :level :level bk :size
end

to xmas ;please run this procedure first
   cs ht setsc 0 pu bk 150 pd
   tree 100 8 120
   pu setpos [300 200] pd
   superstar
   pu setpos [0 250] pd
   rt 90 setpc 7
   label [Merry Christmas and a Happy New Year, Logo Forum!] ht
end