home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / WZD-REF4.LHA / ref / install / skripte.lha / Mat2Text.MEN < prev    next >
Encoding:
Reflections/Monzoom script  |  1996-03-23  |  573 b   |  35 lines
  1. REFSKRIPT
  2. ;$VER: 1.0 Olaf Gröning 23.03.1996
  3. SET_VAR suffix .tex
  4.  
  5. PRINT Tool: Material -> Textur
  6.  
  7. GET_JA_NEIN Beschreibung zu Mat2Text fällig ?
  8. GET_RESULT janein
  9. IF_STR_NOT_EQUAL_GOTO janein JA weiter
  10.   DISPLAY_TEXT_FILE Mat2Text.DOK
  11.  
  12. >weiter:
  13. GET_OBJEKT Material? 7
  14. RETURN_IF_ABBRUCH 1
  15. GET_RESULT material
  16.  
  17. >label:
  18. ADD_STR material suffix
  19. GET_RESULT textur
  20. OBJ_EXIST textur
  21. GET_RESULT janein
  22. IF_STR_NOT_EQUAL_GOTO janein JA paletti 
  23.   ADD_STR suffix x
  24.   GET_RESULT suffix
  25.   GOTO label
  26.  
  27. >paletti:
  28. OBJ_NEW textur 14
  29. OBJ_COPY material textur
  30.  
  31. OBJ_EDIT textur
  32.  
  33. PRINT
  34. RETURN 0
  35.