home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / GFX / Raytracing / Raytracer / WZD-REF4.LHA / ref / install / skripte.lha / neukpnam.skr < prev    next >
Encoding:
Reflections/Monzoom script  |  1996-02-11  |  522 b   |  30 lines
  1. REFSKRIPT
  2. ; routine um im aktuellen dreiecks-objekt einen
  3. ; neuen körpernamen zu finden
  4.  
  5. ;find_tmp_kp_name:procedure
  6. GET_PARAM_NR 1
  7. GET_RESULT name
  8. ADD_STR name
  9. GET_RESULT neu_name  
  10.    SET_VAR found 0
  11.    SET_VAR i 0
  12.    KP_EXIST neu_name
  13.    GET_RESULT res
  14.    IF_STR_EQUAL_GOTO res NEIN w1
  15.    
  16. >do_while:    
  17.     ADD_STR name _ i
  18.     GET_RESULT neu_name
  19.     KP_EXIST neu_name
  20.     GET_RESULT res
  21.     IF_STR_EQUAL_GOTO res NEIN w1
  22.     ADD i 1
  23.     GET_RESULT i
  24.     GOTO do_while
  25.  
  26. >w1:
  27. RETURN neu_name
  28.  
  29.  
  30.