.PS
# `currents.m4'
cct_init
  del = 0.75
[
 {right_
  resistor; b_current(i)
  {"\tt b\_current(i)" at last line + (0,-0.20)}
  move right_ del
  resistor; b_current(i,below_)
  {"\tt $\ldots$(i,below\_)" at last line + (0,-0.20)}
  move right_ del
  resistor; b_current(i,,O)
  {"\tt $\ldots$(i,{,}O)" at last line + (0,-0.20)}
  move right_ del
  resistor; b_current(i,below_,O)
  {"\tt $\ldots$(i,below\_,O)" at last line + (0,-0.20)}
  }

  move down_ 0.50
 {right_
  resistor; b_current(i,,,E)
  {"\tt b\_current(i,{,},E)" wid 1.2 at last line + (0,-0.20)}
  move right_ del
  resistor; b_current(i,below_,,E)
  {"\tt $\ldots$(i,below\_,{,}E)" at last line + (0,-0.20)}
  move right_ del
  resistor; b_current(i,,O,E,0.2)
  {"\tt $\ldots$(i,{,}O,E,0.2)" at last line + (0,-0.20)}
  move right_ del
  resistor; b_current(i,below_,O,E)
  {"\tt $\ldots$(i,below\_,O,E)" at last line + (0,-0.20)}
  }

  move down_ 0.55
 {right_
  del = 0.55
  inductor; larrow(i)
  {"`\tt larrow(i)'" at last line + (0,-0.20)}
  move up 0.1 right_ del
  inductor; rarrow(i)
  {"`\tt rarrow(i)'" at last line + (0,-0.30)}
  move down 0.1 right_ del
  inductor; larrow(i,<-)
  {"`\tt larrow(i,<-)'" at last line + (0,-0.20)}
  move up 0.1 right_ del
  inductor; rarrow(i,<-)
  {"`\tt rarrow(i,<-)'" at last line + (0,-0.30)}
  }
]
#showbox_
.PE
