TUD Organische Chemie

Immel

Graphics

Povray 3.5

vect1

View or Print (this frame only)

Example Graphics

(low quality jpg-image only)

Example file (vect1.pov):

// Persistence Of Vision raytracer version 3.5 sample file.
// File by Chris Young
// Demonstrates various new vector math functions.
// Animate this scene with clock values +k0.0 to +k1.0

global_settings { assumed_gamma 2.2 }

#include "colors.inc"

#declare Font="cyrvetic.ttf"

// Basic clock runs from 0.0 to 1.0 but we want to move more
// than that. Define a scaled version.

#declare Clock360 = 360*clock;
#declare ClockRot = Clock360*z;


// An object that rotates one full circle of 360 degrees
#declare Arm =
union{
cylinder{0,3*x,.3}
sphere{0,.5}
sphere{3*x,.5}
pigment{Red}
rotate ClockRot
}

// A point on the object that is rotating
#declare Attach_Point=vrotate(x*3,ClockRot);

// A point where we will anchor the push rod
#declare Fixed_Point =x*8;

// This rod runs from the Attach_Point to the Fixed_Point.
// It varies in length as the Arm rotates.
#declare Long_Rod=
union{
sphere{Attach_Point,.2}
cylinder {Attach_Point,Fixed_Point,0.2 }
pigment{Green}
}

// Use the vlength function to compute the length.
#declare Long_Length=vlength(Attach_Point - Fixed_Point);

// We want a fixed length short, fat rod that follows the same angle
// as the long rod. Compute a unit vector that is parallel to
// the long rod.

#declare Normalized_Point = vnormalize(Attach_Point-Fixed_Point);

#declare Short_Length=4;

#declare Short_Rod=
union{
sphere{0,.5}
cylinder {0,Short_Length*Normalized_Point,0.5}
translate Fixed_Point // move into place
pigment{Blue}
}

union {
object{Arm}
union {
object{Long_Rod}
object{Short_Rod}
translate -z/2
}
translate -x*4
}

text{ttf Font concat("Angle=",str(Clock360,1,1)),0.1,0 scale 2 pigment{Red} translate <-3.5,3.5,0>}
text{ttf Font concat("Length=",str(Long_Length,1,1)),0.1,0 scale 2 pigment{Green} translate <-3.5,-5,0>}

camera {
location <0, 0, -120>
direction <0, 0.5, 11>
look_at <0, 0, 0>
}

light_source { <5000, 10000, -20000> color White}
plane { -z, -1/3 pigment {checker color rgb <1,.8,.8> color rgb <1,1,.8>} }