* see comments at end-of-file

program define _3drproj
version 2.1
	capture confirm var _shadow 
	if _rc==0 { 
		drop if _Type==3
		drop _shadow 
		_3drproj %_1 %_2 %_3
		_3dshad
		exit
	}
	_3dproj %_1 %_2 %_3
	capture drop _vyy _vyl
	gen _vyy=_vy if _Type==2
	gen _vyl=_vy if _Type==4
	replace _vy=. if _Type!=. 
	replace _vybase=. if _Type!=. 
	format _vyy %2.0f
	label var _vy "_3d %D3lrot %D3lelev %D3ltilt"
	label data "_3d"
	mac def S_FN 
end
exit
/*
	_3drproj [rotation [elevation [tilt]]]

		utility routine to reproject at the specified angles.
		caller should make arrangements to capture break key.
*/