uselogic
-2 6 setxrange
-3 3 setyrange
20 setxunit
quadrillage marks

/logicNInput 4 def      %% nombre d'entrees (defaut 2)
0 -1 (OR) ccpict
/in1 pictget circ       %% une borne a l'entree 1 (en utilisant
                        %% l'environnement picture)

/logicUnit .7 def       %% echelle (defaut : .5)
/logicWireLength 0 def  %% longueur des pattes (defaut : .5)
2 0 (OR) bbpict
/in1 pictget times2     %% une croix a l'entree 1 (en utilisant
                        %% l'environnement picture)
%% avec reduction et rotation
4 -2 [.5 .5] {-30} (XOR) ccpict