media @ VU
vrml-math-Flower.vr
vrml-math-Flower.vr
(wrl
)
[ flux /
bitmanagement /
cortona /
octaga
]
NavigationInfo{ type "EXAMINE" }
Viewpoint{ description "start" position 0 0 10}
Background{ skyColor .5 .5 1}
DEF ROOT Transform{ scale 5 5 5 translation -1.5 0 0
children[]}
DEF Polyhedron Script {
eventIn SFBool Plus
eventIn SFBool Minus
eventOut MFNode new_f
field SFNode ROOT USE ROOT
directOutput TRUE
url ["javascript:
function initialize(){
MaxIt = 15;
strArr = new MFString(); strArr.length = MaxIt;
strArr[0] =
'DEF F0 Transform{ children[ '+
'DEF L0 Shape{ appearance Appearance{ material Material{ diffuseColor 1 1 0}} '+
'geometry IndexedFaceSet{ solid FALSE convex FALSE coord Coordinate{ '+
'point[.15 0 0,.2 .1 -.04,.2 .08 -.015,.2 .1 0,.2 .08 .015,.2 .1 .04]} '+
'coordIndex[0 1 2 3 4 5] }} '+
'Transform{ rotation 1 0 0 1.26 children USE L0} '+
'Transform{ rotation 1 0 0 -1.26 children USE L0} '+
'Transform{ rotation 1 0 0 2.52 children USE L0} '+
'Transform{ rotation 1 0 0 -2.52 children USE L0} '+
'DEF B0 Shape{ appearance Appearance{ material Material{ emissiveColor 0 1 0}} '+
'geometry IndexedLineSet{ coord Coordinate{ point[0 0 0,.15 0 0]} '+
'coordIndex[0 1]}} ]} '+
'DEF F2 Transform{ children[ '+
'DEF F1 Transform{ rotation 0 0 1 1.57 children USE F0} '+
'Transform{ rotation 1 0 0 1.26 children USE F1} '+
'Transform{ rotation 1 0 0 -1.26 children USE F1} '+
'Transform{ rotation 1 0 0 2.52 children USE F1} '+
'Transform{ rotation 1 0 0 -2.52 children USE F1} ]}';
for ( i= 1; i<MaxIt; i++) strArr[i] =
'Transform{ translation .15 0 0 rotation 1 0 0 .3 scale .9 .9 .9 children[ '+
strArr[i-1] +
'] } USE F2 USE B0 ';
iter = 5;
new_f = Browser.createVrmlFromString( strArr[iter] );
ROOT.addChildren = new_f;
}
function Plus(value){
if (value && (iter < MaxIt-1)){
iter++;
ROOT.removeChildren = new_f;
new_f = Browser.createVrmlFromString( strArr[iter] );
ROOT.addChildren = new_f;
}
}
function Minus(value){
if (value && (iter>0)){
ROOT.removeChildren = new_f;
iter--;
new_f = Browser.createVrmlFromString( strArr[iter] );
ROOT.addChildren = new_f;
}
}
"]}
# Controls
DEF Clock TimeSensor{ cycleInterval 15}
DEF Animation OrientationInterpolator{ key [ 0, .5, 1 ]
keyValue [ 1 0 0 0, 1 0 0 3.14, 1 0 0 6.28 ]}
Transform{ translation -4 -1 0 rotation 1 0 0 1.57 children[
Shape{ appearance Appearance{ material Material{ diffuseColor 1 0 0}}
geometry Cylinder{ height .2 radius .25}}
DEF tsRot TouchSensor{} ]}
Transform{ translation -4 1 0 children[
Shape{ appearance Appearance{ material Material{ diffuseColor 1 0 0}}
geometry Box{ size .4 .4 .2 }}
DEF tsPlus TouchSensor{} ]}
Transform{ translation -4 0 0 children[
Shape{ appearance Appearance{ material Material{ diffuseColor 0 1 0}}
geometry Box{ size .4 .4 .2 }}
DEF tsMinus TouchSensor{} ]}
ROUTE tsPlus.isActive TO Polyhedron.Plus
ROUTE tsMinus.isActive TO Polyhedron.Minus
ROUTE tsRot.touchTime TO Clock.startTime
ROUTE Clock.fraction_changed TO Animation.set_fraction
ROUTE Animation.value_changed TO ROOT.rotation
(C) A. Eliëns
2/9/2007
You may not copy or print any of this material without explicit permission of the author or the publisher.
In case of other copyright issues, contact the author.