%% gh
%% Un circuit séquentiel

%% échelle et étendue de l'image
60 setxunit
-2.5 2.5 setxrange 
0 4 setyrange 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% définitions des couleurs
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

/coul0 {0 0 0 0.5 setcmykcolor} def %gris
/coul1 {noir} def
/coul2 {orange} def
/coul3 {rouge} def
/coul4 {bleu} def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Bibliothèque logic
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
uselogic
/loadnodedict true def
1.5 setlinewidth
/logicUnit .25 def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Les portes
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
(A) node %% déclaration du noeud 
0 3 (NAND) ccpict 

(B) node %% declaration du noeud
0 1 (NAND) ccpict 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Les points
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/R {Ain1 exch pop -2 exch} def % le point d'abscisse -3 à la
                                  % hauteur de l'entrée 1 de A
/Q {Aout exch pop 2 exch} def  % le point d'abscisse -3 à la
                                  % hauteur de la sortie de A
/S {Bin0 exch pop -2 exch} def
/Q' {Bout exch pop 2 exch} def 

<latex>
$R$
</latex>
R [1.5 dup] cltexlabel

<latex>
$S$
</latex>
S [1.5 dup] cltexlabel

<latex>
$Q$
</latex>
Q [1.5 dup] crtexlabel

<latex>
$Q'$
</latex>
Q' [1.5 dup] crtexlabel

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Les liaisons
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/angleA -90 def
/angleB 90 def
Aout Bin1 (*-) pcdiag
/angleA 90 def
/angleB -90 def
Bout Ain0 (*-) pcdiag

R Ain1 (-) line
S Bin0 (-) line
Q Aout (-) line
Q' Bout (-) line