%% gh
%% Un circuit mystère

%% échelle et étendue de l'image
60 setxunit
-2.5 6.5 setxrange 
0 6 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 5 (NAND) ccpict 

(B) node %% déclaration du noeud 
0 3 (NAND) ccpict 

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

(D) node
2.5 2 (XOR) ccpict

(E) node
5 3.5 (XOR) ccpict

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Les points
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/R {Ain1 exch pop -2 exch} def % le point d'abscisse -2 à la
                                  % hauteur de l'entrée 1 de A
/A1 {Ain1 R milieu} def
/S {Bin1 exch pop -2 exch} def
/T {Cin1 exch pop -2 exch} def
/C1 {Cin0 exch pop -2 exch Cin0 milieu} def

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

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

<latex>
$C$
</latex>
T [1.5 dup] cltexlabel

<latex>
$S$
</latex>
Eout [1.5 dup] crtexlabel


%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Les liaisons
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Bin1 Ain0 (*-) line
Cin1 Bin0 (*-) line
A1 C1 (*-) line
R Ain1 (-) line
S Bin1 (-) line
T Cin1 (-) line
C1 Cin0 (-) line

Cout Din0 (-) pcline
Bout Din1 (-) pcline
Dout Ein0 (-) pcline
Aout Ein1 (-) pcline