| 12 |
|
switch ($argv[1]) |
| 13 |
|
case -r: |
| 14 |
|
shift argv |
| 15 |
< |
set pf="$pf -x $argv[1] -y $argv[1] -p 1" |
| 15 |
> |
set pf="$pf -x $argv[1] -y $argv[1] -p 1 -r .67" |
| 16 |
|
breaksw |
| 17 |
|
case -f: |
| 18 |
|
set ha="$ha -f" |
| 111 |
|
echo blending edges... |
| 112 |
|
endif |
| 113 |
|
@ mar= $resolu[1] - 3 |
| 114 |
< |
pcompos -x 3 $td/hf 0 0 > $td/left |
| 115 |
< |
pcompos $td/hf -$mar 0 > $td/right |
| 114 |
> |
@ les= $resolu[1] - 1 |
| 115 |
> |
pcompos -x 1 $td/hf 0 0 | pfilt -1 -x 3 > $td/left |
| 116 |
> |
pcompos $td/hf -$les 0 | pfilt -1 -x 3 > $td/right |
| 117 |
|
pcomb -e 'ro=f(ri);go=f(gi);bo=f(bi)' \ |
| 118 |
|
-e 'f(p)=(3-x)/7*p(1)+(4+x)/7*p(2)' \ |
| 119 |
|
$td/right $td/left > $td/left.patch |
| 123 |
|
pcompos $td/hf 0 0 $td/left.patch 0 0 $td/right.patch $mar 0 \ |
| 124 |
|
> $td/hflr |
| 125 |
|
@ mar= $resolu[2] - 3 |
| 126 |
< |
pcompos -y 3 $td/hflr 0 0 > $td/bottom |
| 127 |
< |
pcompos $td/hflr 0 -$mar > $td/top |
| 126 |
> |
@ les= $resolu[2] - 1 |
| 127 |
> |
pcompos -y 1 $td/hflr 0 0 | pfilt -1 -y 3 > $td/bottom |
| 128 |
> |
pcompos $td/hflr 0 -$les | pfilt -1 -y 3 > $td/top |
| 129 |
|
pcomb -e 'ro=f(ri);go=f(gi);bo=f(bi)' \ |
| 130 |
|
-e 'f(p)=(3-y)/7*p(1)+(4+y)/7*p(2)' \ |
| 131 |
|
$td/top $td/bottom > $td/bottom.patch |
