*#
*#
*#
*Intformat "%i"
*#
*# Vynulovat vsechno
*# WarningBox Warning: pred iniciaci TK_InitSelectionName
*tcl(TK_InitSelectionName)*\
*#
*#
*# pri prvnim pruchodu naplnim pole UniqueSelectionName()
*# WarningBox Warning: pred 1.pruchodem loop Intervals TK_CreateArraysSelectionName

*Set Cond Selection_Nodes_for_Volume   *nodes *or(1,Real) *or(2,Real) *CanRepeat 
*Add Cond Selection_Nodes_for_Surface  *nodes *or(1,Real) *or(2,Real) *CanRepeat 
*Add Cond Selection_Nodes_for_Line     *nodes *or(1,Real) *or(2,Real) *CanRepeat 
*Add Cond Selection_Nodes_for_Point    *nodes *or(1,Real) *or(2,Real) *CanRepeat 
*If(CondNumEntities(Int)>0)
// selection nodes loop 1 has *CondNumEntities entities
*loop nodes *OnlyInCond
*tcl(TK_CreateArraysSelectionName *Cond(SelectionName))*\
*#
*End nodes
*EndIf
*# break
*#
*# // *\
*tcl(TK_FinishArraysSelectionName)
*#
*# pri druhem pruchodu je Vypis selections 
*#
*# WarningBox Warning: pred 2.pruchodem 
*#GenData(UniqueSelectionName)

*for(i=1;i<=GenData(UniqueSelectionName,Int);i=i+1)
*Set Var IntervalNum=0
*loop Intervals
*Set Var delkaradku=0
*Set Var IntervalNum=Operation(IntervalIndex)
*#
*Set Cond Selection_Nodes_for_Volume   *nodes  *CanRepeat 
*Add Cond Selection_Nodes_for_Surface  *nodes  *CanRepeat 
*Add Cond Selection_Nodes_for_Line     *nodes  *CanRepeat 
*Add Cond Selection_Nodes_for_Point    *nodes  *CanRepeat 
*# i = *i
*# *CondNumEntities(Int)
*If(CondNumEntities(Int)>0)
// selection nodes loop 2 has *CondNumEntities entities
SELECTION "*GenData(UniqueSelectionName,*i)" LIST *\
*loop nodes *OnlyInCond
*#
*Set Var oSelectionName=strcmp(Cond(SelectionName),GenData(UniqueSelectionName,*i))
*#
*# *NodesNum --- *Cond(SelectionName) =? *GenData(UniqueSelectionName,*i) => *oSelectionName
*If( oSelectionName(Int)==0)
*Set Var delkaradku=Operation(delkaradku+1)
 *NodesNum *\
*If(delkaradku>=15)
*Set Var delkaradku=0

*EndIf
*EndIf
*#
*End nodes
 ;
*EndIf
*# break
*End Intervals
*end

