REFSKRIPT

;abfragen welcher Modus:
; INIT RENDER1 RENDER2 READY
GET_PARAM_NR 1
GET_RESULT modus
IF_STR_EQUAL_GOTO modus RENDER1 prerender
IF_STR_EQUAL_GOTO modus RENDER2 afterrender
IF_STR_EQUAL_GOTO modus READY ready

;*********************************************************************
>init:
; Init-skript für anim-fx
; Aufruf:  explode.skr INIT <master_obj>  <starttime> <endtime>
DEL_GLOBAL_VAR master_obj
DEL_GLOBAL_VAR time1
DEL_GLOBAL_VAR time2
DEL_GLOBAL_VAR kreisobj
DEL_GLOBAL_VAR kreisrad
DEL_GLOBAL_VAR kreist

MAKE_GLOBAL_VAR master_obj
MAKE_GLOBAL_VAR time1
MAKE_GLOBAL_VAR time2
MAKE_GLOBAL_VAR kreisobj
MAKE_GLOBAL_VAR kreisrad
MAKE_GLOBAL_VAR kreist

SET_VAR explode_obj xxxxxxxxxxx
GET_PARAM_NR 2
GET_RESULT master_obj
GET_PARAM_NR 3
GET_RESULT time1
GET_PARAM_NR 4
GET_RESULT time2 
GET_REAL Radius 
RETURN_IF_ABBRUCH 0
GET_RESULT kreisrad
GET_REAL Umlaufzeit 
RETURN_IF_ABBRUCH 0
GET_RESULT kreist
GET_GEO_OBJ Um_welches_geo_kreisen 1
RETURN_IF_ABBRUCH 0
GET_RESULT kreisobj
return 1


;*********************************************************************
>prerender:
; aufgerufen: explode RENDER1 <time> <wire>
GET_PARAM_NR 2
GET_RESULT time
GET_PARAM_NR 3
GET_RESULT wire


IF_LESS_GOTO time time1 fert
IF_GREATER_GOTO time time2 fert

FUNCTION time2-time1
GET_RESULT deltatime
FUNCTION time-time1
GET_RESULT dt
FUNCTION (dt/kreist)*360
GET_RESULT krwi
FUNCTION SIN(krwi)*kreisrad
GET_RESULT y
FUNCTION COS(krwi)*kreisrad
GET_RESULT x
SET_VAR z 0
PRINT kreis: master_obj krwi
GEO_GET_POS kreisobj 1
GET_RESULT res
COPY_WORD res 1
GET_RESULT x1
COPY_WORD res 2
GET_RESULT  y1
COPY_WORD res 3
GET_RESULT  z1

ADD x1 x
GET_RESULT x
ADD y1 y
GET_RESULT y
ADD z1 z
GET_RESULT z
GEO_SET master_obj x y z 1
PKL_PROJEKT_OBJ master_obj
>fert:
return 1

;*********************************************************************
>afterrender:
; aufgerufen: explode RENDER2 

>x1:
RETURN 1
;*********************************************************************
>ready:
; fertig-skript für anim-fx

DEL_GLOBAL_VAR master_obj
DEL_GLOBAL_VAR time2
DEL_GLOBAL_VAR time1
DEL_GLOBAL_VAR kreisrad
DEL_GLOBAL_VAR kreist
DEL_GLOBAL_VAR kreisobj

RETURN 1
;*********************************************************************