| 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 \ |
