%format=latex
\documentclass[12pt]{article}
\usepackage{pspictpg,gastex}

\textheight=247mm  
\textwidth=160mm 
 
\headheight=12pt \headsep=24pt \footskip=36pt 
 
\topmargin=297mm
\advance \topmargin by -\textheight 
\divide  \topmargin by 2
\advance \topmargin by -1in 
\advance \topmargin by -\headheight
\advance \topmargin by -\headsep

\leftmargin=210mm
\advance \leftmargin by -\textwidth 
\divide  \leftmargin by 2
\advance \leftmargin by -1in 

\oddsidemargin=\leftmargin
\evensidemargin=\leftmargin 

\begin{document}

\begin{center}
\begin{picture}(110,50)(-50,-15)
\thinlines
\put(-50,-15){\framebox(110,50){}}

\letstate A=(0,0)   \drawinitialstate(A){1}\drawfinalstate[b](A){}
\letstate[10,8] B=(30,20) \drawrepeatedstate(B){2}
\letstate[4,3]  C=(-30,0) \drawrepeatedstate(C){3}

\setprofcurve{15}
\drawcurvedtrans(A,B){$A,a,\alpha$}    \drawcurvedtrans(B,A){$D,d,\delta$}
\setprofcurve{10}
\drawcurvedtrans[r](A,B){$B,b,\beta$}  \drawcurvedtrans[r](B,A){$C,c,\gamma$}
\setprofcurve{-10}
\drawcurvedtrans[r](A,C){$A,a,\alpha$} \drawcurvedtrans[r](C,A){$D,d,\delta$}
\setprofcurve{-7}
\drawcurvedtrans(A,C){$B,b,\beta$}     \drawcurvedtrans(C,A){$C,c,\gamma$}
{ \setprofcurve{-30} \settranslabelskip{3} \setmaxbezier{1000}
  \drawcurvedtrans(A,C){$B,b,\beta$} }

\setloopdiam{2}   \drawloop[b](C){$A,a,\alpha$}
\setloopdiam{9}   \drawloop[l](C){$D,d,\delta$}
\setloopdiam{4}   \drawloop[t](B){$C,c,\gamma$}
\setloopdiam{24}  \setmaxbezier{1000}  \settranslabelskip{-10} 
\drawundirectedloop[r](B){$B,b,\beta$}
\end{picture}
\end{center}

\begin{center}
\begin{picture}(75,50)(-25,-15)
\thinlines
\put(-25,-15){\framebox(75,50){}}

\letstate A=(0,0) \drawstate(A){1}
\letstate[0,0] AIa=(-3.00,-5.20) % �tat initial � -120 degr�s
\letstate[0,0] AIb=(-4.24,-4.24) % �tat initial � -135 degr�s
\letstate[0,0] AIc=(-5.20,-3.00) % �tat initial � -150 degr�s
\letstate[0,0] AFa=( 5.20,-3.00) % �tat final � -30 degr�s
\letstate[0,0] AFb=( 4.24,-4.24) % �tat final � -45 degr�s
\letstate[0,0] AFc=( 3.00,-5.20) % �tat final � -60 degr�s
\drawtrans(AIa,A){} \drawtrans(AIb,A){} \drawtrans(AIc,A){}
\drawtrans(A,AFa){} \drawtrans(A,AFb){} \drawtrans(A,AFc){}

% Boucle � 135 degr�s.
% Rem: 15.87 = sqrt(7)*6 ou 6 est le diam�tre commun
% de la boucle et de l'�tat.
\drawcbeziertrans(A)(-15.87,0)(0,15.87)(A){$C,c,\gamma$}

\letstate[10,8] B=(40,10) \drawstate(B){$x>2$}

% \drawqbeziertrans(A)(0,25)(B){$D,d,\delta$}
\drawundirectedqbezieredge[r](A)(0,25)(B){$D,d,\delta$}
{\setmaxbezier{1000} \drawqbeziertrans[r](A)(70,-25)(B){$C,c,\gamma$}}

{\setmaxbezier{1000} \drawcbeziertrans(A)(-70,-10)(40,70)(B){$A,a,\alpha$}}
% \drawcbeziertrans(A)(10,25)(30,-25)(B){$B,b,\beta$}
\drawundirectedcbezieredge[r](A)(10,25)(30,-25)(B){$B,b,\beta$}

\end{picture}
\end{center}

\begin{center}
\begin{picture}(80,55)(-20,-15)
\thinlines
\put(-20,-15){\framebox(80,55){}}

\letstate A=(0,0)   \drawinitialstate(A){1}\drawfinalstate[b](A){}
\letstate B=(20,0)  \drawrepeatedstate(B){2}
\letstate C=(40,0)  \drawfinalstate(C){3}
\letstate D=(0,20)  \drawrepeatedstate(D){4}
\letstate E=(20,18) \drawstate(E){5}
\letstate F=(40,20) \drawrepeatedstate(F){6}

\drawloop[b](B){$A,a,\alpha$}    \drawloop[l](D){$A,\varepsilon$}
{ \setpsdash(1) \drawloop(E){$B,b,\beta$} }
\drawloop[r](F){$B,\varepsilon$}

\drawtrans[r](A,B){$D,d,\delta$} \drawtrans[r](B,C){$D,\varepsilon$}
{ \settransdecal{1}
  \drawtrans(C,F){$F,f,\varphi$} \drawtrans(F,C){$G,g,\gamma$} }
\drawtrans(B,E){$\varepsilon$}   \drawtrans(E,F){$E,\varepsilon$}
{ \setprofcurve{0} \drawcurvedtrans[r](E,D){$F,\varepsilon$} }

\drawcurvedtrans(A,D){$C,c,\gamma$}
{ \setpsdash(3) \drawcurvedtrans(D,A){$C,\varepsilon$} }
{ \setprofcurve{-15} \drawcurvedtrans[r](F,D){$G_1,g_1,\gamma_1$} }
\end{picture}
\end{center}

\begin{center}
\unitlength=1mm
\begin{picture}(120,80)(-60,-30)
\thinlines
\put(-60,-30){\framebox(120,80){}}
\setpsdash(3)\linethickness{1mm}\drawvector(0,0)(30,10)
\setpsdash[8](16)\setpsgray{.6}\linethickness{2mm}\drawline(0,-5)(40,-20)
\setpsdash(1 3)\setpsgray{.4}\linethickness{3mm}\drawcircle(0,0)(40)
\setpsgray{.8}\drawdisk(-20,30)(20)
\setpsgray{.2}\linethickness{1.5mm}\put(-40,0){\line(3,1){20}}
{\setpsdash[5](10)\linethickness{.5mm}\put(-40,-5){\vector(3,-1){20}}}
\linethickness{.2mm}\put(-40,0){\circle{30}}
\setpsgray{.8}\put(20,30){\circle*{25}}
\linethickness{1.2mm}\cbezier(-50,0)(-20,40)(20,-40)(50,0)
\setpsdash(12 3 3 3)\linethickness{.8mm}
\cbeziervector(-50,0)(-20,-40)(20,40)(50,0)

\end{picture}
\end{center}

\end{document}
