STRE
	SGLB	Misc/Class Reference
		CLAS	354151
	ESBR
	SORD	2
		PVAL	0	/o,-100,100,-100,100;Initial value (%)
		LVAL	0.100009	working ramp time
		LITO	0	raise state
		LITO	0	lower state
	ESBR
	SORD	3
		LITO	0	/t,Rate 1, Rate 2;rate state
		PVAL	0.100009	/o,-1000,1000,10,1000;Ramp time 1 (s)
		PVAL	0.100009	/o,-1000,1000,10,1000;Ramp time 2 (s)
	ESBR
	SGLB	Output/#1
		LCON	 	/*+;Output
	ESBR
	SGLB	Output/#2
		LCON	 	/*+;Inverted Output
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	CMNT	 	Prototype
	SGLB	General/Initialize
		CMNT	 	É ¥ inst/É
		PRIM	Timer/Get PAT	É ¥ time/inst/É
		TIME	500.000	É ¥ Æt/time/inst/É
		GSYM	Logic/Trigger	É ¥ method/Æt/time/inst/É
		CALL	354057	É ¥ inst/É
		LITO	1
		LITO	3
		PRIM	S_tree/Read	É ¥ rate state/inst/data/É
		LCAL	get rate	É ¥ rate/inst/É
		LITO	2
		LITO	2
		PRIM	S_tree/Replace	É ¥ inst/É
		LITO	1	É ¥ 1/inst/É
		LITO	2	É ¥ 2/1/inst/É
		PRIM	S_tree/Read	É ¥ output/inst/É
		LCAL	send
	ESBR
	SGLB	Logic/Select Time 2	/3t,Rate 1,Rate 2;Select ramp rate
		CMNT	 	Expects:  É ¥ inst/data/É
		PRIM	Stack/Over	É ¥ data/inst/data/É
		LITO	1
		LITO	3
		PRIM	S_tree/Replace	É ¥ inst/data/É
		PRIM	Stack/Swap	É ¥ data/inst/É
		LCAL	get rate	É ¥ rate/inst/É
		LITO	2
		LITO	2
		PRIM	S_tree/Replace	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Raise	/3t,false,true;raise state
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	3	É ¥ 3/inst/data/É
		LITO	2	É ¥ 2/3/inst/data/É
		CALL	354087
	ESBR
	SGLB	Logic/Lower	/3t,false,true;lower state
		CMNT	 	Expects:  É ¥ inst/data/É
		LITO	4	É ¥ 4/inst/data/É
		LITO	2	É ¥ 2/4/inst/data/É
		CALL	354087
	ESBR
	SGLB	Logic/Trigger	for internal class use only
		CMNT	 	Expects:  É ¥ inst/time/É
		PRIM	Stack/Swap	É ¥ time/inst/É
		TIME	250.000	É ¥ Æt/time/inst/É
		GSYM	Logic/Trigger	É ¥ method/Æt/time/inst/É
		CALL	354057	É ¥ inst/É
		LITO	0	É ¥ 0/inst/É
		LITO	2	É ¥ 2/0/inst/É
		PRIM	S_tree/Read	É ¥ list/inst/É
		PRIM	List/Remove	É ¥ list'/current/inst/É
		PRIM	List/Remove	É ¥ list''/rate/current/inst/É
		PRIM	List/Remove	É ¥ list'''/raise?/rate/current/inst/É
		PRIM	List/List to item	É ¥ lower/raise?/rate/current/inst/É
		BRFL	 	branch if lower=0
			BRFL	 	branch if raise=0
				CMNT	 	raise=0, lower=0;  do nothing
				PRIM	Stack/Drop	É ¥ current/inst/É
				PRIM	Stack/Drop	É ¥ inst/É
				PRIM	Heap/Store self
			BRTR
			CMNT	 	raise=1, lower=0;  increase
			LVAL	0.000244148	É ¥ .001/rate/current/inst/É
			PRIM	Value/Fraction	É ¥ Æv/current/inst/É
			PRIM	Value/Add	É ¥ output/inst/É
			LVAL	0
			PRIM	Value/Clamp low
			LCAL	set and send
		BRTR
		BRFL	 	branch if raise=0
			CMNT	 	raise=0, lower=1;  decrease
			LVAL	0.000244148	É ¥ .001/rate/current/inst/É
			PRIM	Value/Fraction	É ¥ Æv/current/inst/É
			PRIM	Value/Subtract	É ¥ output/inst/É
			LVAL	0
			PRIM	Value/Clamp low
			LCAL	set and send
		BRTR
		CMNT	 	raise=1, lower=1;  do nothing
		PRIM	Stack/Drop	É ¥ current/inst/É
		PRIM	Stack/Drop	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
	SGLB	Logic/Ramp Time 1	/3v,-1000,1000,10,1000;Ramp Time 1 (s)
		CMNT	 	Expects:  É ¥ inst/data/É
		PRIM	Stack/Over	É ¥ data/inst/data/É
		LITO	2
		LITO	3
		PRIM	S_tree/Replace	É ¥ inst/data/É
		LITO	1
		LITO	3
		PRIM	S_tree/Read	É ¥ rate 2?/inst/data/É
		PRIM	Ordinal/Test zero	É ¥ rate 1?/inst/data/É
		BRFL	 	rate 2
			PRIM	Stack/Xdrop	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		CMNT	 	rate 1
		LCAL	set rate	É ¥ É
	ESBR
	SGLB	Logic/Ramp Time 2	/3v,-1000,1000,10,1000;Ramp Time 2 (s)
		CMNT	 	Expects:  É ¥ inst/data/É
		PRIM	Stack/Over	É ¥ data/inst/data/É
		LITO	3
		LITO	3
		PRIM	S_tree/Replace	É ¥ inst/data/É
		LITO	1
		LITO	3
		PRIM	S_tree/Read	É ¥ rate 2?/inst/data/É
		BRFL	 	rate 1
			PRIM	Stack/Xdrop	É ¥ inst/É
			PRIM	Heap/Store self
		BRTR
		CMNT	 	rate 2
		LCAL	set rate	É ¥ É
	ESBR
	SGLB	Logic/Get Output	/2v,-100,100;%3.1f%%
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	1	É ¥ 1/inst/route/É
		LITO	2	É ¥ 2/1/inst/route/É
		CALL	354086
	ESBR
	SGLB	Logic/Get Ramp Time Select	/2t,Rate 1, Rate 2;rate state
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	1
		LITO	3
		CALL	354086
	ESBR
	SGLB	Logic/Get Ramp Time 1	/2v,-1000,1000,10,1000;Ramp Time = %4f.0 (s)
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	2
		LITO	3
		CALL	354086
	ESBR
	SGLB	Logic/Get Ramp Time 2	/2v,-1000,1000,10,1000;Ramp Time = %4f.0 (s)
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	3
		LITO	3
		CALL	354086
	ESBR
	SGLB	Logic/Get State	/2e,hold,raise,lower,contention hold
		CMNT	 	Expects:  É ¥ inst/route/É
		LITO	3	É ¥ 3/inst/route/É
		LITO	2	É ¥ 2/3/inst/route/É
		PRIM	S_tree/Read	É ¥ raise/inst/route/É
		PRIM	Stack/Swap	É ¥ inst/raise/route/É
		LITO	4	É ¥ 4/inst/raise/route/É
		LITO	2	É ¥ 2/4/inst/raise/route/É
		PRIM	S_tree/Read	É ¥ lower/inst/raise/route/É
		PRIM	Ordinal/Left	É ¥ lower'/inst/raise/route/É
		PRIM	Stack/Rotate down	É ¥ raise/lower'/inst/route/É
		PRIM	Ordinal/Add	É ¥ state/inst/route/É
		CALL	354056
	ESBR
ESTR
LDEF	send
	CMNT	 	Input:  É ¥ output/inst/É
	PRIM	Stack/Dup to aux	É/output ¥ output/inst/É
	GSYM	Output/#1	É/output ¥ #1/output/inst/É
	PRIM	Misc/Send entry	É/output ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ output/inst/É
	PRIM	Value/Negate	É ¥ inverted output/inst/É
	GSYM	Output/#2	É ¥ #2/inverted output/inst/É
	PRIM	Misc/Send entry	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	set and send
	CMNT	 	Input:  É ¥ output/inst/É
	PRIM	Stack/Dup down	É ¥ output/inst/output/É
	LITO	1	É ¥ 1/output/inst/output/É
	LITO	2	É ¥ 2/1/output/inst/output/É
	PRIM	S_tree/Replace	É ¥ inst/output/É
	PRIM	Stack/Swap	É ¥ output/inst/É
	LCAL	send
EDEF
LDEF	get rate
	CMNT	 	Input:  É ¥ rate 2?/inst/É
	CMNT	 	output: É ¥ rate/inst/É
	BRFL	 	get rate 1
		LITO	2
		LITO	3
		PRIM	S_tree/Read
	BRTR
	CMNT	 	get rate 2
	LITO	3
	LITO	3
	PRIM	S_tree/Read
EDEF
LDEF	set rate
	CMNT	 	Input:  É ¥ inst/rate/É
	PRIM	Stack/Swap	É ¥ rate/inst/É
	LITO	2
	LITO	2
	PRIM	S_tree/Replace	É ¥ inst/É
	PRIM	Heap/Store self
EDEF