*Set Var AddCircReinf=200000
*Set Var oMatArea=0

*loop Intervals
*Set Cond Axi-Rotational_Reinforcement *nodes 
*If(CondNumEntities(Int)>0)
// circum reinforcement selection has *CondNumEntities entities
*Intformat "%10i"
*loop nodes *OnlyInCond
 ;
// Material definition
*Set Var oMatUse=0
*Set Var matvar=Operation(NodesNum+AddCircReinf) 
*loop materials *NotUsed
*If(strcmp(MatProp(0),Cond(Assign_material))==0)
*Set Var oMatUse=1
*Set Var oMatArea=MatProp(Area,real)
*include ..\include.src.bas\MaterialFunctionAndParameters.bas
*include ..\include.src.bas\MaterialDefinition.bas
*break
*EndIf
*End materials
*#
*If(oMatUse(Int)==0)
*loop materials *all
*If(strcmp(MatProp(0),Cond(Assign_material))==0)
*Set Var oMatUse=1
*Set Var oMatArea=MatProp(Area,real)
*include ..\include.src.bas\MaterialFunctionAndParameters.bas
*include ..\include.src.bas\MaterialDefinition.bas
*break
*EndIf
*End materials
*Endif

*If(oMatArea(real)==0)
*Set Var oMatArea=*Cond(AREA)
*EndIf


*#If(oMatUse(Int)==1)
*#WarningBox Info: Assigned material of Circular Reinforcement was written...
*#EndIf
// Geometry definition
GEOMETRY ID      *Operation(NodesNum+AddCircReinf) 
	NAME "condition *Cond(NAME)" 
	TYPE "TRUSS" 
*#	AREA *Cond(AREA) // from cnd 
  AREA *oMatArea
  ;
	

// Element type definition, Should be reffered from ELEMENT GROUP definition
ELEMENT TYPE ID  *Operation(NodesNum+AddCircReinf) 
	NAME "condition *Cond(NAME)" 
	TYPE "*Cond(ElementPrototype)" ;

*# // Element group definition /** *ElemsMatProp(0) **/
ELEMENT GROUP ID *Operation(NodesNum+AddCircReinf)  
	TYPE     *Operation(NodesNum+AddCircReinf) 
        MATERIAL *Operation(NodesNum+AddCircReinf) 
        GEOMETRY *Operation(NodesNum+AddCircReinf)         
ELEMENT INCIDENCES
*Operation(NodesNum+AddCircReinf) *NodesNum

*End nodes
*EndIf
*break
*End Intervals
