home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / WZD-REF4.LHA / ref / install / skripte.lha / anim_fx / kreis.skr < prev   
Encoding:
Reflections/Monzoom script  |  1996-05-02  |  2.3 KB  |  111 lines
  1. REFSKRIPT
  2.  
  3. ;abfragen welcher Modus:
  4. ; INIT RENDER1 RENDER2 READY
  5. GET_PARAM_NR 1
  6. GET_RESULT modus
  7. IF_STR_EQUAL_GOTO modus RENDER1 prerender
  8. IF_STR_EQUAL_GOTO modus RENDER2 afterrender
  9. IF_STR_EQUAL_GOTO modus READY ready
  10.  
  11. ;*********************************************************************
  12. >init:
  13. ; Init-skript für anim-fx
  14. ; Aufruf:  explode.skr INIT <master_obj>  <starttime> <endtime>
  15. DEL_GLOBAL_VAR master_obj
  16. DEL_GLOBAL_VAR time1
  17. DEL_GLOBAL_VAR time2
  18. DEL_GLOBAL_VAR kreisobj
  19. DEL_GLOBAL_VAR kreisrad
  20. DEL_GLOBAL_VAR kreist
  21.  
  22. MAKE_GLOBAL_VAR master_obj
  23. MAKE_GLOBAL_VAR time1
  24. MAKE_GLOBAL_VAR time2
  25. MAKE_GLOBAL_VAR kreisobj
  26. MAKE_GLOBAL_VAR kreisrad
  27. MAKE_GLOBAL_VAR kreist
  28.  
  29. SET_VAR explode_obj xxxxxxxxxxx
  30. GET_PARAM_NR 2
  31. GET_RESULT master_obj
  32. GET_PARAM_NR 3
  33. GET_RESULT time1
  34. GET_PARAM_NR 4
  35. GET_RESULT time2 
  36. GET_REAL Radius 
  37. RETURN_IF_ABBRUCH 0
  38. GET_RESULT kreisrad
  39. GET_REAL Umlaufzeit 
  40. RETURN_IF_ABBRUCH 0
  41. GET_RESULT kreist
  42. GET_GEO_OBJ Um_welches_geo_kreisen 1
  43. RETURN_IF_ABBRUCH 0
  44. GET_RESULT kreisobj
  45. return 1
  46.  
  47.  
  48. ;*********************************************************************
  49. >prerender:
  50. ; aufgerufen: explode RENDER1 <time> <wire>
  51. GET_PARAM_NR 2
  52. GET_RESULT time
  53. GET_PARAM_NR 3
  54. GET_RESULT wire
  55.  
  56.  
  57. IF_LESS_GOTO time time1 fert
  58. IF_GREATER_GOTO time time2 fert
  59.  
  60. FUNCTION time2-time1
  61. GET_RESULT deltatime
  62. FUNCTION time-time1
  63. GET_RESULT dt
  64. FUNCTION (dt/kreist)*360
  65. GET_RESULT krwi
  66. FUNCTION SIN(krwi)*kreisrad
  67. GET_RESULT y
  68. FUNCTION COS(krwi)*kreisrad
  69. GET_RESULT x
  70. SET_VAR z 0
  71. PRINT kreis: master_obj krwi
  72. GEO_GET_POS kreisobj 1
  73. GET_RESULT res
  74. COPY_WORD res 1
  75. GET_RESULT x1
  76. COPY_WORD res 2
  77. GET_RESULT  y1
  78. COPY_WORD res 3
  79. GET_RESULT  z1
  80.  
  81. ADD x1 x
  82. GET_RESULT x
  83. ADD y1 y
  84. GET_RESULT y
  85. ADD z1 z
  86. GET_RESULT z
  87. GEO_SET master_obj x y z 1
  88. PKL_PROJEKT_OBJ master_obj
  89. >fert:
  90. return 1
  91.  
  92. ;*********************************************************************
  93. >afterrender:
  94. ; aufgerufen: explode RENDER2 
  95.  
  96. >x1:
  97. RETURN 1
  98. ;*********************************************************************
  99. >ready:
  100. ; fertig-skript für anim-fx
  101.  
  102. DEL_GLOBAL_VAR master_obj
  103. DEL_GLOBAL_VAR time2
  104. DEL_GLOBAL_VAR time1
  105. DEL_GLOBAL_VAR kreisrad
  106. DEL_GLOBAL_VAR kreist
  107. DEL_GLOBAL_VAR kreisobj
  108.  
  109. RETURN 1
  110. ;*********************************************************************
  111.