"Marc-Hendrik Bremer" <Mar### [at] t-onlinede> wrote in message
news:3a8ae765@news.povray.org...
> Interesting! How is it done? Can you built a brick texture out of this -
> with less gradient than the build-in one? :-)
>
> Marc-Hendrik
>
>
It is actually a layered checker texture. Feel free to take a look at the
code.
About the brick I don't  know, I was trying to make cloth to begin with and
thought about how to make it look like a weave. The code is brand new for
today.

/* Starts here pov 3.1G */
light_source {<10,10,10> rgb 2}
camera {location <3,3,3> look_at <2,2,0>}

#declare Weav_Scale = <.05,.05,10>;
/* RBG Brightness for color maps (srtings) */
#declare Wb_1 = 0;
#declare Wb_2 = 0.3;
#declare Wb_3 = 0.5;
#declare Wb_4 = 1.0;
#declare Wb_5 = 0.5;
#declare Wb_6 = 0.3;
#declare Wb_7 = 0;

/* RGB Color for color maps (strings)*/

/*Horizontal Color */
#declare Wc_R1 = .5;
#declare Wc_G1 = 0;
#declare Wc_B1 = 1;

/* Vertical Color */
#declare Wc_R2 = 1;
#declare Wc_G2 = .2;
#declare Wc_B2 = .5;

/* Color Map Distances */
#declare Wd_1=0.00;
#declare Wd_2=0.05;
#declare Wd_3=0.25;
#declare Wd_4=0.50;
#declare Wd_5=0.75;
#declare Wd_6=0.95;
#declare Wd_7=1.00;

#declare Weav_String1=pigment{
 marble
 rotate <0,0,90>
        scale 2
 color_map{
    [Wd_1 rgbf <1,1,1,1>]
    [Wd_2 rgbf <1,1,1,1>]
    [Wd_2 rgb <Wc_R1 * Wb_2 ,Wc_G1 * Wb_2 ,Wc_B1 * Wb_2 >]
    [Wd_3 rgb <Wc_R1 * Wb_3 ,Wc_G1 * Wb_3 ,Wc_B1 * Wb_3 >]
    [Wd_4 rgb <Wc_R1 * Wb_4 ,Wc_G1 * Wb_4 ,Wc_B1 * Wb_4 >]
    [Wd_5 rgb <Wc_R1 * Wb_5 ,Wc_G1 * Wb_5 ,Wc_B1 * Wb_5 >]
    [Wd_6 rgb <Wc_R1 * Wb_6 ,Wc_G1 * Wb_6 ,Wc_B1 * Wb_6 >]
    [Wd_6 rgbf <1,1,1,1>]
    [Wd_7 rgbf <1,1,1,1>]
   }}

#declare Weav_String2=pigment{
 marble
 scale 2
 color_map{
    [Wd_1 rgbf <1,1,1,1>]
    [Wd_2 rgbf <1,1,1,1>]
    [Wd_2 rgb <Wc_R2 * Wb_2 ,Wc_G2 * Wb_2 ,Wc_B2 * Wb_2 >]
    [Wd_3 rgb <Wc_R2 * Wb_3 ,Wc_G2 * Wb_3 ,Wc_B2 * Wb_3 >]
    [Wd_4 rgb <Wc_R2 * Wb_4 ,Wc_G2 * Wb_4 ,Wc_B2 * Wb_4 >]
    [Wd_5 rgb <Wc_R2 * Wb_5 ,Wc_G2 * Wb_5 ,Wc_B2 * Wb_5 >]
    [Wd_6 rgb <Wc_R2 * Wb_6 ,Wc_G2 * Wb_6 ,Wc_B2 * Wb_6 >]
    [Wd_6 rgbf <1,1,1,1>]
    [Wd_7 rgbf <1,1,1,1>]
   }}




/* Bottom Layer */
#declare Weav_l1= texture{pigment { checker
  pigment {Weav_String2}
  ,
  pigment {Weav_String1}
  scale Weav_Scale
  }}
/*Top Layer*/
#declare Weav_l2= texture{ pigment {checker
  pigment {Weav_String1}
  ,
  pigment {Weav_String2}
  scale Weav_Scale
  }}
#declare Weav=
texture {pigment {rgb <1,1,0> }}
texture {Weav_l1}
texture {Weav_l2}




box { <-2,-2,-1>,<2,2,.2>
 texture {Weav rotate <45,45,0>}
}
sphere {<0,0,0>,1
 texture {Weav translate <-1,0,-1>}
rotate <0,0,45>
translate <-1,0,1>
}
background {rgb 1}

Post a reply to this message