Présentation de circuit_02.jps

uselogic
autocrop
20 setxunit
/loadnodedict true def

(A) node                     %% declaration du noeud A
0 -1 (AND) ccpict            %% cellule AND en (0,-1) (cc => plein centre)
(B) node                     %% declaration du noeud B
Ain0 -1 0 addv (OR) clpict   %% cellure OR a gauche du point Ain0
                             %% (entree0 de A) decale du vecteur (-1,0)

[Aout Aout 1 0 addv] ligne   %% ligne entre le point Aout (sortie de A)
                             %% et Aout decale de (1,0) 
Ain0 Bout (-) pcline         %% line entre Ain0 et Bout

/angleA -90 def              %% dessin du pont
/armA 30 def
Ain0 Aout (*-*) pcbar