#version 3.1;

#include "colors.inc"

global_settings {
  assumed_gamma 1.0
}

light_source   {
  <3, 3, -30>*100
  color rgb 1
}
#declare Image = "fyr1_1.png"
#declare Scale = 1800/1179; // (original Y)/(original X)
#declare S = 15;
height_field {
  png Image
  smooth
  texture {
    pigment {
      image_map {
        png Image
        map_type 0
        interpolate 2
        once
      }
      rotate<90,0,0>
    }
  }
  translate <-.5,0,-.5>  
  scale <S*Scale,1,S>
  rotate x*-90
  #declare roto = false;
  #if(roto)
    rotate y*180
  #end
  scale (z*1.02)+(x+y)  //Note that it is in the z depth
  hollow
}

#declare siz = 0.1;

union {
  box {
    <0,0,0>,<2.4*siz,siz,siz>
    interior { ior 2 }
    pigment { colour rgb <1,.98,.98> transmit 1 }
    translate -2*siz*z
  }
  union {
    text {
      ttf "c:\win95\fonts\merlinn.ttf",
      "Spider", 1, 0         
      scale siz
      scale (x+y)*0.75+z
      rotate (y*-2)+(x*-2)+(z*-1)
    }
    text {
      ttf "c:\win95\fonts\merlinn.ttf",
      "Lighthouse", 1, 0         
      scale siz
      scale (x+y)*0.45+0.80*z
      rotate (y*-.5)+(x*-.5)+(z*-.1)
      translate 0.62*y*siz
    }
    translate -0.75*siz*z
    interior { ior 2.1}    
    pigment { colour rgb <1,1,0> transmit 0.9 }
  }
  scale <S*Scale,S,1>
  translate <-0.5*S*Scale,-0.5*S,0>
  normal {
    bumps 10
    frequency 0.50
    turbulence <1.30, 1.30, 1.25>
    octaves 30
    omega 1/30
    scale 1/10    
  }
  translate -z
}


camera {
  normal {
    gradient z
    sine_wave
    normal_map {
//      [0/4 ripples .008 frequency 15 turbulence <1.2, 1.3, 1.25> octaves 30
omega 1/30]
      [1/4 ripples .008 frequency 15 turbulence <1.30, 1.30, 1.25> octaves 30
omega 1/30]
      [2/4 waves .001 frequency 15 turbulence <1.20, 1.30, 1.35> octaves 30
omega 1/30]
      [3/4 waves .001 frequency 15 turbulence <1.25, 1.25, 1.20> octaves 30
omega 1/30]
      [4/4 ripples .008 frequency 15 turbulence <1.30, 1.20, 1.25> octaves 30
omega 1/30]
    }
//    ripples .008
//    waves .001
//    bumps 0.005
    scale 1/20
  }
  orthographic
  location  <0.0, 0, -S>
  direction 0.9*z
  right     Scale*S*x
  up        S*y
  look_at   <0.0, 0.0,  0.0>
}



-- 
//Spider 
( spi### [at] bahnhofse ) [ http://www.bahnhof.se/~spider/ ]
#declare life = rand(seed(42))*sqrt(-1);

Post a reply to this message