home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / WZD-REF4.LHA / ref / install / skripte.lha / kpmvco.men < prev    next >
Encoding:
Text File  |  1996-08-10  |  751 b   |  41 lines
  1. REFSKRIPT
  2. GET_JA_NEIN "Beschreibung"
  3. GET_RESULT res
  4. IF_STR_EQUAL_GOTO res NEIN w1
  5. DISPLAY_TEXT_FILE Kpmvco.doc
  6. >w1:
  7. GET_OBJEKT Aus_welchem_Dreiecksobjekt 3 1
  8. RETURN_IF_ABBRUCH 1
  9. GET_RESULT drei
  10. AKT_KP_DREI drei
  11. GET_KP_AUSWAHL Welchen-Körper
  12. RETURN_IF_ABBRUCH 1
  13. GET_RESULT kp
  14. GET_X 'Wie_oft'
  15. RETURN_IF_ABBRUCH 1
  16. GET_RESULT n
  17. GET_XYZ Verschiebung Süd/Nord West/Ost Unten/Oben
  18. RETURN_IF_ABBRUCH 1
  19. GET_RESULT res
  20. COPY_WORD res 1
  21. GET_RESULT dx
  22. COPY_WORD res 2
  23. GET_RESULT dy
  24. COPY_WORD res 3
  25. GET_RESULT dz
  26.  
  27. GET_STRING 'Name'
  28. RETURN_IF_ABBRUCH 1
  29. GET_RESULT name
  30.  
  31. CALL kpmvco.skr kp n dx dy dz name
  32. GET_RESULT res
  33. IF_NOT_EQUAL_GOTO res 0 w5
  34.   MELDUNG "Nicht geklappt"
  35.   RETURN 0
  36. >w5:          
  37. PKL_ADD drei
  38. PLOT_PKL
  39.  
  40. RETURN 1
  41.