restart: with(plots): with(plottools): cyl := display(plot([[0,0], [12,0], [12,5], [0,5], [0,0]]), color=brown ): rectangle1:= polygon([[0,0], [12,0], [12,5], [0,5], [0,0]], color=brown): branch1:=polygon([[12,0],[12,2],[15,8]]): tree:=display([cyl,branch1]): top:=disk([6,6], 6): top2:=disk([15,8], 1): body:=polygon([[15,6], [15,5], [16,6], [16,5]]): head:=polygon([[15,6], [15,7], [16,6]]): display(branch1,rectangle1,top,top2,body,translate(rotate(head,Pi/4),9.1,-9), scaling=constrained, axes=none);