home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / WZD-REF4.LHA / ref / install / skripte.lha / wendeltr.men < prev    next >
Encoding:
Text File  |  1996-07-26  |  997 b   |  64 lines
  1. REFSKRIPT
  2. GET_N_PARAMS
  3. GET_RESULT np
  4. IF_EQUAL_GOTO np 1 tool1
  5. GOTO normal
  6. >tool1:
  7.  GET_PARAM_NR 1
  8.  GET_RESULT akt_drei
  9.  GOTO weiter
  10. >normal:
  11. GET_OBJEKT VON_Welchem_Dreiobj  3
  12. RETURN_IF_ABBRUCH 1
  13. GET_RESULT akt_drei
  14. >weiter:
  15. AKT_KP_DREI akt_drei
  16.  
  17. GET_KP_AUSWAHL 'TreppenStufe'
  18. RETURN_IF_ABBRUCH 1
  19. GET_RESULT kp
  20.  
  21. GET_REAL #Stufen
  22. RETURN_IF_ABBRUCH 1
  23. GET_RESULT nstuf
  24.  
  25. GET_REAL Winkel/Stufe
  26. RETURN_IF_ABBRUCH 1
  27. GET_RESULT dw
  28.  
  29. GET_KP_MIN kp
  30. GET_RESULT res
  31. COPY_WORD res 3
  32. GET_RESULT zmin
  33.  
  34. GET_REAL Höhe_pro_Stufe
  35. RETURN_IF_ABBRUCH 1
  36. GET_RESULT z
  37.  
  38. SUB z zmin
  39. GET_RESULT dz
  40.  
  41. GET_REAL Drehpunkt_x
  42. RETURN_IF_ABBRUCH 1
  43. GET_RESULT x
  44. GET_REAL Drehpunkt_y
  45. RETURN_IF_ABBRUCH 1
  46. GET_RESULT y
  47. GET_STRING 'Name_der_Wendeltreppe'
  48. RETURN_IF_ABBRUCH 1
  49. GET_RESULT name
  50.  
  51.  
  52. CALL wendeltr.skr akt_drei kp nstuf dw dz x y name
  53.  
  54. KP_EXIST name
  55. GET_RESULT res
  56. IF_STR_EQUAL_GOTO res JA x1
  57. MELDUNG 'nicht geklappt'
  58. RETURN 0
  59. >x1:
  60. PKL_ADD akt_drei
  61. PLOT_PKL
  62.  
  63. RETURN 1
  64.