// +fn +f +a0.3 +am2 +r3

#version 3.7;
global_settings{
 assumed_gamma 1.0
}
#default{ finish{emission 0 ambient 0} }

camera{
 orthographic
 right x*2 up y*2
 location -2*z
 look_at 0
 scale 2
 aperture .001 focal_point 0 blur_samples 4 variance 0
}

light_source{
 <4, -1, -.25>, srgb 8*<1, .8, .6>
 fade_distance 1 fade_power 2
 #if(1)
  #declare ALRes = 2;
  #declare ALSize = .4;
  area_light x*ALSize, y*ALSize, ALRes, ALRes
  jitter
  adaptive 1
  area_illumination
 #end
}

// environment
#if(1)
 plane{z, .001}
 plane{y, -4 pigment{granite scale 20}}
 union{
  plane{z, -16}
  plane{y, 4}
  plane{x, 5}
  plane{x, -23}
  pigment{granite scale 20 poly_wave .1}
 }
#end

// better than mod(x, 1)
#declare Fract = function(x){ x-floor(x) }

// circle function
#declare F_Cir =
 function(x, y, R){
  min(1, max(0, -sqrt(pow(x, 2)+pow(y, 2))+R))
 }

// fleur-de-lis
#declare F =
 function{
  max(
   2*F_Cir(x+.3, y-.15, .5),
   1.13*min(
    F_Cir(x-.09, y+.1, .25),
    1-F_Cir(x-.29, y+.35, .2+1)
   )
  )
 }

// repeat the fleur-de-lis
#declare FRep = function{F(abs(Fract(x)-.5), (Fract(y/2)*2-.35), 0)}

// combine two tild flue-de-lis patterns, one offset
#declare FPattern =
 function{
  max(
   FRep(x, y, 0),
   FRep(x-.5, y-1, 0)
  )
 }

// fancy background pattern
#declare FPattern2 =
 function{
  pattern{
   pigment_pattern{
    pigment_pattern{
     crackle
     turbulence .2
     lambda 3
     #for(I, 0, 12)
      rotate z*38*I
      translate I*<.9, 1, .620>
      scale .9
      warp{repeat x flip x}
      warp{repeat y*4}
     #end
     scale .5
    }
    pigment_map{
     [.2 rgb 0]
     [.3 pigment_pattern{gradient y triangle_wave scale 2} poly_wave 2]
    }
   }
  }
 }

#declare FNoise =
 function{
  pattern{
   granite
   scale 7
   turbulence .3
   lambda 2.5
   frequency 8
   triangle_wave
  }
 }

// combine the functions
#declare FFinal =
 function{
  pow(
   max(
    FPattern(x, y, 0)-.005*FNoise(x, y, 0),
    max(
     .00027*FPattern2(x, y, 0),
     .00027*FPattern2(x+.5, y+1, 0)
    )
   ),
   .5
  )
 }

height_field{

 function
  //.3*image_width, .3*image_height{
  //.7*image_width, .7*image_height{
  image_width, image_height{
  FFinal(x*4, -y*4, 0)
 }

 smooth

 rotate x*270
 translate -.5*(x+y)
 scale <4, 4, .02>

 texture{
  function{FFinal(x, y, 0)}
  texture_map{
   [0
    pigment{rgb .035 * <1, .5, .2>}
    finish{
     diffuse .7
     specular 1 metallic 1 roughness .01
     reflection{
      .3
      metallic 1
     }
    }
    normal{granite .07 scale .001}
   ]
   [.02
    pigment{rgb .35 * <1, .5, .75>}
    finish{
     diffuse .7
     specular 1 metallic .5 roughness .01
     reflection{
      .3
      metallic 1
     }
    }
    normal{
     average
     normal_map{
      [1 function{FFinal(x, y, 0)} 5 accuracy .001]
      [1 granite .07 scale .001]
     }
    }
   ]
   [.03
    pigment{rgb <1, .7, .3>}
    finish{
     diffuse .3
     specular 1 metallic .5 roughness .01
     brilliance 1.3
     reflection{
      1
      metallic .8
     }
    }
    normal{
     average
     normal_map{
      [1 function{FFinal(x, y, 0)} accuracy .007]
      [1 granite .07 scale .001]
     }
    }
   ]
  }
 }
}

//rotate(p, a) vec2(p.x*cos(a)-p.y*sin(a), p.x*sin(a)+p.y*cos(a))

#if(0)
 union{
  //torus{1, LT rotate x*90}
  cylinder{-8*x, 8*x, LT}
  cylinder{-8*y, 8*y, LT}
  pigment{rgb .25*<1, .3, .1>}
 }
#end

Post a reply to this message

Attachments:
Download 'fleur-de-lis-pattern2m_23s.jpg' (296 KB)

Preview of image 'fleur-de-lis-pattern2m_23s.jpg'