restart:with (plots):with(plottools): sq:=polygon([[-3,-2],[-3,-5],[-2.8,-5],[-2.8,-2]],color=black): sq2:=polygon([[-1.2,-5],[-1,-5],[-1,-2],[-1.2,-2],[-1.2,-3]],color=black): sq3:=polygon([[-2,-2],[-2,-4.5],[-1.8,-4.5],[-1.8,-2],[-2,-2]],color=black): sq4:=polygon([[-4,-1],[-4,-4.5],[-3.8,-4.5],[-3.8,-1.2]],color=black): square:=polygon([[-4,-1],[-3,-2],[-1,-2],[-2,-1],[-4,-1]],color=black): legg:=polygon([[-3.5,-1],[-3.2,-1],[-3.2,-0],[-3.5,-0],[-3.5,-1]],color=black): legg2:=polygon([[-2.5,-1],[-2.2,-1],[-2.2,-.0],[-2.5,-0],[-2.5,-1]],color=black): chair:=(display(sq,sq2,sq3,sq4,square,legg,legg2)): front:=polygon([[-4,0],[-4,3.5],[-2,3.5],[-2,0],[-4,0]],color=black): chair:=(display(sq,sq2,sq3,sq4,square,legg,legg2,front)): drier:=polygon([[-3.8,3.5],[-3.8,4],[-3.5,4],[-3.5,3.5],[-3.8,3.5]],color=black): drier2:=polygon([[-2.5,3.5],[-2.5,4],[-2.2,4],[-2.2,3.5],[-2.5,3.5]],color=black): grey:=polygon([[-4,4],[-2,4],[-2,8],[-4,8],[-4,4]],color=grey): head:=ellipticArc([-3,4],.3,2,Pi..2*Pi, color=tan, filled=true): body1:=plot([[-3,-1],[-3,-1],[-1.88,-1.98],[-1.7,-5]],color=tan, thickness=10): body:=plot([[-3,-1],[-3,2]],color=tan, thickness=10): body2:=plot([[-3,-1],[-2.17,-2],[-2,-5]],color=tan, thickness=10): display([head,chair,drier,drier2,grey,body,body1,body2], axes=none);