1. include "colors.inc"
2. include "textures.inc"
3. include "shapes.inc"
4. include "metals.inc"
5. include "skies.inc"
6. include "stars.inc"

camera {

//location <0,1,-100> //look_at <0,1,0>

/*

location <0,30,-75>

look_at <0,30,0>

• /

location <0,1,-50> look_at <0,20,0>

}

/*

light_source {

   <1000,1000,-1000>*1000
   color White

}

*/

sky_sphere {

  pigment {
   //    color rgb <0.9,0.9,1>
   color rgb Black
  }

}

/* sphere{ <0,0,0>, 1

       texture{ Starfield1 scale 0.25
              } // end of texture
       scale 10000
     } //end of sphe   
  
  
  
 */ 
  
  
 

plane { y,0

   texture {
   pigment {  
       granite
       color_map { 
           [0.0 color Green/8  ]
           [1.0 color Green/6  ]
         }
       }
   }   

}

#declare Number_of_Radial_Stripes=5;


#macro Radial_Rotor_TextureX (Number_of_Radial_Stripes)
radial
frequency 4 // = number of blades
rotate<90,0,0>
texture_map { [0.00  pigment {color rgbt<1,1,1,0.5>}
                     finish  {ambient 0.15 diffuse 0.85
                              phong 0.1}]
              [0.60 pigment{color Clear}]
              [1.00 pigment{color Clear}]
            }

1. end //----------------------------------- other textures

1. declare Blades_Texture =

   texture { Chrome_Metal
             finish {ambient 0.10 diffuse 0.80 phong 1}}

1. declare Engine_Texture =

   texture { pigment{color rgb<1,1,1>}
             finish {ambient 0.15 diffuse 0.85 phong 1}}

//-------------------------------------------------------

1. macro Engine(Number_Blades, B_Length, R_Angle, Activate_B)

union{ // --------------------- the casing of the engine

  torus{1.0,0.175 rotate<90,0,0>
        scale <1,1,5>*0.35
     //   texture{Engine_Texture}
        translate<0,0,-0.3>
       }  // end of torus
  difference {
        sphere { <0,0,0>,1 scale <0.35,0.35,1.3>
                 translate<0,0,0.5>}
        box    { <-1,-1,-1.2>,<1,1,-0.48>}
      //  texture{Engine_Texture}
     }
  union{  // propeller
    cylinder{ <0,0,-0.01>,<0,0,1.00>,0.10}// propeller axis
    difference{ sphere{<0,0,0>, 1}        // propeller nose
                box {<-1,-1,-0.1>,<1,1,1>}
                scale <1,1,2.5>*0.3
                translate<0,0,0.2>
          //      texture{Blades_Texture}
              }
    union{  // --------------------------------- the blades
      #declare Nr = 0;
      #declare End = Number_Blades;
      #while ( Nr < End)
      sphere { <0,0,0>,0.5
               scale <1,0.15,0.04>
               translate <0.5,0,0>
               rotate <10,0,0>
               scale B_Length // = Blade_Radius
           //    texture {Blades_Texture}
             rotate< 0,0, 360/End * Nr >
           }
      #declare Nr = Nr + 1;
      #end // end of #while ------------------------------

      #if (Activate_B = 1) // --------------------------- blur
      cylinder { <0,0,0>,<0,0,0.001>, B_Length
                 texture{ Radial_Rotor_TextureX(Number_Blades)}
                 rotate <0, 0,0>
                 translate <0,0, 0.025>
               }
      #end // end of #if (Activate_B = 1) ---------------------
    }                             // end of union of the blades

    translate<0,0,-0.7>
    rotate<0,0,R_Angle>
  } // --------------------------------- end of union "Propeller"

} // --------------------------------------- end of union engine

1. end // -------------------------- end of macro "Engine ( ... )"

1. declare propel2= object {

Engine( 4, 2.35, 10, 1)     

texture {
    pigment { color rgb <0.1,0.1,0.1> }
    
   finish {
       F_MetalA
   }

   }

}

1. declare airship1=union {

/* sphere { 0,1 scale y*0.33 }

• /

ovus{ 1.00, 0.65

 // base_radius, top_radius
 // with  top_radius < base_radius!
 
 rotate z*90
 
 scale y*1/3      
 scale z*1/3
 
 translate<0,0.0,0>  
 
 

// texture // {

// Chrome_Texture

// finish { // F_MetalA // }

// }

} //

object {

Wire_Box(<-1/4,-1/8,-1/8>,<1/4,1/8,1/8>, 0.01, 0)

// texture{ // pigment{ color rgb<0.75,0.55,1>} // finish { phong 1} // } // end of texture

scale<1,1,1>
rotate<0,0,0>
translate<0,-0.4,0>

}

box { -1,1

scale 0.25 scale y*0.3 scale z*0.5 translate y*-0.5 }

// peräsin

box { -1,1

scale <1/5,1/2,1/2>

translate x*-1.8 scale y*0.01

}

box {

-1,1

scale <1/5,1/2,1/2> translate x*-1.8 scale y*0.01 rotate x*90

}

// motors attach

object {

Wire_Box(<-1/8,-1/320,-2/3>,<1/8,1/320,2/3>, 0.02, 0)

// texture{ // pigment{ color rgb<0.75,0.55,1>} // finish { phong 1} // } // end of texture

scale<1,1,1>
rotate<0,0,0>
translate<0,0.0,0>

}

// keulaprop object { propel2 scale 0.1 rotate y*180 rotate y*90 //translate y*-0.5 //translate z*-0.3 translate x*1.07

}

// sivuprop

object {

propel2 scale 0.09

rotate y*90 translate x*-0.05 translate y*0.01 translate z*(-2/3+0.02)

}

object {

propel2 scale 0.09

rotate y*90 translate x*-0.05 translate y*0.01 translate z*(2/3-0.02)

}

// keula object { sphere {0,1} scale 0.1 translate x*1

}

// valonh. object { sphere {0,1} scale 0.1/2 translate x*0.25 translate y*-0.35 }

texture

   {
       
   //    Chrome_Texture
    pigment { color rgb <0.1,0.1,0.1> }
    
   finish {
       F_MetalA
   }

   }   

}

/* sphere

{0,1
 translate y*19
 pigment {
 color Red
 }
}

• /

light_source {
   <5, 23, 0>
   color White*10
   spotlight
   radius 10
   falloff 30
   tightness 30
   point_at <30, 0, 0>
 } 

media{

 scattering{
   1,  // media type
   1/20 //
   extinction 0.0000001
           }
 intervals 30 
  //  absorption 1
   density {granite scale 100
     color_map {
       [0.0 rgb <1,1,1>*0.1]
       [0.5 rgb <1,1,1>*0.3]
       [1.0 rgb <1,1,1>*1  ]
       } 
  }

}

1. declare funk1 =

function(x, y, z)
 {1-(-f_snoise3d(x*2,y*2,z*2)*0.25)}

object{ HF_Square( funk1,

          0, 
          1, 
          <50,50>, 
          1, 
           "", 
       
          <-1,0,-1>*2, 
          <1,1,1>*2    
        ) 

texture{ pigment{ granite 
                   color_map {
                  [0.0 color rgb<0,0.6,0>*0.2 ]
                  [1.0 color rgb<0,1,0>*0.2 ]
                  }
                  scale 0.05}
         finish { phong 0.1}
       } 
       
scale<20,1.0,20>*1
rotate<0,0,0>
translate<0,-1.5,0>

}

object { airship1

scale 20

//rotate y*90

rotate y*30

translate y*30 }