/* 
On Thu, 02 Sep 1999 00:45:36 -0700, Ken wrote:
>
>
>Ron Parker wrote:
>
>> >Try a repeat warp on the pattern.
>> 
>> won't work.  The pattern he's talking about has roughly circular
>> boundaries, and a repeat warp will put noticeable straight lines
>> in the pattern.
>
>I think I will stop posting suggestions for the rest of the week. Suggestion
>burn out I suppose. Did anyone else just hear that crackling sound in my head ?

Looks like you were kinda right and I was kinda wrong.  I found a way to
use a repeat warp and not get any straight lines.  Render this scene.  Try
different values for Rings.  You are getting very sleepy...

John probably wants it as a normal, but that's relatively easy to accomplish.  
*/

#declare Rings=8;
                                      
#macro ScalesPigment( Map ) 
  #local Scale=pigment {wood color_map {Map} scale 2} pigment { wood 
  pigment_map {[1/sqrt(2) Scale scale .5/sqrt(2)][1/sqrt(2) Scale translate 1 
  scale .5/sqrt(2)]} scale sqrt(2) rotate 90*x warp {repeat z/2 flip z} warp 
  {repeat x/2 offset z/2}}
#end

#declare MyMap=color_map { 
  #declare i=0; 
  #while (i<=2*Rings-1) [i/(2*Rings-1) rgb mod(i,2)] #declare i=i+1; #end
}

camera {location 2 look_at 0}
plane {y,0 ScalesPigment( MyMap ) finish {ambient 1}}

Post a reply to this message