home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / WZD-REF4.LHA / ref / install / skripte.lha / kpdrco.skr < prev    next >
Encoding:
Reflections/Monzoom script  |  1996-07-26  |  1.3 KB  |  81 lines
  1. REFSKRIPT
  2. ;/***************************************/
  3. ;/* Aufruf kp_dreh_copy.rexx <kp> <ncopys> <winkel>  <xdreh> <ydreh> <name>*/
  4.  
  5. GET_N_PARAMS 
  6. GET_RESULT np
  7. IF_EQUAL_GOTO np 6 w1
  8. RETURN 0
  9. >w1:
  10.  
  11. GET_PARAM_NR 1
  12. GET_RESULT kp
  13. GET_PARAM_NR 2
  14. GET_RESULT ncopys
  15. GET_PARAM_NR 3
  16. GET_RESULT winkel 
  17. GET_PARAM_NR 4
  18. GET_RESULT dx
  19. GET_PARAM_NR 5
  20. GET_RESULT dy 
  21. GET_PARAM_NR 6
  22. GET_RESULT name
  23. IF_LESS_GOTO ncopys 2 w2
  24. GOTO w2a
  25. >w2:
  26. RETURN 0
  27. >w2a:
  28.  
  29. ; schauen, ob es kp all ist, dann müssen wird zuerst
  30. ; einen neuen Koerper schaffen
  31. IF_STR_NOT_EQUAL_GOTO kp ALL w2b
  32. CALL neukpnam.skr ALL
  33. GET_RESULT kp1
  34. KP_ADDNEU kp kp1
  35. ADD_STR kp1
  36. GET_RESULT kp
  37.  
  38. >w2b:   
  39. ADD_STR kp
  40. GET_RESULT old
  41.  
  42. GET_NOBJEKTE
  43. GET_RESULT nobj
  44.  
  45. SET_VAR i 2
  46. >do_loop:
  47. ;DO i=2 to ncopys
  48.    ADD_STR Kopie i
  49.    GET_RESULT ss
  50.    PRINT ss
  51.    CALL neukpnam.skr tmp
  52.    GET_RESULT new
  53.    KP_DOPPELN old new
  54.    KP_DREHE_UM new 5 winkel dx dy 0 
  55.    IF_EQUAL_GOTO i 2 w3
  56.       KP_LOESCHEN old
  57. >w3:
  58.    ADD_STR new
  59.    GET_RESULT old
  60.    ADD i 1
  61.    GET_RESULT i
  62.    IF_GREATER_GOTO i ncopys w4
  63.    GOTO do_loop
  64. >w4:
  65. KP_EXIST new
  66. GET_RESULT res
  67. IF_STR_EQUAL_GOTO res NEIN w5
  68.    KP_LOESCHEN new
  69. >w5:
  70. GET_NOBJEKTE
  71. GET_RESULT nobj1
  72. SUB nobj1 1
  73. GET_RESULT nobj1
  74. KP_NEU name
  75. KP_OBJ_VONBIS nobj nobj1
  76. KP_FERTIG
  77.  
  78. KP_ADD name kp
  79.  
  80. RETURN 1
  81.