REFSKRIPT
GET_PARAM_NR 1
;erst holen wir uns den Namen des Polys 
GET_RESULT poly_name
;aber Achtung: Der Poly-Name darf keine
;Lehrzeichen haben !!!

;Kugel-Objekt Namen erfragen und dann erstellen
;achja: bitte nicht abbrechen ich frag hier nicht lange nach Abbrüchen nach
GET_STRING Name für das neue Kugelobjekt
GET_RESULT Kug_OBJ
OBJ_NEW Kug_OBJ 22
GET_RESULT create_name

GEO_NPTS poly_name
;Anzahl der Punkte des Polygons holen
GET_RESULT ppu
;PRINT ppu

GET_REAL Gib den Kugelradius ein:  
;Kugelradius, ist aber eigentlich egal,da man 
;den später sehr leicht im Refl ändern kann		
GET_RESULT rad			   

;Beginn der Schleife: Koordinaten holen und an
;unser neues Kugelobjekt vergeben 		
SET_VAR i 0			   
				   
>lm:

GEO_GET_PT poly_name i
GET_RESULT resko
COPY_WORD resko 1
GET_RESULT x
COPY_WORD resko 2
GET_RESULT y
COPY_WORD resko 3
GET_RESULT z

GEO_new_pt create_name
GET_RESULT res
GEO_SET_PT create_name res x y z
KUG_NEU_KUGEL create_name res rad

add i 1
GET_RESULT i
IF_EQUAL_GOTO i ppu fertig
GOTO lm

>fertig:
PKL_ADD create_name
PLOT_PKL
PRINT (C) 1997 by Clemens Hochreiter (Clemens.Hochreiter@munich.netsurf.de)
;Kann man zwar nicht lesen aber irgendwo muß ich ja wohl stehen <g>
;Ihr könnt mich auch im Internet unter 
;http://homepages.munich.netsurf.de/Clemens.Hochreiter finden 
RETURN 1