proc SCHEMATIC_var_res_electrical {} {
make input -name t1 -origin {50 -30}
make input -name t2 -origin {50 50}
make input -name con -origin {50 110}
make output -name n0 -origin {180 0}
}

proc ICON_var_res_electrical args {
  icon_setup $args {{origin {0 0}} {orient R0} {name x} {r_fixed 10e3} {noise_enable 0}}
icon_term -type input -origin {0 50} -name t1
icon_term -type input -origin {0 -50} -name t2
icon_term -type input -origin {-60 -30} -name con
icon_term -type output -origin {-60 20} -orient RXY -name n0
icon_property -origin {-50 20} -label n0
icon_property -origin {-50 -30} -label vcon
  icon_property -origin {-140 100} -type user -name name -default x
  icon_property -origin {-140 120} -type user -name r_fixed -default 10e3
icon_property -origin {10 0} -label {r_fixed=$r_fixed (Ohms)}
icon_property -origin {50 -30} -anchor e -label {$name}
  icon_line -30 20 30 -20 20 -20
  icon_line 30 -20 30 -10
icon_property -origin {10 50} -label t1
icon_property -origin {10 -50} -label t2
  icon_line 0 -50 0 -30 -10 -20 10 -10 -10 0 10 10 -10 20 0 30 0 50
  icon_property -origin {-140 140} -type user -name noise_enable -default 0
  icon_property -origin {10 20} -text {[if {$noise_enable != 0} {set x "noise_enable=$noise_enable"} else {set x ""}]}
}

