uselogic
-2 6 setxrange
-3 3 setyrange
20 setxunit
quadrillage
marks
/loadnodedict true def  %% permet de recup les pts speciaux ds le
                        %% dictionnaire courant

/logicNInput 4 def      %% nombre d'entrees (defaut 2)
(A) node                %% on nomme le noeud
0 -1 (OR) ccpict
(B) node
2 0 (OR) bbpict
Ain1 circ       %% une borne a l'entree 1 de A
Bin1 times2     %% une croix a l'entree 1 de B