home *** CD-ROM | disk | FTP | other *** search
/ Hackers Magazine 57 / CdHackersMagazineNr57.iso / Software / Multimedia / k3d-setup-0.7.11.0.exe / share / k3d / shaders / surface / k3d_map_pattern_1.sl < prev    next >
Encoding:
Text File  |  2008-01-23  |  1.7 KB  |  74 lines
  1. surface k3d_map_pattern_1 (
  2. string map1=""; 
  3. float channel1=4; 
  4. float swidth1=1; 
  5. float twidth1=1; 
  6. float samples1=1; 
  7. float ss1=1; 
  8. float tt1=1; 
  9. float txtscale=1; 
  10. color lightwood=color(0.69,0.44,0.25); 
  11. color darkwood=color(0.35,0.22,0.08); 
  12. float grainy=1; 
  13. float Ka = 1;
  14. float Kd = .5; 
  15. float Ks = .5; 
  16. float roughness = .1;
  17. color specularcolor = 1;
  18. ) 
  19. {
  20. /** Surface main-code start **/
  21.  
  22. /** Texture_Brick_1 **/
  23. color temt_c1;
  24. float temp_ss1;
  25. float temp_tt1;
  26. if (ss1 ==1) {temp_ss1=s;} else {temp_ss1=ss1;}
  27. if (tt1 ==1) {temp_tt1=t;} else {temp_tt1=tt1;}
  28. if ( map1=="" ) 
  29. {
  30. temt_c1=0;
  31. } 
  32. else
  33. {
  34. if (channel1 < 0 || channel1 > 3)
  35. {
  36. temt_c1=texture(map1,temp_ss1,temp_tt1,"swidth",swidth1,"twidth",twidth1,"samples",samples1);
  37. } 
  38. else 
  39. {
  40. temt_c1=texture(map1[channel1],temp_ss1,temp_tt1,"swidth",swidth1,"twidth",twidth1,"samples",samples1);
  41. }
  42. }
  43. /** ColorToFloat_Brick_3 **/
  44. float temp_f_3=(comp(temt_c1,0)+comp(temt_c1,1)+comp(temt_c1,2))/3;
  45. point PP, PQ;
  46. color Ct; 
  47. float r, r2;
  48. float my_t;
  49. color C_temp1;
  50.  
  51. PP = txtscale * transform ("shader", P);
  52.  
  53. my_t = zcomp(PP) / temp_f_3;
  54. PQ = point (xcomp(PP)*8, ycomp(PP)*8, zcomp(PP));
  55. my_t += noise (PQ) / 16;
  56.  
  57. PQ = point (xcomp(PP), my_t, ycomp(PP)+12.93);
  58. r = temp_f_3 * noise (PQ);
  59. r -= floor (r);
  60. r = 0.2 + 0.8 * smoothstep(0.2, 0.55, r) * (1 - smoothstep(0.75, 0.8, r));
  61.  
  62. PQ = point (xcomp(PP)*128+5, zcomp(PP)*8-3, ycomp(PP)*128+1);
  63. r2 = grainy * (1.3 - noise (PQ)) + (1-grainy);
  64.  
  65. Ct = mix (lightwood, darkwood, r*r2*r2);
  66.  
  67. /** Surface main-code end **/
  68. normal Nf = faceforward(normalize(N), I);
  69. C_temp1 = Os * (Cs * (Ka * ambient() + Kd * diffuse(Nf)) + specularcolor * Ks * specular(Nf, -normalize(I), roughness));
  70. Ci = mix (C_temp1, Ct, 0.5);
  71.   Oi = Os;
  72.   Ci *= Oi;
  73. }
  74.