1 |
greg |
3.1 |
#!/bin/csh -f |
2 |
|
|
# RCSid: $Id$ |
3 |
|
|
|
4 |
|
|
# Mark ambient locations J.Mardaljevic, [email protected] |
5 |
|
|
|
6 |
|
|
set ambdat=none |
7 |
|
|
set radius=0.05 |
8 |
|
|
|
9 |
|
|
alias readvar 'echo -n Enter \!:1 "[$\!:1]: ";set ans="$<";if("$ans" != "")set \!:1="$ans"' |
10 |
|
|
|
11 |
|
|
cat <<_EOF_ |
12 |
|
|
|
13 |
|
|
CREATE SCENE DESCRIPTION MARKERS FOR |
14 |
|
|
AMBIENT SAMPLING LOCATIONS |
15 |
|
|
|
16 |
|
|
This script puts coloured markers (spheres) at points where hemispherical |
17 |
|
|
sampling was initiated. The locations and levels are taken from the binary |
18 |
|
|
ambient file. The levels are colour coded - |
19 |
|
|
|
20 |
|
|
Level 0 = red |
21 |
|
|
Level 1 = green |
22 |
|
|
Level 2 = blue |
23 |
|
|
Level 3 = yellow |
24 |
|
|
Level 4 = cyan |
25 |
|
|
Level 5 = magenta |
26 |
|
|
Level 6 = pink |
27 |
|
|
|
28 |
|
|
To view the locations, include the file "amb_pos.rad" when re-creating |
29 |
|
|
the octree. |
30 |
|
|
|
31 |
|
|
_EOF_ |
32 |
|
|
|
33 |
|
|
echo "Input ambient file" |
34 |
|
|
readvar ambdat |
35 |
|
|
|
36 |
|
|
echo "Input marker sphere radius" |
37 |
|
|
readvar radius |
38 |
|
|
|
39 |
|
|
getinfo $ambdat |
40 |
|
|
lookamb -d -h $ambdat > af$$.tmp |
41 |
|
|
|
42 |
|
|
set red=(1 0 0 1 0 1 1) |
43 |
|
|
set grn=(0 1 0 1 1 0 0.5) |
44 |
|
|
set blu=(0 0 1 0 1 1 0.5) |
45 |
|
|
|
46 |
|
|
foreach j (1 2 3 4 5 6 7) |
47 |
|
|
|
48 |
|
|
@ i = $j - 1 |
49 |
|
|
|
50 |
|
|
rcalc -e 'cond=eq($7,'"$i"');eq(a,b)=if(a-b+1e-7,b-a+1e-7,-1);$1=$1;$2=$2;$3=$3' af$$.tmp > amb_pos_lev$i |
51 |
|
|
|
52 |
|
|
set empt=`wc -l < amb_pos_lev$i` |
53 |
|
|
|
54 |
|
|
if ($empt !~ 0) then |
55 |
|
|
|
56 |
|
|
echo "$empt ambient locations for level $i" |
57 |
|
|
|
58 |
|
|
cat > sph_lev$i.fmt << _EOF_ |
59 |
|
|
|
60 |
|
|
mat_lev$i sphere sph_lev$i.\${recno} |
61 |
|
|
0 |
62 |
|
|
0 |
63 |
|
|
4 \${ x1 } \${ y1 } \${ z1 } $radius |
64 |
|
|
_EOF_ |
65 |
|
|
|
66 |
|
|
cat >> amb_pos.rad << _EOF_ |
67 |
|
|
void plastic mat_lev$i |
68 |
|
|
0 |
69 |
|
|
0 |
70 |
|
|
5 $red[$j] $grn[$j] $blu[$j] 0 0 |
71 |
|
|
|
72 |
|
|
!rcalc -e 'x1=\$1;y1=\$2;z1=\$3' -o sph_lev$i.fmt amb_pos_lev$i |
73 |
|
|
|
74 |
|
|
_EOF_ |
75 |
|
|
|
76 |
|
|
else |
77 |
|
|
|
78 |
|
|
rm amb_pos_lev$i |
79 |
|
|
|
80 |
|
|
endif |
81 |
|
|
|
82 |
|
|
end |
83 |
|
|
|
84 |
|
|
rm af$$.tmp |