proc PulserOn {} {
	pulser send "OUTP ON"

}

proc PulserOff {} {
	pulser send "OUTP OFF"

}

proc PulserSin {Freq Volt} {
	pulser send FUNC SIN
	pulser send VOLT $Volt
	pulser send FREQ $Freq
	pulser send VOLT:OFFS 0

}

proc PulserSquare {Freq Volt} {
	pulser send FUNC SQU
	pulser send VOLT $Volt
	pulser send FREQ $Freq
	pulser send VOLT:OFFS 0

}

proc PulserSquareOffs {Freq Volt Offs} {
	pulser send FUNC SQU
	pulser send VOLT $Volt
	pulser send FREQ $Freq
	pulser send VOLT:OFFS $Offs

}


proc PulserDC {Volt} {
	set resp [pulser send FUNC?]
	broadcast $resp
	if {$resp != "DC"} {
		pulser send FUNC DC
	}
	pulser send VOLT:OFFS $Volt

}

	


publish PulserOn user
publish PulserOff user
publish PulserSin user
publish PulserSquare user
publish PulserDC user
publish PulserSquareOffs user