lib/digitaltcl.lps

   1 %! PostScript set of library objects for XCircuit
   2 %  Version: 3.2
   3 %  Library name is: digital
   4 %  Author: R. Timothy Edwards <tim.edwards@multigig.com>
   5
   6 % XCircuitLib library built-in objects
   7
   8 /digital::LED {
   9 % nonetwork
  10 <</p_col6 {0 0 0 }
  11 (switch -glob @digit {[1,4,7] {color index @offcolor} default {expr @p_color}})
  12 pop /p_col5 {0 0 0 }
  13 (switch @digit {2 {color index @offcolor} default {expr @p_color}})
  14 pop /p_col4 {0 0 0 }
  15 (switch -glob @digit {[0,2,6,8] {expr @p_color} default {color index @offcolor}})
  16 pop /p_col3 {1.000 1.000 1.000 }
  17 (switch -glob @digit {[0-1,7] {color index @offcolor} default {expr @p_color}})
  18 pop /p_col2 {0 0 0 }
  19 (switch -glob @digit {[5-6] {color index @offcolor} default {expr @p_color}})
  20 pop /p_col1 {0 0 0 }
  21 (switch -glob @digit {[1-3,7] {color index @offcolor} default {expr @p_color}})
  22 pop /p_col {0 0 0 }
  23 (switch @digit {1 - 4 {color index @offcolor} default {expr @p_color}})
  24 pop /@offcolor (white) /@digit (0)
  25 (lindex {0 1 2 3 4 5 6 7 8 9} 0) pop >> begingate
  26 p_col4 scb
  27 496 1.000 -36 -53 -28 -66 -20 -58 -20 -10 -28 -2 -36 -10 6 polygon
  28 p_col1 scb
  29 496 1.000 -36 10 -28 2 -20 10 -20 58 -28 66 -36 58 6 polygon
  30 p_col2 scb
  31 496 1.000 20 10 28 2 36 10 36 58 28 66 20 58 6 polygon
  32 p_col5 scb
  33 496 1.000 20 -58 28 -66 36 -58 36 -10 28 -2 20 -10 6 polygon
  34 p_col6 scb
  35 496 1.000 -26 -68 -18 -60 18 -60 26 -68 18 -76 -18 -76 6 polygon
  36 p_col3 scb
  37 496 1.000 -26 0 -18 8 18 8 26 0 18 -8 -18 -8 6 polygon
  38 p_col scb
  39 496 1.000 -26 68 -18 76 18 76 26 68 18 60 -18 60 6 polygon
  40 endgate
  41 } def
  42
  43 % EndLib