import java.applet.Applet;
import java.awt.*;
import java.awt.event.*;
import vrml.external.*;
import vrml.external.field.*;
import vrml.external.exception.*;

public class EAITest extends Applet implements EventOutObserver {
  TextField eaiText;
  TextField renderText;
  Browser browser;
  EventInMFVec3f sphereCoord;
  int frames = 0;
  long lastTime = 0;
  float[][] spherePoints;
  float[][] kv1;

  public void init() {
    GridBagLayout gridbag = new GridBagLayout();
    GridBagConstraints c = new GridBagConstraints();
    setLayout(gridbag);

    c.anchor = GridBagConstraints.CENTER;
    c.fill = GridBagConstraints.NONE;
    c.weightx = .5f;
    c.weighty = .5f;
    eaiText = new TextField(25);
    add(eaiText, c);

    c.gridx = 1;
    renderText = new TextField(25);
    add(renderText, c);

    if (!getBrowser(this)) {
      System.out.println("ERROR:  Browser not found.");
      return;
    }
    
    Node n = null;
    for (int i=0; i<120; i++) {
      try { n = browser.getNode("sphereCoord1"); } catch(Exception ex) { n = null; }
      if (n != null) break;
      try { Thread.sleep(500); } catch (InterruptedException ie) { }
    }

    // Coodinate node's point field
    sphereCoord = (EventInMFVec3f)n.getEventIn("point");

    // default sphere coordinate points
    kv1 = ((EventOutMFVec3f)n.getEventOut("point")).getValue();

    // place holder for interpolated coordinate points
    spherePoints = ((EventOutMFVec3f)n.getEventOut("point")).getValue();

    // monitor Timer's fraction_changed field
    ((EventOutSFFloat)browser.getNode("Timer").getEventOut("fraction_changed")).advise(this, null);
  }

  public void callback(EventOut value, double time, Object route) {
    // every 30 times the callback is called, display frame rate information
    if (++frames == 30) {
      // calculate the elasped time and display the frame rate for the EAI callback
      long curr = System.currentTimeMillis();
      eaiText.setText("EAI fps("+String.valueOf((float)frames/(float)(curr - lastTime)*1000)+")");
      lastTime = curr;

      // query and display the browser's frame rate
      renderText.setText("rendering fps("+String.valueOf(browser.getCurrentFrameRate())+")");

      frames = 0;
    }

    // interpolate based on Timer's fraction_changed
    float fraction = ((EventOutSFFloat)value).getValue();

    // from 0 to .5 interpolate points from the default sphere to the wacky morph
    if (fraction < .5) interpolate(spherePoints, kv1, kv2, fraction*2);

    // from .5 to 1 interpolate points from the wacky morph back to the default sphere
    else interpolate(spherePoints, kv2, kv1, fraction*2-1f);

    // send interpolated points back out to VRML wrl
    sphereCoord.setValue(spherePoints);
  }

  public void interpolate(float[][] result, float[][] from, float[][] to, float t) {
    for (int i=0; i<from.length; i++) interpolate(result[i], from[i], to[i], t);
  }

  public void interpolate(float[] result, float[] from, float[] to, float t) {
    result[0] = from[0] + (to[0]-from[0])*t;
    result[1] = from[1] + (to[1]-from[1])*t;
    result[2] = from[2] + (to[2]-from[2])*t;
  }

  protected boolean getBrowser(Applet app) {
    for (int i=0; i<30; i++) {
      try { browser = Browser.getBrowser(app); } catch(Exception ex) { browser = null; }
      if (browser != null) return true;
      try { Thread.sleep(500); } catch (InterruptedException ie) { }
    }
    return false;
  }

  // coordinate points of the wacky morph
  float[][] kv2 = {{0.0f, 0.69516826f, 0.0f}, {0.8941501f, 0.44707504f, 0.0f}, {0.1927875f, 0.31191957f, -0.59335864f}, {-0.6834647f, 0.42239556f, -0.49654144f}, {-0.49560732f, 0.30629575f, 0.36006185f}, {0.18465427f, 0.29876047f, 0.5683263f}, {0.23924205f, -0.14785662f, -0.17381087f}, {-0.12887357f, -0.20851034f, -0.39664525f}, {-0.11427267f, -0.057136334f, 0.0f}, {-0.20798019f, -0.33650053f, 0.6401185f}, {0.37014538f, -0.22875762f, 0.26891297f}, {0.0f, -0.47669733f, 0.0f}, {0.096354656f, 0.3391275f, 0.0f}, {0.4258301f, 0.6890883f, 0.0f}, {0.50932586f, 0.46544465f, 0.0f}, {0.080935314f, 0.9219763f, -0.24911284f}, {0.13949399f, 0.7302618f, -0.42921227f}, {0.2180384f, 0.64484304f, -0.6710344f}, {-0.1485606f, 0.6463159f, -0.107909694f}, {-0.21671697f, 0.4334849f, -0.15745483f}, {-0.13243839f, 0.14960305f, -0.096224084f}, {-0.059299562f, 0.25798395f, 0.043073315f}, {-0.2915767f, 0.58322203f, 0.21184388f}, {-0.053121373f, 0.060006164f, 0.03859572f}, {0.04396968f, 0.5008815f, 0.13533539f}, {0.018592834f, 0.09733493f, 0.057208724f}, {0.14141452f, 0.41822988f, 0.435217f}, {0.2909323f, 0.17885298f, -0.0919199f}, {0.4571422f, 0.34920028f, -0.33212888f}, {0.19399767f, 0.1956614f, -0.27161223f}, {0.00447676f, 0.321988f, -0.5492961f}, {-0.049512934f, 0.09900703f, -0.15236199f}, {-0.2676579f, 0.26395205f, -0.36213154f}, {-0.45731446f, 0.28261507f, -0.1527362f}, {-0.6418843f, 0.39665988f, 0.0f}, {-0.38284016f, 0.23659082f, 0.1278629f}, {-0.148983f, 0.14692025f, 0.20156865f}, {-0.17755532f, 0.3550431f, 0.54637605f}, {0.006586584f, 0.47366828f, 0.8080554f}, {0.15710598f, 0.15845333f, 0.21996093f}, {0.071900494f, 0.054923113f, 0.05223808f}, {0.72412956f, 0.4451645f, 0.22878833f}, {0.64610374f, 0.15659244f, -0.10816665f}, {0.09716129f, 0.0f, -0.031566437f}, {0.4358574f, -0.11641222f, -0.21725275f}, {0.12151356f, 0.19660336f, -0.8133883f}, {0.0f, 0.0f, -0.046011202f}, {-0.03957241f, -0.06402634f, -0.26489004f}, {-0.85379654f, 0.2280387f, -0.42557415f}, {-0.49293992f, 0.0f, -0.16014975f}, {-0.7474735f, -0.18116084f, -0.12513733f}, {-0.37445068f, 0.12772857f, 0.38115302f}, {-0.3408458f, 0.0f, 0.46911237f}, {-0.41709235f, -0.2158815f, 0.8010364f}, {0.38260365f, 0.1980306f, 0.7348f}, {0.28386995f, 0.0f, 0.39069545f}, {0.03167383f, -0.010804234f, 0.032240763f}, {0.39677757f, 0.09616469f, 0.06642602f}, {0.77400905f, 0.0f, 0.25146544f}, {0.4156774f, -0.11102239f, 0.20719405f}, {0.43431923f, 0.2247979f, -0.83412105f}, {0.295865f, 0.0f, -0.40720445f}, {0.056859095f, -0.01939516f, -0.05787682f}, {-0.13289598f, 0.045332037f, -0.1352747f}, {-0.5433421f, 0.0f, -0.7478118f}, {-0.39784744f, -0.20592059f, -0.7640761f}, {-0.12346014f, 0.032974705f, 0.0615386f}, {-0.06297073f, 0.0f, 0.020458369f}, {-0.5519313f, -0.13376841f, 0.09240089f}, {0.04677742f, 0.07568371f, 0.313119f}, {0.0f, 0.0f, 0.7280171f}, {-0.004790825f, -0.0077513345f, 0.032068852f}, {0.17678696f, -0.17433925f, -0.23918642f}, {0.038053725f, -0.07609297f, -0.11709952f}, {-0.0059425347f, -0.42741284f, -0.7291458f}, {-0.46099192f, -0.46494538f, -0.6454255f}, {-0.20370513f, -0.15560561f, -0.1479985f}, {-0.7307355f, -0.44922554f, -0.23087546f}, {-0.5221552f, -0.32099915f, 0.16497464f}, {-0.5860444f, -0.44766566f, 0.42578056f}, {-0.30813468f, -0.31077725f, 0.43141314f}, {-6.9700734E-4f, -0.050131787f, 0.08552243f}, {0.24924049f, -0.49838614f, 0.76696676f}, {0.50114423f, -0.49420565f, 0.6780302f}, {0.04827042f, -0.029830564f, 0.0161216f}, {0.598228f, -0.36968192f, 0.0f}, {0.6148423f, -0.37996545f, -0.20534815f}, {0.06807392f, -0.29615694f, -0.049446728f}, {0.28922364f, -0.5785153f, -0.21013427f}, {0.21952234f, -0.2479735f, -0.15949556f}, {-0.028484695f, -0.324484f, -0.08767376f}, {-0.14620385f, -0.7653884f, -0.449858f}, {-0.019474547f, -0.05759548f, -0.059934817f}, {-0.09134447f, -0.32149377f, 0.0f}, {-0.35909238f, -0.5810917f, 0.0f}, {-0.5463387f, -0.4992686f, 0.0f}, {-0.04532473f, -0.5163176f, 0.13950613f}, {-0.106748775f, -0.55883807f, 0.32845777f}, {-0.04463724f, -0.13201351f, 0.13737546f}, {0.14248261f, -0.61987346f, 0.10349484f}, {0.08780496f, -0.17563057f, 0.06379434f}, {0.2815276f, -0.31801495f, 0.20454594f}, {0.18667011f, 0.4614642f, -0.13564283f}, {0.11727574f, 0.14052589f, -0.050239336f}, {0.43850467f, 0.7333835f, -0.50100666f}, {-0.12646714f, 0.8184675f, -0.389193f}, {-7.8615226E-4f, 0.0095750475f, -0.008656857f}, {-0.072946616f, 0.15686807f, -0.12231217f}, {-0.16990858f, 0.33981717f, 0.0f}, {-0.3792333f, 0.42841676f, -0.08621569f}, {-0.0627584f, 0.07089765f, 0.014267627f}, {-0.09312868f, 0.60270834f, 0.28659645f}, {-0.008081886f, 0.017379694f, 0.013551185f}, {-0.055926967f, 0.68117005f, 0.61584985f}, {0.17826042f, 0.44067475f, 0.12953196f}, {0.34532693f, 0.577547f, 0.39454794f}, {0.48314404f, 0.5789284f, 0.20697236f}, {0.90072364f, 0.0f, 0.0f}, {0.19481891f, -0.052018322f, 0.030383104f}, {0.048412584f, -0.012926577f, -0.007550215f}, {0.08317009f, 0.0f, -0.25599703f}, {0.09343999f, -0.054545864f, -0.18442103f}, {0.14130883f, -0.23483963f, -0.87887645f}, {-0.56759715f, 0.0f, -0.4124025f}, {-0.07086565f, -0.026379438f, -0.07053474f}, {-0.744611f, -0.22074409f, -0.38160777f}, {-0.26038346f, 0.0f, 0.18918838f}, {-0.06773733f, -0.020081108f, 0.034714893f}, {-0.24011108f, -0.08938033f, 0.23898989f}, {0.16794275f, 0.0f, 0.5169267f}, {0.12434245f, -0.20664339f, 0.77335334f}, {0.037562214f, -0.02192705f, 0.074135944f}, {0.75281304f, 0.0f, -0.5469759f}, {0.11264334f, 0.041931007f, -0.11211736f}, {0.796195f, 0.23603643f, -0.40804416f}, {-0.15926756f, 0.0f, -0.49022454f}, {-0.03662136f, 0.021377822f, -0.07227899f}, {-0.033341095f, 0.055409208f, -0.20736639f}, {-0.89282584f, 0.0f, 0.0f}, {-0.89721745f, 0.23956478f, 0.1399261f}, {-0.32211632f, 0.086007826f, -0.05023585f}, {-0.015624067f, 0.0f, 0.04809078f}, {-0.07667995f, 0.12743358f, 0.47691432f}, {-0.15454842f, 0.09021809f, 0.30502978f}, {0.6515042f, 0.0f, 0.47336733f}, {0.03183351f, 0.009437222f, 0.016314445f}, {0.5275735f, 0.19638701f, 0.52511007f}, {0.011577109f, -0.0749245f, -0.035627674f}, {0.0041776174f, -0.050881855f, -0.04600258f}, {0.21823733f, -0.4693085f, -0.36592624f}, {-0.25974387f, -0.6421087f, -0.18874146f}, {-0.33590448f, -0.40249828f, -0.14389694f}, {-0.14160916f, -0.2368363f, -0.16179335f}, {-0.25975063f, -0.6421254f, 0.18874638f}, {-0.349453f, -0.58444774f, 0.39926213f}, {-0.20548382f, -0.24622142f, 0.08802649f}, {0.13083087f, -0.8467086f, 0.40262204f}, {0.07340122f, -0.15784568f, 0.12307443f}, {0.02879559f, -0.3507198f, 0.31708783f}, {0.35682413f, -0.71364826f, 0.0f}, {0.15063673f, -0.1701731f, -0.034246072f}, {0.6250898f, -0.7061589f, 0.14210923f}};
}