package org.opentrafficsim.simulationengine;
   
   import javax.naming.NamingException;
   
   import nl.tudelft.simulation.dsol.SimRuntimeException;
   import nl.tudelft.simulation.dsol.experiment.ReplicationMode;
   import nl.tudelft.simulation.dsol.formalisms.eventscheduling.SimEvent;
   
   import org.djunits.unit.TimeUnit;
  import org.djunits.value.vdouble.scalar.Time;
  import org.opentrafficsim.core.dsol.OTSDEVSRealTimeClock;
  import org.opentrafficsim.core.dsol.OTSModelInterface;
  import org.opentrafficsim.core.dsol.OTSReplication;
  import org.opentrafficsim.core.dsol.OTSSimTimeDouble;
  
  /**
   * <p>
   * Copyright (c) 2013-2015 Delft University of Technology, PO Box 5, 2600 AA, Delft, the Netherlands. All rights reserved. <br>
   * BSD-style license. See <a href="http://opentrafficsim.org/docs/license.html">OpenTrafficSim License</a>.
   * <p>
   * $LastChangedDate: 2015-12-29 03:56:14 +0100 (Tue, 29 Dec 2015) $, @version $Revision: 1668 $, by $Author: averbraeck $,
   * initial version 11 mei 2015 <br>
   * @author <a href="http://www.tbm.tudelft.nl/averbraeck">Alexander Verbraeck</a>
   * @author <a href="http://www.tudelft.nl/pknoppers">Peter Knoppers</a>
   */
  public class SimpleAnimator extends OTSDEVSRealTimeClock implements SimpleSimulatorInterface
  {
      /** */
      private static final long serialVersionUID = 20150511L;
  
      /** Counter for replication. */
      private int lastReplication = 0;
  
      /**
       * Create a simulation engine with animation; the easy way. PauseOnError is set to true;
       * @param startTime Time.Abs; the start time of the simulation
       * @param warmupPeriod Time.Rel; the warm up period of the simulation (use new Time.Rel(0, SECOND) if you don't know what
       *            this is)
       * @param runLength Time.Rel; the duration of the simulation
       * @param model OTSModelInterface; the simulation to execute
       * @throws SimRuntimeException on ???
       * @throws NamingException when context for the animation cannot be created
       */
      public SimpleAnimator(final Time.Abs startTime, final Time.Rel warmupPeriod, final Time.Rel runLength,
          final OTSModelInterface model) throws SimRuntimeException, NamingException
      {
          setPauseOnError(true);
          setAnimationDelay(20); // 50 Hz animation update
          initialize(new OTSReplication("rep" + ++this.lastReplication, new OTSSimTimeDouble(startTime), warmupPeriod,
              runLength, model), ReplicationMode.TERMINATING);
      }
  
      /**
       * {@inheritDoc}
       */
      public final SimEvent<OTSSimTimeDouble> scheduleEvent(final Time.Abs executionTime, final short priority,
          final Object source, final Object target, final String method, final Object[] args) throws SimRuntimeException
      {
          SimEvent<OTSSimTimeDouble> result =
              new SimEvent<OTSSimTimeDouble>(new OTSSimTimeDouble(new Time.Abs(executionTime.getSI(), TimeUnit.SECOND)),
                  priority, source, target, method, args);
          scheduleEvent(result);
          return result;
      }
  }