POV-Ray : Newsgroups : povray.binaries.images : Planet Earth : Re: Planet Earth Server Time
7 Aug 2024 13:15:06 EDT (-0400)
  Re: Planet Earth  
From: Sven Littkowski
Date: 31 May 2006 18:40:50
Message: <447e1b72@news.povray.org>
Here's the entire scene code. For the atmosphere, you can use my Windows 
tool PCP ("POV-Ray Color Picker") which I made available in the 
"povray.binaries. utilities" newsgroup.

Greetings,

Sven


#include "colors.inc"
#include "textures.inc"
#include "shapes.inc"
#include "metals.inc"
#include "glass.inc"
#include "woods.inc"

#declare Jupiter = texture { pigment { image_map { jpeg "E:\Scripts\Eigene 
Bilder\Povray Textures\Sphere_Jupiter_01.jpg" map_type 1 } rotate < 0.0, 
0.0, 0.0 > } finish { ambient 0.0 } }
#declare Jupiter_Callisto = texture { pigment { image_map { jpeg 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Jupiter_Callisto_01.jpg" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }
#declare Jupiter_Europa = texture { pigment { image_map { jpeg 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Jupiter_Europa_01.jpg" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }
#declare Jupiter_Ganymede = texture { pigment { image_map { jpeg 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Jupiter_Ganymede_01.jpg" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }
#declare Jupiter_Io = texture { pigment { image_map { jpeg 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Jupiter_Io_01.jpg" map_type 
1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }

#declare Mars = texture { pigment { image_map { jpeg "E:\Scripts\Eigene 
Bilder\Povray Textures\Sphere_Mars_02.jpg" map_type 1 } rotate < 0.0, 0.0, 
0.0 > } finish { ambient 0.0 } }
#declare Mars_Deimos = texture { pigment { image_map { jpeg 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Mars_Deimos_01.jpg" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }
#declare Mars_Phobos = texture { pigment { image_map { jpeg 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Mars_Phobos_01.jpg" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }

#declare Mercury = texture { pigment { image_map { jpeg "E:\Scripts\Eigene 
Bilder\Povray Textures\Sphere_Mercury_01.jpg" map_type 1 } rotate < 0.0, 
0.0, 0.0 > } finish { ambient 0.0 } }

#declare Neptune = texture { pigment { image_map { jpeg "E:\Scripts\Eigene 
Bilder\Povray Textures\Sphere_Neptune_01.jpg" map_type 1 } rotate < 0.0, 
0.0, 0.0 > } finish { ambient 0.0 } }
#declare Neptune_Proteus = texture { pigment { image_map { jpeg 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Neptune_Proteus_01.jpg" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }

#declare Pluto = texture { pigment { image_map { jpeg "E:\Scripts\Eigene 
Bilder\Povray Textures\Sphere_Mercury_01.jpg" map_type 1 } rotate < 0.0, 
0.0, 0.0 > } finish { ambient 0.0 } }

#declare Saturn = texture { pigment { image_map { jpeg "E:\Scripts\Eigene 
Bilder\Povray Textures\Sphere_Saturn_01.jpg" map_type 1 } rotate < 0.0, 0.0, 
0.0 > } finish { ambient 0.0 } }
#declare Saturn_Enceladus = texture { pigment { image_map { jpeg 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Saturn_Enceladus_01.jpg" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }
#declare Saturn_Iapetus = texture { pigment { image_map { jpeg 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Saturn_Iapetus_01.jpg" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }
#declare Saturn_Rhea = texture { pigment { image_map { jpeg 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Saturn_Rhea_01.jpg" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }
#declare Saturn_Titan = texture { pigment { image_map { jpeg 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Saturn_Titan_01.jpg" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }

#declare Sun = texture { pigment { image_map { jpeg "E:\Scripts\Eigene 
Bilder\Povray Textures\Sphere_Sun_01.jpg" map_type 1 } rotate < 0.0, 0.0, 
0.0 > } finish { ambient 2.0 } }

#declare Uranus = texture { pigment { image_map { jpeg "E:\Scripts\Eigene 
Bilder\Povray Textures\Sphere_Uranus_01.jpg" map_type 1 } rotate < 0.0, 0.0, 
0.0 > } finish { ambient 0.0 } }

#declare Venus = texture { pigment { image_map { jpeg "E:\Scripts\Eigene 
Bilder\Povray Textures\Sphere_Venus_01.jpg" map_type 1 } rotate < 0.0, 0.0, 
0.0 > } finish { ambient 0.0 } }

#declare EarthLights = texture { pigment { image_map { png 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Earth_Lights_01b.png" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.25 } }
#declare EarthClouds = texture { pigment { image_map { png 
"E:\Scripts\Eigene Bilder\Povray Textures\Sphere_Earth_Clouds_03.png" 
map_type 1 } rotate < 0.0, 0.0, 0.0 > } finish { ambient 0.0 } }

global_settings
{
 assumed_gamma 2.0
 radiosity {  }  //
}

camera
{
 location < 000.0, 0.0, -300.0 >
 look_at < 000.0, 0.0, 0.0 >
}
/**/
light_source
{
 < 1000.0, 0.0, 250.0 >
 color White *3
}

#macro StarSubPigment(StarSize, StarFrequency)
 crackle
 form < 1.0, 0.0, 0.0 >
 #local Cutoff=StarSize*StarFrequency;
 color_map
 {
  [ Cutoff rgb 1.0 ]
  [ Cutoff rgb 0.0 ]
 }
 scale 1/StarFrequency
#end

// minsize, maxsize = size range of stars (some stars will always be smaller 
due to nature of crackle pattern)
// starfrequency = how many stars
// variationfrequency = how quickly their size changes
#macro StarPigment(MinSize, MaxSize, StarFrequency, VariationFrequency)
 #local NumSizeSteps=8;
 pigment
 {
  pigment_pattern
  {
   bozo
   color_map
   {
    [ 0.0 rgb 0.25 ]
    [ 1.0 rgb 1.00 ]
   }
   scale 1/VariationFrequency
  }
  pigment_map
  {
   #local StepNum=0;
   #while (StepNum<NumSizeSteps)
    #local SizeAmnt=(StepNum+.5)/NumSizeSteps;
    #local PreSize=MinSize+(StepNum/NumSizeSteps)*(MaxSize-MinSize);
    #local PostSize=MinSize+((StepNum+1)/NumSizeSteps)*(MaxSize-MinSize);
    [ SizeAmnt StarSubPigment(PreSize,StarFrequency) ]
    [ SizeAmnt StarSubPigment(PostSize,StarFrequency) ]
    #local StepNum=StepNum+1;
   #end
  }
 }
#end

sky_sphere
{
 StarPigment
 (
  0.000001,  // min star size
  0.000007,  // max star size
  20000,     // star density (higher = more)
  5          // variation frequency (higher = star size changes more over 
nearby parts of the sky)
 )
}

/*
Jupiter
Jupiter_Callisto
Jupiter_Europa
Jupiter_Ganymede
Jupiter_Io

Mars
Mars_Deimos
Mars_Phobos

Mercury

Neptune
Neptune_Proteus

Pluto

Saturn
Saturn_Enceladus
Saturn_Iapetus
Saturn_Rhea
Saturn_Titan

Sun

Uranus

Venus

EarthLights
EarthClouds
*/

#declare Surface=sphere
{
 0.0, 1.0
 texture { Venus }
// texture { EarthLights }
/*
 normal
 {
  bump_map
  {
   jpeg "Sphere_Earth_Bumps_01.jpg"
   map_type 1
  }
 }
*/
}

#declare Clouds=sphere
{
 0.0, 1.0002
 texture { EarthClouds }
 normal
 {
//  density_file df3 "Sphere_Earth_Bumps_01.df3"
//  interpolate 1
  bump_map
  {
   jpeg "Sphere_Earth_Clouds_Bumps_03.jpg"
   map_type 1
  }
 }
}

#declare Atmosphere=sphere
{
 < 0.0, 0.0, 0.0 > 1.0
 pigment
 {
  color rgbt < 0.5, 0.5, 0.8, 1.0 >
 }
 hollow
 interior
 {
  media
  {
   intervals 10
   scattering
   {
    2,
    rgb < 0.3, 0.3, 1.0 >   // Use here my Windows tool PCP (POV-Ray Color 
Picker), found at the "povray-binaries.utils" newsgroup.
    extinction 1.0
   }   // 0.75
   density
   {
    spherical
    color_map
    {
     [ 0.000 rgb < 0.0, 0.0, 0.0 > ]   // Use here my Windows tool PCP 
(POV-Ray Color Picker), found at the "povray-binaries.utils" newsgroup.
     [ 1.000 rgb < 0.5, 0.5, 0.8 > ]   // Use here my Windows tool PCP 
(POV-Ray Color Picker), found at the "povray-binaries.utils" newsgroup.
    }
   }
   samples 1, 10
   confidence 0.9999
   variance 1/1000
   ratio 0.9
  }
 }
 finish { ambient 0.0 diffuse 0.9/**/ }
 scale 1.005
}

#declare Planet=union
{
 object { Surface }      //
// object { Clouds }       //
// object { Atmosphere }   //
 scale 100.0
}

object { Planet }

/*
One AU is the mean distance between the Earth and the Sun, or 149 598 000 
kilometres.
Other units in common use include the gigametre (Gm, one million kilometres)
and the terametre (Tm, one billion/milliard kilometres).
Many planets have multiple times the Earth mass (EM).
Each planet has an own day length mesured by Earth days (ED) or Earth years 
(EY).


Solar Bodies: Sol Distance - Mass/Diameter - Year - Day


Sol (0 AU) ( EM / KM)

Mercury (0.39) ( EM / 4879 km) (88 ED) (58.7/176 ED)
Venus (0.72) ( EM / KM) (584 ED) (116.75 ED)
Earth (1 AU) (1 EM / 12,600 KM) (365.2564 ED) (23 h 56 min 4.091 s)
Mars (1.5 AU) (1/10 EM / 6.300 KM) (687 ED) (24 h 39 min 35.244 s)

Asteroid Belt (2.3 AU - 3.3 AU) (1/100 EM) ( ED)

Jupiter (5.2 AU) (317.8 EM / 142,984 KM) (10 ED) (4333.2867 ED)
Saturn (5.2 AU) (95 EM /120,536 KM) (10,7561995 ED) (10 h 14 min 00 s / 10 h 
39 min 24 s / 10 h 39 min 22.4 s / 10 h 45 m 45 sS : Poles: 
Equator:RadioEarth:RadioCassini)
Uranus (19.6 AU) (14 EM / 51,118 KM) (30,7074896 ED) (17.24 ED)
Neptune (30 AU) (17 EM / 49,532 KM) (60,223.3528 ED) (16.11 h)

Kuiper Belt (30 AU - 50 AU) ( EM)

Pluto + Charon (29.7 AU perihelion - 49.5 AU aphelion) (0.0021 EM / 2306 KM) 
(90,613.3055 ED) (6.39 ED)
Xena [2003 UB313] (38.2 AU perihelion - 97.6 AU aphelion) ( EM / 2400 KM) 
(203,500 ED) ( ED)
Sedna (76 AU perihelion - 928 AU aphelion) 10,500-year orbit ( EM / 
1180-1800 KM) (4401380 ED) (10 h)

Heliosphere (0 AU - 95 AU)
Termination Shock (95 AU)
Heliosheath (95 AU - 135/245 AU)
Heliopause (245 AU)
Bow Shock (245 AU)
Oort Cloud (50,000 AU - 100,000 AU)

Interstellar Medium (95 AU - ..)


http://en.wikipedia.org/wiki/Solar_system


Please complete this data
*/


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.