|
 |
/*
Edit, and send to your loved ones. I think this would be fun to put on
a web server, and let people generate their own.
*/
// Persistence of Vision Ray Tracer Scene Description File
// File: Valentine_all.pov
// Vers: 3.5
// Desc: Valentines for everyone
// Date: 02/14/2003
// Auth: Daniel Patrick Johnson
//
#version 3.5;
//////////////////////////////////
#declare Fist_name = "Your"; // Edit This part
#declare Middle_name = "Name"; //
#declare Last_name = "Here"; // Tell them you spent hours
//////////////////////////////////
#include "colors.inc"
#include "functions.inc"
#include "textures.inc"
#include "skies.inc"
#include "shapes.inc" // macros for generating various shapes
global_settings {
assumed_gamma 1.0
}
// ----------------------------------------
camera {
location <0.0, 0.5, -4.0>
direction 1.5*z
right x*image_width/image_height
look_at <0.0, 0.0, 0.0>
}
light_source {
<0, 0, 0> // light's position (translated below)
color rgb <1, 1, 1> // light's color
translate <-30, 30, -30>
}
// ----------------------------------------
#declare Heart =
isosurface {
function { f_heart(x,y,z, -0.001) }
//P0= Field Strength
contained_by { box { <-0.8, -1.2, -1.1>, <0.8, 1.2, 1.3> } }
evaluate 5, 1.2, 0.95
//max_gradient 0.1
//no_shadow
scale 1 rotate y*-90 rotate z*-90 translate 0
}
#declare Font = "timrom.ttf";
#declare Cuts = 23;
#declare BevelAng = 60;
#declare Depth = 1.5;
#declare BevelDepth = .025;
#declare Offset = (.05* x);
#declare UseMerge = 0;
#declare First_Name = Center_Object(object{Bevelled_Text(Font,
Fist_name, Cuts, BevelAng, BevelDepth, Depth, Offset,
UseMerge)},<1,1,0>)
#declare Middle_Name = Center_Object(object{Bevelled_Text(Font,
Middle_name, Cuts, BevelAng, BevelDepth, Depth, Offset,
UseMerge)},<1,1,0>)
#declare Last_Name = Center_Object(object{Bevelled_Text(Font, Last_name,
Cuts, BevelAng, BevelDepth, Depth, Offset, UseMerge)},<1,1,0>)
#declare Be_My = Center_Object(object{Bevelled_Text(Font, "Be My", Cuts,
BevelAng, BevelDepth, Depth, Offset, UseMerge)},<1,1,0>)
#declare My = Center_Object(object{Bevelled_Text(Font, "My", Cuts,
BevelAng, BevelDepth, Depth, Offset, UseMerge)},<1,1,0>)
#declare Valentine = Center_Object(object{Bevelled_Text(Font,
"Valentine", Cuts, BevelAng, BevelDepth, Depth, Offset,
UseMerge)},<1,1,0>)
sky_sphere {S_Cloud5}
plane {-z, -50000 pigment{Black}}
object {Heart pigment{Red}finish{Shiny}}
union{
object {First_Name translate 4*y}
object {Middle_Name translate 3*y}
object {Last_Name translate 2*y}
object {Be_My translate .5*y}
//object {My translate -2*y}
object {Valentine translate -.5*y}
scale .2 translate (-1*z) pigment{Red}finish{Shiny}}
/*
--
Dan Johnson
http://www.livejournal.com/userinfo.bml?user=teknotus
http://www.geocities.com/zapob
*/
Post a reply to this message
Attachments:
Download 'valentine_all.png' (46 KB)
Preview of image 'valentine_all.png'
|
|
