lib/generic.lps

   1 %! PostScript set of library objects for XCircuit
   2 %  Version: 2.3
   3 %  Library name is: generic
   4 %  Author: R. Timothy Edwards <tim@stravinsky.jhuapl.edu>
   5
   6 % Depend arrow arrowhead
   7 % Depend netquery arrowhead
   8
   9 % XCircuitLib library of objects
  10
  11 /generic::arrowhead {
  12 % nonetwork
  13 begingate
  14 8 -28 beginpath
  15 3 -18 3 -15 0 0 curveto
  16 -3 -15 -3 -18 -8 -28 curveto
  17 -2 -26 2 -26 8 -28 curveto
  18 249  1.00 endpath
  19 endgate
  20 } def
  21
  22 1.00 90 /generic::arrowhead libinst
  23
  24 /generic::jumper {
  25 % trivial
  26 begingate
  27 1 1.0 0 0 10 -90 90 xcarc
  28 0 10 0 16 wire
  29 0 -10 0 -16 wire
  30 1 0 0 scb
  31 (a) {/Times-Roman cf} 2 1 0 1.0 0 16 pinlabel
  32 (a) {/Times-Roman cf} 2 13 0 1.0 0 -16 pinlabel
  33 sce
  34 endgate
  35 } def
  36
  37 1.00 90 /generic::jumper libinst
  38
  39 /generic::circle {
  40 % trivial
  41 begingate
  42 1 1.0 16 0 6 0 360 xcarc
  43 0 0 10 0 wire
  44 1 0 0 scb
  45 (out) {/Times-Roman cf} 2 4 0 1.0 16 0 pinlabel
  46 (out) {/Times-Roman cf} 2 7 0 1.0 0 0 pinlabel
  47 sce
  48 endgate
  49 } def
  50
  51 1.00 90 /generic::circle libinst
  52
  53 /generic::arrow {
  54 % nonetwork
  55 begingate
  56 1 0.8 0 -40 0 20 2 polygon
  57 1.0 0 0 40 generic::arrowhead
  58 endgate
  59 } def
  60
  61 1.00 90 /generic::arrow libinst
  62 1.00 45 /generic::arrow libinst
  63
  64 /generic::dot {
  65 % trivial
  66 begingate
  67 248 1.0 0 0 6 0 360 xcarc
  68 1 0 0 scb
  69 (x) {/Times-Roman cf} 2 29 0 1.0 0 0 pinlabel
  70 endgate
  71 } def
  72
  73 /generic::tap {
  74 % trivial
  75 <</in (bus\(0:7\)) /out (bus\(0\)) >> begingate
  76 496 1.0 0 8 16 0 0 -8 3 polygon
  77 1 0 0 scb
  78 mark out {/Helvetica cf} ctmk 20 0 1.0 16 0 pinlabel
  79 mark in {/Helvetica cf} ctmk 23 0 1.0 0 0 pinlabel
  80 endgate
  81 } def
  82
  83 /generic::netquery {
  84 % nonetwork
  85 <</netname (\(none\)) (netlist get {0 0} -up -hier -quiet) pop >> begingate
  86 1 1.00 8 8 16 16 80 16 3 polygon
  87 mark netname {/Times-Roman cf} ctmk 16 0 1.00 16 24 label
  88 0.65 135 0 0 generic::arrowhead
  89 endgate
  90 } def
  91
  92
  93 % EndLib