#
# Copyright 2002 (c) Pointwise, Inc.
# All rights reserved.
# 
# This sample Gridgen script is not supported by Pointwise, Inc.
# It is provided freely for demonstration purposes only.  
# SEE THE WARRANTY DISCLAIMER AT THE BOTTOM OF THIS FILE.
#
# Prints a table with the number of points in each block 
# and the total number of points in the entire system.

package require PWI_Glyph 1.1
set nblks [llength [gg::blkGetAll]]
if { $nblks == 0 } {
   puts "\n Sorry, can't compute number of points "
   puts " because there aren't any enabled blocks.\n"
   exit
}
gg::blkReport ALL exam STRUCTURE
puts "\n block name    number of points"
puts "-------------------------------"
foreach blk [gg::blkGetAll] {
  gg::blkReport $blk size STRUCTURE
  set n [gg::blkName $blk]
  set m [format "%16s    %8i" $n $size(pointsTotal)]
  puts $m
}
puts "-------------------------------"
set m [format "TOTALS: %8i    %8i" $nblks $exam(pointsTotal)]
puts "$m\n"

#
# DISCLAIMER:
# TO THE MAXIMUM EXTENT PERMITTED BY APPLICABLE LAW, POINTWISE DISCLAIMS
# ALL WARRANTIES, EITHER EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED
# TO, IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
# PURPOSE, WITH REGARD TO THIS SCRIPT.  TO THE MAXIMUM EXTENT PERMITTED 
# BY APPLICABLE LAW, IN NO EVENT SHALL POINTWISE BE LIABLE TO ANY PARTY 
# FOR ANY SPECIAL, INCIDENTAL, INDIRECT, OR CONSEQUENTIAL DAMAGES 
# WHATSOEVER (INCLUDING, WITHOUT LIMITATION, DAMAGES FOR LOSS OF 
# BUSINESS INFORMATION, OR ANY OTHER PECUNIARY LOSS) ARISING OUT OF THE 
# USE OF OR INABILITY TO USE THIS SCRIPT EVEN IF POINTWISE HAS BEEN 
# ADVISED OF THE POSSIBILITY OF SUCH DAMAGES AND REGARDLESS OF THE 
# FAULT OR NEGLIGENCE OF POINTWISE.
#