%% gh
%% Un circuit logique cablant un demi-addtionneur

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 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 (AND) ccpict 

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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Les points
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/p {Ain1 exch pop -2 exch} def % le point d'abscisse -3 à la
                                  % hauteur de l'entrée 1 de A
/q {Bin1 exch pop -2 exch} def
/p1 {p Ain1 milieu} def
/q1 {Bin0 exch pop -1.5 exch} def

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

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

<latex>
$r$
</latex>
Aout [1.5 dup] crtexlabel

<latex>
$a$
</latex>
Bout [1.5 dup] crtexlabel



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% Les liaisons
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
p Ain1 (-) line
q Bin1 (-) line
Ain0 Bin1 (-*) line
p1 q1 (*-) line
q1 Bin0 (-) line