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.1 by greg, Tue Nov 12 16:04:37 1991 UTC vs.
Revision 2.2 by greg, Sun Jan 5 18:14:47 1992 UTC

# Line 38 | Line 38 | onintr quit
38   set td=/usr/tmp/np$$
39   mkdir $td
40   cat > $td/coef.fmt << '_EOF_'
41 <   rm=${  $25   };    gm=${  $26   };    bm=${  $27   };
42 <  rcx=${   $1   };   gcx=${   $9   };   bcx=${  $17   };
43 <  rcy=${   $2   };   gcy=${  $10   };   bcy=${  $18   };
44 <  rsx=${   $3   };   gsx=${  $11   };   bsx=${  $19   };
45 <  rsy=${   $4   };   gsy=${  $12   };   bsy=${  $20   };
46 < rcxcy=${   $5   }; gcxcy=${  $13   }; bcxcy=${  $21   };
47 < rcxsy=${   $6   }; gcxsy=${  $14   }; bcxsy=${  $22   };
48 < rsxcy=${   $7   }; gsxcy=${  $15   }; bsxcy=${  $23   };
49 < rsxsy=${   $8   }; gsxsy=${  $16   }; bsxsy=${  $24   };
41 >   rm:${  $25   };    gm:${  $26   };    bm:${  $27   };
42 >  rcx:${   $1   };   gcx:${   $9   };   bcx:${  $17   };
43 >  rcy:${   $2   };   gcy:${  $10   };   bcy:${  $18   };
44 >  rsx:${   $3   };   gsx:${  $11   };   bsx:${  $19   };
45 >  rsy:${   $4   };   gsy:${  $12   };   bsy:${  $20   };
46 > rcxcy:${   $5   }; gcxcy:${  $13   }; bcxcy:${  $21   };
47 > rcxsy:${   $6   }; gcxsy:${  $14   }; bcxsy:${  $22   };
48 > rsxcy:${   $7   }; gsxcy:${  $15   }; bsxcy:${  $23   };
49 > rsxsy:${   $8   }; gsxsy:${  $16   }; bsxsy:${  $24   };
50   '_EOF_'
51   cat > $td/coef.cal << '_EOF_'
52   $1=$3*2*cx; $2=$3*2*cy; $3=$3*2*sx; $4=$3*2*sy;
# Line 61 | Line 61 | sx=sin(wx); sy=sin(wy);
61   wx=2*PI*($1+.5)/xres; wy=2*PI*($2+.5)/yres;
62   '_EOF_'
63   cat > $td/fsub.cal << '_EOF_'
64 + PI:3.14159265358979323846;
65   ro=ri(1)*rm/(rm+rcx*cx+rcy*cy+rsx*sx+rsy*sy
66                  +rcxcy*cx*cy+rcxsy*cx*sy+rsxcy*sx*cy+rsxsy*sx*sy);
67   go=gi(1)*gm/(gm+gcx*cx+gcy*cy+gsx*sx+gsy*sy
# Line 70 | Line 71 | bo=bi(1)*bm/(bm+bcx*cx+bcy*cy+bsx*sx+bsy*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 – PI=3.14159265358979323846;
74   '_EOF_'
75   foreach f ($*)
76          if ( $?verb ) then
# Line 102 | Line 102 | _EOF_
102                  cat $td/coef
103                  echo removing low frequencies...
104          endif
105 <        pcomb -f $td/fsub.cal -f $td/coef \
105 >        pcomb -f $td/coef -f $td/fsub.cal \
106                  -e "xres=$resolu[1];yres=$resolu[2]" \
107                  $td/pf > $td/hf
108          donefsub:

Diff Legend

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