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