##
## Get a list of domains, and for each, list the algorithm used to create the grid
##

package require PWI_Glyph 2.3


proc selectDomains { } {

  set conMask [pw::Display createSelectionMask -requireDomain [list] ]
  pw::Display selectEntities \
      -description "Select the domains you want to list" \
      -selectionmask $conMask selection
  set doms $selection(Domains)
}

proc listDoms { doms } {
  set dbs [list]
	puts "               Domain          		  Algorithm                  Cell Type"
	puts "----------------------------------------------------------------------------"
	foreach dom $doms {
		set name [$dom getName]
		set myCellType [$dom getUnstructuredSolverAttribute IsoCellType]
		set myAlgorithm [$dom getUnstructuredSolverAttribute Algorithm]
		#see http://www.pointwise.com/glyph2/files/Glyph/cxx/GlyphDomainUnstructured-cxx.html#pw.DomainUnstructured.Unstructured_Solver_Attributes for other examples
		#set myShapeConstraint [$dom getUnstructuredSolverAttribute ShapeConstraint]
		#set myBoundaryDecay [$dom getUnstructuredSolverAttribute BoundaryDecay]
 
		puts [ format "%21s      %15s      %21s" $name $myAlgorithm $myCellType ]

  }
}

#================================Start processing==============================
# Start timer
set startTime [clock seconds]

set doms [selectDomains ]
listDoms $doms

# End timer
set endTime [clock seconds]
puts ""
puts "Script executed in [expr $endTime-$startTime] seconds, [clock format $startTime -format %H:%M:%S], [clock format $startTime -format %D] "