ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/util/debugcal.csh
Revision: 2.2
Committed: Wed Mar 18 09:06:32 1992 UTC (32 years ago) by greg
Content type: application/x-csh
Branch: MAIN
Changes since 2.1: +4 -2 lines
Log Message:
added some missing variables

File Contents

# User Rev Content
1 greg 1.1 #!/bin/csh -f
2     # SCCSid "$SunId$ LBL"
3     #
4     # Script to debug cal files for Radiance
5     #
6     # Takes octree and rcalc options as arguments.
7     # One of the rcalc options should be -f calfile.
8     # Note that the material arguments A1, A2, etc must also be given.
9     # Input is a ray origin and direction, such as that produced by ximage.
10     #
11     if ( $#argv < 2 ) then
12 greg 2.2 echo "Usage: $0 octree [rcalc options]"
13 greg 1.1 exit 1
14     endif
15     if ( ! $?RAYPATH ) then
16     set RAYPATH=.:/usr/local/lib/ray
17     endif
18     set initfile=
19     foreach d (`echo $RAYPATH | sed 's/:/ /g'`)
20     if ( -r $d/rayinit.cal ) then
21     set initfile="-f $d/rayinit.cal"
22     break
23     endif
24     end
25    
26 greg 2.2 rtrace -h- -x 1 -odnpl $1 | rcalc -e 'Dx=$1;Dy=$2;Dz=$3' \
27 greg 1.1 -e 'Nx=$4;Ny=$5;Nz=$6;Px=$7;Py=$8;Pz=$9' \
28 greg 2.2 -e 'T=$10;Ts=T' -e 'S:1;Tx:0;Ty:0;Tz:0' \
29     -e 'Ix:1;Iy:0;Iz:0;Jx:0;Jy:1;Jz:0;Kx:0;Ky:0;Kz:1' \
30 greg 1.1 -e 'Rdot=-Dx*Nx-Dy*Ny-Dz*Nz' $initfile $argv[2-]:q