POV-Ray : Newsgroups : povray.text.scene-files : insect crawl, spiders/scorpions Server Time
8 Jul 2024 11:11:48 EDT (-0400)
  insect crawl, spiders/scorpions (Message 1 to 2 of 2)  
From: Bob H 
Subject: insect crawl, spiders/scorpions
Date: 16 Oct 2000 01:50:37
Message: <39ea972d@news.povray.org>
// Persistence of Vision Ray Tracer Scene Description File
// File: insectcrawl.pov
// Vers: 3.1
// Desc: spiders and scorpions crawling
// Date: 00.75
// Auth: Bob Hughes
// Mail: per### [at] aolcom?subject=PoV-Scene&body=Concerning%20POV-Ray
// Note: ClockMod.inc is needed, http://www.geocities.com/ccolefax/
// This is not accurate or realistic action so be aware of that fact please.

#declare Which=1;  // spiders = 1 scorpions = any other number

light_source { <0,27.5,-10> color rgb <1.5,1.5,1.5>}

camera
{
  location <5+(2.5*clock),12.5-(7.5*clock),-15+(5*clock)>
  angle 60
  look_at  <1.5-(3*clock),-1.5+(clock),-9*clock>
}

// floor
plane {y,0 pigment {gradient z color_map {
        [0 color rgb 0][.1 color rgb .75][1 color rgb .25]
        } ramp_wave
        }
      normal {dents .075 scale .15}
       finish {specular .3 roughness .03}
}

#if (Which=1)
// for
spider
------------------------------------------------------------------------------------------

// placement and animation stuff
#declare Ss=seed(5432);
#declare SL=0;

union {
#while (SL<13)
#declare Sr=rand(Ss)*1.0;
#declare Xr=rand(Ss)*2.5;
#declare Zr=rand(Ss)*2.5;

#declare clock_type="O"
#declare clock_repeat=6;
#include "clockmod.inc"
#declare LLl=mclock;
#declare LLr=1-mclock;
#declare clock_type="J"
#declare clock_repeat=6;
#include "clockmod.inc"
#declare FLl=mclock;
#declare FLr=mclock;
#declare clock_type="W"
#declare clock_repeat=6;
#include "clockmod.inc"
#declare WL=mclock;
#declare clock_type="S"
#declare clock_repeat=1;
#include "clockmod.inc"
#declare S=(1-mclock)*Sr;

#declare Legs=
union {
//#declare Leg1=
blob {
        threshold .5
        cylinder {-y,0,.075,1 rotate <0,0,-30+(LLl*10)-(30*S)> pigment {rgbf
<.25,.5,.75,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 pigment {rgbf <.9,.75,.1,.3>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 rotate <0,0,45+(-FLl*5)> translate y pigment {rgbf
<1,.5,.125,.125>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
 rotate 60*z translate <1.875,-.333,0> rotate ((-7.5*WL)+(7.5*S))*z
  rotate (30+(7.5*LLl))*y translate <.375,1.333,0>
 translate -.33*z
}
//#declare Leg2=
blob {
        threshold .5
        cylinder {-y,0,.075,1 rotate <0,0,-35+(LLl*15)-(30*S)> pigment {rgbf
<.25,.5,.75,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 pigment {rgbf <.9,.75,.1,.3>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 rotate <0,0,45+(-FLl*5)> translate y pigment {rgbf
<1,.5,.125,.125>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
 rotate 60*z translate <1.875,-.333,0> rotate ((7.5*WL)+(7.5*S))*z
  rotate (10-(7.5*LLl))*y translate <.375,1.333,0>
 translate -.133*z
}
//#declare Leg3=
blob {
        threshold .5
        cylinder {-y,0,.075,1 rotate <0,0,-35+(LLl*15)-(30*S)> pigment {rgbf
<.25,.5,.75,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 pigment {rgbf <.9,.75,.1,.3>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 rotate <0,0,45+(-FLl*5)> translate y pigment {rgbf
<1,.5,.125,.125>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
 rotate 60*z translate <1.875,-.333,0> rotate ((-7.5*WL)+(7.5*S))*z
  rotate (-10+(7.5*LLl))*y translate <.375,1.333,0>
 translate .133*z
}
//#declare Leg4=
blob {
        threshold .5
        cylinder {-y,0,.075,1 rotate <0,0,-30+(LLl*10)-(30*S)> pigment {rgbf
<.25,.5,.75,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 pigment {rgbf <.9,.75,.1,.3>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 rotate <0,0,45+(-FLl*5)> translate y pigment {rgbf
<1,.5,.125,.125>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
 rotate 60*z translate <1.875,-.333,0> rotate ((7.5*WL)+(7.5*S))*z
  rotate (-30-(7.5*LLl))*y translate <.375,1.333,0>
 translate .33*z
}
}

/*  IGNORE
#declare Leg1r=
blob {
        threshold .5
        cylinder {-y,0,.075,1 rotate <0,0,-30+(LLr*10)-(30*S)> pigment {rgbf
<.25,.5,.75,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 pigment {rgbf <.9,.75,.1,.3>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 rotate <0,0,45+(FLr*5)> translate y pigment {rgbf
<1,.5,.125,.125>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
  rotate 180*y rotate -60*z translate <-1.875,-.333,0> rotate -((7.5*WL)+(7.5*S))*z
  rotate (30+(-7.5*LLr))*y translate <-.375,1.333,0>
}
#declare Leg2r=
blob {
        threshold .5
        cylinder {-y,0,.075,1 rotate <0,0,-35+(LLr*15)-(30*S)> pigment {rgbf
<.25,.5,.75,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 pigment {rgbf <.9,.75,.1,.3>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 rotate <0,0,45+(FLr*5)> translate y pigment {rgbf
<1,.5,.125,.125>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
 rotate 180*y rotate -60*z translate <-1.875,-.333,0> rotate ((-7.5*WL)+(7.5*S))*z
  rotate (10-(-7.5*LLr))*y translate <-.375,1.333,0>
}
#declare Leg3r=
blob {
        threshold .5
        cylinder {-y,0,.075,1 rotate <0,0,-35+(LLr*15)-(30*S)> pigment {rgbf
<.25,.5,.75,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 pigment {rgbf <.9,.75,.1,.3>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 rotate <0,0,45+(FLr*5)> translate y pigment {rgbf
<1,.5,.125,.125>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
 rotate 180*y rotate -60*z translate <-1.875,-.333,0> rotate -((7.5*WL)+(7.5*S))*z
  rotate (-10+(-7.5*LLr))*y translate <-.375,1.333,0>
}
#declare Leg4r=
blob {
        threshold .5
        cylinder {-y,0,.075,1 rotate <0,0,-30+(LLr*10)-(30*S)> pigment {rgbf
<.25,.5,.75,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 pigment {rgbf <.9,.75,.1,.3>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 rotate <0,0,45+(FLr*5)> translate y pigment {rgbf
<1,.5,.125,.125>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .2 diffuse .75 specular .15 roughness .15}
 rotate 180*y rotate -60*z translate <-1.875,-.333,0> rotate ((-7.5*WL)+(7.5*S))*z
  rotate (-30-(-7.5*LLr))*y translate <-.375,1.333,0>
}
*/

#declare Spider=
union {
blob {
        threshold .1
// eyes
sphere {0,.067,1 translate <-.167,.225,.75>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.075,1 translate <-.08,.275,.8>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.075,1 translate <.08,.275,.8>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.067,1 translate <.167,.225,.75>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.05,1 translate <-.167,.225,.55>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.07,1 translate <-.08,.275,.65>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.07,1 translate <.08,.275,.65>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.05,1 translate <.167,.225,.55>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
// head
sphere {0,.333,1 scale <.9,.8,.7> translate <0,.075,.67>
        pigment {rgb <.4,.333,.275>}
        normal {granite .2 scale .01}
        finish {ambient .05 diffuse .75 specular .1 roughness .1}
 }
// mouth
sphere {0,.225,-1 scale <.75,.25,.5> translate <0,.03,.85>
        pigment {rgb <.35,.3,.25>}
        normal {granite .2 scale .01}
        finish {ambient .05 diffuse .75 specular .1 roughness .1}
}
cylinder {0,z/9,.03,1 rotate 45*y translate <-.175,.03,.875>
        pigment {rgb <.5,.33,.25>}
        normal {wrinkles .4 scale .03 ramp_wave}
        finish {ambient .05 diffuse .67 specular .15 roughness .075}
}
cylinder {0,z/9,.03,1 rotate -45*y translate <.175,.03,.875>
        pigment {rgb <.5,.33,.25>}
        normal {wrinkles .4 scale .03 ramp_wave}
        finish {ambient .05 diffuse .67 specular .15 roughness .075}
}
cylinder {0,z/9,.03,1 rotate -45*y translate <-.15,.03,.825>
        pigment {rgb <.5,.33,.25>}
        normal {wrinkles .4 scale .03 ramp_wave}
        finish {ambient .05 diffuse .67 specular .15 roughness .075}
}
cylinder {0,z/9,.03,1 rotate 45*y translate <.15,.03,.825>
        pigment {rgb <.5,.33,.25>}
        normal {wrinkles .4 scale .03 ramp_wave}
        finish {ambient .05 diffuse .67 specular .15 roughness .075}
}
// thorax
sphere {0,.5,1 scale <1.1,.7,1.15> translate <0,.125,.1>
        pigment {rgb <.35,.3,.2>}
        normal {wrinkles .4 scale .03 ramp_wave}
        finish {ambient .05 diffuse .67 specular .15 roughness .075}
 }
// body
sphere {0,.75,1 scale <.9,.8,1.1> translate <0,.333,-.75>
        pigment {gradient x turbulence .25+(Sr/3) frequency 5 color_map {
                [0 rgb <.25,.125,.05>][1 rgb <1,1,.25>]}}
        normal {marble .3 turbulence .5+(Sr/3) scale .05 scallop_wave}
        finish {ambient .15 diffuse .5 specular .05 roughness .15}
 }
       translate ((1.15+.15*FLl)-(.5*S))*y
}
object {Legs}
object {Legs scale <-1,1,1>}
 rotate 180*y
  translate <-S,0,-10.5*clock>
}

object {Spider translate <-12+(Xr*15),0,-5+(Zr*15)>}

#declare SL=SL+1;
#end // loop
} //union

#else
// for scorpion
________________________________________________________________________

// placement and animation stuff
#declare Ss=seed(5432);
#declare SL=0;

union {
#while (SL<13)
#declare Sr=rand(Ss)*1.0;
#declare Xr=rand(Ss)*2.5;
#declare Zr=rand(Ss)*2.5;

#declare clock_type="O"
#declare clock_repeat=6;
#include "clockmod.inc"
#declare LLl=mclock;
#declare LLr=1-mclock;
#declare clock_type="J"
#declare clock_repeat=6;
#include "clockmod.inc"
#declare FLl=mclock;
#declare FLr=mclock;
#declare clock_type="W"
#declare clock_repeat=6;
#include "clockmod.inc"
#declare WL=mclock;
#declare clock_type="S"
#declare clock_repeat=1;
#include "clockmod.inc"
#declare S=(1-mclock)*Sr;

#declare SLegs=
union {
blob {
        threshold .5
        cylinder {-y,0,.075,1 scale <1.75,1,1.25> rotate <0,0,-30+(LLl*10)-(30*S)>
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 scale <1.75,1,1.25> pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 scale <1.75,1,1.25> rotate <0,0,45+(-FLl*5)> translate y
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
 rotate 60*z translate <1.875,-.333,0> rotate ((-7.5*WL)+(7.5*S))*z
  rotate (30+(7.5*LLl))*y translate <.375,1.333,0>
 translate -.33*z
}
blob {
        threshold .5
        cylinder {-y,0,.075,1 scale <1.75,1,1.25> rotate <0,0,-35+(LLl*15)-(30*S)>
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 scale <1.75,1,1.25> pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 scale <1.75,1,1.25> rotate <0,0,45+(-FLl*5)> translate y
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
 rotate 60*z translate <1.875,-.333,0> rotate ((7.5*WL)+(7.5*S))*z
  rotate (10-(7.5*LLl))*y translate <.375,1.333,0>
 translate -.133*z
}
blob {
        threshold .5
        cylinder {-y,0,.075,1 scale <1.75,1,1.25> rotate <0,0,-35+(LLl*15)-(30*S)>
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 scale <1.75,1,1.25> pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 scale <1.75,1,1.25> rotate <0,0,45+(-FLl*5)> translate y
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
 rotate 60*z translate <1.875,-.333,0> rotate ((-7.5*WL)+(7.5*S))*z
  rotate (-10+(7.5*LLl))*y translate <.375,1.333,0>
 translate .133*z
}
blob {
        threshold .5
        cylinder {-y,0,.075,1 scale <1.75,1,1.25> rotate <0,0,-30+(LLl*10)-(30*S)>
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 scale <1.75,1,1.25> pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 scale <1.75,1,1.25> rotate <0,0,45+(-FLl*5)> translate y
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
 pigment {rgb 1}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
 rotate 60*z translate <1.875,-.333,0> rotate ((7.5*WL)+(7.5*S))*z
  rotate (-30-(7.5*LLl))*y translate <.375,1.333,0>
 translate .33*z
}
// arm
blob {
        threshold .5
        sphere {0,.3,1 scale <1.5,1.75,1.5> rotate <0,0,-30+(LLl*10)-(30*S)>
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {-y,0,.075,1 scale <1.75,1,1.25> rotate -30*x rotate
<0,0,-30+(LLl*10)-(30*S)>
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {-y,0,.075,1 scale <1.75,1,1.25> rotate <0,0,-30+(LLl*10)-(30*S)>
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {0,y,.1,1 scale <1.75,1,1.25> pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
        cylinder {0,y,.125,1 scale <1.75,1,1.25> rotate <0,0,45+(-FLl*5)> translate y
                 pigment {rgbf <.75,.67,.5,.25>}
        normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .1 diffuse .5 specular .15 roughness .15}
        }
 pigment {rgb 1}
 scale <.8,.8,1> rotate 60*z translate <1.875,-.333,0> rotate ((7.5*WL)+(7.5*S))*z
   rotate (0-(7.5*LLl))*y rotate <-90,-45,0> translate <.375,1.333,.25>
 translate .33*z
}
}

#declare Scorpion=
union {
blob {
        threshold .1
// eyes
sphere {0,.067,1 translate <-.167,.225,.75>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.075,1 translate <-.08,.275,.8>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.075,1 translate <.08,.275,.8>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.067,1 translate <.167,.225,.75>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.05,1 translate <-.167,.225,.55>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.07,1 translate <-.08,.275,.65>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.07,1 translate <.08,.275,.65>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
sphere {0,.05,1 translate <.167,.225,.55>
        pigment {rgb <.125,.13,.133>}
        finish {ambient .05 diffuse .75 specular .25 roughness .025 reflection .1}
 }
// head
sphere {0,.333,1 scale <.9,.8,.7> translate <0,.075,.67>
        pigment {rgb <.4,.333,.275>}
        normal {granite .2 scale .01}
        finish {ambient .05 diffuse .75 specular .1 roughness .1}
 }
// mouth
sphere {0,.225,-1 scale <.75,.25,.5> translate <0,.03,.85>
        pigment {rgb <.35,.3,.25>}
        normal {granite .2 scale .01}
        finish {ambient .05 diffuse .75 specular .1 roughness .1}
}
cylinder {0,z/9,.03,1 rotate 45*y translate <-.175,.03,.875>
        pigment {rgb <.5,.33,.25>}
        normal {wrinkles .4 scale .03 ramp_wave}
        finish {ambient .05 diffuse .67 specular .15 roughness .075}
}
cylinder {0,z/9,.03,1 rotate -45*y translate <.175,.03,.875>
        pigment {rgb <.5,.33,.25>}
        normal {wrinkles .4 scale .03 ramp_wave}
        finish {ambient .05 diffuse .67 specular .15 roughness .075}
}
cylinder {0,z/9,.03,1 rotate -45*y translate <-.15,.03,.825>
        pigment {rgb <.5,.33,.25>}
        normal {wrinkles .4 scale .03 ramp_wave}
        finish {ambient .05 diffuse .67 specular .15 roughness .075}
}
cylinder {0,z/9,.03,1 rotate 45*y translate <.15,.03,.825>
        pigment {rgb <.5,.33,.25>}
        normal {wrinkles .4 scale .03 ramp_wave}
        finish {ambient .05 diffuse .67 specular .15 roughness .075}
}
// thorax
sphere {0,.5,1 scale <1.1,.7,.5> translate <0,.125,.25>
        pigment {rgb <.35,.3,.2>}
        normal {wrinkles .4 scale .03 ramp_wave}
        finish {ambient .05 diffuse .67 specular .15 roughness .075}
 }
// body
sphere {0,.75,1 scale <1,.5,1.5> translate <0,.1,-.25>
        pigment {gradient z frequency 4 color_map {
                [0 rgb <.333,.25,.125>][1 rgb <.75,.5,.5>]}}
        normal {gradient z .3 frequency 4 scallop_wave}
        finish {ambient .15 diffuse .5 specular .05 roughness .15}
 }
// tail
#declare TL=0;
#while (TL<8)
sphere {0,.75,1 scale <.3,.3,.3>-(TL*.01) translate -.67*y rotate TL*20*x translate
<0,.76,-.9>
        pigment {gradient z frequency 5 color_map {
                [0 rgb <.333,.25,.125>][1 rgb <.75,.5,.5>]}}
        normal {gradient z .3 frequency 4 scallop_wave}
        finish {ambient .15 diffuse .5 specular .05 roughness .15}
 }
#declare TL=TL+1;
#end
sphere {0,.75,1 scale <.3,.275,.333> rotate 30*x translate <0,1.25,-1.1>
        pigment {gradient z frequency 1 color_map {
                [0 rgb <.333,.25,.125>][1 rgb <.75,.5,.5>]}}
        normal {gradient z .3 frequency 4 scallop_wave}
        finish {ambient .15 diffuse .5 specular .05 roughness .15}
 }
cylinder {0,z,.025,1 scale <1.25,1.5,.25> rotate 30*x translate <0,1.125,-1>
        pigment {rgbf <.25,.2,.15,.05>}
       // normal {wrinkles -.5 turbulence .25 scale <.025,.1,.025> scallop_wave}
        finish {ambient .125 diffuse .5 specular .15 roughness .15}
 }

    translate ((.67+.15*FLl)-(.5*S))*y
}
object {SLegs scale .75 translate <-.15,-.2,0>}
object {SLegs scale <-1,1,1>*.75 translate <-.15,-.2,0>}
 rotate 180*y
  translate <-S,0,-10.5*clock>
}

object {Scorpion translate <-12+(Xr*15),0,-5+(Zr*15)>}

#declare SL=SL+1;
#end // loop
} // union
#end // which


Post a reply to this message

From: SomeGuy
Subject: Re: insect crawl, spiders/scorpions
Date: 19 Oct 2000 21:54:25
Message: <39EE65EA.8D535F52@earthlink.net>
Thank you...=)

There is more code here than i expected...


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.