*! version SWS3/stb-2:gr3/stb-12:gr3.1  gr3 utility
program define gr3use
	version 2.1
	mac def _using "req noprefix"
	mac def _options "CLEAR"
	parse "using %_*"
	use %_using`.3d, %_clear
	capture conf var _vy _vyy _vx
	if _rc { 
		di in blu "Warning:  %_using does not contain 3d graph data"
		exit 607 	/* new but in sequence */
	}
	mac def _l : variable label _vy
	parse "%_l", parse(" ")
	if "%_1"!="_3d" { 
		di in red "%_using invalid 3d graph data"
		exit 607
	}
	mac def D3lrot "%_2"
	mac def D3lelev "%_3"
	mac def D3ltilt "%_4"
end
exit
/*
	gr3use filename

	End-user command to use 3d-data saved in filename.
	Also see gr3save.
*/