occt-gltf-addon-linux-x64 0.1.1 → 0.1.2

package/resources/samples/tcl/pathtrace_materials.tcl

@@ -0,0 +1,229 @@
+# Script demonstrating Global illumination materials
+# using path tracing rendering engine in 3D view
+
+#Category: Visualization
+#Title: Path tracing - Materials
+
+set aBallPath [locate_data_file occ/Ball.brep]
+
+pload MODELING VISUALIZATION
+# Ray-Tracing doesn't work with Compatible Profile on macOS
+if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
+
+# Setup 3D viewer
+vclear
+vinit name=View1 w=512 h=512
+vglinfo
+vvbo 0
+vsetdispmode 1
+
+# Restore exported shapes
+restore $aBallPath Ball0
+restore $aBallPath Ball1
+restore $aBallPath Ball2
+restore $aBallPath Ball3
+restore $aBallPath Ball4
+restore $aBallPath Ball5
+restore $aBallPath Ball6
+restore $aBallPath Ball7
+restore $aBallPath Ball8
+
+# Create chessboard-style floor
+box tile 10 10 0.1
+eval compound [lrepeat 144 tile] tiles
+explode tiles
+for {set i 0} {$i < 12} {incr i} {
+  for {set j 1} {$j <= 12} {incr j} {
+    ttranslate tiles_[expr 12 * $i + $j] [expr $i * 10 - 90] [expr $j * 10 - 70] -0.15
+    vdisplay -noupdate tiles_[expr 12 * $i + $j]
+
+    vsetmaterial -noupdate tiles_[expr 12 * $i + $j] plaster
+
+    if {($i + $j) % 2 == 0} {
+      vbsdf tiles_[expr 12 * $i + $j] -kd 0.85
+    } else {
+      vbsdf tiles_[expr 12 * $i + $j] -kd 0.45
+    }
+  }
+}
+
+# Setup object 'Ball1'
+vdisplay Ball1
+vsetmaterial Ball1 Brass
+vbsdf Ball1 -Kc 0 0 0
+vbsdf Ball1 -Kd 0.272798 0.746262 0.104794
+vbsdf Ball1 -Ks 0.253738 0.253738 0.253738
+vbsdf Ball1 -Kt 0 0 0
+vbsdf Ball1 -baseRoughness 0.045
+vbsdf Ball1 -coatRoughness 0
+vbsdf Ball1 -Le 0 0 0
+vbsdf Ball1 -absorpColor 0 0 0
+vbsdf Ball1 -absorpCoeff 0
+vbsdf Ball1 -coatFresnel Constant 0
+vbsdf Ball1 -baseFresnel Schlick 0.58 0.42 0.2
+vlocation Ball1 -rotation 0 0 0 1
+vlocation Ball1 -location 10 0 0
+
+# Setup object 'Ball2'
+vdisplay Ball2
+vsetmaterial Ball2 Brass
+vbsdf Ball2 -Kc 0 0 0
+vbsdf Ball2 -Kd 0.8 0.8 0.8
+vbsdf Ball2 -Ks 0 0 0
+vbsdf Ball2 -Kt 0 0 0
+vbsdf Ball2 -baseRoughness 0
+vbsdf Ball2 -coatRoughness 0
+vbsdf Ball2 -Le 2.02 0.171915 0.171915
+vbsdf Ball2 -absorpColor 0 0 0
+vbsdf Ball2 -absorpCoeff 0
+vbsdf Ball2 -coatFresnel Constant 0
+vbsdf Ball2 -baseFresnel Constant 1
+vlocation Ball2 -rotation 0 0 0 1
+vlocation Ball2 -location 10 40 0
+
+# Setup object 'Ball3'
+vdisplay Ball3
+vsetmaterial Ball3 Glass
+vbsdf Ball3 -Kc 1 1 1
+vbsdf Ball3 -Kd 0 0 0
+vbsdf Ball3 -Ks 0 0 0
+vbsdf Ball3 -Kt 1 1 1
+vbsdf Ball3 -baseRoughness 0
+vbsdf Ball3 -coatRoughness 0
+vbsdf Ball3 -Le 0 0 0
+vbsdf Ball3 -absorpColor 0.75 0.95 0.9
+vbsdf Ball3 -absorpCoeff 0.05
+vbsdf Ball3 -coatFresnel Dielectric 1.62
+vbsdf Ball3 -baseFresnel Constant 1
+vlocation Ball3 -rotation 0 0 0 1
+vlocation Ball3 -location -30 -40 0
+
+# Setup object 'Ball4'
+vdisplay Ball4
+vsetmaterial Ball4 Brass
+vbsdf Ball4 -Kc 0 0 0
+vbsdf Ball4 -Kd 0 0 0
+vbsdf Ball4 -Ks 0.985 0.985 0.985
+vbsdf Ball4 -Kt 0 0 0
+vbsdf Ball4 -baseRoughness 0
+vbsdf Ball4 -coatRoughness 0
+vbsdf Ball4 -Le 0 0 0
+vbsdf Ball4 -absorpColor 0 0 0
+vbsdf Ball4 -absorpCoeff 0
+vbsdf Ball4 -coatFresnel Constant 0
+vbsdf Ball4 -baseFresnel Schlick 0.58 0.42 0.2
+vlocation Ball4 -rotation 0 0 0 1
+vlocation Ball4 -location -70 -40 0
+
+# Setup object 'Ball5'
+vdisplay Ball5
+vsetmaterial Ball5 Glass
+vbsdf Ball5 -Kc 1 1 1
+vbsdf Ball5 -Kd 0 0 0
+vbsdf Ball5 -Ks 0 0 0
+vbsdf Ball5 -Kt 1 1 1
+vbsdf Ball5 -baseRoughness 0
+vbsdf Ball5 -coatRoughness 0
+vbsdf Ball5 -Le 0 0 0
+vbsdf Ball5 -absorpColor 0 0.288061 0.825532
+vbsdf Ball5 -absorpCoeff 0.3
+vbsdf Ball5 -coatFresnel Dielectric 1.62
+vbsdf Ball5 -baseFresnel Constant 1
+vlocation Ball5 -rotation 0 0 0 1
+vlocation Ball5 -location -30 0 0
+
+# Setup object 'Ball6'
+vdisplay Ball6
+vsetmaterial Ball6 Brass
+vbsdf Ball6 -Kc 1 1 1
+vbsdf Ball6 -Kd 0 0.716033 0.884507
+vbsdf Ball6 -Ks 0.115493 0.115493 0.115493
+vbsdf Ball6 -Kt 0 0 0
+vbsdf Ball6 -baseRoughness 0.045
+vbsdf Ball6 -coatRoughness 0
+vbsdf Ball6 -Le 0 0 0
+vbsdf Ball6 -absorpColor 0 0 0
+vbsdf Ball6 -absorpCoeff 0
+vbsdf Ball6 -coatFresnel Dielectric 1.5
+vbsdf Ball6 -baseFresnel Schlick 0.58 0.42 0.2
+vlocation Ball6 -rotation 0 0 0 1
+vlocation Ball6 -location -30 40 0
+
+# Setup object 'Ball7'
+vdisplay Ball7
+vsetmaterial Ball7 Brass
+vbsdf Ball7 -Kc 1 1 1
+vbsdf Ball7 -Kd 1e-06 9.9999e-07 9.9999e-07
+vbsdf Ball7 -Ks 0.0479573 0.804998 0
+vbsdf Ball7 -Kt 0 0 0
+vbsdf Ball7 -baseRoughness 0.447
+vbsdf Ball7 -coatRoughness 0
+vbsdf Ball7 -Le 0 0 0
+vbsdf Ball7 -absorpColor 0 0 0
+vbsdf Ball7 -absorpCoeff 0
+vbsdf Ball7 -coatFresnel Dielectric 1.5
+vbsdf Ball7 -baseFresnel Schlick 0.58 0.42 0.2
+vlocation Ball7 -rotation 0 0 0 1
+vlocation Ball7 -location -70 0 0
+
+# Setup object 'Ball8'
+vdisplay Ball8
+vsetmaterial Ball8 Aluminium
+vbsdf Ball8 -Kc 0 0 0
+vbsdf Ball8 -Kd 0 0 0
+vbsdf Ball8 -Ks 0.985 0.985 0.985
+vbsdf Ball8 -Kt 0 0 0
+vbsdf Ball8 -baseRoughness 0.026
+vbsdf Ball8 -coatRoughness 0
+vbsdf Ball8 -Le 0 0 0
+vbsdf Ball8 -absorpColor 0 0 0
+vbsdf Ball8 -absorpCoeff 0
+vbsdf Ball8 -coatFresnel Constant 0
+vbsdf Ball8 -baseFresnel Schlick 0.913183 0.921494 0.924524
+vlocation Ball8 -rotation 0 0 0 1
+vlocation Ball8 -location -70 40 0
+
+# Setup object 'Ball0'
+vdisplay Ball0
+vsetmaterial Ball0 Glass
+vbsdf Ball0 -Kc 0 0 0
+vbsdf Ball0 -Kd 0.723404 0.166229 0.166229
+vbsdf Ball0 -Ks 0 0 0
+vbsdf Ball0 -Kt 0 0 0
+vbsdf Ball0 -baseRoughness 0
+vbsdf Ball0 -coatRoughness 0
+vbsdf Ball0 -Le 0 0 0
+vbsdf Ball0 -absorpColor 0 0 0
+vbsdf Ball0 -absorpCoeff 0
+vbsdf Ball0 -coatFresnel Constant 0
+vbsdf Ball0 -baseFresnel Constant 1
+vlocation Ball0 -rotation 0 0 0 1
+vlocation Ball0 -location 10 -40 0
+
+# Restore view parameters
+vcamera -perspective -fovy 25
+vcamera -distance 238.089
+vviewparams -proj 0.679219 -0.00724546 0.7339
+vviewparams -up -0.733931 -0.00311795 0.679217
+vviewparams -at -22.3025 0.0986351 3.30327
+vviewparams -eye 139.412 -1.62643 178.037
+vviewparams -size 170.508
+
+# Restore light source parameters
+vlight -clear
+vlight -add AMBIENT -name amblight
+vlight -add DIRECTIONAL -direction -0.303949 -0.434084 -0.848048 -smoothAngle 17 -intensity 12 -name dirlight
+
+# Load environment map
+vtextureenv on 1
+
+puts "Trying path tracing mode..."
+vrenderparams -ray -gi -rayDepth 10
+
+# Start progressive refinement mode
+#vprogressive
+
+puts "Make several path tracing iterations to refine the picture, please wait..."
+vfps 512
+puts "Done. To improve the image further, or after view manipulations, give command:"
+puts "vfps \[nb_iteratons\] or vrepaint -continuous"

package/resources/samples/tcl/pencil.tcl

@@ -0,0 +1,64 @@
+# Sample demonstrating assignment of colors to faces in XDE
+
+#Category: XDE
+#Title: Assignment of colors to faces
+
+pload MODELING VISUALIZATION OCAF XDE
+
+box b 0 -20 -10 100 40 20
+compound b b b a
+explode a
+trotate a_1 0 0 0 1 0 0 60
+trotate a_2 0 0 0 1 0 0 -60
+bcommon b a a_1
+bcommon b b a_2
+
+pcylinder c 4 100
+trotate c 0 0 0 0 1 0 90
+
+psphere s 1.4
+ttranslate s 99.2 0 0
+bfuse cx c s
+
+pcone e 60 0.5 101
+trotate e 0 0 0 0 1 0 90
+
+bcommon body b e
+bcut body body c
+bcommon core cx e
+
+text2brep text "CAD Assistant" -font Times -height 10
+ttranslate text 10 -4 10
+prism tr text 0 0 -1
+bfuse body body tr
+
+donly body core
+
+#vdisplay body core
+#vsetcolor body yellow
+#vsetcolor core red
+
+explode body so
+explode body_1 f
+explode core so
+
+NewDocument D
+XAddShape D body_1
+XAddShape D core_1
+
+for {set i 1} {$i <= 26} {incr i} {XSetColor D body_1_$i BLUE}
+XSetColor D body_1_1 E68066
+XSetColor D body_1_9 E68066
+for {set i 10} {$i <= 22} {incr i} {XSetColor D body_1_$i 99B300}
+XSetColor D core_1 1A1AFF
+foreach ff [explode core_1 f] { XSetColor D $ff 1A1AFF ; puts "set color $ff" }
+
+vclear
+vinit View1
+XDisplay -dispMode 1 D -explore
+vfit
+vrenderparams -msaa 8
+vbackground -color WHITE
+
+#param write.iges.brep.mode 1
+#WriteIges D d:/pencil3.igs

package/resources/samples/tcl/raytrace.tcl

@@ -0,0 +1,44 @@
+# Script demonstrating ray tracing in 3d view
+
+#Category: Visualization
+#Title: Ray tracing
+
+# Ray-Tracing doesn't work with Compatible Profile on macOS
+pload VISUALIZATION
+if { $::tcl_platform(os) == "Darwin" } { vcaps -core }
+
+# make bottle by calling another script
+source [file join [file dirname [info script]] bottle.tcl]
+
+# make table and a glass
+box table -50 -50 -10 100 100 10
+pcone glass_out 7 9 25
+pcone glass_in 7 9 25
+ttranslate glass_in 0 0 0.2
+bcut glass glass_out glass_in
+ttranslate glass -30 -30 0
+
+# show table and glass
+vinit w=1024 h=1024
+vsetmaterial bottle aluminium
+vdisplay table
+vsetmaterial table bronze
+vsetmaterial table plastic
+vsetcolor table coral2
+vdisplay glass
+vsetmaterial glass plastic
+vsetcolor glass brown
+vsettransparency glass 0.6
+
+# add light source for shadows
+vlight spot -type SPOT -pos -100 -100 300
+
+# set white background and fit view
+vbackground -color WHITE
+vfit
+
+# set ray tracing
+puts "Trying raytrace mode..."
+if { ! [catch {vrenderparams -raytrace -shadows -reflections -fsaa -rayDepth 5}] } {
+  vtextureenv on 1
+}

package/resources/samples/tcl/snowflake.tcl

@@ -0,0 +1,161 @@
+# Creation of 2d drawing
+
+#Category: Modeling
+#Title: Snowflake - creation of 2d drawing
+
+pload MODELING VISUALIZATION
+
+puts "Generating sample drawing of snowflake..."
+
+# make circular elements
+circle c11 5 5 0 5
+circle c12 5 5 0 3
+circle c21 18 7 0 7
+circle c22 18 7 0 5
+circle c31 28.5 5 0 5
+circle c32 28.5 5 0 3
+trim c21 c21 pi/4 -pi/4
+trim c22 c22 pi/4 -pi/4
+trim c31 c31 pi/4 -pi/4
+trim c32 c32 pi/4 -pi/4
+line l21 18 7 0 1 1 0
+line l22 18 7 0 1 -1 0
+line l31 28.5 5 0 1 1 0
+line l32 28.5 5 0 1 -1 0
+trim l21 l21 5 7
+trim l22 l22 5 7
+trim l31 l31 3 5
+trim l32 l32 3 5
+line l1 -6 0 0 0.86602540378443864 0.5 0
+line l2 -6 1 0 1 0 0
+trim l1 l1 0 30
+trim l2 l2 0 45
+mkedge c11 c11
+mkedge c12 c12
+mkedge c21 c21
+mkedge c22 c22
+mkedge c31 c31
+mkedge c32 c32
+mkedge l21 l21
+mkedge l22 l22
+mkedge l31 l31
+mkedge l32 l32
+mkedge l1 l1
+mkedge l2 l2
+wire b11 c11
+wire b12 c12
+orientation b12 R
+
+# build one ray
+plane p -6 0 0 0 0 1
+mkface f1 p b11
+add b12 f1
+wire b2 c21 l21 c22 l22
+mkface f2 p b2
+wire b3 c31 l31 c32 l32
+mkface f3 p b3
+prism f5 l1 -5 8.6602540378443864 0
+prism f4 l2 0 -1 0
+compound f1 f2 f3 bc
+bfuse r bc f4
+bcut r r f5
+tcopy r r1
+tmirror r1 -6 0 0 0 1 0
+bfuse w r r1
+unifysamedom w w
+donly w
+
+# construct complete snowflake
+tcopy w w1
+tcopy w w2
+tcopy w w3
+tcopy w w4
+tcopy w w5
+trotate w1 -6 0 0 0 0 1 60
+trotate w2 -6 0 0 0 0 1 120
+trotate w3 -6 0 0 0 0 1 180
+trotate w4 -6 0 0 0 0 1 240
+trotate w5 -6 0 0 0 0 1 300
+bfuse w w w1
+bfuse w w w2
+bfuse w w w3
+bfuse w w w4
+bfuse w w w5
+shape wsh Sh
+foreach f [explode w f] {add $f wsh}
+renamevar wsh w
+unifysamedom r w
+
+# keep only wires in compound
+eval compound [explode r w] snowflake
+tscale snowflake -6 0 0 1.5
+
+# draw frame loosely following GOST 2.104-68
+polyline frame -100 -100 0 172 -100 0 172 100 0 -100 100 0 -100 -100 0
+polyline t1 52 -100 0 52 -45 0 172 -45 0
+polyline t2 52 -60 0 172 -60 0
+polyline t3 52 -85  0 172 -85 0
+polyline t4 122 -100 0 122 -60 0
+polyline t5 122 -80 0 172 -80 0
+polyline t6 122 -65 0 172 -65 0
+polyline t7 142 -80 0 142 -85 0
+polyline t8 137 -80 0 137 -60 0
+polyline t9 154 -80 0 154 -60 0
+compound frame t1 t2 t3 t4 t5 t6 t7 t8 t9 lines
+
+# add text
+text2brep sample "SAMPLE" -font Arial -height 10 -pos 90 -55 0 -aspect bolditalic
+text2brep occ "Open CASCADE" -font Times -height 6 -pos 125 -95 0
+text2brep name "Snowflake" -font Courier -height 7 -pos 65 -75 0 -aspect italic
+text2brep material "Ice" -font Courier -height 7 -pos 75 -95 0 -aspect italic
+text2brep sheets "Sheets 1" -font Courier -height 3.5 -pos 145 -83 0 -aspect italic
+text2brep scale "Scale\n\n1:100" -font Courier -height 3.5 -pos 157 -63 0 -aspect italic -valign topfirstline
+text2brep mass "Mass\n\n1 mg" -font Courier -height 3.5 -pos 140 -63 0 -aspect italic -valign topfirstline
+eval compound [explode sample w] sample
+eval compound [explode occ w] occ
+eval compound [explode name w] name
+eval compound [explode material w] material
+eval compound [explode sheets w] sheets
+eval compound [explode scale w] scale
+eval compound [explode mass w] mass
+compound sample occ name material sheets scale mass text
+
+compound snowflake lines text drawing
+bounding snowflake -save x1 y1 z1 x2 y2 z2
+
+# display in 3d view
+vinit Driver1/Viewer1/View1 w=1024 h=768
+vdisplay snowflake lines text
+vrenderparams -msaa 8
+vsetcolor snowflake BLACK
+vsetcolor lines BLACK
+vsetcolor text  BLACK
+vbackground -color WHITE
+vtop
+vfit
+
+# add dimension:
+# detect vertices extremal in X direction
+plane f1 x1 0 0 1 0 0
+plane f2 x2 0 0 1 0 0
+mkface f1 f1
+mkface f2 f2
+bsection s1 snowflake f1
+bsection s2 snowflake f2
+# select only upper vertices (nearer to the upper bound)
+explode s1 v
+explode s2 v
+plane fup 0 y2 0 0 1 0
+mkface fup fup
+for {set i 1} {$i <= 2} {incr i} {
+  set dmin 1e10
+  for {set j 1} {$j <= 2} {incr j} {
+    distmini d s${i}_$j fup
+    set dist [dval d_val]
+    if {$dmin > $dist} {
+      set dmin $dist
+      eval set v$i s${i}_$j
+    }
+  }
+}
+vdimension length -length -shapes $v1 $v2 -plane xoy -value 0.001 -dispunits mm -showunits -flyout 70 -label above -color black -text 5 3d sh

package/resources/samples/tcl/spheres.tcl

@@ -0,0 +1,148 @@
+# test performance of display of heavy scene involving multiple interactive
+# objects, on example of 1000 spheres
+
+#Category: Visualization
+#Title: Display of complex scene and animation
+
+pload MODELING
+pload VISUALIZATION
+
+vinit View1 w=1024 h=1024
+vclear
+vdefaults -autoTriang 0
+vrenderparams -stats basic
+
+# parameter NB defines number of spheres by each coordinate
+set NB 10
+puts "Creating [expr $NB * $NB * $NB] spheres..."
+set slist {}
+for {set i 0} {$i < $NB} {incr i} {
+  for {set j 0} {$j < $NB} {incr j} {
+    for {set k 0} {$k < $NB} {incr k} {
+      psphere s$i$j$k 1.
+      lappend slist s$i$j$k
+      ttranslate s$i$j$k 3.*$i 3.*$j 3.*$k
+    }
+  }
+}
+eval compound $slist c
+incmesh c 0.006
+
+puts "Measuring FPS of display of spheres as separate objects..."
+vaxo
+eval vdisplay -dispMode 1 $slist
+vfit
+
+# measure FPS
+puts [set fps_separate [vfps]]
+vclear
+
+puts "Measuring FPS of display of spheres as single object..."
+vdisplay -dispMode 1 c
+
+# measure FPS
+puts [set fps_compound [vfps]]
+vclear
+
+# redisplay individual spheres, trying to avoid unnecessary internal updates
+eval vdisplay -dispMode 1 $slist
+
+# auxiliary procedure to make random update of variable
+proc upd {theValueName theDeltaName theTime theToRand} {
+  upvar $theValueName aValue
+  upvar $theDeltaName aDelta
+
+  # set colors to corner spheres
+  if { $theToRand == 1 } {
+    set aValue [expr $aValue + $aDelta * $theTime / 100.0]
+    set aDelta [expr 0.5 * (rand() - 0.5)]
+    return $aValue
+  }
+
+  set aRes [expr $aValue + $aDelta * $theTime / 100.0]
+}
+
+# move corner spheres in cycle
+proc animateSpheres {{theDuration 10.0}} {
+  set nb [expr $::NB - 1]
+
+  # set colors to corner spheres
+  for {set i 0} {$i < $::NB} {incr i $nb} {
+    for {set j 0} {$j < $::NB} {incr j $nb} {
+      for {set k 0} {$k < $::NB} {incr k $nb} {
+        # mark animated spheres mutable for faster updates
+        uplevel #0 vdisplay -dispMode 1 -mutable s$i$j$k
+#       vaspects -noupdate s$i$j$k -setcolor red -setmaterial plastic
+        uplevel #0 vaspects -noupdate s$i$j$k -setcolor red
+        set x$i$j$k  0.0
+        set y$i$j$k  0.0
+        set z$i$j$k  0.0
+        set dx$i$j$k 0.0
+        set dy$i$j$k 0.0
+        set dz$i$j$k 0.0
+      }
+    }
+  }
+
+  set aDuration 0.0
+  set aPrevRand 0.0
+  set aTimeFrom [clock clicks -milliseconds]
+  uplevel #0 chrono anAnimTimer reset
+  uplevel #0 chrono anAnimTimer start
+  set toRand 1
+  for {set aFrameIter 1} { $aFrameIter > 0 } {incr aFrameIter} {
+    set aCurrTime [expr [clock clicks -milliseconds] - $aTimeFrom]
+    if { $aCurrTime >= [expr $theDuration * 1000.0] } {
+      puts "Nb Frames: $aFrameIter"
+      puts "Duration:  [expr $aCurrTime * 0.001] s"
+      set fps [expr ($aFrameIter - 1) / ($aDuration * 0.001) ]
+      puts "FPS:       $fps"
+      uplevel #0 chrono anAnimTimer stop
+      uplevel #0 chrono anAnimTimer show
+      return $fps
+    }
+
+    set aRandTime [expr $aCurrTime - $aPrevRand]
+    if { $aRandTime > 1000 } {
+      set toRand 1
+      set aPrevRand $aCurrTime
+    }
+
+    #puts "PTS: $aCurrTime ms"
+    for {set i 0} {$i < $::NB} {incr i $nb} {
+      for {set j 0} {$j < $::NB} {incr j $nb} {
+        for {set k 0} {$k < $::NB} {incr k $nb} {
+          uplevel #0 vsetlocation -noupdate s$i$j$k [upd x$i$j$k dx$i$j$k $aRandTime $toRand] [upd y$i$j$k dy$i$j$k $aRandTime $toRand] [upd z$i$j$k dz$i$j$k $aRandTime $toRand] 
+        }
+      }
+    }
+    uplevel #0 vrepaint
+    set aDuration [expr [clock clicks -milliseconds] - $aTimeFrom]
+    set toRand 0
+
+    # sleep 1 ms allowing the user to interact with the viewer
+    after 1 set waiter 1
+    vwait waiter
+  }
+}
+
+puts "Animating movements of corner spheres (10 sec)..."
+puts "(you can interact with the view during the process)"
+set fps_animation [animateSpheres 10.0]
+
+puts ""
+puts "Performance counters (FPS = \"Frames per second\"):"
+puts ""
+puts "Spheres as separate interactive objects:"
+puts "  Actual FPS: [lindex $fps_separate 1]"
+puts "  FPS estimate by CPU load: [expr 1000. / [lindex $fps_separate 3]]"
+puts ""
+puts "Spheres as one interactive object (compound):"
+puts "  Actual FPS: [lindex $fps_compound 1]"
+puts "  FPS estimate by CPU load: [expr 1000. / [lindex $fps_compound 3]]"
+puts ""
+puts "Animation FPS: $fps_animation"
+puts ""
+puts "Scene contains [lindex [trinfo c] 3] triangles"
+puts ""
+puts "Print 'animateSpheres 10.0' to restart animation"