\unitlength 1mm
{\begin{picture}(60,40)
\gasset{AHLength=4.0,AHlength=4,AHangle=11}
\put(10,20){\drawccurve(-10,0)(0,-18)(10,0)(0,18)}
\put(40,20){\drawccurve(-10,0)(0,-18)(10,0)(0,18)}
\put(25,32){\mbox{$R$}}
\put(00,35){\mbox{$A$}}
\put(47,35){\mbox{$B$}}
\gasset{Nw=1.5,Nh=1.5,Nframe=n,Nfill=y,NLdist=3}
\node[NLangle= 180](Na)(13,30){$c$}
\node[NLangle= 135](Nb)(7,20){$b$}
\node[NLangle= 180](Nc)(10,8){$a$}
\node[NLangle= 45](N1)(38,30){$4$}
\node[NLangle= 0](N2)(41,22){$3$}
\node[NLangle= 0](N3)(38,15){$2$}
\node[NLangle= -30](N4)(40,8){$1$}
\drawedge(Na,N1){}
\drawedge(Na,N2){}
\drawedge(Nb,N3){}
\drawedge(Nc,N3){}
\end{picture}}
Code
\unitlength 0.50mm
\begin{picture}(80,95)
\gasset{AHnb=0}
\gasset{Nw=10,Nh=10,Nmr=5}
\node(1)(10,30){$f$}
\node(2)(20,10){$t$}
\node(3)(40,10){$f$}
\node(4)(30,30){$\lor$}
\drawedge(2,4){}
\drawedge(3,4){}
\node(5)(20,50){$\land$}
\drawedge(1,5){}
\drawedge(4,5){}
\node(6)(50,30){$t$}
\node(7)(70,30){$t$}
\node(8)(60,50){$\land$}
\drawedge(6,8){}
\drawedge(7,8){}
\node(9)(40,70){$\land$}
\drawedge(5,9){}
\drawedge(8,9){}
\node(10)(70,70){$f$}
\node(11)(55,90){$\land$}
\drawedge(9,11){}
\drawedge(10,11){}
\gasset{ExtNL=y,NLdist=1,NLangle=20}
\nodelabel(1){1}
\nodelabel(2){2}
\nodelabel(3){3}
\nodelabel(4){4}
\nodelabel(5){5}
\nodelabel(6){6}
\nodelabel(7){7}
\nodelabel(8){8}
\nodelabel(9){9}
\nodelabel(10){10}
\nodelabel(11){11}
\end{picture}
Code
\unitlength 0.7mm
\begin{picture}(40,35)
\gasset{AHnb=0,Nw=7,Nh=7,Nframe=y,Nfill=n}
\node(1)(20,05){1}
\node(2)(00,25){2}
\node(3)(35,15){3}
\node(4)(00,05){4}
\node(5)(20,25){5}
\drawedge(1,3){}
\drawedge(1,4){}
\drawedge(1,5){}
\drawedge(2,4){}
\drawedge(2,5){}
\drawedge(3,5){}
\end{picture}
Code
\begin{picture}(40,35)(00,00)
\gasset{AHnb=0,Nw=2.5,Nh=2.5,Nframe=n,Nfill=y}
\gasset{ExtNL=y,NLdist=1.5,NLangle= 60}
\node[NLangle=-60](1)(20,05){1}
\node[NLangle=120](2)(00,25){2}
\node(3)(35,15){3}
\node[NLangle=240](4)(00,05){4}
\node(5)(20,25){5}
\drawedge(1,3){}
\drawedge(1,4){}
\drawedge(1,5){}
\drawedge(2,4){}
\drawedge(2,5){}
\drawedge(3,5){}
\end{picture}
Code
\begin{picture}(60,35)(00,00)
\gasset{AHnb=0,Nw=2.5,Nh=2.5,Nframe=n,Nfill=y}
\gasset{ExtNL=y,NLdist=1.5,NLangle=00}
\node[NLangle=180](1)(00,15){1}
\node[NLangle=180](2)(15,15){2}
\node(3)(30,15){3}
\node(4)(45,15){4}
\node(5)(60,15){5}
\drawedge[curvedepth=-7](1,3){}
\drawedge[curvedepth=8](1,4){}
\drawedge[curvedepth=14](1,5){}
\drawedge[curvedepth=-7](2,4){}
\drawedge[curvedepth=8](2,5){}
\drawedge[curvedepth=-7](3,5){}
\end{picture}
Code
\unitlength 0.8mm
\begin{picture}(80,60)(-10,0)
\gasset{AHLength=4.0,AHlength=4,AHangle=9.09}
\gasset{Nw=10,Nh=10,Nmr=5}
\gasset{ELside=l}\gasset{loopCW=n}
\node(N1)(10,10){$e1$}
\node(N2)(50,10){$o1$}
\node(N3)(10,50){$e0$}
\node(N4)(50,50){$o0$}
\drawedge[curvedepth=4](N1,N2){$1$}
\drawedge[curvedepth=4](N2,N1){$1$}
\drawedge[curvedepth=4,ELpos=30](N3,N2){$1$}
\drawedge[curvedepth=-4,ELside=r,ELpos=30](N4,N1){$1$}
\drawloop[loopangle=0,ELside=r,ELpos=50](N4){$0$}
\drawloop[loopangle=180,ELside=r,ELpos=50](N3){$0$}
\drawedge(N1,N3){$0$}
\drawedge[ELside=r](N2,N4){$0$}
\imark[iangle=30](N3)
\rmark(N1)
\rmark(N3)
\rmark(N4)
% \rmark(N3)
\end{picture}
Code
\unitlength 1.0mm
\begin{picture}(80,50)(0,0)
\gasset{AHLength=4.0,AHlength=4,AHangle=9.09}
\gasset{Nw=7,Nh=7,Nmr=5}
\gasset{ELside=l}\gasset{loopCW=n}
\node(.)(10,10){$.$}
\node(E)(10,40){$E$}
\node(0)(40,10){$0$}
\node(E0)(40,40){$E0$}
\node(00)(65,25){$00$}
\drawedge[ELside=r](.,0){$0$}
\drawedge[ELside=r](0,00){$0$}
\drawedge(E,E0){$0$}
\drawedge(E0,00){$0$}
% \drawedge[ELpos=35](ao,be){$b$}
\drawedge[curvedepth=4](.,E){$1$}
\drawedge[curvedepth=4](E,.){$1$}
\drawedge[ELpos=30](0,E){$1$}
\drawedge[ELpos=30,ELside=r](E0,.){$1$}
\imark[iangle=180](E)
\rmark(E)
\rmark(E0)
\rmark(00)
\drawloop[loopangle=80,ELside=r,ELpos=50](00){$0$,$1$}
\end{picture}
Code
\unitlength 0.8mm
\begin{picture}(80,85)(25,-5)
\gasset{AHLength=5.0,AHlength=5,AHangle=9.09}
\gasset{Nw=10,Nh=10,Nmr=5}
\gasset{ELside=r}
\gasset{loopCW=n}
%!NEW fta-axx.gtp
\node(bbb)(40,00){$bbb$}
\node(bba)(40,40){$bba$}
\node(baa)(70,55){$baa$}
\node(bab)(70,25){$bab$}
\node(aaa)(100,70){$aaa$}
\node(aab)(100,50){$aab$}
\node(aba)(100,30){$aba$}
\node(abb)(100,10){$abb$}
\imark[iangle=200](bbb)
\rmark(aaa)
\rmark(aab)
\rmark(aba)
\rmark(abb)
\drawedge(bbb,bba){$a$}
\drawloop[loopangle=145](bbb){$b$}
\drawedge(bba,baa){$a$}
\drawedge(bba,bab){$b$}
\drawedge(baa,aaa){$a$}
\drawedge(baa,aab){$b$}
\drawedge[ELpos=75,syo=-2,eyo=-2](bab,aba){$a$}
\drawedge[syo=2,eyo=2](aba,bab){$b$}
\drawedge[ELside=l,ELpos=75](bab,abb){$b$}
\drawloop[loopangle=0](aaa){$a$}
\drawedge(aaa,aab){$b$}
\drawedge(aab,aba){$a$}
\drawqbedge[ELside=l](aab,120,30,abb){$b$}
\drawedge[ELside=l](aba,baa){$a$}
\drawedge[ELside=l](abb,bbb){$b$}
\drawqbedge[ELside=l,eyo=6](abb,40,05,bba){$a$}
\end{picture}
Code
\unitlength 0.60mm
\begin{picture}(60,60)
\gasset{AHnb=0}
\gasset{Nw=10,Nh=10,Nmr=5,Nframe=n}
%
\node(011)(40,40){011}
\node(010)(40,10){010}
\node(001)(10,40){001}
\node(000)(10,10){000}
\drawedge(000,001){}\drawedge(010,011){}
\drawedge(000,010){}\drawedge(001,011){}
\node(111)(55,55){111}
\node(110)(55,25){110}
\node(101)(25,55){101}
\node(100)(25,25){100}
\drawedge(100,101){}\drawedge(110,111){}
\drawedge(100,110){}\drawedge(101,111){}
\drawedge(100,000){}\drawedge(101,001){}
\drawedge(110,010){}\drawedge(111,011){}
\end{picture}
Code
\unitlength 0.5mm
\begin{picture}(110,80)(0,0)
\gasset{Nh=12,Nw=12}
\drawcurve[linecolor=Gray,linewidth=2,AHnb=0](10,40)(40,40)(70,42)(70,70)(40,70)
(40,40)(55,10)(70,38)(100,40)
\node(AT)(10,40){AT}
\node(TG)(40,40){TG}
\node(GG)(55,10){GG}
\node(GC)(70,40){GC}
\node(GT)(40,70){GT}
\node(CA)(100,40){CA}
\node(CG)(70,70){CG}
\drawedge(AT,TG){T}
\drawedge[ELside=r](TG,GG){G}
\drawedge(TG,GC){G}
\drawedge[ELside=r](GT,TG){T}
\drawedge[ELside=r](GG,GC){G}
\drawedge(GC,CA){C}
\drawedge[ELside=r](GC,CG){C}
\drawedge[ELside=r](CG,GT){G}
\end{picture}
Code
\unitlength0.8mm
\begin{picture}(90,35)(0,5)
\gasset{AHnb=0,linewidth=0.4}
\drawline(0,10)(90,10)
% clones
\gasset{AHnb=0,linewidth=1,linecolor=Gray}
\put(27,32){\makebox(0,0)[c]{1}}
\drawline[linewidth=0.9,linecolor=Gray](27,30)(67,30)
\drawline(42,25)(63,25)\put(42,27){\makebox(0,0)[c]{2}}
\drawline(21,25)(37,25)\put(21,27){\makebox(0,0)[c]{3}}
\drawline(63,20)(83,20)\put(63,22){\makebox(0,0)[c]{4}}
\drawline(05,20)(26,20)\put(05,22){\makebox(0,0)[c]{5}}
\drawline(29,15)(60,15)\put(29,17){\makebox(0,0)[c]{6}}
% probes
\gasset{AHnb=0,linewidth=0.4,linecolor=Black}
\gasset{dash={1.5}0}
\drawline(15,05)(15,35)\put(11,06){\makebox(0,0)[c]{E}}
\drawline(24,05)(24,35)\put(20,06){\makebox(0,0)[c]{B}}
\drawline(31,05)(31,35)\put(27,06){\makebox(0,0)[c]{F}}
\drawline(49,05)(49,35)\put(45,06){\makebox(0,0)[c]{C}}
\drawline(58,05)(58,35)\put(54,06){\makebox(0,0)[c]{A}}
\drawline(65,05)(65,35)\put(61,06){\makebox(0,0)[c]{G}}
\drawline(80,05)(80,35)\put(76,06){\makebox(0,0)[c]{D}}
\end{picture}
Code
\newcommand{\thesubtree}[2]{\node[Nw=.1,Nh=.1,Nframe=n](S)(#2){}
\put(#2){\drawpolygon[AHnb=0,Nframe=y,arcradius=0.5,#1](-2.5,-7.5)(0,1.8)(2.5,-7.5)}}
\newcommand{\putsubtree}[1]{\thesubtree{AHnb=0}{#1}}
\newcommand{\putsubtreeW}[1]{\thesubtree{Nfill=y,fillcolor=White}{#1}}
\newcommand{\putsubtreeB}[1]{\thesubtree{Nfill=y,fillgray=0.85}{#1}}
%
%% invisible node for upwards edges 'into' rectangular node
\newcommand{\nullnode}[1]{\node[Nw=.1,Nh=.1,Nframe=n](N)(#1){}}
%
\unitlength1.1mm
\begin{picture}(50,38)(1,15)
\gasset{AHnb=0,Nw=5,Nh=5,Nmr=5}
\node(R)(24,50){}
\putsubtreeW{04,42}\drawedge(S,R){}
\putsubtreeW{08,42}\drawedge(S,R){}
\putsubtreeW{14,32}\nullnode{14,40}\drawedge(N,S){}
\putsubtreeW{18,32}\nullnode{18,40}\drawedge(N,S){}
\putsubtreeB{22,32}\nullnode{22,40}\drawedge(N,S){}
\putsubtreeB{26,32}\nullnode{26,40}\drawedge(N,S){}
\node(1)(32,30){}\nullnode{32,40}\drawedge(N,1){}
\putsubtreeB{30,22}\drawedge(1,S){}
\putsubtreeB{34,22}\drawedge(1,S){}
\putsubtreeB{38,32}\nullnode{38,40}\drawedge(N,S){}
\putsubtreeB{42,32}\nullnode{42,40}\drawedge(N,S){}
\putsubtreeW{46,32}\nullnode{46,40}\drawedge(N,S){}
\putsubtreeW{50,32}\nullnode{50,40}\drawedge(N,S){}
\node[Nw=40,Nh=5,Nmr=0,Nfill=y,fillcolor=White](1)(32,40){}
\drawedge(1,R){}
% add shade to mixed node
\node[Nw=25,Nh=4.7,Nmr=0,Nframe=n,Nfill=y,fillgray=0.85](sh)(32,40){}
\end{picture}
Code
\unitlength 3mm
\begin{picture}(17,17)(-0.5,-0.5)
\drawline[AHnb=0,arcradius=.08,linewidth=0.3,linecolor=BrickRed](-0.4,0)(1,0)(1,1)(0,1)(0,2)(0,3)
(1,3)(1,2)(2,2)(2,3)(3,3)(3,2)(3,1)(2,1)(2,0)(3,0)(4,0)(4,1)(5,1)(5,0)(6,0)(7,0)
(7,1)(6,1)(6,2)(7,2)(7,3)(6,3)(5,3)(5,2)(4,2)(4,3)(4,4)(4,5)(5,5)(5,4)(6,4)(7,4)
(7,5)(6,5)(6,6)(7,6)(7,7)(6,7)(5,7)(5,6)(4,6)(4,7)(3,7)(2,7)(2,6)(3,6)(3,5)(3,4)
(2,4)(2,5)(1,5)(1,4)(0,4)(0,5)(0,6)(1,6)(1,7)(0,7)(0,8)(0,9)(1,9)(1,8)(2,8)(3,8)
(3,9)(2,9)(2,10)(3,10)(3,11)(2,11)(1,11)(1,10)(0,10)(0,11)(0,12)(1,12)(1,13)(0,13)
(0,14)(0,15)(1,15)(1,14)(2,14)(2,15)(3,15)(3,14)(3,13)(2,13)(2,12)(3,12)(4,12)
(5,12)(5,13)(4,13)(4,14)(4,15)(5,15)(5,14)(6,14)(6,15)(7,15)(7,14)(7,13)(6,13)
(6,12)(7,12)(7,11)(7,10)(6,10)(6,11)(5,11)(4,11)(4,10)(5,10)(5,9)(4,9)(4,8)(5,8)(6,8)
(6,9)(7,9)(7,8)(8,8)(8,9)(9,9)(9,8)(10,8)(11,8)(11,9)(10,9)(10,10)(11,10)(11,11)
(10,11)(9,11)(9,10)(8,10)(8,11)(8,12)(9,12)(9,13)(8,13)(8,14)(8,15)(9,15)(9,14)
(10,14)(10,15)(11,15)(11,14)(11,13)(10,13)(10,12)(11,12)(12,12)(13,12)(13,13)
(12,13)(12,14)(12,15)(13,15)(13,14)(14,14)(14,15)(15,15)(15,14)(15,13)(14,13)(14,12)
(15,12)(15,11)(15,10)(14,10)(14,11)(13,11)(12,11)(12,10)(13,10)(13,9)(12,9)(12,8)
(13,8)(14,8)(14,9)(15,9)(15,8)(15,7)(14,7)(14,6)(15,6)(15,5)(15,4)(14,4)(14,5)
(13,5)(13,4)(12,4)(12,5)(12,6)(13,6)(13,7)(12,7)(11,7)(11,6)(10,6)(10,7)(9,7)(8,7)
(8,6)(9,6)(9,5)(8,5)(8,4)(9,4)(10,4)(10,5)(11,5)(11,4)(11,3)(11,2)(10,2)(10,3)
(9,3)(8,3)(8,2)(9,2)(9,1)(8,1)(8,0)(9,0)(10,0)(10,1)(11,1)(11,0)(12,0)(13,0)(13,1)
(12,1)(12,2)(12,3)(13,3)(13,2)(14,2)(14,3)(15,3)(15,2)(15,1)(14,1)(14,0)(15.4,0)
\end{picture}
Code