# either draw the camera path, or actually fly it
set drawnonly 0

source camfly.tcl
namespace import ::CamFly::*

mol delete all
draw delete all

mol new 1tit

display farclip  set 1000
display nearclip set 1
draw sphere { 0 0 0 } radius 1 resolution 50

if { $drawnonly } {
  cameramode 0
} else {
  cameramode 1
}

# see the code for this routine in camfly.tcl
# one can aim the camera at an atom selection as well as just a 3-D position
circledemoflight { 0 0 0 } 150 $drawnonly