The IDL procedure <tt>kgbox</tt>



next up previous contents
Next: The IDL procedure Up: 3D Redshift Space Visualization Previous: The IDL procedure

The IDL procedure kgbox

pro kgbox,rlo,rhi,ax,az,nosurf=nosurf
;
; make t3d transformation for a box with upper and lower boundary defined
; by rlo and rhi, turned the angles ax, az.
;
; done by Klaus Galsgaard
;
; name changes from box to kgbox (Bo, May 20, 1994)

	on_error,2

	if n_params() eq (0) then begin
		print
		print,'Procedure kgbox (was: box)'
		print
		print,'kgbox,rlo,rhi,ax,az,nosurf=nosurf'
		print,'rlo,rhi	: lower and upper boundary of box'
		print,'ax,az	: turning angles around x and z axis'
		print,'nosurf	: make a box with out changing t3d,' 
                print,'         : 1 - without tick marks, ne (0,1) make new t3d setup.'
                print,'         : 2 - make a setup with out real t3d + box and tick marks'
		return
	end

	if n_elements(ax) eq 0 then ax=30
	if n_elements(az) eq 0 then az=30

	x0=rlo(0) & x1=rhi(0)
	y0=rlo(1) & y1=rhi(1)
	z0=rlo(2) & z1=rhi(2)
	z=fltarr(2,2)
	z(0,*)=z0 & z(1,*)=z1

	if keyword_set(nosurf) eq 0 then begin
		erase
		t3dset,rlo,rhi,ax=ax,az=az,scale=.57,per=5
	    	surface,z,[x0,x1],[y0,y1],/nodata,/t3d
	endif else begin 
	  if nosurf eq 1 then begin
	    	plots,[x1,x0,x0,x0],[y0,y0,y1,y1],[z0,z0,z0,z1],/t3d,/data
	  endif else if nosurf eq 2 then begin
	    	surface,z,[x0,x1],[y0,y1],ax=ax,az=az,/nodata,/save
	  endif else begin
	    	t3dset,rlo,rhi,ax=ax,az=az,scale=.57,per=5
	    	return
	  endelse
	end
	plots,[x0,x1,x1],[y1,y1,y0],[z0,z0,z0],/t3d,/data
	plots,[x0,x1,x1],[y1,y1,y0],[z1,z1,z1],/t3d,/data
	plots,[x1,x1],[y1,y1],[z0,z1],/t3d,/data
	plots,[x1,x1],[y0,y0],[z0,z1],/t3d,/data
end



Bo Milvang-Jensen
Wed Jan 18 05:44:35 MET 1995