proc SCHEMATIC_clock_for_noise_test {} {
make output -name out -origin {60 570}
make output -name reset -origin {60 600}
}

proc ICON_clock_for_noise_test args {
  icon_setup $args {{origin {0 0}} {orient R0} {name x} {num_samples 20} {double_interp_val 0.0}}
icon_term -type output -origin {100 10} -name out
icon_term -type output -origin {100 30} -name reset
icon_property -origin {90 10} -anchor e -label out
icon_property -origin {-90 -40} -label {$name}
icon_property -origin {-90 -20} -label clock_for_noise_test
  icon_line -100 -30 100 -30 100 50 -100 50 -100 -30
icon_property -origin {-100 60} -label {num_samples=$num_samples}
  icon_property -origin {-100 120} -type user -name name -default x
  icon_property -origin {-100 140} -type user -name num_samples -default 20
icon_property -origin {-100 80} -label {double_interp_val=$double_interp_val (-1.0 to 1.0)}
  icon_property -origin {-100 160} -type user -name double_interp_val -default 0.0
icon_property -origin {90 30} -anchor e -label reset
}

