* Export functions

src/wasm/fresnel.wasm.api.pp

@@ -182,11 +182,14 @@ function __fresnel_event_count(
 
 Type
   TFresnelTickEvent = Procedure(aCurrent,aPrevious : Double) of Object;
+  TFresnelProcessMessageEvent = TFresnelTickEvent;
 
 var
   OnFresnelWasmTick : TFresnelTickEvent;
+  OnFresnelProcessMessage : TFresnelProcessMessageEvent;
 
 procedure __fresnel_tick (aCurrent,aPrevious : double);
+procedure __fresnel_process_message (aCurrent,aPrevious : double);
 
 implementation
 
@@ -197,5 +200,16 @@ begin
     OnFresnelWasmTick(aCurrent,aPrevious);
 end;
 
+procedure __fresnel_process_message (aCurrent,aPrevious : double);
+
+begin
+  if assigned(OnFresnelProcessMessage) then
+    OnFresnelProcessMessage(aCurrent,aPrevious);
+end;
+
+exports
+  __fresnel_process_message,
+  __fresnel_tick;
+
 end.