slides
:-object object_vr : [slides]. var url = '@talk-vr.wrl'. var slideset = 'vr'. var interface = 'vr-interface'. main :- load(url), delay(5000), initialize, watch(slideset), connect(interface), delay(2000), !. :- end_object object_vr.