Stone Design/Stone Design.iso/Stone_Friends/Wave/WavesWorld/Examples/robotStuff/boringBot.wwModel/initialDefines.eve

Text File | 1995-03-22 | 3.2 KB | 127 lines

set xR 0
set yR 0
set zR 0
set xT 0
set yT 0
set zT 0
set xS .25
set yS .25
set zS .25

set fork(thetaMax) {180.000000};
set fork(xScale) {0.565574};
set fork(majorRadius) {2.0};
set fork(phiMin) {0.0};
set fork(minorRadius) {0.333333};
set fork(yScale) {3.000000};
set fork(zScale) {2.000000};
set fork(phiMax) {360.0};
set fork(color) {0.924665 0.901624 1.000000};
set tire(yScale) {1.060000};
set tire(thetaMax) {360.000000};
set tire(minorRadius) {2.000000};
set tire(phiMin) {0.0};
set tire(xTranslate) {0};
set tire(xRotate) {0};
set tire(phiMax) {360.0};
set tire(yRotate) {0};
set tire(xScale) {1.000000};
set tire(zTranslate) {0};
set tire(zRotate) {0};
set tire(majorRadius) {2.0};
set tire(zScale) {0.344262};
set tire(yTranslate) {0};
set tire(color) {0.099994 0.099994 0.099994};
set gasket(thetaMax) {360.0};
set gasket(majorRadius) {0.400000};
set gasket(phiMin) {0.0};
set gasket(minorRadius) {0.200000};
set gasket(yTranslate) {8.0};
set gasket(xRotate) {90.000000};
set gasket(color) {0.000000 0.000000 0.000000};
set gasket(phiMax) {180.0};
set surface(rubber) {RCRubber};
set surface(metal) {ECDentedMetalEffect};
set topOfFork(zTranslate) {0};
set topOfFork(zMax) {1.0};
set topOfFork(thetaMax) {360.0};
set topOfFork(radius) {0.400000};
set topOfFork(zRotate) {0};
set topOfFork(xTranslate) {0};
set topOfFork(zMin) {-3.0};
set topOfFork(yTranslate) {7.000000};
set topOfFork(xRotate) {90.000000};
set hubcap(radius) {3.400000};
set hubcap(yScale) {1};
set hubcap(thetaMax) {360.0};
set hubcap(zMin) {-5.333333};
set hubcap(xTranslate) {0};
set hubcap(xRotate) {0};
set hubcap(yRotate) {0};
set hubcap(zMax) {9.000000};
set hubcap(xScale) {1};
set hubcap(zTranslate) {0};
set hubcap(zRotate) {0};
set hubcap(zScale) {1};
set hubcap(color) {0.924665 0.901624 1.000000};
set hubcap(yTranslate) {0};
set piston(zTranslate) {0};
set piston(zMax) {3.0};
set piston(thetaMax) {360.0};
set piston(radius) {0.600000};
set piston(bounce) {0.0};
set piston(zRotate) {0};
set piston(xTranslate) {0};
set piston(zMin) {0.0};
set piston(yTranslate) {11.000000};
set piston(xRotate) {90.000000};
set piston(color) {0.924665 0.901624 1.000000};

set pi 3.1415926535897932384626433
proc dToR {degrees} { global pi; return [expr {[expr {$degrees*$pi}]/180.0}]; }
proc rToD {radians} { global pi; return [expr {[expr {$radians*180.0}]/$pi}]; }

set nodAngle 0.0
set shakeAngle 0.0

set headRadius .25
set headColor {1 1 1}
set kindOfHead plain

set initialEyeScale .2
set eyeRadius [expr {$headRadius*$initialEyeScale}]
set eyeProtrusion .85
set initialEyeYaw 0.0
set initialEyePitch 10.0
set eyePitch 0.0
set eyeYaw 0.0
set eyeRoll 0.0
set eyeScale 1.0
set eyeColor {1 1 1}

set pupilRadius [expr {$eyeRadius*.5}]
set pupilScale 1.0
set pupilColor {0 0 0}

set noseLength [expr {$headRadius*.75}]
set noseWidth [expr {$headRadius*.3}]
set noseColor {1 1 1}

set crestCount 11
set crestLength [expr {$headRadius*2.0}]
set crestWidth [expr {$headRadius*.4}]
set crestColor {1 1 1}
set crestYawStep 10.0

set antennaColor {1 1 1}
set antennaTilt 30
set antennaLength  [expr {$headRadius*1.5}]
set antennaRadius  [expr {$headRadius*.1}]
set antennaKnobColor {1 1 1}
set antennaKnobRadius     [expr {$antennaRadius*2.}]


# some manipulation notes:
# by adjusting the initialEyePitch, you can move from "predator" to "prey"