File:Kenneth arnold ufo sighting 4.png
Summary
| Description |
English: Kenneth arnold ufo sighting |
| Date | |
| Source | Own work |
| Author | Merikanto |
Pov-Ray 3.7 source code
//
// Often thought first confirmed ufo sightning near Mount Rainier from aeroplane, by Kenneth Arnold, 1947
// povray 3.7 src
// 19.5.2022 0000.0005
// uses
// U.S. Geological Survey
// Data Series 549
// Digital Topographic Map Showing the Extents of Glacial Ice and Perennial
// Snowfields at Mount Rainier, Washington, Based on the LiDAR Survey of
// September 2007 to October 2008
//
// process with qgis and gimp
//
//Corner Coordinates:
//Upper Left (-121.8994160, 46.9642249) (121d53'57.90"W, 46d57'51.21"N)
//Lower Left (-121.8994160, 46.7465992) (121d53'57.90"W, 46d44'47.76"N)
//Upper Right (-121.6040410, 46.9642249) (121d36'14.55"W, 46d57'51.21"N)
//Lower Right (-121.6040410, 46.7465992) (121d36'14.55"W, 46d44'47.76"N)
//Center (-121.7517285, 46.8554121) (121d45' 6.22"W, 46d51'19.48"N)
// geojson of area used
//{
//"type": "FeatureCollection",
//"name": "rainier3_shape",
//"crs": { "type": "name", "properties": { "name": "urn:ogc:def:crs:OGC:1.3:CRS84" } },
//"features": [
//{ "type": "Feature", "properties": { "MINX": -121.89962005615233, "MINY": 46.746799468994141, "MAXX": -121.60430145263672, "MAXY": 46.964324951171875, "CNTX": -121.75196075439453, "CNTY": 46.855562210083008, "AREA": 0.064239321625791004, "PERIM": 1.025688171386719, "HEIGHT": 0.21752548217773399, "WIDTH": 0.295318603515625 }, "geometry": { "type": "MultiPolygon", "coordinates": [ [ [ [ -121.899620056152344, 46.746799468994141 ], [ -121.899620056152344, 46.964324951171875 ], [ -121.604301452636719, 46.964324951171875 ], [ -121.604301452636719, 46.746799468994141 ], [ -121.899620056152344, 46.746799468994141 ] ] ] ] } }
//]
//}
// map of image map is downloaded from
// USGS National map Downloader - Imagery NAIP plus
//
//https://apps.nationalmap.gov/viewer/
//
// and processed further
//
//
#include "colors.inc"
#include "textures.inc"
#include "metals.inc"
#include "skies.inc"
#include "functions.inc"
#include "shapes3.inc"
#include "shapesq.inc"
// global_settings{hf_gray_16}
camera{
// location <0, 600, 0>
// location <-600, 1, 0>
location <-180, 50, 0>
// location <-180, 35, 0> *4
look_at <0,40,0>
angle 15
}
light_source{ <-1000,1000,-100> White }
sky_sphere{
pigment{
// color rgb<0.1,0.25,0.75>*1
gradient <0,1,0>
color_map{
[0.0 color rgb<1,1,1>*1 ]
[0.45 color rgb<0.1,0.25,0.75>*1]
[0.8 color rgb<0.1,0.25,0.75>*0.75]
}
rotate z*-20
} // end pigment
pigment {
//granite
// dents
// agate
bozo
turbulence 0.65
octaves 170 omega 0.7 lambda 2
color_map {
[0.0 color rgb <0.95, 0.95, 0.95>*0.5 ]
[0.1 color rgb <1, 1, 1>*1.1 ]
[0.15 color rgb <0.85, 0.85, 0.85> ]
[0.5 color rgbt <1, 1, 1, 1>*1 ]
[1.0 color rgbt <1, 1, 1, 1>*1 ]
} // end color_map
rotate<10,23,0>
scale <0.3, 0.1, 0.4>*0.7
scale 10
}// end pigment
} // sky sphere
/*
fog {
distance 100000
color rgb<1,1,1>*0.5
fog_type 2
fog_offset 0
fog_alt 20
turbulence 0.1
turb_depth 0.1
rotate z*-30
}
*/
/*
plane
{
y,0
texture {
pigment {
color Gray/2
}
normal {
granite
octaves 60
scale 1000
}
}
rotate z*-30
translate y*-100
}
*/
/*
#declare dem1=height_field {
pgm "./imgmap/rainlidar4.pgm"
// pgm "./imgmap/rainlidar5a.pnm"
smooth
pigment {
image_map{
png "./imgmap/airimag4.png"
// png "./imgmap/airimag4b.png"
// jpeg "./imgmap/e1.jpg"
interpolate 2
}
rotate x*90
rotate y*180
}
// normal {
// granite
// scale 0.000001
// }
finish {
ambient 2
reflection 0
}
translate <-.5, 0, -.5>
scale <200, 600, 200>
} // hf
*/
#declare metal_1=texture {
Chrome_Metal
finish {
// Metal
// Metallic_Finish
F_MetalC
}
}
#declare metal_2= texture {
Chrome_Metal
finish {
// Metallic_Finish
//Metal
Metallic_Finish
// F_MetalE
}
}
#declare object_crescent_1= union {
difference
{
sphere
{
<0,0,0>,1
scale y*0.1
}
sphere
{
<0,0,0.75>,1
scale 1
}
sphere
{
<0.3,0,0.25>,0.7
scale 1
}
sphere
{
<-0.3,0,0.25>,0.7
scale 1
}
texture {
metal_1
}
}
// union
sphere {
<0,0,0>,1
scale y*0.4
scale 0.32
translate z*-0.7
texture {
metal_2
}
}
scale 5
}
#declare object_crescent_3=object {
union {
difference
{
intersection {
torus {
1,0.2
scale y*0.15
}
torus {
1,0.2
scale y*0.15
translate z*-0.4
}
box {
<0,-2,-2>,<4,4,4>
}
} // intersection
} // dif
sphere {
<0,0,0>,0.125
scale y*0.33
texture {
metal_1
}
translate x*1
translate z*-0.2
}
} // union
texture {
metal_2
}
rotate x*90
rotate y*90
}
#declare horn1=
difference {
isosurface{ //-------------------------
function { f_comma( x,y,z, 1) }
threshold 0
accuracy 0.0001
max_gradient 5
contained_by{ sphere {0,1.0} }
// texture{ pigment{ color rgb<0.7,1,0>}
// finish { phong 0.5 }
// } // end of texture
rotate <0,0,0>
translate <0.0,0,0>
} // end
box {<-1.5,-1.5,-1.5>,<2,2,0>
translate z*0.15
rotate y*-120
}
}
#declare object_crescent_4= union {
object {
horn1
rotate y*30
translate x*0.15
texture {
metal_1
}
}
object {
horn1
rotate y*30
translate x*0.15
rotate z*180
texture {
metal_1
}
}
sphere {
0,1
scale 0.1
translate z*0.85
scale y*2.5
texture {
metal_2
}
}
scale y*0.15
translate z*-1.5
}
#declare object_3= object {
difference {
union {
difference {
sphere {
<0,0,0>,1
scale y*0.15
}
box {
<0,-1,-1>,<1,1,1>
}
}
cylinder {
<0,0,0>,<0.25,0,0>,1
scale y*0.15
}
/*
cone {
<1.7, 0, 0>, 0.0 // Center and radius of one end
<0.25000, 0, 0>, 1.00
// rotate y*180
scale y*0.25
}
*/
ovus {
1.00, 0.25
scale x*0.15
rotate z*270
translate x*0.25
scale 1.0
}
} // union
/*
box {
<0,-2,-2>,<2,2,2>
rotate y*45
translate x*1.5
}
box {
<0,-2,-2>,<2,2,2>
rotate y*-45
translate x*1.5
}
*/
}
texture {
Silver_Metal
// Chrome_Metal
finish {
Metal
// F_MetalE
}
}
scale x*0.75
}
#declare object_5=object{
union
{
difference {
sphere {
<0,0,0>,0.81
scale y*0.15
}
box {
<0,-1,-1>,<1,1,1>
}
} // sphere difference
cylinder {
<0,0,0>,<0.25,0,0>,0.81
scale y*0.15
}
object {
Round_Cone2(
//point A, radius A:
<0,0,0>,0.81,
// point B, radius B:
<0,1,0>, 0.10,
// merge on
0)//
/*
Round_Cone(
//point A, radius A:
<0,0,0>,1.0,
// point B, radius B:
<1,0.0,0>, 0.10,
0.15, // rounding radius,
0)// merge
*/
rotate z*-90
// rotate y*90
//rotate x*-180
scale<1,0.15,1>
translate<0.15,0.0,0>
} //
}
texture {
metal_1
}
} // union
// ufos
#declare ufos1=union {
#for (n,0,7)
object {
object_5
scale 1.5
rotate y*-90
rotate z*(sin(n*10)*50)+10
rotate y*(sin(n*20)*20)
translate z*n*5
translate y*sin(n+90)*2
translate x*-60
translate z*-10
translate y*20
}
#end
object {
// object_1
// object_crescent_1
object_crescent_4
rotate y*-100
rotate z*90
// rotate z*-70
// rotate x*45
scale 4.0
translate x*-60
translate z*-10
translate y*25
}
translate y*25
}
#declare object_4= sor {
5,
<0.0, -2>,
<1.0, -1>,
<2.0, 1>,
<3.0, 2>
<4.0, 3.0>
// open
texture { Silver_Metal }
scale x*0.25
scale z*0.25
}
/*
object {
object_5
// crescent4
// translate z*-1.5
scale 15
// rotate x*30
rotate y*90
rotate z*90
translate x*-60
translate z*0
translate y*25
translate y*15
}
*/
// finally, scene
/*
object {
dem1
}
*/
object {
ufos1
}
Licensing
I, the copyright holder of this work, hereby publish it under the following license:
This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.
- 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.
