{VERSION 5 0 "IBM INTEL LINUX" "5.0" } {USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 1 0 0 0 0 1 }{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "" 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 }0 0 0 -1 -1 -1 0 0 0 0 0 0 -1 0 }} {SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 8 "restart;" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "with(plots):with(plottools):" }}} {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 68 "background:=polygon([[-16,-9 ],[10,-9],[10,11],[-15,11]],color=blue):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 108 "body:=polygon([[-11,-3],[-10,-3],[-13,-6],[-12,-7],[ -14,-7],[-15,-8],[-15,-7],[-14,-5],[-12,-3]],color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 72 "ears:=polygon([[-12.18,-1.95],[-12. 52,-1.47],[-11.95,-1.73]],color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 41 "eye:=disk([-11.55,-2.25],.1,color=black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 42 "nose:=disk([-10.72,-2.25],.1,color= black):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 44 "mouth:=plot([[-1 0.86,-2.72],[-11.1,-2.84]]):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "head:=disk([-11.5,-2.4],.8,color=red):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 46 "dog:=display(\{body,head,ears,eye,nose,mouth\}): " }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 33 "moon:=disk([0,0 ],5,color=yellow):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 39 "frame 1:=display([dog,moon,background]):" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 " " {MPLTEXT 1 0 48 "dog2:=translate(rotate(dog,-Pi/8,[-12,-6]),4,6):" } }}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "frame2:=display([dog2,moon ,background]):" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 50 "d og3:=translate(rotate(dog,-Pi/6,[-12,-6]),12,12):" }}}{EXCHG {PARA 0 " > " 0 "" {MPLTEXT 1 0 38 "frame3:=display(dog3,moon,background):" }}} {EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "dog4:=translate(rotate(dog,-Pi/2,[-12,-6] ),18,8):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "frame4:=display (dog4,moon,background):" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG } {EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 49 "dog5:=translate(rota te(dog,-Pi/4,[-12,-6]),18,1):" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 40 "frame5:=display([dog5,moon,background]):" }}}{EXCHG {PARA 0 "> \+ " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG }{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 93 "display([frame1,frame2,frame3,frame4,frame5],insequence=true,s caling=constrained,axes=none\\);" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 0 "" }}}{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }{EXCHG }} {MARK "0 0 0" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }{PAGENUMBERS 0 1 2 33 1 1 }