%% gh
%% Un circuit combinatoire

%% échelle et étendue de l'image
60 setxunit
-4 4 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
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
(Aand) node %% déclaration du noeud and
0 3 (AND) ccpict 
<latex>
$\alpha$
</latex>
Aandout [1.5 dup] urtexlabel

(Bor) node %% declaration du noeud or 
0 1 (OR) ccpict 
<latex>
$\beta$
</latex>
Borout [1.5 dup] drtexlabel


(Cxor) node %% declaration du noeud xor 
2.5 2 (XOR) ccpict 
<latex>
$S$
</latex>
Cxorout [1.5 dup] crtexlabel

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Les points
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/A {Aandin1 exch pop -3 exch} def % le point d'abscisse -3 à la
                                  % hauteur de l'entrée 1 de A
/A1 {Aandin1 A milieu} def
/B {Borin0 exch pop -3 exch} def
/B1 {Borin0 B milieu} def


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

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Les liaisons
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Aandout Cxorin1 (-) pcline
Borout Cxorin0 (-) pcline
Aandin1 A (-) line
Borin0 B (-) line
Aandin0 B1 (-*) pcline
Borin1 A1 (-*) pcline