home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 November / PCDIREKT_1198.bin / data / Multi / rdsdemo / STUDIO.Z / cfrml.DTA / STR#_32335.txt < prev    next >
Encoding:
Text File  |  1997-12-12  |  462 b   |  35 lines
  1. nu=u*(abs(p1)*29+1);
  2. nv=v*(abs(p2)*29+1);
  3. a=nu-floor(nu);
  4. b=nv-floor(nv);
  5. red=(a>0.5);
  6. green=(a>0.5)*(b>0.5);
  7. blue=(b>0.5);
  8.  
  9. red=(1+x)/2;
  10. green=(1+y)/2;
  11. blue=(1+z)/2;
  12.  
  13. dx=-x;
  14. dy=-y;
  15. dz=-z;
  16.  
  17. red=(1+sin(2*PI*(u+p1)))/2;
  18. green=v;
  19.  
  20. x=20*(u-0.5);
  21. y=20*(v-0.5);
  22. r=(x*x+y*y)/8;
  23. z=(1+p2)*6*cos(r+p1*PI)/(1+r);
  24.  
  25. a=2*x+PI/2;
  26. b=2*y+2*PI*p1;
  27. c=2*z+2*PI*p2;
  28. red=(1+sin(a))/2;
  29. green=(1+sin(b))/2;
  30. blue=(1+sin(c))/2;
  31.  
  32. u=(t-tmin)/(tmax-tmin);
  33. value=(1+sin(8*PI*p1*u+PI*p2))/2;
  34.  
  35.