%% auteur : Abidi
15 setxunit
-8 8 setxrange
-5 7 setyrange
/arcangleU 10 def %% angle au depart de la fleche
/arcangleV 10 def %% oppose de l'angle a l'arrivee de la fleche
/nodesep 10 def %% espace en picas separant les points A et B de
%% l'extremite de la connexion
/dx_boxit 3 store
/dy_boxit 3 store
/U {0 2.5} def
/V {0 -2.5} def
/INI {-3 0} def
/ACT {3 0} def
/AUT {0 5} def
%setTimes
%circleit %% encerclement du prochain label
(U) ovalnode %% declaration d'un node circulaire (A)
\begin{tabular}{c}
$u$\\activateur
\end{tabular}
U cctexlabel
(U) /ul nodepoint (U1) enode
(U) /ur nodepoint (U2) enode
(U) /dl nodepoint (U3) enode
(U) /dr nodepoint (U4) enode
%circleit %% encerclement du prochain label
(V) ovalnode %% declaration d'un node circulaire (B)
\begin{tabular}{c}
$v$\\inhibiteur
\end{tabular}
V cctexlabel
(V) /ul nodepoint (V3) enode
(V) /ur nodepoint (V4) enode
/angleA 90 def
/angleB 90 def
(U1) (U2) (->) nccurve
/angleA 135 def
/angleB -135 def
(V3) (U3) (->) nccurve
/angleA -45 def
/angleB 45 def
(U4) (V4) (->) nccurve
autocatalyse
AUT uctexlabel
inhibition
INI {90} cctexlabel
activation
ACT {-90} cctexlabel
/U10 {(U) /cr nodepoint 2 0 addc} def
/U11 {U10 1 0 addc} def
/U12 {U10 2 0 addc} def
/U13 {U10 3 0 addc} def
/angleA -45 def
/angleB 135 def
/nodesep 0 def
U10 U11 (-) pccurve
U11 U12 (-) pccurve
/angleA -45 def
/angleB 180 def
U12 U13 (->) pccurve
diffusion
U11 U12 addc 0.5 0 mulc uctexlabel
/V10 {(V) /cr nodepoint 2 0 addc} def
/V11 {V10 1 0 addc} def
/V12 {V10 2 0 addc} def
/V13 {V10 3 0 addc} def
/V14 {V10 4 0 addc} def
/angleA -45 def
/angleB 135 def
/nodesep 0 def
V10 V11 (-) pccurve
V11 V12 (-) pccurve
V12 V13 (-) pccurve
/angleA -45 def
/angleB 180 def
V13 V14 (->) pccurve
diffusion
V12 uctexlabel
/U5 {(U) /cl nodepoint -4 1 addc} def
$\gamma a$
U5 cltexlabel
/nodesep 5 def
/angleA 30 def
/angleB 150 def
U5 (U) /cl nodepoint -1.5 0 addc (->) pccurve
/U6 {(U) /cl nodepoint -4 -1 addc} def
$\gamma u$
U6 cltexlabel
/nodesep 5 def
/angleA -150 def
/angleB -30 def
(U) /cl nodepoint -1.5 0 addc U6 (->) pccurve
/V5 {(V) /cl nodepoint -4 1 addc} def
$\gamma b$
V5 cltexlabel
/nodesep 5 def
/angleA 30 def
/angleB 150 def
V5 (V) /cl nodepoint -1.5 0 addc (->) pccurve
/V6 {(V) /cl nodepoint -4 -1 addc} def
$\gamma\alpha v$
V6 cltexlabel
/nodesep 5 def
/angleA -150 def
/angleB -30 def
(V) /cl nodepoint -1.5 0 addc V6 (->) pccurve