PREFIX :Polygon:
poly	IS     $0   das Polygon
pkt	IS     $1   der Punkt
e       IS     $2   das Element
tmp	IS     $3

extend  SET    e+1,esize
	PUSHJ  e,:malloc	
	BZ     e,return
	LDO    tmp,p,:Punkt:x		Punkt kopieren
	STO    tmp,e,punkt+:Punkt:x
	LDO    tmp,p,:Punkt:y
	STO    tmp,e,punkt+:Punkt:y
	SET    tmp,:Typ:punkt
	STO    tmp,e,punkt+:Typ:typ
	
	LDO    tmp,poly,anfang
	STO    tmp,e,next
	STO    e,poly,anfang	
	
return  POP    0,0