REFSKRIPT
;$VER: 1.0 Olaf Gröning 23.03.1996
SET_VAR suffix .mat

PRINT Tool: Textur -> Material

GET_JA_NEIN Beschreibung zu Text2Mat fällig ?
GET_RESULT janein
IF_STR_NOT_EQUAL_GOTO janein JA weiter
  DISPLAY_TEXT_FILE Text2Mat.txt

>weiter:
GET_OBJEKT Textur? 14
RETURN_IF_ABBRUCH 1
GET_RESULT textur

>label:
ADD_STR textur suffix
GET_RESULT material
OBJ_EXIST material
GET_RESULT janein
IF_STR_NOT_EQUAL_GOTO janein JA paletti 
  ADD_STR suffix t
  GET_RESULT suffix
  GOTO label

>paletti:
OBJ_NEW material 7
OBJ_COPY textur material

OBJ_EDIT material

PRINT
RETURN 0