*! version SWS3/stb-2:gr3/stb-12:gr3.1  gr3 utility
program define _3daxout
	version 2.1
	mac def _n = _N
	mac def _n1 = _N + 1 
	mac def _new = _N + 4
	set obs %_new
	gen byte _Type = cond(_n>=%_n1,2,.)
	replace _x = cond(_n==%_n+1,1,0) in %_n1/l 
	replace _y = cond(_n<=%_n+2,1,0) in %_n1/l
	replace _z = cond(_n==%_n+4,1,0) in %_n1/l
end
exit
/*
	_3daxout [arguments ignored]
		adds "outside" axis to data.  The following data is added at
		end:
				input byte _Type _x _y _z
			1	2 1 1 0 
			2	2 0 1 0 
			3	2 0 0 0 
			4	2 0 0 1 
				end
*/