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
|