home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Raytrace & Morphing / SOS-RAYTRACE.ISO / programm / raytrace / radiance / lib / jigglepi.cal < prev    next >
Encoding:
Text File  |  1991-04-09  |  885 b   |  27 lines
  1. {
  2.     Calculation of randomly jiggled 2d picture coordinates.
  3.  
  4.     A1        - Degree of jiggleing.
  5.     A2        - Ratio of height to width for non-square tiles.
  6. }
  7.  
  8. jigglepic_u = Px + A1*noise3(Px+8.7,Py-31.2,Pz+44.4);
  9. jigglepic_v = Py + A1*noise3(Py-13.4,Py+11.7,Pz-33.8);
  10.  
  11. fjigglepic_u = Px + A1*fnoise3(Px+8.7,Py-31.2,Pz+44.4);
  12. fjigglepic_v = Py + A1*fnoise3(Py-13.4,Py+11.7,Pz-33.8);
  13.  
  14. jiggletile_u = mod(jigglepic_u,max(1,1/jgpic_aspect));
  15. jiggletile_v = mod(jigglepic_v,max(1,jgpic_aspect));
  16.  
  17. jigglematch_u = tri(jigglepic_u,max(1,1/jgpic_aspect));
  18. jigglematch_v = tri(jigglepic_v,max(1,jgpic_aspect));
  19.  
  20. fjiggletile_u = mod(fjigglepic_u,max(1,1/jgpic_aspect));
  21. fjiggletile_v = mod(fjigglepic_v,max(1,jgpic_aspect));
  22.  
  23. fjigglematch_u = tri(fjigglepic_u,max(1,1/jgpic_aspect));
  24. fjigglematch_v = tri(fjigglepic_v,max(1,jgpic_aspect));
  25.  
  26. jgpic_aspect = if(arg(0)-1.5, arg(2), 1);
  27.