fix to exolang entry points so that time is in seconds

index-0.5.html

@@ -17,14 +17,14 @@
   }
   function animate() {
     window.requestAnimationFrame(animate);
-    var now = Date.now();
+    var now = Date.now()/1000.0;
     window.punctual.preRender({canDraw: true, nowTime: now});
     window.punctual.render({canDraw: true, zone:0, nowTime: now});
     window.punctual.postRender({canDraw: true, nowTime: now});
   }
   window.doEval = function () {
     var t = document.getElementById("editorArea").value;
-    var r = window.punctual.define({zone:0,text:t,time: Date.now()});
+    var r = window.punctual.define({zone:0,text:t,time: Date.now()/1000.0});
     console.log(r);
     document.getElementById('errors').textContent = r.error;
   }

src/DateTime.purs

@@ -1,12 +1,12 @@
 module DateTime where
 
-import Prelude (bottom)
+import Prelude (bottom,(*))
 import Data.DateTime (DateTime)
 import Data.DateTime.Instant (instant, toDateTime)
 import Data.Time.Duration (Milliseconds(..))
 import Data.Maybe (Maybe(..))
 
 numberToDateTime :: Number -> DateTime
-numberToDateTime x = case instant (Milliseconds x) of
+numberToDateTime x = case instant (Milliseconds (x*1000.0)) of
   Just i -> toDateTime i
   Nothing -> toDateTime bottom

src/Main.purs

@@ -86,7 +86,7 @@ setTempo punctual ft = do
   SharedResources.setTempo punctual.sharedResources (fromForeignTempo ft)
 
 
-preRender :: Punctual -> { canDraw :: Boolean, nowTime :: Number, previousDrawTime :: Number } -> Effect Unit
+preRender :: Punctual -> { canDraw :: Boolean, nowTime :: Number } -> Effect Unit
 preRender punctual args = when args.canDraw do  
   log $ "preRender: " <> show args
   -- if any current or immediately preceding programs require the webcam, it should be active
@@ -108,7 +108,7 @@ render punctual args = do
         Just w -> drawWebGL w (numberToDateTime args.nowTime)
 
 
-postRender :: Punctual -> { canDraw :: Boolean, nowTime :: Number, previousDrawTime :: Number } -> Effect Unit
+postRender :: Punctual -> { canDraw :: Boolean, nowTime :: Number } -> Effect Unit
 postRender _ args = log $ "postRender: " <> show args