%!PS-Adobe-2.0 %%Pages: 25 /page-begin { gsave 72 dup scale 0.02 setlinewidth 3 4.5 translate 1 setlinejoin 1 setlinecap } def /page-end { grestore showpage } def /a 1.5 def /b 2.2 def % - Inserting movie.inc ---------------------- % - drawing procedures --------------------------------------- % polygon = array of points at least one! % builds the path P[0] ... P[n-1] /mkpolygon { 2 dict begin /poly exch def /n poly length def poly 0 get aload pop moveto 1 1 n 1 sub { % i on stack poly exch get aload pop lineto } for end } def % P Q t => (1-t)P + tQ % points P and Q are arrays [x y] /interpolate { 4 dict begin /t exch def /s 1 t sub def /Q exch def /P exch def [ P 0 get s mul Q 0 get t mul add P 1 get s mul Q 1 get t mul add ] end } def % P t => P rotated by t /rotate-2d { 4 dict begin /t exch def /P exch def /c t cos def /s t sin def [ P 0 get c mul P 1 get s mul sub P 0 get s mul P 1 get c mul add ] end } def % polygon t /rotate-polygon { 4 dict begin /t exch def /poly exch def /n poly length def [ 0 1 n 1 sub { poly exch get t rotate-2d } for ] end } def /red {0.5 0 1 setrgbcolor} def /blue {0 1 0 setrgbcolor} def /pink {0.7 0.5 1 setrgbcolor} def /lightblue {0.5 1 0.5 setrgbcolor} def /lightgrey {0.8 0.8 0.8 setrgbcolor} def % -------------------------------------------------------- /background { newpath [A G F] mkpolygon closepath gsave lightgrey fill grestore stroke newpath [A F B] mkpolygon closepath gsave lightgrey fill grestore stroke newpath [A C K] mkpolygon closepath gsave lightgrey fill grestore stroke newpath [A K H] mkpolygon closepath gsave lightgrey fill grestore stroke newpath [B D M] mkpolygon closepath gsave lightgrey fill grestore stroke newpath [D L M] mkpolygon closepath gsave lightgrey fill grestore stroke newpath [M L E] mkpolygon closepath gsave lightgrey fill grestore stroke newpath [M E C] mkpolygon closepath gsave lightgrey fill grestore stroke newpath [A M] mkpolygon stroke stroke } def % - figure data ---------------------------------------------- /c a a mul b b mul add sqrt def /x a a mul c div def /y b a mul c div def /x1 y def /y1 c x sub def /theta y x atan def /A [x y] def /B [0 0] def /C [c 0] def /D [0 c neg] def /E [c c neg] def /F [y neg x] def /G [x y sub x y add] def /H [x x1 add y y1 add] def /K [c x1 add y1] def /L [x c neg] def /M [x 0] def % - closing movie.inc ------------------------ %%Page: 1 1 page-begin newpath [A G F B] mkpolygon closepath stroke newpath [A C K H] mkpolygon closepath stroke newpath [B D E C] mkpolygon closepath stroke page-end %%Page: 2 2 page-begin newpath [A G F B] mkpolygon closepath stroke newpath [A C K H] mkpolygon closepath stroke newpath [B D E C] mkpolygon closepath stroke newpath [A L] mkpolygon stroke page-end %%Page: 3 3 page-begin newpath [A G F B] mkpolygon closepath gsave red fill grestore stroke newpath [A C K H] mkpolygon closepath gsave blue fill grestore stroke newpath [B D L M] mkpolygon closepath gsave red fill grestore stroke newpath [M L E C] mkpolygon closepath gsave blue fill grestore stroke newpath [A M] mkpolygon stroke stroke page-end %%Page: 4 4 page-begin newpath [A G F] mkpolygon closepath gsave pink fill grestore stroke newpath [A F B] mkpolygon closepath gsave red fill grestore stroke newpath [A C K] mkpolygon closepath gsave blue fill grestore stroke newpath [A K H] mkpolygon closepath gsave lightblue fill grestore stroke newpath [B D M] mkpolygon closepath gsave red fill grestore stroke newpath [D L M] mkpolygon closepath gsave pink fill grestore stroke newpath [M L E] mkpolygon closepath gsave lightblue fill grestore stroke newpath [M E C] mkpolygon closepath gsave blue fill grestore stroke newpath [A M] mkpolygon stroke stroke page-end %%Page: 5 5 page-begin background newpath [D M B] mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 6 6 /t 0.2 def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D M A t interpolate] mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 7 7 /t t 0.2 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D M A t interpolate] mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 8 8 /t t 0.2 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D M A t interpolate] mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 9 9 /t t 0.2 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D M A t interpolate] mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 10 10 /t t 0.2 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D M A t interpolate] mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 11 11 /t 10 def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D A] t rotate-polygon mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 12 12 /t t 10 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D A] t rotate-polygon mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 13 13 /t t 10 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D A] t rotate-polygon mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 14 14 /t t 10 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D A] t rotate-polygon mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 15 15 /t t 10 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D A] t rotate-polygon mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 16 16 /t t 10 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D A] t rotate-polygon mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 17 17 /t t 10 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D A] t rotate-polygon mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 18 18 /t t 10 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D A] t rotate-polygon mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 19 19 /t t 10 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B D A] t rotate-polygon mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 20 20 /t 0.2 def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B F C A t interpolate] mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 21 21 /t t 0.2 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B F C A t interpolate] mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 22 22 /t t 0.2 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B F C A t interpolate] mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 23 23 /t t 0.2 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B F C A t interpolate] mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 24 24 /t t 0.2 add def page-begin background newpath [B D M] mkpolygon closepath gsave pink fill grestore stroke newpath [B F C A t interpolate] mkpolygon closepath gsave red fill grestore stroke page-end %%Page: 25 25 page-begin background newpath [B D M] mkpolygon closepath gsave red fill grestore stroke newpath [B F A] mkpolygon closepath gsave red fill grestore stroke newpath [A C K] mkpolygon closepath gsave blue fill grestore stroke newpath [M E C] mkpolygon closepath gsave blue fill grestore stroke page-end