The IDL procedure <tt>kgbox</tt>

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