*! version SWS3/stb-2:gr3/stb-12:gr3.1  gr3 utility
program define _3dshad
	version 2.1
	set output error
	save _work2, replace
	keep _x _y _z _Type
	drop if _Type!=.
	replace _Type=3
	replace _y = 0 
	_3dproj %D3lrot %D3lelev %D3ltilt
	rename _vy _shadow
	replace _vybase = . 
	append using _work2
	erase _work2.dta
	mac def S_FN 
end