# Tk stuff to draw a 3-D wireframe virtual sphere and
# allow the user to drag it around.

canvas .c -width 400 -height 400 -bg black
vsphere .c sphere 0 0 400 400 
pack append . .c top .quit top
