

\ProvidesPackage{lunadiagrams}

%version 2
%P. Bravi, September 2009

%%%%%%%%%%% macros

\newsavebox{\vertex}
\newsavebox{\edge}
\newsavebox{\bifurc}
\newsavebox{\vedge}
\newsavebox{\rightbiedge}
\newsavebox{\leftbiedge}
\newsavebox{\lefttriedge}

\newsavebox{\susp}
\newsavebox{\shortsusp}

\newsavebox{\wcircle}
\newsavebox{\gcircle}
\newsavebox{\gcircletwo}

\newsavebox{\aone}
\newsavebox{\aprime}

\newsavebox{\atwo}
\newsavebox{\atwos}
\newsavebox{\atwone}
\newsavebox{\atwose}
\newsavebox{\athree}
\newsavebox{\athreene}
\newsavebox{\athreese}
\newsavebox{\athreelv}
\newsavebox{\athreerv}
\newsavebox{\athreebifurc}
\newsavebox{\afour}
\newsavebox{\afive}
\newsavebox{\mediumam}
\newsavebox{\shortam}
\newsavebox{\amne}
\newsavebox{\amse}

\newsavebox{\btwo}
\newsavebox{\shortbm}
\newsavebox{\bprimetwo}
\newsavebox{\shortbprimem}
\newsavebox{\bsecondtwo}
\newsavebox{\shortbsecondm}

\newsavebox{\bthirdthree}

\newsavebox{\shortcm}
\newsavebox{\cprimetwo}
\newsavebox{\shortcsecondm}

\newsavebox{\dthree}
\newsavebox{\shortdm}

\newsavebox{\ffour}

\newsavebox{\gtwo}
\newsavebox{\gprimetwo}
\newsavebox{\gsecondtwo}

\newsavebox{\toe}
\newsavebox{\tow}
\newsavebox{\tosw}
\newsavebox{\tose}
\newsavebox{\tonw}
\newsavebox{\tone}
\newsavebox{\tobe}
\newsavebox{\tobw}

\newsavebox{\plusdm}
\newsavebox{\plusbm}
\newsavebox{\plusbprimem}
\newsavebox{\pluscsecondm}

\newsavebox{\atwoseq}

\newsavebox{\dynkinaone}
\newsavebox{\dynkinatwo}
\newsavebox{\dynkinathree}
\newsavebox{\dynkinafour}
\newsavebox{\dynkinafive}
\newsavebox{\dynkinasix}
\newsavebox{\dynkinaseven}
\newsavebox{\dynkinaeight}
\newsavebox{\dynkinanine}
\newsavebox{\dynkinaten}
\newsavebox{\dynkinbtwo}
\newsavebox{\dynkinbthree}
\newsavebox{\dynkinbfour}
\newsavebox{\dynkinbfive}
\newsavebox{\dynkinbsix}
\newsavebox{\dynkinbseven}
\newsavebox{\dynkinbeight}
\newsavebox{\dynkinbnine}
\newsavebox{\dynkinbten}
\newsavebox{\dynkincthree}
\newsavebox{\dynkincfour}
\newsavebox{\dynkincfive}
\newsavebox{\dynkincsix}
\newsavebox{\dynkincseven}
\newsavebox{\dynkinceight}
\newsavebox{\dynkincnine}
\newsavebox{\dynkincten}
\newsavebox{\dynkindfour}
\newsavebox{\dynkindfive}
\newsavebox{\dynkindsix}
\newsavebox{\dynkindseven}
\newsavebox{\dynkindeight}
\newsavebox{\dynkindnine}
\newsavebox{\dynkindten}
\newsavebox{\dynkinesix}
\newsavebox{\dynkineseven}
\newsavebox{\dynkineeight}
\newsavebox{\dynkinf}
\newsavebox{\dynkinffour}
\newsavebox{\dynking}
\newsavebox{\dynkingtwo}

\setlength{\unitlength}{700sp}

\savebox{\vertex}{\put(0,0){\circle*{150}}}
\savebox{\edge}{\multiput(0,0)(1800,0){2}{\circle*{150}}\thicklines\put(0,0){\line(1,0){1800}}}
\savebox{\bifurc}{\multiput(1200,-1200)(0,2400){2}{\circle*{150}}\thicklines\put(0,0){\line(1,1){1200}}\put(0,0){\line(1,-1){1200}}}
\savebox{\vedge}{\put(0,-1800){\circle*{150}}\thicklines\put(0,0){\line(0,-1){1800}}}
\savebox{\rightbiedge}{\multiput(0,0)(1800,0){2}{\circle*{150}}\thicklines\multiput(0,-60)(0,150){2}{\line(1,0){1800}}\multiput(1050,0)(-25,25){10}{\circle*{50}}\multiput(1050,0)(-25,-25){10}{\circle*{50}}}
\savebox{\leftbiedge}{\put(1800,0){\circle*{150}}\thicklines\multiput(0,-60)(0,150){2}{\line(1,0){1800}}\multiput(750,0)(25,25){10}{\circle*{50}}\multiput(750,0)(25,-25){10}{\circle*{50}}}
\savebox{\lefttriedge}{\multiput(0,0)(1800,0){2}{\circle*{150}}\thicklines\multiput(0,-120)(0,135){3}{\line(1,0){1800}}\multiput(750,0)(25,25){10}{\circle*{50}}\multiput(750,0)(25,-25){10}{\circle*{50}}}

\savebox{\susp}{\multiput(0,0)(3600,0){2}{\circle*{150}}\thicklines\multiput(0,0)(2500,0){2}{\line(1,0){1100}}\multiput(1300,0)(400,0){3}{\line(1,0){200}}}
\savebox{\shortsusp}{\multiput(0,0)(1800,0){2}{\circle*{150}}\thicklines\multiput(0,0)(400,0){5}{\line(1,0){200}}}

\savebox{\wcircle}{\put(0,0){\circle{600}}}
\savebox{\gcircle}{\put(0,0){\circle{600}}\put(-575,-575){\multiput(500,350)(150,0){2}{\circle*{70}}\multiput(425,425)(150,0){3}{\circle*{70}}\multiput(350,500)(150,0){4}{\circle*{70}}\multiput(425,575)(150,0){3}{\circle*{70}}\multiput(350,650)(150,0){4}{\circle*{70}}\multiput(425,725)(150,0){3}{\circle*{70}}\multiput(500,800)(150,0){2}{\circle*{70}}}}
\savebox{\gcircletwo}{\put(0,0){\usebox{\gcircle}}\put(-150,420){\tiny2}}

\savebox{\aone}{\put(0,0){\circle*{150}}\multiput(0,-600)(0,1200){2}{\circle{600}}}
\savebox{\aprime}{\put(0,0){\circle*{150}}\put(0,-600){\circle{600}}}

\savebox{\atwo}{\put(0,0){\usebox{\edge}}\multiput(0,0)(1800,0){2}{\circle{600}}\multiput(0,0)(25,25){13}{\circle*{70}}\multiput(300,300)(300,0){4}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\multiput(450,150)(300,0){4}{\multiput(0,0)(25,25){7}{\circle*{70}}}\multiput(1800,0)(-25,25){13}{\circle*{70}}}
\savebox{\atwos}{\put(0,0){\usebox{\vedge}}\multiput(0,0)(0,-1800){2}{\circle{600}}\multiput(0,0)(25,-25){13}{\circle*{70}}\multiput(300,-300)(0,-300){4}{\multiput(0,0)(-25,-25){7}{\circle*{70}}}\multiput(150,-450)(0,-300){4}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\multiput(0,-1800)(25,25){13}{\circle*{70}}}
\savebox{\atwone}{\put(0,0){\usebox{\bifurc}}\multiput(0,0)(1200,1200){2}{\circle{600}}\thicklines\put(0,0){\line(0,1){400}}\multiput(0,400)(200,200){4}{\line(1,0){200}}\multiput(200,400)(200,200){4}{\line(0,1){200}}\put(1200,1200){\line(-1,0){400}}}
\savebox{\atwose}{\put(0,0){\usebox{\bifurc}}\multiput(0,0)(1200,-1200){2}{\circle{600}}\thicklines\put(0,0){\line(1,0){400}}\multiput(400,0)(200,-200){4}{\line(0,-1){200}}\multiput(400,-200)(200,-200){4}{\line(1,0){200}}\put(1200,-1200){\line(0,1){400}}}
\savebox{\athree}{\multiput(0,0)(1800,0){2}{\usebox{\edge}}\multiput(0,0)(3600,0){2}{\circle{600}}\multiput(0,0)(25,25){13}{\circle*{70}}\multiput(300,300)(300,0){10}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\multiput(450,150)(300,0){10}{\multiput(0,0)(25,25){7}{\circle*{70}}}\multiput(3600,0)(-25,25){13}{\circle*{70}}}
\savebox{\athreene}{\put(0,0){\usebox{\edge}}\put(1800,0){\usebox{\bifurc}}\multiput(0,0)(3000,1200){2}{\circle{600}}\multiput(0,0)(25,25){13}{\circle*{70}}\multiput(300,300)(300,0){5}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\multiput(450,150)(300,0){4}{\multiput(0,0)(25,25){7}{\circle*{70}}}\thicklines\put(3000,1200){\line(-1,0){400}}\multiput(2600,1200)(-200,-200){5}{\line(0,-1){200}}\multiput(2600,1000)(-200,-200){4}{\line(-1,0){200}}\multiput(1800,200)(-30,-10){5}{\line(-1,0){30}}}
\savebox{\athreese}{\put(0,0){\usebox{\edge}}\put(1800,0){\usebox{\bifurc}}\multiput(0,0)(3000,-1200){2}{\circle{600}}\multiput(0,0)(25,-25){13}{\circle*{70}}\multiput(300,-300)(300,0){5}{\multiput(0,0)(25,25){7}{\circle*{70}}}\multiput(450,-150)(300,0){4}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\thicklines\put(3000,-1200){\line(-1,0){400}}\multiput(2600,-1200)(-200,200){5}{\line(0,1){200}}\multiput(2600,-1000)(-200,200){4}{\line(-1,0){200}}\multiput(1800,-200)(-30,10){5}{\line(-1,0){30}}}
\savebox{\athreebifurc}{\put(0,0){\usebox{\bifurc}}\multiput(1200,-1200)(0,2400){2}{\circle{600}}\thicklines\multiput(1200,-1200)(0,2000){2}{\line(0,1){400}}\multiput(1200,-800)(-200,200){4}{\line(-1,0){200}}\multiput(1000,-800)(-200,200){4}{\line(0,1){200}}\multiput(1200,800)(-200,-200){4}{\line(-1,0){200}}\multiput(1000,800)(-200,-200){4}{\line(0,-1){200}}}
\savebox{\athreelv}{\put(0,0){\usebox{\edge}}\put(1800,0){\usebox{\vedge}}\multiput(0,0)(1800,-1800){2}{\circle{600}}\multiput(0,0)(25,-25){13}{\circle*{70}}\put(300,-300){\multiput(0,0)(300,0){4}{\multiput(0,0)(25,25){7}{\circle*{70}}}\multiput(150,150)(300,0){4}{\multiput(0,0)(25,-25){7}{\circle*{70}}}}\multiput(1800,-1800)(-25,25){13}{\circle*{70}}\put(1500,-1500){\multiput(0,0)(0,300){4}{\multiput(0,0)(25,25){7}{\circle*{70}}}\multiput(150,150)(0,300){4}{\multiput(0,0)(-25,25){7}{\circle*{70}}}}}
\savebox{\athreerv}{\put(0,0){\usebox{\edge}}\put(0,0){\usebox{\vedge}}\multiput(1800,0)(-1800,-1800){2}{\circle{600}}\multiput(1800,0)(-25,-25){13}{\circle*{70}}\put(1500,-300){\multiput(0,0)(-300,0){4}{\multiput(0,0)(-25,25){7}{\circle*{70}}}\multiput(-150,150)(-300,0){4}{\multiput(0,0)(-25,-25){7}{\circle*{70}}}}\multiput(0,-1800)(25,25){13}{\circle*{70}}\put(300,-1500){\multiput(0,0)(0,300){4}{\multiput(0,0)(-25,25){7}{\circle*{70}}}\multiput(-150,150)(0,300){4}{\multiput(0,0)(25,25){7}{\circle*{70}}}}}
\savebox{\afour}{\multiput(0,0)(1800,0){3}{\usebox{\edge}}\multiput(0,0)(5400,0){2}{\circle{600}}\multiput(0,0)(25,25){13}{\circle*{70}}\multiput(300,300)(300,0){16}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\multiput(450,150)(300,0){16}{\multiput(0,0)(25,25){7}{\circle*{70}}}\multiput(5400,0)(-25,25){13}{\circle*{70}}}
\savebox{\afive}{\multiput(0,0)(1800,0){4}{\usebox{\edge}}\multiput(0,0)(7200,0){2}{\circle{600}}\multiput(0,0)(25,25){13}{\circle*{70}}\multiput(300,300)(300,0){22}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\multiput(450,150)(300,0){22}{\multiput(0,0)(25,25){7}{\circle*{70}}}\multiput(7200,0)(-25,25){13}{\circle*{70}}}
\savebox{\mediumam}{\put(-300,-300){\multiput(300,300)(3600,0){2}{\usebox{\edge}}\put(2100,300){\usebox{\shortsusp}}\multiput(300,300)(1800,0){4}{\circle*{150}}\multiput(300,300)(5400,0){2}{\circle{600}}\multiput(300,300)(25,25){13}{\circle*{70}}\put(600,600){\multiput(0,0)(300,0){16}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\multiput(150,-150)(300,0){16}{\multiput(0,0)(25,25){7}{\circle*{70}}}}\multiput(5700,300)(-25,25){13}{\circle*{70}}}}
\savebox{\shortam}{\put(-300,-300){\put(300,300){\usebox{\susp}}\multiput(300,300)(3600,0){2}{\circle{600}}\multiput(300,300)(25,25){13}{\circle*{70}}\put(600,600){\multiput(0,0)(300,0){10}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\multiput(150,-150)(300,0){10}{\multiput(0,0)(25,25){7}{\circle*{70}}}}\multiput(3900,300)(-25,25){13}{\circle*{70}}}}
\savebox{\amne}{\multiput(0,0)(3600,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\shortsusp}}\put(5400,0){\usebox{\bifurc}}\multiput(0,0)(6600,1200){2}{\circle{600}}\multiput(0,0)(25,25){13}{\circle*{70}}\multiput(300,300)(300,0){17}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\multiput(450,150)(300,0){16}{\multiput(0,0)(25,25){7}{\circle*{70}}}\thicklines\put(6600,1200){\line(-1,0){400}}\multiput(6200,1200)(-200,-200){5}{\line(0,-1){200}}\multiput(6200,1000)(-200,-200){4}{\line(-1,0){200}}\multiput(5400,200)(-30,-10){5}{\line(-1,0){30}}}
\savebox{\amse}{\multiput(0,0)(3600,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\shortsusp}}\put(5400,0){\usebox{\bifurc}}\multiput(0,0)(6600,-1200){2}{\circle{600}}\multiput(0,0)(25,-25){13}{\circle*{70}}\multiput(300,-300)(300,0){17}{\multiput(0,0)(25,25){7}{\circle*{70}}}\multiput(450,-150)(300,0){16}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\thicklines\put(6600,-1200){\line(-1,0){400}}\multiput(6200,-1200)(-200,200){5}{\line(0,1){200}}\multiput(6200,-1000)(-200,200){4}{\line(-1,0){200}}\multiput(5400,-200)(-30,10){5}{\line(-1,0){30}}}

\savebox{\btwo}{\put(0,0){\usebox{\rightbiedge}}\put(0,0){\usebox{\gcircle}}}
\savebox{\shortbm}{\multiput(0,0)(3600,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\shortsusp}}\put(5400,0){\usebox{\rightbiedge}}\put(0,0){\usebox{\gcircle}}}
\savebox{\bprimetwo}{\put(0,0){\usebox{\rightbiedge}}\put(0,0){\usebox{\gcircletwo}}}
\savebox{\shortbprimem}{\multiput(0,0)(3600,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\shortsusp}}\put(5400,0){\usebox{\rightbiedge}}\put(0,0){\usebox{\gcircletwo}}}
\savebox{\bsecondtwo}{\put(0,0){\usebox{\btwo}}\put(1800,0){\circle{600}}}
\savebox{\shortbsecondm}{\put(0,0){\usebox{\shortbm}}\put(7200,0){\circle{600}}}

\savebox{\bthirdthree}{\put(0,0){\usebox{\edge}}\put(1800,0){\usebox{\rightbiedge}}\put(3600,0){\usebox{\gcircle}}}

\savebox{\shortcm}{\multiput(0,0)(1800,0){2}{\usebox{\edge}}\put(3600,0){\usebox{\shortsusp}}\put(5400,0){\usebox{\edge}}\put(7200,0){\usebox{\leftbiedge}}\put(1800,0){\usebox{\gcircle}}}
\savebox{\cprimetwo}{\put(0,0){\usebox{\leftbiedge}}\put(1800,0){\usebox{\gcircletwo}}}
\savebox{\shortcsecondm}{\put(0,0){\circle{600}}\put(0,0){\usebox{\shortcm}}}

\savebox{\dthree}{\put(1800,0){\usebox{\gcircle}}\multiput(0,0)(1800,0){2}{\usebox{\edge}}}
\savebox{\shortdm}{\put(0,0){\usebox{\gcircle}}\multiput(0,0)(3600,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\shortsusp}}\put(5400,0){\usebox{\bifurc}}}

\savebox{\ffour}{\multiput(0,0)(3600,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\rightbiedge}}\put(5400,0){\usebox{\gcircle}}}

\savebox{\gtwo}{\put(0,0){\usebox{\lefttriedge}}\put(0,0){\usebox{\gcircle}}}
\savebox{\gprimetwo}{\put(0,0){\usebox{\lefttriedge}}\put(0,0){\usebox{\gcircletwo}}}
\savebox{\gsecondtwo}{\put(0,0){\usebox{\lefttriedge}}\put(1800,0){\usebox{\gcircle}}\put(0,0){\circle{600}}}

\savebox{\toe}{\put(350,-200){\multiput(0,0)(20,10){21}{\line(1,0){20}}\multiput(0,400)(20,-10){21}{\line(1,0){20}}}}
\savebox{\tow}{\put(-750,-200){\multiput(400,0)(-20,10){21}{\line(-1,0){20}}\multiput(400,400)(-20,-10){21}{\line(-1,0){20}}}}
\savebox{\tosw}{\multiput(-550,-550)(10,30){16}{\line(0,1){30}}\multiput(-550,-550)(30,10){16}{\line(1,0){30}}}
\savebox{\tose}{\multiput(550,-550)(-10,30){16}{\line(0,1){30}}\multiput(550,-550)(-30,10){16}{\line(-1,0){30}}}
\savebox{\tonw}{\multiput(-550,550)(10,-30){16}{\line(0,-1){30}}\multiput(-550,550)(30,-10){16}{\line(1,0){30}}}
\savebox{\tone}{\multiput(550,550)(-10,-30){16}{\line(0,-1){30}}\multiput(550,550)(-30,-10){16}{\line(-1,0){30}}}
\savebox{\tobe}{\put(0,0){\qbezier(600,300)(2100,1200)(3000,300)}\multiput(3000,300)(-5,10){45}{\line(0,1){30}}\multiput(3000,300)(-10,5){45}{\line(-1,0){30}}}
\savebox{\tobw}{\put(0,0){\qbezier(-600,300)(-2100,1200)(-3000,300)}\multiput(-3000,300)(5,10){45}{\line(0,1){30}}\multiput(-3000,300)(10,5){45}{\line(1,0){30}}}

\savebox{\plusdm}{\put(0,0){\usebox{\edge}}\put(1800,0){\usebox{\shortdm}}}
\savebox{\plusbm}{\put(0,0){\usebox{\edge}}\put(1800,0){\usebox{\shortbm}}}
\savebox{\plusbprimem}{\put(0,0){\usebox{\edge}}\put(1800,0){\usebox{\shortbprimem}}}
\savebox{\pluscsecondm}{\put(0,0){\usebox{\shortcm}}}

\savebox{\atwoseq}{\multiput(0,0)(5400,0){2}{\usebox{\atwo}}\put(1800,0){\usebox{\susp}}\multiput(1800,0)(25,25){13}{\circle*{70}}\multiput(2100,300)(2400,0){2}{\multiput(0,0)(300,0){2}{\multiput(0,0)(25,-25){7}{\circle*{70}}}\multiput(150,-150)(300,0){2}{\multiput(0,0)(25,25){7}{\circle*{70}}}}\multiput(5400,0)(-25,25){13}{\circle*{70}}}

\savebox{\dynkinaone}{\put(0,0){\circle*{150}}}
\savebox{\dynkinatwo}{\put(0,0){\usebox{\edge}}}
\savebox{\dynkinathree}{\multiput(0,0)(1800,0){2}{\usebox{\edge}}}
\savebox{\dynkinafour}{\multiput(0,0)(1800,0){3}{\usebox{\edge}}}
\savebox{\dynkinafive}{\multiput(0,0)(1800,0){4}{\usebox{\edge}}}
\savebox{\dynkinasix}{\multiput(0,0)(1800,0){5}{\usebox{\edge}}}
\savebox{\dynkinaseven}{\multiput(0,0)(1800,0){6}{\usebox{\edge}}}
\savebox{\dynkinaeight}{\multiput(0,0)(1800,0){7}{\usebox{\edge}}}
\savebox{\dynkinanine}{\multiput(0,0)(1800,0){8}{\usebox{\edge}}}
\savebox{\dynkinaten}{\multiput(0,0)(1800,0){9}{\usebox{\edge}}}
\savebox{\dynkinbtwo}{\put(0,0){\usebox{\rightbiedge}}}
\savebox{\dynkinbthree}{\put(0,0){\usebox{\edge}}\put(1800,0){\usebox{\rightbiedge}}}
\savebox{\dynkinbfour}{\multiput(0,0)(1800,0){2}{\usebox{\edge}}\put(3600,0){\usebox{\rightbiedge}}}
\savebox{\dynkinbfive}{\multiput(0,0)(1800,0){3}{\usebox{\edge}}\put(5400,0){\usebox{\rightbiedge}}}
\savebox{\dynkinbsix}{\multiput(0,0)(1800,0){4}{\usebox{\edge}}\put(7200,0){\usebox{\rightbiedge}}}
\savebox{\dynkinbseven}{\multiput(0,0)(1800,0){5}{\usebox{\edge}}\put(9000,0){\usebox{\rightbiedge}}}
\savebox{\dynkinbeight}{\multiput(0,0)(1800,0){6}{\usebox{\edge}}\put(10800,0){\usebox{\rightbiedge}}}
\savebox{\dynkinbnine}{\multiput(0,0)(1800,0){7}{\usebox{\edge}}\put(12600,0){\usebox{\rightbiedge}}}
\savebox{\dynkinbten}{\multiput(0,0)(1800,0){8}{\usebox{\edge}}\put(14400,0){\usebox{\rightbiedge}}}
\savebox{\dynkincthree}{\put(0,0){\usebox{\edge}}\put(1800,0){\usebox{\leftbiedge}}}
\savebox{\dynkincfour}{\multiput(0,0)(1800,0){2}{\usebox{\edge}}\put(3600,0){\usebox{\leftbiedge}}}
\savebox{\dynkincfive}{\multiput(0,0)(1800,0){3}{\usebox{\edge}}\put(5400,0){\usebox{\leftbiedge}}}
\savebox{\dynkincsix}{\multiput(0,0)(1800,0){4}{\usebox{\edge}}\put(7200,0){\usebox{\leftbiedge}}}
\savebox{\dynkincseven}{\multiput(0,0)(1800,0){5}{\usebox{\edge}}\put(9000,0){\usebox{\leftbiedge}}}
\savebox{\dynkinceight}{\multiput(0,0)(1800,0){6}{\usebox{\edge}}\put(10800,0){\usebox{\leftbiedge}}}
\savebox{\dynkincnine}{\multiput(0,0)(1800,0){7}{\usebox{\edge}}\put(12600,0){\usebox{\leftbiedge}}}
\savebox{\dynkincten}{\multiput(0,0)(1800,0){8}{\usebox{\edge}}\put(14400,0){\usebox{\leftbiedge}}}
\savebox{\dynkindfour}{\put(0,0){\usebox{\edge}}\put(1800,0){\usebox{\bifurc}}}
\savebox{\dynkindfive}{\multiput(0,0)(1800,0){2}{\usebox{\edge}}\put(3600,0){\usebox{\bifurc}}}
\savebox{\dynkindsix}{\multiput(0,0)(1800,0){3}{\usebox{\edge}}\put(5400,0){\usebox{\bifurc}}}
\savebox{\dynkindseven}{\multiput(0,0)(1800,0){4}{\usebox{\edge}}\put(7200,0){\usebox{\bifurc}}}
\savebox{\dynkindeight}{\multiput(0,0)(1800,0){5}{\usebox{\edge}}\put(9000,0){\usebox{\bifurc}}}
\savebox{\dynkindnine}{\multiput(0,0)(1800,0){6}{\usebox{\edge}}\put(10800,0){\usebox{\bifurc}}}
\savebox{\dynkindten}{\multiput(0,0)(1800,0){7}{\usebox{\edge}}\put(12600,0){\usebox{\bifurc}}}
\savebox{\dynkinesix}{\multiput(0,0)(1800,0){4}{\usebox{\edge}}\put(3600,0){\usebox{\vedge}}}
\savebox{\dynkineseven}{\multiput(0,0)(1800,0){5}{\usebox{\edge}}\put(3600,0){\usebox{\vedge}}}
\savebox{\dynkineeight}{\multiput(0,0)(1800,0){6}{\usebox{\edge}}\put(3600,0){\usebox{\vedge}}}
\savebox{\dynkinf}{\multiput(0,0)(3600,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\rightbiedge}}}
\savebox{\dynkinffour}{\put(0,0){\usebox{\dynkinf}}}
\savebox{\dynking}{\put(0,0){\usebox{\lefttriedge}}}
\savebox{\dynkingtwo}{\put(0,0){\usebox{\lefttriedge}}}

%%%%%%%%%% minimal cases with a 1-projective element in the support of
%%%%%%%%%% a non-simple spherical root

\newcommand{\projcsecondm}{\begin{picture}(9300,1800)(-300,-900)\put(0,0){\usebox{\aone}}\put(0,0){\usebox{\pluscsecondm}}\end{picture}}

\newcommand{\projgsecondtwo}{\begin{picture}(2400,1800)(-300,-900)\put(0,0){\usebox{\aone}}\put(0,0){\usebox{\lefttriedge}}\put(1800,0){\usebox{\gcircle}}\end{picture}}

\newcommand{\projffourone}{\begin{picture}(6000,1800)(-300,-900)\put(0,0){\usebox{\dynkinf}}\multiput(0,0)(3600,0){2}{\usebox{\gcircle}}\put(5400,0){\usebox{\aone}}\end{picture}}

\newcommand{\projffourtwo}{\begin{picture}(6000,2250)(-300,-900)\put(0,0){\usebox{\dynkinf}}\multiput(0,0)(3600,0){2}{\usebox{\aone}}\put(5400,0){\usebox{\aone}}\put(1800,0){\usebox{\gcircle}}\multiput(0,900)(5400,0){2}{\line(0,1){450}}\put(0,1350){\line(1,0){5400}}\put(0,600){\usebox{\toe}}\end{picture}}

\newcommand{\projffourthree}{\begin{picture}(6000,1800)(-300,-900)\put(0,0){\usebox{\dynkinf}}\put(0,0){\usebox{\atwo}}\put(1800,0){\usebox{\gcircle}}\multiput(3600,0)(1800,0){2}{\usebox{\aone}}\put(5400,600){\usebox{\tow}}\end{picture}}

\newcommand{\projbcastn}{\begin{picture}(11400,1800)(-300,-900)\put(0,0){\usebox{\atwo}}\put(1800,0){\usebox{\atwoseq}}\put(9000,0){\usebox{\btwo}}\put(10800,0){\usebox{\aone}}\end{picture}}

%%%%%%%%%% primitive strict cases

\newcommand{\diagrambbpp}{\begin{picture}(9600,3300)(-300,-300)\multiput(0,0)(0,2700){2}{\multiput(0,0)(5400,0){2}{\usebox{\edge}}\put(7200,0){\usebox{\rightbiedge}}\put(1800,0){\usebox{\susp}}\multiput(0,0)(1800,0){2}{\circle{600}}\multiput(5400,0)(1800,0){3}{\circle{600}}}\multiput(0,300)(1800,0){2}{\line(0,1){2100}}\multiput(5400,300)(1800,0){3}{\line(0,1){2100}}\end{picture}}

\newcommand{\diagrambopplusq}{\begin{picture}(14700,1800)(-300,-900)\multiput(0,0)(5400,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\susp}}\multiput(0,0)(1800,0){2}{\usebox{\aprime}}\put(5400,0){\usebox{\aprime}}\put(7200,0){\usebox{\shortbprimem}}\end{picture}}

\newcommand{\diagramacastpplusbprimeq}{\begin{picture}(18300,1800)(-300,-900)\put(0,0){\usebox{\atwo}}\put(1800,0){\usebox{\atwoseq}}\put(9000,0){\usebox{\plusbprimem}}\end{picture}}

\newcommand{\diagramccpp}{\begin{picture}(9600,3300)(-300,-300)\multiput(0,0)(0,2700){2}{\multiput(0,0)(5400,0){2}{\usebox{\edge}}\put(7200,0){\usebox{\leftbiedge}}\put(1800,0){\usebox{\susp}}\multiput(0,0)(1800,0){2}{\circle{600}}\multiput(5400,0)(1800,0){3}{\circle{600}}}\multiput(0,300)(1800,0){2}{\line(0,1){2100}}\multiput(5400,300)(1800,0){3}{\line(0,1){2100}}\end{picture}}

\newcommand{\diagramcoprimen}{\begin{picture}(9600,1800)(-300,-900)\multiput(0,0)(5400,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\susp}}\multiput(0,0)(1800,0){2}{\usebox{\aprime}}\multiput(5400,0)(1800,0){3}{\usebox{\aprime}}\put(7200,0){\usebox{\leftbiedge}}\end{picture}}

\newcommand{\diagramddpp}{\begin{picture}(9900,5700)(-300,-3900)\multiput(0,0)(900,-2700){2}{\multiput(0,0)(5400,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\susp}}\put(7200,0){\usebox{\bifurc}}\multiput(0,0)(5400,0){2}{\multiput(0,0)(1800,0){2}{\circle{600}}}\multiput(8400,-1200)(0,2400){2}{\circle{600}}}\multiput(100,-300)(5400,0){2}{\multiput(0,0)(1800,0){2}{\line(1,-3){700}}}\multiput(8500,-1500)(0,2400){2}{\line(1,-3){700}}\end{picture}}

\newcommand{\diagramdopplusq}{\begin{picture}(14100,2400)(-300,-1200)\multiput(0,0)(5400,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\susp}}\multiput(0,0)(1800,0){2}{\usebox{\aprime}}\put(5400,0){\usebox{\aprime}}\put(7200,0){\usebox{\shortdm}}\end{picture}}

\newcommand{\diagramdon}{\begin{picture}(9000,3300)(-300,-2100)\multiput(0,0)(5400,0){2}{\multiput(0,0)(1800,0){2}{\usebox{\aprime}}}\multiput(0,0)(5400,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\susp}}\put(7200,0){\usebox{\bifurc}}\multiput(8400,-1200)(0,2400){2}{\usebox{\aprime}}\end{picture}}

\newcommand{\diagramdcprimeneven}{\begin{picture}(14100,3300)(0,-2100)\multiput(0,0)(7200,0){2}{\usebox{\dthree}}\put(3600,0){\usebox{\susp}}\put(10800,0){\usebox{\edge}}\put(12600,0){\usebox{\bifurc}}\put(12600,0){\usebox{\gcircle}}\put(13800,-1200){\usebox{\aprime}}\end{picture}}

\newcommand{\diagramdcnodd}{\begin{picture}(12300,3000)(-300,-1500)\multiput(0,0)(7200,0){2}{\usebox{\dthree}}\put(3600,0){\usebox{\susp}}\put(10800,0){\usebox{\athreebifurc}}\end{picture}}

\newcommand{\diagramdcastn}{\begin{picture}(10800,3000)(-300,-1500)\put(0,0){\usebox{\atwo}}\put(1800,0){\usebox{\atwoseq}}\put(9000,0){\usebox{\atwone}}\put(9000,0){\usebox{\atwose}}\end{picture}}

\newcommand{\diagrameeeighteight}{\begin{picture}(12450,5550)(-1350,-2100)\multiput(0,0)(-1050,3150){2}{\put(0,0){\usebox{\dynkineeight}}\multiput(0,0)(1800,0){7}{\circle{600}}\put(3600,-1800){\circle{600}}}\put(-100,300){\multiput(0,0)(1800,0){7}{\line(-1,3){850}}\put(3600,-1800){\line(-1,3){850}}}\end{picture}}

\newcommand{\diagrameoeight}{\begin{picture}(11400,3000)(-300,-2700)\put(0,0){\usebox{\dynkineeight}}\multiput(0,0)(1800,0){7}{\usebox{\aprime}}\put(3600,-1800){\usebox{\aprime}}\end{picture}}

\newcommand{\diagrameasix}{\begin{picture}(7800,3600)(-300,-3000)\put(0,0){\usebox{\dynkinesix}}\multiput(3600,0)(0,-1800){2}{\usebox{\aprime}}\multiput(0,0)(5400,0){2}{\multiput(0,0)(1800,0){2}{\circle{600}}}\multiput(0,300)(7200,0){2}{\line(0,1){600}}\put(0,900){\line(1,0){7200}}\multiput(1800,300)(3600,0){2}{\line(0,1){300}}\put(1800,600){\line(1,0){3600}}\end{picture}}

\newcommand{\diagramecseven}{\begin{picture}(9300,2100)(-300,-1800)\put(0,0){\usebox{\dynkineseven}}\multiput(3600,0)(3600,0){2}{\usebox{\gcircle}}\multiput(0,0)(1800,0){2}{\usebox{\aprime}}\end{picture}}

\newcommand{\diagramefeight}{\begin{picture}(11400,2100)(-300,-1800)\put(0,0){\usebox{\dynkineeight}}\multiput(0,0)(7200,0){2}{\usebox{\gcircle}}\multiput(9000,0)(1800,0){2}{\usebox{\aprime}}\end{picture}}

\newcommand{\diagramecasteight}{\begin{picture}(11400,2400)(-300,-2100)\multiput(0,0)(1800,0){6}{\usebox{\atwo}}\put(3600,0){\usebox{\atwos}}\end{picture}}

\newcommand{\diagramfffourfour}{\begin{picture}(6000,3300)(-300,-300)\multiput(0,0)(0,2700){2}{\put(0,0){\usebox{\dynkinf}}\multiput(0,0)(1800,0){4}{\circle{600}}}\multiput(0,300)(1800,0){4}{\line(0,1){2100}}\end{picture}}

\newcommand{\diagramfofour}{\begin{picture}(6000,1800)(-300,-900)\put(0,0){\usebox{\dynkinf}}\multiput(0,0)(1800,0){4}{\usebox{\aprime}}\end{picture}}

\newcommand{\diagramfcastfour}{\begin{picture}(6000,600)(-300,-300)\multiput(0,0)(3600,0){2}{\usebox{\atwo}}\put(1800,0){\usebox{\btwo}}\end{picture}}

\newcommand{\diagramccprimepplustwo}{\begin{picture}(12900,1800)(0,-900)\multiput(0,0)(7200,0){2}{\usebox{\dthree}}\put(3600,0){\usebox{\susp}}\put(10800,0){\usebox{\cprimetwo}}\end{picture}}

\newcommand{\diagrambcprimen}{\begin{picture}(11400,1800)(-300,-900)\put(0,0){\usebox{\atwo}}\put(1800,0){\usebox{\atwoseq}}\put(9000,0){\usebox{\btwo}}\put(10800,0){\usebox{\aprime}}\end{picture}}

\newcommand{\diagramdsastfour}{\begin{picture}(3600,3000)(-300,-1500)\put(0,0){\usebox{\athreene}}\put(0,0){\usebox{\athreese}}\put(1800,0){\usebox{\athreebifurc}}\end{picture}}

\newcommand{\diagramacastn}{\begin{picture}(11400,600)(-300,-300)\multiput(0,0)(9000,0){2}{\usebox{\atwo}}\put(1800,0){\usebox{\atwoseq}}\end{picture}}

\newcommand{\diagramaon}{\begin{picture}(7800,1800)(-300,-900)\multiput(0,0)(5400,0){2}{\usebox{\edge}}\put(1800,0){\usebox{\susp}}\multiput(0,0)(5400,0){2}{\multiput(0,0)(1800,0){2}{\usebox{\aprime}}}\end{picture}}

\newcommand{\diagramaapp}{\begin{picture}(7200,3300)(-300,-300)\multiput(0,0)(0,2700){2}{\multiput(0,0)(5400,0){2}{\put(0,0){\usebox{\edge}}\multiput(0,0)(1800,0){2}{\circle{600}}}\put(1800,0){\usebox{\susp}}}\multiput(0,0)(5400,0){2}{\multiput(0,300)(1800,0){2}{\line(0,1){2100}}}\end{picture}}

\newcommand{\diagramacn}{\begin{picture}(10800,600)(0,-300)\multiput(0,0)(7200,0){2}{\usebox{\dthree}}\put(3600,0){\usebox{\susp}}\end{picture}}

\newcommand{\diagramaapplusqplusp}{\begin{picture}(15000,1800)(-300,-900)\multiput(0,0)(10800,0){2}{\put(0,0){\usebox{\susp}}\multiput(0,0)(3600,0){2}{\circle{600}}}\multiput(0,-300)(14400,0){2}{\line(0,-1){600}}\put(0,-900){\line(1,0){14400}}\multiput(3600,-300)(7200,0){2}{\line(0,-1){300}}\put(3600,-600){\line(1,0){7200}}\multiput(3600,0)(5400,0){2}{\usebox{\edge}}\put(5400,0){\usebox{\shortam}}\end{picture}}

\newcommand{\diagramaaprimepplusoneplusp}{\begin{picture}(11400,2400)(-300,-1500)\multiput(0,0)(7200,0){2}{\put(0,0){\usebox{\susp}}\multiput(0,0)(3600,0){2}{\circle{600}}}\multiput(0,-300)(10800,0){2}{\line(0,-1){1200}}\put(0,-1500){\line(1,0){10800}}\multiput(3600,-300)(3600,0){2}{\line(0,-1){900}}\put(3600,-1200){\line(1,0){3600}}\multiput(3600,0)(1800,0){2}{\usebox{\edge}}\put(5400,0){\usebox{\aprime}}\end{picture}}

%%%%%% rank 2

\newcommand{\diagramdsn}{\begin{picture}(7200,3000)(-300,-1500)\put(0,0){\usebox{\amne}}\put(0,0){\usebox{\amse}}\end{picture}}



%%%%%% defect 0 primitive cases 
%%%%%% with only simple spherical roots

\newcommand{\diagrambxthreethree}{\begin{picture}(10950,3300)(-300,-1800)
\multiput(0,0)(1800,0){2}{\usebox{\edge}}
\put(6300,0){\usebox{\edge}}
\put(8100,0){\usebox{\rightbiedge}}
\multiput(0,0)(6300,0){2}{\multiput(0,0)(1800,0){3}{\usebox{\aone}}}
\multiput(0,900)(3600,0){2}{\line(0,1){600}}
\put(8100,900){\line(0,1){600}}
\put(0,1500){\line(1,0){8100}}
\multiput(1800,900)(4500,0){2}{\line(0,1){300}}
\put(1800,1200){\line(1,0){1700}}
\put(3700,1200){\line(1,0){2600}}
\put(0,-1800){\line(0,1){900}}
\put(0,-1800){\line(1,0){10650}}
\put(10650,-1800){\line(0,1){2400}}
\put(10650,600){\line(-1,0){450}}
\multiput(1800,-1500)(6300,0){2}{\line(0,1){600}}
\put(1800,-1500){\line(1,0){6300}}
\multiput(3600,-1200)(6300,0){2}{\line(0,1){300}}
\put(3600,-1200){\line(1,0){4400}}
\put(8200,-1200){\line(1,0){1700}}
\put(0,600){\usebox{\toe}}
\multiput(3600,600)(6300,0){2}{\usebox{\tow}}
\multiput(6300,600)(1800,0){2}{\usebox{\toe}}
\end{picture}}

\newcommand{\diagramcxthreetwo}{\begin{picture}(8700,2850)(-300,-1500)
\put(0,0){\usebox{\rightbiedge}}
\put(4500,0){\usebox{\dynkincthree}}
\multiput(0,0)(1800,0){2}{\usebox{\aone}}
\multiput(4500,0)(1800,0){3}{\usebox{\aone}}
\put(0,900){\line(0,1){450}}
\put(0,1350){\line(1,0){8100}}
\multiput(4500,900)(3600,0){2}{\line(0,1){450}}
\multiput(2100,600)(1050,-1200){2}{\line(1,0){1050}}
\put(3150,600){\line(0,-1){1200}}
\multiput(0,-900)(6300,0){2}{\line(0,-1){600}}
\put(0,-1500){\line(1,0){6300}}
\multiput(1800,-900)(6300,0){2}{\line(0,-1){300}}
\put(1800,-1200){\line(1,0){4400}}
\put(6400,-1200){\line(1,0){1700}}
\multiput(0,600)(4500,0){2}{\usebox{\toe}}
\multiput(1800,600)(6300,0){2}{\usebox{\tow}}
\put(6300,600){\usebox{\toe}}
\end{picture}}

%%%%%% defect 1 primitive cases 
%%%%%% with only simple spherical roots

\newcommand{\diagramaypp}{\begin{picture}(17700,4200)(-300,-2100)
\multiput(0,0)(9900,0){2}{
\multiput(0,0)(5400,0){2}{\usebox{\edge}}
\put(1800,0){\usebox{\susp}}
\multiput(0,0)(5400,0){2}{\multiput(0,0)(1800,0){2}{\usebox{\aone}}}
\multiput(5400,600)(1800,0){2}{\usebox{\tow}}
\put(1800,600){\usebox{\tow}}
}
\multiput(0,900)(17100,0){2}{\line(0,1){1200}}
\put(0,2100){\line(1,0){17100}}
\multiput(1800,900)(13500,0){2}{\line(0,1){900}}
\put(1800,1800){\line(1,0){13500}}
\multiput(5400,900)(6300,0){2}{\line(0,1){600}}
\put(5400,1500){\line(1,0){6300}}
\multiput(7200,900)(2700,0){2}{\line(0,1){300}}
\put(7200,1200){\line(1,0){2700}}
\multiput(0,-900)(15300,0){2}{\line(0,-1){1200}}
\put(0,-2100){\line(1,0){15300}}
\put(1800,-900){\line(0,-1){900}}
\put(1800,-1800){\line(1,0){11700}}
\multiput(13500,-1800)(0,300){3}{\line(0,1){150}}
\multiput(3600,-1500)(0,300){2}{\line(0,1){150}}
\put(3600,-1500){\line(1,0){8100}}
\put(11700,-1500){\line(0,1){600}}
\multiput(5400,-1200)(4500,0){2}{\line(0,1){300}}
\put(5400,-1200){\line(1,0){4500}}
\end{picture}}

\newcommand{\diagramayppminusone}{\begin{picture}(15900,3900)(-300,-2100)
\put(0,0){\usebox{\edge}}
\put(1800,0){\usebox{\susp}}
\multiput(0,0)(1800,0){2}{\usebox{\aone}}
\put(5400,0){\usebox{\aone}}
\multiput(1800,600)(3600,0){2}{\usebox{\tow}}
\put(8100,0){
\multiput(0,0)(5400,0){2}{\usebox{\edge}}
\put(1800,0){\usebox{\susp}}
\multiput(0,0)(5400,0){2}{\multiput(0,0)(1800,0){2}{\usebox{\aone}}}
\multiput(5400,600)(1800,0){2}{\usebox{\tow}}
\put(1800,600){\usebox{\tow}}
}
\multiput(0,900)(15300,0){2}{\line(0,1){900}}
\put(0,1800){\line(1,0){15300}}
\multiput(1800,900)(11700,0){2}{\line(0,1){600}}
\put(1800,1500){\line(1,0){11700}}
\multiput(5400,900)(4500,0){2}{\line(0,1){300}}
\put(5400,1200){\line(1,0){4500}}
\multiput(0,-900)(13500,0){2}{\line(0,-1){1200}}
\put(0,-2100){\line(1,0){13500}}
\put(1800,-900){\line(0,-1){900}}
\put(1800,-1800){\line(1,0){9900}}
\multiput(11700,-1800)(0,300){3}{\line(0,1){150}}
\multiput(3600,-1500)(0,300){2}{\line(0,1){150}}
\put(3600,-1500){\line(1,0){6300}}
\put(9900,-1500){\line(0,1){600}}
\multiput(5400,-1200)(2700,0){2}{\line(0,1){300}}
\put(5400,-1200){\line(1,0){2700}}
\end{picture}}

\newcommand{\diagrambyppminusone}{\begin{picture}(15900,3900)(-300,-2100)
\put(0,0){\usebox{\edge}}
\put(1800,0){\usebox{\susp}}
\multiput(0,0)(1800,0){2}{\usebox{\aone}}
\put(5400,0){\usebox{\aone}}
\multiput(1800,600)(3600,0){2}{\usebox{\tow}}
\put(8100,0){
\put(0,0){\usebox{\edge}}
\put(1800,0){\usebox{\susp}}
\put(5400,0){\usebox{\rightbiedge}}
\multiput(0,0)(5400,0){2}{\multiput(0,0)(1800,0){2}{\usebox{\aone}}}
\multiput(5400,600)(1800,0){2}{\usebox{\tow}}
\put(1800,600){\usebox{\tow}}
}
\multiput(0,900)(15300,0){2}{\line(0,1){900}}
\put(0,1800){\line(1,0){15300}}
\multiput(1800,900)(11700,0){2}{\line(0,1){600}}
\put(1800,1500){\line(1,0){11700}}
\multiput(5400,900)(4500,0){2}{\line(0,1){300}}
\put(5400,1200){\line(1,0){4500}}
\multiput(0,-900)(13500,0){2}{\line(0,-1){1200}}
\put(0,-2100){\line(1,0){13500}}
\put(1800,-900){\line(0,-1){900}}
\put(1800,-1800){\line(1,0){9900}}
\multiput(11700,-1800)(0,300){3}{\line(0,1){150}}
\multiput(3600,-1500)(0,300){2}{\line(0,1){150}}
\put(3600,-1500){\line(1,0){6300}}
\put(9900,-1500){\line(0,1){600}}
\multiput(5400,-1200)(2700,0){2}{\line(0,1){300}}
\put(5400,-1200){\line(1,0){2700}}
\end{picture}}

\newcommand{\diagramaesevenseven}{\begin{picture}(11400,3300)(-300,-1500)
\multiput(0,0)(1800,0){6}{\usebox{\edge}}
\multiput(0,0)(1800,0){7}{\usebox{\aone}}
\multiput(0,600)(1800,0){2}{\usebox{\toe}}
\put(5400,600){\usebox{\tow}}
\put(5400,600){\usebox{\toe}}
\multiput(9000,600)(1800,0){2}{\usebox{\tow}}
\multiput(0,900)(7200,0){2}{\line(0,1){600}}
\put(0,1500){\line(1,0){1700}}
\put(1900,1500){\line(1,0){3400}}
\put(5500,1500){\line(1,0){1700}}
\multiput(1800,900)(3600,0){3}{\line(0,1){900}}
\put(1800,1800){\line(1,0){7200}}
\multiput(3600,900)(7200,0){2}{\line(0,1){300}}
\put(3600,1200){\line(1,0){1700}}
\put(5500,1200){\line(1,0){1600}}
\put(7300,1200){\line(1,0){1600}}
\put(9100,1200){\line(1,0){1700}}
\multiput(1800,-900)(5400,0){2}{\line(0,-1){300}}
\put(1800,-1200){\line(1,0){1700}}
\put(3700,-1200){\line(1,0){3500}}
\multiput(3600,-900)(5400,0){2}{\line(0,-1){600}}
\put(3600,-1500){\line(1,0){5400}}
\end{picture}}

\newcommand{\diagramaesevenfive}{\begin{picture}(7800,2850)(-300,-1500)
\multiput(0,0)(1800,0){4}{\usebox{\edge}}
\multiput(0,0)(1800,0){5}{\usebox{\aone}}
\multiput(0,600)(3600,0){2}{\usebox{\toe}}
\multiput(3600,600)(3600,0){2}{\usebox{\tow}}
\multiput(0,900)(3600,0){3}{\line(0,1){450}}
\put(0,1350){\line(1,0){7200}}
\multiput(0,-900)(5400,0){2}{\line(0,-1){300}}
\put(0,-1200){\line(1,0){1700}}
\put(1900,-1200){\line(1,0){3500}}
\multiput(1800,-900)(5400,0){2}{\line(0,-1){600}}
\put(1800,-1500){\line(1,0){5400}}
\end{picture}}

\newcommand{\diagramcesevenfive}{\begin{picture}(7800,2850)(-300,-1500)
\put(0,0){\usebox{\dynkincfive}}
\multiput(0,0)(1800,0){5}{\usebox{\aone}}
\multiput(0,600)(3600,0){2}{\usebox{\toe}}
\multiput(3600,600)(3600,0){2}{\usebox{\tow}}
\put(5400,600){\usebox{\toe}}
\multiput(0,900)(3600,0){3}{\line(0,1){450}}
\put(0,1350){\line(1,0){7200}}
\multiput(0,-900)(5400,0){2}{\line(0,-1){300}}
\put(0,-1200){\line(1,0){1700}}
\put(1900,-1200){\line(1,0){3500}}
\multiput(1800,-900)(5400,0){2}{\line(0,-1){600}}
\put(1800,-1500){\line(1,0){5400}}
\end{picture}}

\newcommand{\diagramdeeighteight}{\begin{picture}(11400,5400)(-300,-2700)
\put(0,0){\usebox{\dynkindeight}}
\multiput(0,0)(1800,0){6}{\usebox{\aone}}
\multiput(10200,-1200)(0,2400){2}{\usebox{\aone}}
\put(0,900){\line(0,1){1500}}
\put(0,2400){\line(1,0){3500}}
\put(3700,2400){\line(1,0){3400}}
\put(7300,2400){\line(1,0){2800}}
\put(10300,2400){\line(1,0){800}}
\put(11100,2400){\line(0,-1){3000}}
\put(11100,-600){\line(-1,0){600}}
\put(1500,-2700){
\multiput(2100,5400)(3600,0){2}{\line(0,-1){1800}}
\put(8700,5400){\line(0,-1){600}}
\put(2100,5400){\line(1,0){6600}}
\multiput(300,4500)(7200,0){2}{\line(0,-1){900}}
\put(300,4500){\line(1,0){1700}}
\put(2200,4500){\line(1,0){3400}}
\put(5800,4500){\line(1,0){1700}}
\put(3900,0){\line(0,1){1800}}
\put(3900,0){\line(1,0){5400}}
\put(9300,0){\line(0,1){2000}}
\put(9300,2200){\line(0,1){1100}}
\put(9300,3300){\line(-1,0){300}}
\put(300,300){\line(0,1){1500}}
\put(300,300){\line(1,0){3500}}
\put(4000,300){\line(1,0){4700}}
\put(8700,300){\line(0,1){300}}
\multiput(2100,600)(5400,0){2}{\line(0,1){1200}}
\put(2100,600){\line(1,0){1700}}
\put(4000,600){\line(1,0){3500}}
}
\put(1800,0){
\multiput(0,600)(1800,0){2}{\usebox{\toe}}
\put(5400,600){\usebox{\tow}}
\put(5400,600){\usebox{\toe}}
\put(7200,600){\usebox{\tose}}
\put(8400,1800){\usebox{\tosw}}
}
\end{picture}}

\newcommand{\diagramdeeightseven}{\begin{picture}(9300,5100)(-300,-2700)
\put(0,0){\usebox{\dynkindseven}}
\multiput(0,0)(1800,0){5}{\usebox{\aone}}
\multiput(8400,-1200)(0,2400){2}{\usebox{\aone}}
\put(-300,-2700){
\multiput(2100,5100)(3600,0){2}{\line(0,-1){1500}}
\put(8700,5100){\line(0,-1){300}}
\put(2100,5100){\line(1,0){6600}}
\multiput(300,4500)(7200,0){2}{\line(0,-1){900}}
\put(300,4500){\line(1,0){1700}}
\put(2200,4500){\line(1,0){3400}}
\put(5800,4500){\line(1,0){1700}}
\put(3900,0){\line(0,1){1800}}
\put(3900,0){\line(1,0){5400}}
\put(9300,0){\line(0,1){3300}}
\put(9300,3300){\line(-1,0){300}}
\put(300,300){\line(0,1){1500}}
\put(300,300){\line(1,0){3500}}
\put(4000,300){\line(1,0){4700}}
\put(8700,300){\line(0,1){300}}
\multiput(2100,600)(5400,0){2}{\line(0,1){1200}}
\put(2100,600){\line(1,0){1700}}
\put(4000,600){\line(1,0){3500}}
}
\multiput(0,600)(1800,0){2}{\usebox{\toe}}
\put(5400,600){\usebox{\tow}}
\put(5400,600){\usebox{\toe}}
\put(7200,600){\usebox{\tose}}
\put(8400,1800){\usebox{\tosw}}
\end{picture}}









