| Revision: | 2.3 |
| Committed: | Tue Jan 18 03:59:41 2005 UTC (19 years, 3 months ago) by greg |
| Content type: | application/x-csh |
| Branch: | MAIN |
| CVS Tags: | rad5R4, rad5R2, rad4R2P2, rad5R0, rad5R1, rad3R7P2, rad3R7P1, rad4R2, rad4R1, rad4R0, rad3R8, rad3R9, rad4R2P1, rad5R3, HEAD |
| Changes since 2.2: | +3 -3 lines |
| Log Message: | Created pmdblur script and added DBLUR variable to ranimate |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | greg | 2.1 | #!/bin/csh -f |
| 2 | greg | 2.3 | # RCSid: $Id: pmblur.csh,v 2.2 2003/02/22 02:07:27 greg Exp $ |
| 3 | greg | 2.1 | # |
| 4 | # Generate views for motion blurring on picture | ||
| 5 | # | ||
| 6 | if ($#argv != 4) then | ||
| 7 | greg | 2.3 | echo "Usage: $0 speed nsamp v0file v1file" |
| 8 | greg | 2.1 | exit 1 |
| 9 | endif | ||
| 10 | set s = "$1" | ||
| 11 | set n = "$2" | ||
| 12 | set vc = "$3" | ||
| 13 | set vn = "$4" | ||
| 14 | cnt $n | rcalc -e `vwright C < $vc` -e `vwright N < $vn` \ | ||
| 15 | -e "t=$s/$n"'*($1+rand($1))' \ | ||
| 16 | -e 'opx=(1-t)*Cpx+t*Npx;opy=(1-t)*Cpy+t*Npy;opz=(1-t)*Cpz+t*Npz' \ | ||
| 17 | greg | 2.3 | -e 'odx=(1-t)*Cdx*Cd+t*Ndx*Nd;ody=(1-t)*Cdy*Cd+t*Ndy*Nd;odz=(1-t)*Cdz*Cd+t*Ndz*Nd' \ |
| 18 | greg | 2.1 | -e 'oux=(1-t)*Cux+t*Nux;ouy=(1-t)*Cuy+t*Nuy;ouz=(1-t)*Cuz+t*Nuz' \ |
| 19 | -e 'oh=(1-t)*Ch+t*Nh;ov=(1-t)*Cv+t*Nv' \ | ||
| 20 | -o 'VIEW= -vp ${opx} ${opy} ${opz} -vd ${odx} ${ody} ${odz} -vu ${oux} ${ouy} ${ouz} -vh ${oh} -vv ${ov}' |