1 |
|
#!/bin/csh -f |
2 |
< |
# SCCSid "$Id$ LBL" |
2 |
> |
# RCSid: $Id$ |
3 |
|
# |
4 |
|
# Generate a tree |
5 |
|
# Pine version 2 |
54 |
|
# |
55 |
|
# Next start seedling |
56 |
|
# |
57 |
< |
set tree=/usr/tmp/t$$ |
58 |
< |
set oldtree=/usr/tmp/ot$$ |
57 |
> |
set tree=/tmp/t$$ |
58 |
> |
set oldtree=/tmp/ot$$ |
59 |
|
set thisrad=.035 |
60 |
|
cat << _EOF_ > $tree |
61 |
|
|
62 |
|
void colorpict bark_pat |
63 |
< |
9 red green blue pinebark.pic cyl.cal cyl_match_u cyl_match_v -s $thisrad |
63 |
> |
9 red green blue pinebark.hdr cyl.cal cyl_match_u cyl_match_v -s $thisrad |
64 |
|
0 |
65 |
|
2 1.5225225 1 |
66 |
|
|
99 |
|
set move=`ev "(2*$aspect)^($i+1)"` |
100 |
|
set thisrad=`ev "$lastrad+$move*.015"` |
101 |
|
xform -ry `ev "25/($i+1)"` -t 0 0 $move $oldtree > $tree |
102 |
< |
echo void colorpict bark_pat 9 red green blue pinebark.pic \ |
102 |
> |
echo void colorpict bark_pat 9 red green blue pinebark.hdr \ |
103 |
|
cyl.cal cyl_match_u cyl_match_v -s $thisrad >> $tree |
104 |
|
echo 0 2 1.5225225 1 bark_pat alias my_bark_mat bark_mat >> $tree |
105 |
|
echo my_bark_mat cone level$i 0 0 8 0 0 0 0 0 \ |