Category : Printer + Display Graphics
Archive   : PLYDAT.ZIP
Filename : CWHEEL.PI

 
Output of file : CWHEEL.PI contained in archive : PLYDAT.ZIP
# Demonstration of a number of the texturing capabilities of Polyray.
# Polyray input file: Alexander Enzmann

define otheta 0

viewpoint {
from <0, 5, -12>
at <0,0,0>
up <0,1,0>
angle 45
resolution 256, 160
aspect 1.6
}

background SkyBlue
light <-10,10,-10>
light < 10,10,-10>

# Ripple the x and y components of the surface normal

define x_mirror_curve (cos(3.14 * x) + 1) / 2
define y_mirror_curve (cos(3.14 * y) + 1) / 2
define rippled_xy_mirror
texture {
special surface {
color white
normal N[1] + 0.5 * sin(y_mirror_curve + otheta),
N[2]>
ambient 0.1
diffuse 0.2
reflection 0.7 * y_mirror_curve
}
}

# Create a solid texture based on sin functions

define sin_color_offset (sin(3.14 * fmod(x*y*z, 1) + otheta) + 1) / 2
define sin_color
define xyz_sin_texture
texture {
special surface {
color sin_color
ambient 0.2
diffuse 0.7
specular white, 0.2
microfacet Reitz 10
}
}

# Create a solid texture based on cos functions

define cos_color_offset (cos(3.14 * fmod(x*y, 1) + otheta) + 1) / 2
define cos_color
define xyz_cos_texture
texture {
special surface {
color cos_color
ambient 0.2
diffuse 0.7
specular white, 0.2
microfacet Reitz 10
}
}

# Define a texture based on moving the z component of the normal
define z_ripple_normal
texture {
special surface {
normal
color coral
ambient 0.2
diffuse 0.8
specular white, 0.2
microfacet Reitz 10
}
}

# Define a texture using a color wheel
define xz_wheel_texture
texture {
special surface {
color color_wheel(x, y, z)
ambient 0.2
diffuse 0.8
specular white, 0.2
microfacet Reitz 10
}
}

# Create spheres with special textures
object {
sphere <-4, 1, 1>, 2
xyz_sin_texture { translate <-4, 1, 1> }
}
object {
sphere <4, 1, 1>, 2
xyz_cos_texture { translate < 4, 1, 1> }
}
object {
sphere <0, 1, 0>, 2
rippled_xy_mirror
}

# Define a ground plane with run-time textures
object {
polynomial y + 3
texture {
checker
z_ripple_normal,
xz_wheel_texture { translate <0.5, 0, 0.5>}
scale <10, 10, 10>
}
}


  3 Responses to “Category : Printer + Display Graphics
Archive   : PLYDAT.ZIP
Filename : CWHEEL.PI
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/