|
|
Hi,
Here's an alum crystal.
The face data (including HKL, distance and colors [not used]) were copied from
KrystalShaper and converted to an array-ready format thanks to a couple of find
& replace operations in notepad++. Because the data works with the cubic
crystalline system, they were easily converted into plane normals and offsets.
The planes were then used in an intersection object. 50 faces total. No
light_sources are present in the scene; just reflections.
(If anyone's wondering why I don't simply export POV-Ray files from
KrystalShaper, it's because in the future I intend to have more customization
options for certain faces.)
Here's the source code (minus luminous bloom):
/*
HKL-cubic-alaun.pov
2021 Samuel B.
Suggested command line options:
+fn +f +a0.3 +am2 +r1
If outputting to luminous bloom:
+fh +f +a0.3 +am2 +r1
*/
#version 3.7;
global_settings{
assumed_gamma 1.0
max_trace_level 11
}
#default{ finish{ambient 0} }
#declare RGBSun = srgb 1.3*<2, 1.99, 1.97>;
#declare RGBSky = srgb <.45, .475, .5>;
#declare CamPos = <0, 7, -10>;
camera{
fisheye right x*.7 up y*.7
location CamPos
look_at 0
angle 60/3.5
aperture .77 focal_point -z blur_samples 30 variance 0
}
#if(1)
sky_sphere{
pigment{
spherical scale 2 translate z
poly_wave 2
rotate -x*30
rotate y*40
color_map{
[0 RGBSky]
[1 RGBSun]
}
}
}
#end
// ground plane
#if(1)
plane{
y, -1.001
pigment{
pigment_pattern{
cylindrical
scale 5
translate 2*z
}
pigment_map{
[0 rgb 0]
[1
granite
scale 5
turbulence .2 lambda 3
poly_wave .2
]
}
}
finish{reflection{.2, 1 fresnel metallic 1} conserve_energy}
normal{granite .05 scale .001}
interior{ior 1.55}
}
#end
// KRSCOPY KrystalShaper data copied from program and converted with notepad++
#declare FaceData =
array[50][7]{
{1, 0, 0, 1.02, 255, 255, 128},
{0, 1, 0, 1.02, 255, 255, 128},
{0, -1, 0, 1.02, 255, 255, 128},
{-1, 0, 0, 1.02, 255, 255, 128},
{0, 0, -1, 1.02, 255, 255, 128},
{0, 0, 1, 1.02, 255, 255, 128},
{1, 1, 1, 0.7, 0, 255, 255},
{1, 1, -1, 0.7, 0, 255, 255},
{1, -1, 1, 0.7, 0, 255, 255},
{-1, -1, 1, 0.7, 0, 255, 255},
{-1, 1, 1, 0.7, 0, 255, 255},
{1, -1, -1, 0.7, 0, 255, 255},
{-1, -1, -1, 0.7, 0, 255, 255},
{-1, 1, -1, 0.7, 0, 255, 255},
{1, 1, 0, 0.799, 255, 128, 128},
{1, -1, 0, 0.799, 255, 128, 128},
{-1, -1, 0, 0.799, 255, 128, 128},
{-1, 1, 0, 0.799, 255, 128, 128},
{-1, 0, -1, 0.799, 255, 128, 128},
{0, 1, 1, 0.799, 255, 128, 128},
{1, 0, -1, 0.799, 255, 128, 128},
{0, 1, -1, 0.799, 255, 128, 128},
{1, 0, 1, 0.799, 255, 128, 128},
{0, -1, -1, 0.799, 255, 128, 128},
{-1, 0, 1, 0.799, 255, 128, 128},
{0, -1, 1, 0.799, 255, 128, 128},
{3, 2, 1, 0.869, 0, 255, 0},
{-2, -1, -3, 0.869, 0, 255, 0},
{1, 3, 2, 0.869, 0, 255, 0},
{-3, -2, -1, 0.869, 0, 255, 0},
{2, 1, 3, 0.869, 0, 255, 0},
{-1, -3, -2, 0.869, 0, 255, 0},
{3, 2, -1, 0.869, 0, 255, 0},
{-2, -1, 3, 0.869, 0, 255, 0},
{1, 3, -2, 0.869, 0, 255, 0},
{-3, -2, 1, 0.869, 0, 255, 0},
{2, 1, -3, 0.869, 0, 255, 0},
{-1, -3, 2, 0.869, 0, 255, 0},
{-1, 3, 2, 0.869, 0, 255, 0},
{2, -1, 3, 0.869, 0, 255, 0},
{3, -2, -1, 0.869, 0, 255, 0},
{-1, 3, -2, 0.869, 0, 255, 0},
{-2, 1, 3, 0.869, 0, 255, 0},
{3, -2, 1, 0.869, 0, 255, 0},
{1, -3, -2, 0.869, 0, 255, 0},
{-2, 1, -3, 0.869, 0, 255, 0},
{-3, 2, 1, 0.869, 0, 255, 0},
{1, -3, 2, 0.869, 0, 255, 0},
{2, -1, -3, 0.869, 0, 255, 0},
{-3, 2, -1, 0.869, 0, 255, 0}
}
// crystal
#if(1)
intersection{
#for(I, 0, 49)
plane{
<FaceData[I][0], FaceData[I][1], FaceData[I][2]>, FaceData[I][3]
}
#end
// I guessed the proper color :/
pigment{rgb <.85, .7, 1> filter 1}
finish{reflection{0, 1 fresnel} conserve_energy}
normal{granite .03 scale .001}
interior{
// alum ior from classicgems.net
ior 1.453
media{absorption .3}
// an unrealistic dispersion value
dispersion 1.075 dispersion_samples 7
}
hollow
rotate -y*43
}
#end
Post a reply to this message
Attachments:
Download 'hkl-cubic-alaun9m_07s-plus-lb7b1m_02s.jpg' (29 KB)
Preview of image 'hkl-cubic-alaun9m_07s-plus-lb7b1m_02s.jpg'
|
|