Présentation de circuit_02.jps

/syracuse/bbgraf/albums/logic/circuit_02.jpg
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