media @ VU
proto-repertoire.vr
proto-repertoire.vr
(wrl
)
[ flux /
bitmanagement /
cortona /
octaga
]
Web3D/VR
repertoire
proto repertoire
PROTO repertoire [ ## "@vr-extern-repertoire.wrl"
eventIn SFInt32 next
eventOut MFString string
exposedField SFInt32 max 12
exposedField MFString u01 []
exposedField MFString u02 []
exposedField MFString u03 []
exposedField MFString u04 []
exposedField MFString u05 []
exposedField MFString u06 []
exposedField MFString u07 []
exposedField MFString u08 []
exposedField MFString u09 []
exposedField MFString u10 []
exposedField MFString u11 []
exposedField MFString u12 []
]{
proto body
Script {
directOutput TRUE
eventIn SFInt32 index
eventIn SFInt32 next IS next
eventOut MFString string IS string ## forgot to wire
field SFInt32 no 0
field SFInt32 max IS max
field MFString u01 IS u01
field MFString u02 IS u02
field MFString u03 IS u03
field MFString u04 IS u04
field MFString u05 IS u05
field MFString u06 IS u06
field MFString u07 IS u07
field MFString u08 IS u08
field MFString u09 IS u09
field MFString u10 IS u10
field MFString u11 IS u11
field MFString u12 IS u12
url "javascript:
next
function next(value) {
no++;
index(value);
if (no >= max) no = 0;
}
index
function index(value) {
// print('index ' + no);
if (no == 1) string = u01;
else if (no == 2) string = u02;
else if (no == 3) string = u03;
else if (no == 4) string = u04;
else if (no == 5) string = u05;
else if (no == 6) string = u06;
else if (no == 7) string = u07;
else if (no == 8) string = u08;
else if (no == 9) string = u09;
else if (no == 10) string = u10;
else if (no == 11) string = u11;
else if (no == 12) string = u12;
// print(string);
}
"
} ## end script
} ## end proto
(C) A. Eliëns
21/5/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.