The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# bulb.rib
# Author: Scott Iverson <si@SpamSucks_sitexgraphics.com>
# Date: 6/9/95
#

Display "bulb.tiff" "file" "rgb"

Projection "perspective" "fov" 25
Format 380 380 -1
Rotate 0 0 0 1
Rotate -0.570093918 1 0 0
Rotate 5.71059326 0 1 0
Translate -1 -2 10

WorldBegin
  LightSource "ambientlight" 1 "intensity" .4
  LightSource "distantlight" 2 "intensity" .6 "from" [0 0 0] "to" [-.3 -.2 1]
  AttributeBegin
    Rotate -90 1 0 0

    ShadingInterpolation "smooth"

# base
    Surface "metal"
    Color 0 0 1
    AttributeBegin
      Orientation "rh"
      Disk 0 .18 360
    AttributeEnd

    Cylinder .18 0 .1 360

    Translate 0 0 .1

    Surface "matte"
    Color 1 1 0
    Hyperboloid  .18 0 0  .4 0 .15  360

    Translate 0 0 .15

    Surface "metal"
    Color 1 .7 0

    Translate 0 0 .05
    Torus .4 .05 -90 90 360
    Translate 0 0 0.10
    Torus .4 .05 -90 90 360
    Translate 0 0 0.10
    Torus .4 .05 -90 90 360
    Translate 0 0 0.10
    Torus .4 .05 -90 90 360
    Translate 0 0 0.10
    Torus .4 .05 -90 90 360
    Translate 0 0 0.10
    Translate 0 0 -0.05

# the glass part

    Surface "plastic" "roughness" .4

    Color 1 1 1

    PatchMesh "bicubic" 13 "nowrap" 7 "nowrap" "P" [  0.40 0.00 0 0.40 0.220913867 0 0.220913867 0.40 0 0.00 0.40 0 -0.220913867 0.40 0 -0.40 0.220913867 0 -0.40 0.00 0 -0.40 -0.220913867 0 -0.220913867 -0.40 0 0.00 -0.40 0 0.220913867 -0.40 0 0.40 -0.220913867 0 0.40 0.00 0 0.40 0.00 .9 0.40 0.220913867 .9 0.220913867 0.40 .9 0.00 0.40 .9 -0.220913867 0.40 .9 -0.40 0.220913867 .9 -0.40 0.00 .9 -0.40 -0.220913867 .9 -0.220913867 -0.40 .9 0.00 -0.40 .9 0.220913867 -0.40 .9 0.40 -0.220913867 .9 0.40 0.00 .9 1.0 0.0 1.34771533 1.0 0.552284667 1.34771533 0.552284667 1.0 1.34771533 0.0 1.0 1.34771533 -0.552284667 1.0 1.34771533 -1.0 0.552284667 1.34771533 -1.0 0.0 1.34771533 -1.0 -0.552284667 1.34771533 -0.552284667 -1.0 1.34771533 0.0 -1.0 1.34771533 0.552284667 -1.0 1.34771533 1.0 -0.552284667 1.34771533 1.0 0.0 1.34771533 1.0 0.0 1.9 1.0 0.552284667 1.9 0.552284667 1.0 1.9 0.0 1.0 1.9 -0.552284667 1.0 1.9 -1.0 0.552284667 1.9 -1.0 0.0 1.9 -1.0 -0.552284667 1.9 -0.552284667 -1.0 1.9 0.0 -1.0 1.9 0.552284667 -1.0 1.9 1.0 -0.552284667 1.9 1.0 0.0 1.9 1.0 0.0 2.45228467 1.0 0.552284667 2.45228467 0.552284667 1.0 2.45228467 0.0 1.0 2.45228467 -0.552284667 1.0 2.45228467 -1.0 0.552284667 2.45228467 -1.0 0.0 2.45228467 -1.0 -0.552284667 2.45228467 -0.552284667 -1.0 2.45228467 0.0 -1.0 2.45228467 0.552284667 -1.0 2.45228467 1.0 -0.552284667 2.45228467 1.0 0.0 2.45228467 0.552284667 0 2.9 0.552284667 0.305018353 2.9 0.305018353 0.552284667 2.9 0 0.552284667 2.9 -0.305018353 0.552284667 2.9 -0.552284667 0.305018353 2.9 -0.552284667 0 2.9 -0.552284667 -0.305018353 2.9 -0.305018353 -0.552284667 2.9 0.00000000 -0.552284667 2.9 0.305018353 -0.552284667 2.9 0.552284667 -0.305018353 2.9 0.552284667 0 2.9 0.001 0 2.9 0.0010 0.000552284667 2.9 0.000552284667 0.001 2.9 0 0.0010 2.9 -0.000552284667 0.0010 2.9 -0.0010 0.000552284667 2.9 -0.001 0 2.9 -0.0010 -0.000552284667 2.9 -0.000552284667 -0.0010 2.9 0.0000 -0.0010 2.9 0.000552284667 -0.0010 2.9 0.0010 -0.000552284667 2.9 0.0010 0.0000 2.9 ]

AttributeEnd

WorldEnd