# ---  Make the cog faces ----
  for { set i 0 } { $i <= $nSamples } { incr i } {
      slide create point "a[subst $i]"  [list [list expr {$fBaseRadA} * ( ( cos( $i * {$TA} ) + $i * {$TA} * sin( $i * {$TA} ) ) ) ] \
                                       [list expr {$fBaseRadA} * ( ( sin( $i * {$TA} ) - $i * {$TA} * cos( $i * {$TA} ) ) ) ] 0.0 ]
      lappend FA "a[subst $i]"
   }
  slide create point "ac" { 0 0 0 }
  lappend FA "ac"
  slide create face FaceA $FA  



  for { set i 0 } { $i <= $nSamples } { incr i } {
      slide create point "b[subst $i]"  [list [list expr {$fBaseRadB} * ( ( cos( $i * {$TB} ) + $i * {$TB} * sin( $i * {$TB} ) ) ) ] \
                                       [list expr {$fBaseRadB} * ( ( sin( $i * {$TB} ) - $i * {$TB} * cos( $i * {$TB} ) ) ) ] 0.0 ]
puts [list      slide create point "b[subst $i]"  [list [list expr {$fBaseRadB} * ( ( cos( $i * {$TB} ) + $i * {$TB} * sin( $i * {$TB} ) ) ) ] \
                                       [list expr {$fBaseRadB} * ( ( sin( $i * {$TB} ) - $i * {$TB} * cos( $i * {$TB} ) ) ) ] 0.0 ] ]
      lappend FB "b[subst $i]"
   }
  slide create point "bc" { 0 0 0 }
  lappend FB "bc"

  slide create face FaceB $FB  
puts $FB