ViewVC Help
View File | Revision Log | Show Annotations | Download File | Root Listing
root/radiance/ray/src/px/normpat.csh
(Generate patch)

Comparing ray/src/px/normpat.csh (file contents):
Revision 2.2 by greg, Sun Jan 5 18:14:47 1992 UTC vs.
Revision 2.3 by greg, Wed Jun 2 15:49:27 1993 UTC

# Line 58 | Line 58 | $21=$5*4*cx*cy; $22=$5*4*cx*sy; $23=$5*4*sx*cy; $24=$5
58   $25=$3; $26=$4; $27=$5;
59   cx=cos(wx); cy=cos(wy);
60   sx=sin(wx); sy=sin(wy);
61 < wx=2*PI*($1+.5)/xres; wy=2*PI*($2+.5)/yres;
61 > wx=2*PI/xres*($1+.5); wy=2*PI/yres*($2+.5);
62   '_EOF_'
63   cat > $td/fsub.cal << '_EOF_'
64   PI:3.14159265358979323846;
# Line 70 | Line 70 | bo=bi(1)*bm/(bm+bcx*cx+bcy*cy+bsx*sx+bsy*sy
70                  +bcxcy*cx*cy+bcxsy*cx*sy+bsxcy*sx*cy+bsxsy*sx*sy);
71   cx=cos(wx); cy=cos(wy);
72   sx=sin(wx); sy=sin(wy);
73 < wx=2*PI*(x+.5)/xres; wy=2*PI*(y+.5)/yres;
73 > wx=2*PI/xres*(x+.5); wy=2*PI/yres*(y+.5);
74   '_EOF_'
75   foreach f ($*)
76          if ( $?verb ) then
# Line 95 | Line 95 | _EOF_
95                  echo computing Fourier coefficients...
96          endif
97          pfilt -1 -x 32 -y 32 $td/pf | pvalue -h \
98 <                | rcalc -f $td/coef.cal -e 'xres=32;yres=32' \
98 >                | rcalc -e 'xres:32;yres:32' -f $td/coef.cal \
99                  | total -m | rcalc -o $td/coef.fmt \
100                  > $td/coef
101          if ( $?verb ) then
102                  cat $td/coef
103                  echo removing low frequencies...
104          endif
105 <        pcomb -f $td/coef -f $td/fsub.cal \
106 <                -e "xres=$resolu[1];yres=$resolu[2]" \
107 <                $td/pf > $td/hf
105 >        pcomb -f $td/coef -f $td/fsub.cal $td/pf > $td/hf
106          donefsub:
107          if ( $?blend ) then
108                  if ( $?verb ) then

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines