| 60 |
|
set bluv="$argv[1]" |
| 61 |
|
breaksw |
| 62 |
|
case -spec: |
| 63 |
< |
set redv='1.6*v-.6' |
| 64 |
< |
set grnv='if(v-.375,1.6-1.6*v,8/3*v)' |
| 65 |
< |
set bluv='1-8/3*v' |
| 63 |
> |
set redv='old_red(v)' |
| 64 |
> |
set grnv='old_grn(v)' |
| 65 |
> |
set bluv='old_blu(v)' |
| 66 |
|
breaksw |
| 67 |
|
case -i: |
| 68 |
|
shift argv |
| 121 |
|
clip(x) : if(x-1,1,if(x,x,0)); |
| 122 |
|
frac(x) : x - floor(x); |
| 123 |
|
boundary(a,b) : neq(floor(ndivs*a+.5),floor(ndivs*b+.5)); |
| 124 |
+ |
|
| 125 |
+ |
old_red(x) = 1.6*x - .6; |
| 126 |
+ |
old_grn(x) = if(x-.375, 1.6-1.6*x, 8/3*x); |
| 127 |
+ |
old_blu(x) = 1 - 8/3*x; |
| 128 |
|
|
| 129 |
|
interp_arr2(i,x,f):(i+1-x)*f(i)+(x-i)*f(i+1); |
| 130 |
|
interp_arr(x,f):if(x-1,if(f(0)-x,interp_arr2(floor(x),x,f),f(f(0))),f(1)); |
