proc ICON_dc_voltage args {
  icon_setup $args {{origin {0 0}} {orient R0} {name V} {dc_voltage 0} {ac_voltage 0}}
icon_term -type inout -origin {0 40} -name v_minus
icon_term -type inout -origin {0 -40} -orient RY -name v_plus
  icon_line 0 -20 0 -40
  icon_line 0 40 0 20 0 20
  icon_property -origin {-200 160} -type fixed -name spice -text {$name $v_plus $v_minus dc='$dc_voltage' ac='$ac_voltage'}
  icon_property -origin {-100 70} -type user -name name -default V
  icon_property -origin {-100 90} -type user -name dc_voltage -default 0
  icon_line -10 10 10 10
  icon_line -10 -10 10 -10
  icon_line 0 -20 0 0
icon_property -origin {30 -10} -label {DC: $dc_voltage}
  icon_arc -20 -20 20 20 -start 0 -extent 359
icon_property -origin {-20 -30} -anchor e -label {$name}
icon_property -origin {30 10} -label {AC: $ac_voltage}
  icon_property -origin {-100 110} -type user -name ac_voltage -default 0
}

