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