#VRML V2.0 utf8

########################################################################
# Copyright 1998, Loretta Staples                                      #
########################################################################

PROTO Letter [
	field         SFFloat    emphasis 0
	eventIn       SFFloat    set_emphasis 
	exposedField  MFString   string [ ]
	exposedField  SFRotation rotation 0 0 1  0
      ]
{
  Transform {
    children	Shape {
      appearance	Appearance {
	material	DEF MATERIAL Material {
	  diffuseColor	0.8 0.8 0.8
	  emissiveColor	0 0 0
	  transparency	0
	}
      }
      geometry	Text {
	string IS string
	fontStyle	FontStyle {
	  size	6
	  family	"SANS"
	  style	"BOLD"
	  justify	"MIDDLE"
	}
      }
    }
    rotation IS rotation
  }
  DEF SCRIPT Script {
    eventOut  SFColor  diffuseColor_changed
    eventOut  SFColor  emissiveColor_changed
    eventOut  SFFloat  transparency_changed
    eventIn   SFFloat  set_emphasis IS set_emphasis
    field     SFFloat  emphasis IS emphasis
    url	"vrmlscript:

    function initialize()
    {
      if (emphasis < 0.5) {
	diffuseColor_changed = new SFColor(0.2902, 0.4392, 0.5451);
	emissiveColor_changed = new SFColor(0, 0, 0);
	transparency_changed = 0.85;
      } else {
	diffuseColor_changed = new SFColor(1, 0.3882, 0.2784);
	emissiveColor_changed = new SFColor(0, 0, 0);
	transparency_changed = 0;
      }
    }

    function set_emphasis(v)
    {
      emphasis = v;
      initialize();
    }"
  }
  ROUTE SCRIPT.diffuseColor_changed TO MATERIAL.set_diffuseColor
  ROUTE SCRIPT.emissiveColor_changed TO MATERIAL.set_emissiveColor
  ROUTE SCRIPT.transparency_changed TO MATERIAL.set_transparency
}

Group {
  children	[
    WorldInfo {
      title "model3.wrl"
      info  [
	"Copyright 1998, Loretta Staples"
	"lorettas@umich.edu"
	"www.umich.edu/~lorettas"
      ]
    }
    NavigationInfo {
      type	[ "EXAMINE", "ANY" ]
    }
    Background {
      skyAngle	[ 1.309, 1.571 ]
      skyColor	[ 1 0.9647 0.5608,
	        0.9333 0.902 0.5216,
	        0.8039 0.7765 0.451 ]
    }
    DEF VP1 Viewpoint {
      description	"start"
    }
    Transform {
      children DEF ROT Transform {
	children	[
	  DEF LETTER_A Letter {
	    string	"A"
	    rotation	0 1 0  0.0192
	  }
	  DEF LETTER_B Letter {
	    string	"B"
	    rotation	0 1 0  0.1401
	  }
	  DEF LETTER_C Letter {
	    string	"C"
	    rotation	0 1 0  0.2609
	  }
	  DEF LETTER_D Letter {
	    string	"D"
	    rotation	0 1 0  0.3817
	  }
	  DEF LETTER_E Letter {
	    string	"E"
	    rotation	0 1 0  0.5026
	  }
	  DEF LETTER_F Letter {
	    string	"F"
	    rotation	0 1 0  0.6234
	  }
	  DEF LETTER_G Letter {
	    string	"G"
	    rotation	0 1 0  0.7442
	  }
	  DEF LETTER_H Letter {
	    string	"H"
	    rotation	0 1 0  0.8650
	  }
	  DEF LETTER_I Letter {
	    string	"I"
	    rotation	0 1 0  0.9859
	  }
	  DEF LETTER_J Letter {
	    string	"J"
	    rotation	0 1 0  1.1067
	  }
	  DEF LETTER_K Letter {
	    string	"K"
	    rotation	0 1 0  1.2275
	  }
	  DEF LETTER_L Letter {
	    string	"L"
	    rotation	0 1 0  1.3484
	  }
	  DEF LETTER_M Letter {
	    string	"M"
	    rotation	0 1 0  1.4692
	  }
	  DEF LETTER_N Letter {
	    string	"N"
	    rotation	0 1 0  1.5900
	  }
	  DEF LETTER_O Letter {
	    string	"O"
	    rotation	0 1 0  1.7109
	  }
	  DEF LETTER_P Letter {
	    string	"P"
	    rotation	0 1 0  1.8317
	  }
	  DEF LETTER_Q Letter {
	    string	"Q"
	    rotation	0 1 0  1.9525
	  }
	  DEF LETTER_R Letter {
	    string	"R"
	    rotation	0 1 0  2.0733
	  }
	  DEF LETTER_S Letter {
	    string	"S"
	    rotation	0 1 0  2.1942
	  }
	  DEF LETTER_T Letter {
	    string	"T"
	    rotation	0 1 0  2.3150
	  }
	  DEF LETTER_U Letter {
	    string	"U"
	    rotation	0 1 0  2.4358
	  }
	  DEF LETTER_V Letter {
	    string	"V"
	    rotation	0 1 0  2.5567
	  }
	  DEF LETTER_W Letter {
	    string	"W"
	    rotation	0 1 0  2.6775
	  }
	  DEF LETTER_X Letter {
	    string	"X"
	    rotation	0 1 0  2.7983
	  }
	  DEF LETTER_Y Letter {
	    string	"Y"
	    rotation	0 1 0  2.9192
	  }
	  DEF LETTER_Z Letter {
	    string	"Z"
	    rotation	0 1 0  3.0400
	  }
	]
      }
      translation	0.841951 -1.34188 -1.25125
      rotation	0.756334 0.210213 0.619491  0.843468
    }
    Transform {
      children	Shape {
	appearance	Appearance {
	  material	DEF MATERIAL Material {
	    diffuseColor	0.2902 0.4392 0.5451
	  }
	}
	geometry	Text {
	  string	"Loretta Staples 1998"
	  fontStyle	FontStyle {
	    size	0.1
	    family	"SANS"
	    justify	"MIDDLE"
	  }
	}
      }
      translation 0 -10 0
    }
    DEF TIMER TimeSensor {
      cycleInterval	1
    }
    DEF TIMER_INIT TimeSensor {
      cycleInterval	0.1
      loop		TRUE
    }
    DEF INTER OrientationInterpolator {
      key	[ 0, 1 ]
      keyValue	[ 0 -1 0  0, 0 -1 0  3 ]
    }
    DEF SCRIPT Script {
	eventOut  SFFloat  emphasisA_changed
	eventOut  SFFloat  emphasisB_changed
	eventOut  SFFloat  emphasisC_changed
	eventOut  SFFloat  emphasisD_changed
	eventOut  SFFloat  emphasisE_changed
	eventOut  SFFloat  emphasisF_changed
	eventOut  SFFloat  emphasisG_changed
	eventOut  SFFloat  emphasisH_changed
	eventOut  SFFloat  emphasisI_changed
	eventOut  SFFloat  emphasisJ_changed
	eventOut  SFFloat  emphasisK_changed
	eventOut  SFFloat  emphasisL_changed
	eventOut  SFFloat  emphasisM_changed
	eventOut  SFFloat  emphasisN_changed
	eventOut  SFFloat  emphasisO_changed
	eventOut  SFFloat  emphasisP_changed
	eventOut  SFFloat  emphasisQ_changed
	eventOut  SFFloat  emphasisR_changed
	eventOut  SFFloat  emphasisS_changed
	eventOut  SFFloat  emphasisT_changed
	eventOut  SFFloat  emphasisU_changed
	eventOut  SFFloat  emphasisV_changed
	eventOut  SFFloat  emphasisW_changed
	eventOut  SFFloat  emphasisX_changed
	eventOut  SFFloat  emphasisY_changed
	eventOut  SFFloat  emphasisZ_changed

	eventOut  SFTime      start_timer
	eventOut  SFTime      duration
	eventOut  MFRotation  interKeyValues
	eventIn   SFBool      isActive

	eventIn   SFTime      start_init
	eventOut  SFBool      end_init

	field     SFRotation  rNew  0 -1 0  0
	field     SFRotation  rOld  0 -1 0  0

	field     SFString sentence
"YOU ARE READING A SEDUCTION MACHINE "
	field     SFInt32  currentIndex   0
	field     SFInt32  currentLetter  0
	field     SFInt32  backupLetter   0
	field     SFInt32  isHighlighted  0
	field     SFInt32  rotLetter      0
	field     SFInt32  rotDirection   1
	field     SFFloat  vOld           0
	url  "vrmlscript:

  function changeValue(nr, v)
  {
     if (nr ==  0) emphasisA_changed = v;
     if (nr ==  1) emphasisB_changed = v;
     if (nr ==  2) emphasisC_changed = v;
     if (nr ==  3) emphasisD_changed = v;
     if (nr ==  4) emphasisE_changed = v;
     if (nr ==  5) emphasisF_changed = v;
     if (nr ==  6) emphasisG_changed = v;
     if (nr ==  7) emphasisH_changed = v;
     if (nr ==  8) emphasisI_changed = v;
     if (nr ==  9) emphasisJ_changed = v;
     if (nr == 10) emphasisK_changed = v;
     if (nr == 11) emphasisL_changed = v;
     if (nr == 12) emphasisM_changed = v;
     if (nr == 13) emphasisN_changed = v;
     if (nr == 14) emphasisO_changed = v;
     if (nr == 15) emphasisP_changed = v;
     if (nr == 16) emphasisQ_changed = v;
     if (nr == 17) emphasisR_changed = v;
     if (nr == 18) emphasisS_changed = v;
     if (nr == 19) emphasisT_changed = v;
     if (nr == 20) emphasisU_changed = v;
     if (nr == 21) emphasisV_changed = v;
     if (nr == 22) emphasisW_changed = v;
     if (nr == 23) emphasisX_changed = v;
     if (nr == 24) emphasisY_changed = v;
     if (nr == 25) emphasisZ_changed = v;
   }

  function nextLetter()
  {
    s = sentence.charAt(currentIndex).toUpperCase();
    currentIndex++;
    if (currentIndex == sentence.length) currentIndex = 0;

    if (s == 'A') return  0;
    if (s == 'B') return  1;
    if (s == 'C') return  2;
    if (s == 'D') return  3;
    if (s == 'E') return  4;
    if (s == 'F') return  5;
    if (s == 'G') return  6;
    if (s == 'H') return  7;
    if (s == 'I') return  8;
    if (s == 'J') return  9;
    if (s == 'K') return 10;
    if (s == 'L') return 11;
    if (s == 'M') return 12;
    if (s == 'N') return 13;
    if (s == 'O') return 14;
    if (s == 'P') return 15;
    if (s == 'Q') return 16;
    if (s == 'R') return 17;
    if (s == 'S') return 18;
    if (s == 'T') return 19;
    if (s == 'U') return 20;
    if (s == 'V') return 21;
    if (s == 'W') return 22;
    if (s == 'X') return 23;
    if (s == 'Y') return 24;
    if (s == 'Z') return 25;
    return -1; // ' ', '.', ',', ';', ...
  }

  function start(t)
  {
    rOld = rNew;
    rNew = new SFRotation(0, -1, 0, Math.PI * currentLetter / 26);
    q = new MFRotation();
    q[0] = rOld;
    q[1] = rNew;
    interKeyValues = q;
    start_timer = t;
  }

  function isActive(bind, t)
  {
    if (!bind) {
      if (isHighlighted == 0) {
	isHighlighted = 1;
	changeValue(currentLetter, 1);
	duration = 0.1;
	start(t);
      } else {
	isHighlighted = 0;
	changeValue(currentLetter, 0);
	currentLetter = nextLetter();
	duration = 0.3;
	if (currentLetter == -1) {
	  currentLetter = nextLetter();
	  duration = 1.2;
	}
	start(t);
      }
    }
  }

  function start_init(t) {
    end_init = FALSE;
    start(t);
  }

  function initialize()
  {
    currentLetter = nextLetter();
  }"
    }
  ]
}
ROUTE SCRIPT.emphasisA_changed TO LETTER_A.set_emphasis
ROUTE SCRIPT.emphasisB_changed TO LETTER_B.set_emphasis
ROUTE SCRIPT.emphasisC_changed TO LETTER_C.set_emphasis
ROUTE SCRIPT.emphasisD_changed TO LETTER_D.set_emphasis
ROUTE SCRIPT.emphasisE_changed TO LETTER_E.set_emphasis
ROUTE SCRIPT.emphasisF_changed TO LETTER_F.set_emphasis
ROUTE SCRIPT.emphasisG_changed TO LETTER_G.set_emphasis
ROUTE SCRIPT.emphasisH_changed TO LETTER_H.set_emphasis
ROUTE SCRIPT.emphasisI_changed TO LETTER_I.set_emphasis
ROUTE SCRIPT.emphasisJ_changed TO LETTER_J.set_emphasis
ROUTE SCRIPT.emphasisK_changed TO LETTER_K.set_emphasis
ROUTE SCRIPT.emphasisL_changed TO LETTER_L.set_emphasis
ROUTE SCRIPT.emphasisM_changed TO LETTER_M.set_emphasis
ROUTE SCRIPT.emphasisN_changed TO LETTER_N.set_emphasis
ROUTE SCRIPT.emphasisO_changed TO LETTER_O.set_emphasis
ROUTE SCRIPT.emphasisP_changed TO LETTER_P.set_emphasis
ROUTE SCRIPT.emphasisQ_changed TO LETTER_Q.set_emphasis
ROUTE SCRIPT.emphasisR_changed TO LETTER_R.set_emphasis
ROUTE SCRIPT.emphasisS_changed TO LETTER_S.set_emphasis
ROUTE SCRIPT.emphasisT_changed TO LETTER_T.set_emphasis
ROUTE SCRIPT.emphasisU_changed TO LETTER_U.set_emphasis
ROUTE SCRIPT.emphasisV_changed TO LETTER_V.set_emphasis
ROUTE SCRIPT.emphasisW_changed TO LETTER_W.set_emphasis
ROUTE SCRIPT.emphasisX_changed TO LETTER_X.set_emphasis
ROUTE SCRIPT.emphasisY_changed TO LETTER_Y.set_emphasis
ROUTE SCRIPT.emphasisZ_changed TO LETTER_Z.set_emphasis

ROUTE SCRIPT.start_timer       TO TIMER.set_startTime
ROUTE SCRIPT.duration          TO TIMER.set_cycleInterval
ROUTE SCRIPT.interKeyValues    TO INTER.set_keyValue
ROUTE TIMER.isActive           TO SCRIPT.isActive
ROUTE TIMER.fraction_changed   TO INTER.set_fraction
ROUTE INTER.value_changed      TO ROT.set_rotation

ROUTE TIMER_INIT.cycleTime     TO SCRIPT.start_init
ROUTE SCRIPT.end_init          TO TIMER_INIT.set_enabled