11 |
|
set label=Nits |
12 |
|
set scale=1000 |
13 |
|
set decades=0 |
14 |
– |
# set redv='1.6*v-.6' |
15 |
– |
# set grnv='if(v-.375,1.6-1.6*v,8/3*v)' |
16 |
– |
# set bluv='1-8/3*v' |
14 |
|
set redv='def_red(v)' |
15 |
|
set grnv='def_grn(v)' |
16 |
|
set bluv='def_blu(v)' |
37 |
|
case -s: |
38 |
|
shift argv |
39 |
|
set scale="$argv[1]" |
40 |
+ |
if ("$scale" =~ [aA]*) set needfile |
41 |
|
breaksw |
42 |
|
case -l: |
43 |
|
shift argv |
59 |
|
shift argv |
60 |
|
set bluv="$argv[1]" |
61 |
|
breaksw |
62 |
+ |
case -spec: |
63 |
+ |
shift argv |
64 |
+ |
set redv='1.6*v-.6' |
65 |
+ |
set grnv='if(v-.375,1.6-1.6*v,8/3*v)' |
66 |
+ |
set bluv='1-8/3*v' |
67 |
+ |
breaksw |
68 |
|
case -i: |
69 |
|
shift argv |
70 |
|
set picture="$argv[1]" |
102 |
|
shift argv |
103 |
|
end |
104 |
|
mkdir $td |
105 |
+ |
if ($?needfile && "$picture" == '-') then |
106 |
+ |
cat > $td/picture |
107 |
+ |
set picture=$td/picture |
108 |
+ |
endif |
109 |
+ |
if ("$scale" =~ [aA]*) then |
110 |
+ |
set LogLmax=`phisto $picture | tail -2 | sed -n '1s/ [0-9]*$//p'` |
111 |
+ |
set scale=`ev "$mult/179*10^$LogLmax"` |
112 |
+ |
endif |
113 |
|
cat > $td/pc0.cal <<_EOF_ |
114 |
|
PI : 3.14159265358979323846 ; |
115 |
|
scale : $scale ; |
183 |
|
set pc1args=($pc1args -e 'ra=0;ga=0;ba=0') |
184 |
|
else if ("$cpict" == "$picture") then |
185 |
|
set cpict= |
174 |
– |
endif |
175 |
– |
if ($?needfile && "$picture" == '-') then |
176 |
– |
cat > $td/picture |
177 |
– |
set picture=$td/picture |
186 |
|
endif |
187 |
|
if ("$decades" != "0") then |
188 |
|
set pc1args=($pc1args -e "map(x)=if(x-10^-$decades,log10(x)/$decades+1,0)") |