From comp.graphics.raytracing Thu Mar 31 18:30:51 1994
Path: uniol!zib-berlin.de!netmbx.de!Germany.EU.net!EU.net!sun4nl!news.nic.surfnet.nl!tuegate.tue.nl!blade.stack.urc.tue.nl!robertk
From: robertk@stack.urc.tue.nl (Robert Klep)
Newsgroups: comp.graphics.raytracing
Subject: PAPRCLIP.POV
Date: 28 Mar 1994 10:59:12 GMT
Organization: MCGV Stack, Eindhoven University of Technology, the Netherlands.
Lines: 127
Message-ID: <2n6da0$apm@tuegate.tue.nl>
NNTP-Posting-Host: blade.stack.urc.tue.nl
X-Newsreader: TIN [version 1.2 PL2]


// A metal paperclip...by RobertK
// Not TOO large, I think......but it IS only POV 1.0

#include "colors.inc"
#include "textures.inc"
#include "shapes.inc"
#include "shapes2.inc"

#declare Loop1 =
object {
      intersection {    
                quartic {                                                         
                      < 1.0   0.0   0.0    0.0     2.0   0.0   0.0   2.0   0.0  -72.5
                        0.0   0.0   0.0    0.0     0.0   0.0   0.0   0.0   0.0    0.0
                        1.0   0.0   0.0    2.0     0.0  71.5  0.0   0.0   0.0    0.0
                        1.0   0.0  -72.5   0.0   1278.0625 >
                        sturm
                }
               plane { <0 0 1> 0 inverse }  
        }
        rotate <90 0 0>
}

#declare Loop2 =
object {
      intersection {    
                quartic {                                                         
                      < 1.0   0.0   0.0    0.0     2.0   0.0   0.0   2.0   0.0  -47.545
                        0.0   0.0   0.0    0.0     0.0   0.0   0.0   0.0   0.0    0.0
                        1.0   0.0   0.0    2.0     0.0  46.545 0.0   0.0   0.0    0.0
                        1.0   0.0  -47.545 0.0   541.6093 >
                        sturm
                }
               plane { <0 0 1> 0 inverse }  
        }
        rotate <90 0 0>
}

#declare Loop3 =
object {
      intersection {    
                quartic {                                                         
                      < 1.0   0.0   0.0    0.0     2.0   0.0    0.0   2.0   0.0  -59.3613
                        0.0   0.0   0.0    0.0     0.0   0.0    0.0   0.0   0.0    0.0
                        1.0   0.0   0.0    2.0     0.0  58.3613 0.0   0.0   0.0    0.0
                        1.0   0.0  -59.3613 0.0   851.5089 >
                        sturm
                }
               plane { <0 0 1> 0 inverse }  
        }
        rotate <-90 0 0>
}

#declare Cyl1 =
object {
        intersection {
                quadric {
                        Cylinder_Y
                        scale <.5 .5 .5>
                }
                plane { <0 1 0> 55 }
                plane { <0 1 0> 0 inverse }
        }
}

#declare Cyl2 =
object {
        intersection {
                quadric {
                        Cylinder_Y
                        scale <.5 .5 .5>
                }
                plane { <0 1 0> 33 }
                plane { <0 1 0> 0 inverse }
        }
}

#declare Cyl3 =
object {
        intersection {
                quadric {
                        Cylinder_Y
                        scale <.5 .5 .5>
                }
                plane { <0 1 0> 25 }
                plane { <0 1 0> 0 inverse }
        }
}

#declare Cyl4 =
object {
        intersection {
                quadric {
                        Cylinder_Y
                        scale <.5 .5 .5>
                }
                plane { <0 1 0> 47 }
                plane { <0 1 0> 0 inverse }
        }
}

camera {
        location <10 50 -100>
        right <1.33 0 0>
        look_at <0 43 0>
}

composite {
        object { Loop1 texture { Silver_Metal } }
        object { Cyl1 texture { Silver_Metal } translate <6 0 0> }
        object { Cyl2 texture { Silver_Metal } translate <-6 0 0> }
        object { Cyl4 texture { Silver_Metal } translate <-4.83 8 0> }
        object { Cyl3 texture { Silver_Metal } translate <4.83 8 0> }
        object { Loop2 texture { Silver_Metal } translate <0 8 0> }
        object { Loop3 texture { Silver_Metal } translate <0.575 55 0> }
        translate <0 5 0>
}

object { plane { <0 1 0> -5 } texture { color DimGrey } }
object { light_source { <15 70 -20> color White } }
object { light_source { <8 70 8> color White } }
object { light_source { <-8 70 8> color White } }
object { light_source { <8 70 -8> color White } } 
object { light_source { <-8 70 -8> color White } } 
object { light_source { <-5 60 10> color White } }