STRE
	SGLB	Misc/Class Reference
		CLAS	354037
	ESBR
ESTR
STRE
	SGLB	Misc/Superclass Reference
		CLAS	354008
	ESBR
	SGLB	General/Initialize
		CMNT	 	Expects:  É ¥ inst/É
		CMNT	 	---- Initialize the video hardware
		ASIO	OpStn/INIT_VID	É ¥ inst/É
		LITO	6	index
		LITO	8	key
		PRIM	S_tree/Read	É ¥ initial D ratio/inst/É
		LITO	7
		LITO	7
		PRIM	S_tree/Replace	É ¥ inst/É
		LITO	4
		LITO	8
		PRIM	S_tree/Read	É ¥ cal z limit/inst/É
		LITO	2
		LITO	7
		PRIM	S_tree/Replace	É ¥ inst/É
		LCAL	init touch	É ¥ inst/É
		CMNT	 	---- start the loop
		PRIM	Timer/Get PAT	É ¥ time/inst/É
		PRIM	Stack/Swap	É ¥ inst/time/É
		GSYM	OpStn/Trigger	É ¥ method/inst/time/É
		CLAS	354037	delegate to self trigger
	ESBR
	SGLB	OpStn/Trigger
		CMNT	 	Expects:  É ¥ inst/time/É
		CMNT	 	---- requeue trigger
		PRIM	Stack/Swap	É ¥ time/inst/É
		TIME	300.000	É ¥ Æt/time/inst/É
		GSYM	OpStn/Trigger	É ¥ method/Æt/time/inst/É
		CALL	354057	É ¥ inst/É
		CMNT	 	---- process touch
		LCAL	read touch	É ¥ [touch]/raw y/raw x/inst/É
		BRFL
			CMNT	 	are not touching
			PRIM	Stack/Drop	É ¥ raw x/inst/É
			PRIM	Stack/Drop	É ¥ inst/É
			LITO	1	index
			LITO	8	key
			PRIM	S_tree/Read	É ¥ touch state/inst/É
			BRFL
				CMNT	 	are not & were not touching
				LCAL	set cal sprite
				PRIM	Heap/Store self
			BRTR
			CMNT	 	are not but were touching
			CMNT	 	switch state
			LITO	0	now not touching
			LITO	1
			LITO	8
			PRIM	S_tree/Replace	É ¥ inst/É
			LCAL	init touch	É ¥ inst/É
			LITO	2	index
			LITO	8	key
			PRIM	S_tree/Read	É ¥ cal state/inst/É
			CMNT
			STRE
				SORD	0	released Z Force
					LITO	1	É ¥ new state/inst/É
					LCAL	Set State
				ESBR
				SORD	1	released upper left
					LITO	2	É ¥ new state/inst/É
					LCAL	Set State
				ESBR
				SORD	2	released lower right
					LITO	3
					LITO	8
					PRIM	S_tree/Read	É ¥ [prev passed]/inst/É
					BRFL
						LITO	1	É ¥ new state/inst/É
						LCAL	Set State
					BRTR
					LITO	3	É ¥ new state/inst/É
					LCAL	Set State
				ESBR
				SORD	3	released in done state
					PRIM	Heap/Store self	É ¥ É
				ESBR
			ESTR
		BRTR
		CMNT	 	are touching
		PRIM	Stack/Pop to aux	É/raw y ¥ raw x/inst/É
		PRIM	Stack/Pop to aux	É/raw y/raw x ¥ inst/É
		LITO	1
		LITO	8
		PRIM	S_tree/Read	É/y/x ¥ touch state/inst/É
		BRFL
			CMNT	 	are touching but were not
			LITO	1	set are touching
			LITO	1
			LITO	8
			PRIM	S_tree/Replace	É/y/x ¥ inst/É
			LITO	2	index
			LITO	8	key
			PRIM	S_tree/Read	É/y/x ¥ cal state/inst/É
			CMNT
			STRE
				SORD	0	PRESSED Z Force
					PRIM	Stack/Drop from aux	É/y ¥ inst/É
					PRIM	Stack/Drop from aux	É ¥ inst/É
					PRIM	Heap/Store self	É ¥ É
				ESBR
				SORD	1	PRESSED upper left
					PRIM	Stack/Push from aux	É/y ¥ x/inst/É
					PRIM	Stack/Dup from aux	É/y ¥ y/x/inst/É
					PRIM	Stack/Over	É/y ¥ x/y/x/inst/É
					PRIM	Stack/Pop to aux	É/y/x ¥ y/x/inst/É
					LITO	1	É/y/x ¥ true/y/x/inst/É
					ASIO	OpStn/GET_TOUCH	É/y/x ¥ true/y pixel/x pixel/inst/É
					PRIM	Stack/Drop	É/y/x ¥ y pixel/x pixel/inst/É
					PRIM	Stack/Pop to aux
					PRIM	Stack/Pop to aux	É/y/x/y pixel/x pixel ¥ inst/É
					LITO	2	index
					LITO	8	key
					PRIM	S_tree/Read	É/y/x/y pixel/x pixel ¥ cal state/inst/É
					LCAL	in bounds	É/y/x ¥ [within tol]/inst/É
					PRIM	Stack/Dup to aux	É/y/x/[within tol] ¥ [within tol]/inst/É
					LITO	3	set previous passed TRUE if within tol
					LITO	8
					PRIM	S_tree/Replace	É/y/x/[within tol] ¥ inst/É
					PRIM	Stack/Push from aux	É/y/x ¥ [within tol]/inst/É
					BRFL
						LITO	1	É/y/x ¥ cal state/inst/É
						LCAL	Get Position	É/y/x ¥ target y/target x/inst/É
						PRIM	Stack/Push from aux	É/y ¥ x/target y/target x/inst/É
						PRIM	Stack/Rotate up	É/y ¥ target y/target x/x/inst/É
						PRIM	Stack/Push from aux	É ¥ y/target y/target x/x/inst/É
						PRIM	Stack/Rotate up	É ¥ target y/target x/y/x/inst/É
						ASIO	OpStn/GET_LOW	É ¥ yMIN/xMIN/inst/É
						PRIM	Stack/Pop to aux	É/yMIN ¥ xMIN/inst/É
						LITO	5
						LITO	7
						PRIM	S_tree/Replace	É/yMIN ¥ inst/É
						PRIM	Stack/Push from aux
						LITO	3
						LITO	7
						PRIM	S_tree/Replace	É ¥ inst/É
						LCAL	init touch	É ¥ inst/É
						PRIM	Heap/Store self	É ¥ É
					BRTR
					PRIM	Stack/Drop from aux	É/y ¥ inst/É
					PRIM	Stack/Drop from aux	É ¥ inst/É
					PRIM	Heap/Store self	É ¥ É
				ESBR
				SORD	2	PRESSED lower right
					PRIM	Stack/Push from aux	É/y ¥ x/inst/É
					PRIM	Stack/Dup from aux	É/y ¥ y/x/inst/É
					PRIM	Stack/Over	É/y ¥ x/y/x/inst/É
					PRIM	Stack/Pop to aux	É/y/x ¥ y/x/inst/É
					LITO	1	É/y/x ¥ true/y/x/inst/É
					ASIO	OpStn/GET_TOUCH	É/y/x ¥ true/y pixel/x pixel/inst/É
					PRIM	Stack/Drop	É/y/x ¥ y pixel/x pixel/inst/É
					PRIM	Stack/Pop to aux
					PRIM	Stack/Pop to aux	É/y/x/y pixel/x pixel ¥ inst/É
					LITO	2	index
					LITO	8	key
					PRIM	S_tree/Read	É/y/x/y pixel/x pixel ¥ cal state/inst/É
					LCAL	in bounds	É/y/x ¥ [within tol]/inst/É
					PRIM	Stack/Swap	É/y/x ¥ inst/[within tol]/É
					LITO	3
					LITO	8
					PRIM	S_tree/Read	É/y/x ¥ [prev passed]/inst/[within tol]/É
					PRIM	Stack/Rotate down	É/y/x ¥ [within tol]/[prev passed]/inst/É
					PRIM	Stack/Dup to aux	É/y/x/[within tol] ¥ [within tol]/[prev passed]/inst/É
					PRIM	Ordinal/And	É/y/x/[within tol] ¥ [both passed]/inst/É
					LITO	3	SET passed flag
					LITO	8
					PRIM	S_tree/Replace	É/y/x/[within tol] ¥ inst/É
					PRIM	Stack/Push from aux	É/y/x ¥ [within tol]/inst/É
					BRFL
						LITO	2	É/y/x ¥ cal state/inst/É
						LCAL	Get Position	É/y/x ¥ target y/target x/inst/É
						PRIM	Stack/Push from aux	É/y ¥ x/target y/target x/inst/É
						PRIM	Stack/Rotate up	É/y ¥ target y/target x/x/inst/É
						PRIM	Stack/Push from aux	É ¥ y/target y/target x/x/inst/É
						PRIM	Stack/Rotate up	É ¥ target y/target x/y/x/inst/É
						ASIO	OpStn/GET_HIGH	É ¥ yMAX/xMAX/inst/É
						PRIM	Stack/Pop to aux	É/yMIN ¥ xMIN/inst/É
						LITO	6
						LITO	7
						PRIM	S_tree/Replace	É/yMIN ¥ inst/É
						PRIM	Stack/Push from aux
						LITO	4
						LITO	7
						PRIM	S_tree/Replace	É ¥ inst/É
						LCAL	init touch	É ¥ inst/É
						PRIM	Heap/Store self	É ¥ É
					BRTR
					PRIM	Stack/Drop from aux	É/y ¥ inst/É
					PRIM	Stack/Drop from aux	É ¥ inst/É
					PRIM	Heap/Store self	É ¥ É
				ESBR
				SORD	3	PRESSED in done state
					PRIM	Stack/Drop from aux
					PRIM	Stack/Drop from aux	É ¥ inst/É
					PRIM	Heap/Store self	É ¥ É
				ESBR
			ESTR
		BRTR
		CMNT	 	are & were touching
		CMNT	 	track movement
		PRIM	Stack/Push from aux	É/raw y ¥ raw x/inst/É
		PRIM	Stack/Push from aux	É ¥ raw y/raw x/inst/É
		LITO	1	É ¥ true/raw y/raw x/inst/É
		ASIO	OpStn/GET_TOUCH	É ¥ true/y pixel/x pixel/inst/É
		ASIO	OpStn/SCREEN_SPRITE
		PRIM	Stack/Drop
		PRIM	Stack/Drop
		PRIM	Stack/Drop	É ¥ inst/É
		PRIM	Heap/Store self
	ESBR
ESTR
LDEF	init touch
	CMNT	 	given instance, inits read screen ASIO
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	0	index
	LITO	7	key
	PRIM	S_tree/Read	É ¥ list/inst/É
	PRIM	List/Behead	É ¥ last touched/list/inst/É
	PRIM	Stack/Drop	É ¥ list/inst/É
	ASIO	OpStn/INIT_TOUCH	É ¥ list/inst/É
	PRIM	Stack/Drop	É ¥ inst/É
EDEF
LDEF	set cal sprite
	CMNT	 	given instance, displays cal sprite
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ inst/É
	LITO	2	index
	LITO	8	key
	PRIM	S_tree/Read	É ¥ cal state/inst/É
	LITO	3
	PRIM	Ordinal/Compare	É ¥ [3 <= cal state]/cal state/inst/É
	BRFL
		CMNT	 	not done yet
		LCAL	Get Position	É ¥ target y/target x/inst/É
		LITO	1	On
		ASIO	OpStn/SCREEN_SPRITE	É ¥ [OnOff]/y/x/inst/É
		PRIM	Stack/Drop
		PRIM	Stack/Drop
		PRIM	Stack/Drop	É ¥ inst/É
	BRTR
	CMNT	 	done state
	LITO	0	x
	LITO	0	y
	LITO	0	Off
	ASIO	OpStn/SCREEN_SPRITE	É ¥ [OnOff]/y/x/cal state/inst/É
	PRIM	Stack/Drop
	PRIM	Stack/Drop
	PRIM	Stack/Drop
	PRIM	Stack/Drop	É ¥ inst/É
EDEF
LDEF	Get Position
	CMNT	 	given cal state & instance, returns Y & X target
	CMNT	 	Input:  É ¥ cal state/inst/É
	CMNT	 	Output:  É ¥ target y/target x/inst/É
	PRIM	Stack/Pop to aux	É/cal state ¥ inst/É
	LITO	0
	LITO	9
	PRIM	S_tree/Read	É/cal state ¥ positions/inst/É
	LITO	1
	PRIM	Stack/Dup from aux	Écal state ¥ cal state/1/positions/inst/É
	PRIM	S_tree/Read	Écal state ¥ target x/positions/inst/É
	PRIM	Stack/Swap	Écal state ¥ positions/target x/inst/É
	LITO	2
	PRIM	Stack/Push from aux	É ¥ cal state/2/positions/target x/inst/É
	PRIM	S_tree/Read	É ¥ target y/positions/target x/inst/É
	PRIM	Stack/Xdrop	É ¥ target y/target x/inst/É
EDEF
LDEF	Set State
	CMNT	 	given new state & instance, sets the cal state
	CMNT	 	Input:  É ¥ new cal state/inst/É
	CMNT	 	Output:  É ¥ É
	LITO	2	index
	LITO	8	key
	PRIM	S_tree/Replace	É ¥ inst/É
	PRIM	Heap/Store self
EDEF
LDEF	delta
	CMNT	 	given 2 ordinals, returns absolute difference
	CMNT	 	Input:  É ¥ a/b/É
	CMNT	 	Output:  É ¥ difference/É
	PRIM	Ordinal/Reverse compare	É ¥ [a => b]/a/b/É
	BRFL
		PRIM	Ordinal/Subtract
	BRTR
	PRIM	Ordinal/Difference
EDEF
LDEF	in bounds
	CMNT	 	given cal state and x & y pixels, returns true if within tolerance
	CMNT	 	Input:  Éy pixel/x pixel ¥ cal state/inst/É
	CMNT	 	Output:  É ¥ [within tol]/inst/É
	LCAL	Get Position	É/y pixel/x pixel ¥ target y/target x/inst/É
	PRIM	Stack/Swap	É/y pixel/x pixel ¥ target x/target y/inst/É
	PRIM	Stack/Push from aux	É/y pixel ¥ x pixel/target x/target y/inst/É
	LCAL	delta	É/y pixel ¥ x error/target y/inst/É
	PRIM	Stack/Swap	É/y pixel ¥ target y/x error/inst/É
	PRIM	Stack/Push from aux	É ¥ y pixel/target y/x error/inst/É
	LCAL	delta	É ¥ y error/x error/inst/É
	PRIM	Stack/Pop to aux
	PRIM	Stack/Pop to aux	É/y error/x error ¥ inst/É
	LITO	5
	LITO	8
	PRIM	S_tree/Read	É/y error/x error ¥ /tol/inst/É
	PRIM	Stack/Push from aux	É/y error ¥ x error/tol/inst/É
	PRIM	Ordinal/Compare	É/y error ¥ [x error <= tol]/tol/inst/É
	PRIM	Stack/Swap	É/y error ¥ tol/[x error <= tol]/inst/É
	PRIM	Stack/Push from aux	É ¥ y error/tol/[x error <= tol]/inst/É
	PRIM	Ordinal/Compare	É ¥ [y error <= tol]/tol/[x error <= tol]/inst/É
	PRIM	Stack/Xdrop	É ¥ [y error <= tol]/[x error <= tol]/inst/É
	PRIM	Ordinal/And	É ¥ [within tol]/inst/É
EDEF
LDEF	read touch
	CMNT	 	given instance, tests the touch screen if in state 0 and
	CMNT
	CMNT	 	does normal read screen if not in state 0.
	CMNT	 	Input:  É ¥ inst/É
	CMNT	 	Output:  É ¥ [touch]/raw y/raw x/inst/É
	LITO	2	index
	LITO	8	key
	PRIM	S_tree/Read	É ¥ cal state/inst/É
	PRIM	Ordinal/Test zero	É ¥ [in state 0]/inst/É
	BRFL
		CMNT
		ASIO	OpStn/READ_SCREEN	É ¥ [touch]/y/x/inst/É
	BRTR
	CMNT
	LITO	2
	LITO	7
	PRIM	S_tree/Read	É ¥ Z Limit/inst/É
	PRIM	Stack/Pop to aux	É/Z Limit ¥ inst/É
	ASIO	OpStn/TEST_SCREEN	É/Z Limit ¥ D ratio/z/inst/É
	PRIM	Stack/Swap	É/Z Limit ¥ z/D ratio/inst/É
	PRIM	Stack/Push from aux	É ¥ Z Limit/z/D ratio/inst/É
	PRIM	Ordinal/Compare	É ¥ [Z Limit <= z]/z/D ratio/inst/É
	BRFL
		CMNT
		CMNT
		PRIM	Stack/Second to aux	É/D ratio ¥ z/inst/É
		LITO	2
		LITO	7
		PRIM	S_tree/Replace	É/D ratio ¥ inst/É
		PRIM	Stack/Push from aux	É ¥ D ratio/inst/É
		LITO	7
		LITO	7
		PRIM	S_tree/Replace	É ¥ inst/É
		ASIO	OpStn/READ_SCREEN	É ¥ [touch]/y/x/inst/É
	BRTR
	CMNT
	CMNT
	PRIM	Stack/Drop	É ¥ D ratio/inst/É
	PRIM	Stack/Drop	É ¥ inst/É
	ASIO	OpStn/READ_SCREEN	É ¥ [touch]/y/x/inst/É
EDEF