File:Mystery airship 1.png
Original file (3,200 × 2,400 pixels, file size: 424 KB, MIME type: image/png)
Captions
Captions
Summary
[edit]
| Description |
English: Mystery airship |
| Date | |
| Source | Own work |
| Author | Merikanto |
Povray 3.7 source code
// ghost airship
// povray 3.7 src
// 23.5.2022 0000.0000
- include "colors.inc"
- include "textures.inc"
- include "shapes.inc"
- include "metals.inc"
- include "skies.inc"
- 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}]
}
- end //----------------------------------- other textures
- declare Blades_Texture =
texture { Chrome_Metal
finish {ambient 0.10 diffuse 0.80 phong 1}}
- declare Engine_Texture =
texture { pigment{color rgb<1,1,1>}
finish {ambient 0.15 diffuse 0.85 phong 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
- end // -------------------------- end of macro "Engine ( ... )"
- declare propel2= object {
Engine( 4, 2.35, 10, 1)
texture {
pigment { color rgb <0.1,0.1,0.1> }
finish {
F_MetalA
}
}
}
- 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 ]
}
}
}
- 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
}
Licensing
[edit]
- You are free:
- to share – to copy, distribute and transmit the work
- to remix – to adapt the work
- Under the following conditions:
- attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
- share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 13:43, 23 May 2022 | | 3,200 × 2,400 (424 KB) | Merikanto (talk | contribs) | Uploaded own work with UploadWizard |
You cannot overwrite this file.
File usage on Commons
There are no pages that use this file.
