proc unitsphere {canv} {
    set tags ""
    lappend tags [$canv create 3Dline \
	{0.500000 0.000000 -0.866025} \
	{0.498097 0.043578 -0.866025} \
	{0.492404 0.086824 -0.866025} \
	{0.482963 0.129410 -0.866025} \
	{0.469846 0.171010 -0.866025} \
	{0.453154 0.211309 -0.866025} \
	{0.433013 0.250000 -0.866025} \
	{0.409576 0.286788 -0.866025} \
	{0.383022 0.321394 -0.866025} \
	{0.353553 0.353553 -0.866025} \
	{0.321394 0.383022 -0.866025} \
	{0.286788 0.409576 -0.866025} \
	{0.250000 0.433013 -0.866025} \
	{0.211309 0.453154 -0.866025} \
	{0.171010 0.469846 -0.866025} \
	{0.129410 0.482963 -0.866025} \
	{0.086824 0.492404 -0.866025} \
	{0.043578 0.498097 -0.866025} \
	{0.000000 0.500000 -0.866025} \
	{-0.043578 0.498097 -0.866025} \
	{-0.086824 0.492404 -0.866025} \
	{-0.129410 0.482963 -0.866025} \
	{-0.171010 0.469846 -0.866025} \
	{-0.211309 0.453154 -0.866025} \
	{-0.250000 0.433013 -0.866025} \
	{-0.286788 0.409576 -0.866025} \
	{-0.321394 0.383022 -0.866025} \
	{-0.353553 0.353553 -0.866025} \
	{-0.383022 0.321394 -0.866025} \
	{-0.409576 0.286788 -0.866025} \
	{-0.433013 0.250000 -0.866025} \
	{-0.453154 0.211309 -0.866025} \
	{-0.469846 0.171010 -0.866025} \
	{-0.482963 0.129410 -0.866025} \
	{-0.492404 0.086824 -0.866025} \
	{-0.498097 0.043578 -0.866025} \
	{-0.500000 0.000000 -0.866025} \
	{-0.498097 -0.043578 -0.866025} \
	{-0.492404 -0.086824 -0.866025} \
	{-0.482963 -0.129410 -0.866025} \
	{-0.469846 -0.171010 -0.866025} \
	{-0.453154 -0.211309 -0.866025} \
	{-0.433013 -0.250000 -0.866025} \
	{-0.409576 -0.286788 -0.866025} \
	{-0.383022 -0.321394 -0.866025} \
	{-0.353553 -0.353553 -0.866025} \
	{-0.321394 -0.383022 -0.866025} \
	{-0.286788 -0.409576 -0.866025} \
	{-0.250000 -0.433013 -0.866025} \
	{-0.211309 -0.453154 -0.866025} \
	{-0.171010 -0.469846 -0.866025} \
	{-0.129410 -0.482963 -0.866025} \
	{-0.086824 -0.492404 -0.866025} \
	{-0.043578 -0.498097 -0.866025} \
	{-0.000000 -0.500000 -0.866025} \
	{0.043578 -0.498097 -0.866025} \
	{0.086824 -0.492404 -0.866025} \
	{0.129410 -0.482963 -0.866025} \
	{0.171010 -0.469846 -0.866025} \
	{0.211309 -0.453154 -0.866025} \
	{0.250000 -0.433013 -0.866025} \
	{0.286788 -0.409576 -0.866025} \
	{0.321394 -0.383022 -0.866025} \
	{0.353553 -0.353553 -0.866025} \
	{0.383022 -0.321394 -0.866025} \
	{0.409576 -0.286788 -0.866025} \
	{0.433013 -0.250000 -0.866025} \
	{0.453154 -0.211309 -0.866025} \
	{0.469846 -0.171010 -0.866025} \
	{0.482963 -0.129410 -0.866025} \
	{0.492404 -0.086824 -0.866025} \
	{0.498097 -0.043578 -0.866025} \
	{0.500000 -0.000000 -0.866025} \
    ]
    lappend tags [$canv create 3Dline \
	{0.866025 0.000000 -0.500000} \
	{0.862730 0.075479 -0.500000} \
	{0.852869 0.150384 -0.500000} \
	{0.836516 0.224144 -0.500000} \
	{0.813798 0.296198 -0.500000} \
	{0.784886 0.365998 -0.500000} \
	{0.750000 0.433013 -0.500000} \
	{0.709406 0.496732 -0.500000} \
	{0.663414 0.556670 -0.500000} \
	{0.612372 0.612372 -0.500000} \
	{0.556670 0.663414 -0.500000} \
	{0.496732 0.709406 -0.500000} \
	{0.433013 0.750000 -0.500000} \
	{0.365998 0.784886 -0.500000} \
	{0.296198 0.813798 -0.500000} \
	{0.224144 0.836516 -0.500000} \
	{0.150384 0.852869 -0.500000} \
	{0.075479 0.862730 -0.500000} \
	{0.000000 0.866025 -0.500000} \
	{-0.075479 0.862730 -0.500000} \
	{-0.150384 0.852869 -0.500000} \
	{-0.224144 0.836516 -0.500000} \
	{-0.296198 0.813798 -0.500000} \
	{-0.365998 0.784886 -0.500000} \
	{-0.433013 0.750000 -0.500000} \
	{-0.496732 0.709406 -0.500000} \
	{-0.556670 0.663414 -0.500000} \
	{-0.612372 0.612372 -0.500000} \
	{-0.663414 0.556670 -0.500000} \
	{-0.709406 0.496732 -0.500000} \
	{-0.750000 0.433013 -0.500000} \
	{-0.784886 0.365998 -0.500000} \
	{-0.813798 0.296198 -0.500000} \
	{-0.836516 0.224144 -0.500000} \
	{-0.852869 0.150384 -0.500000} \
	{-0.862730 0.075479 -0.500000} \
	{-0.866025 0.000000 -0.500000} \
	{-0.862730 -0.075479 -0.500000} \
	{-0.852869 -0.150384 -0.500000} \
	{-0.836516 -0.224144 -0.500000} \
	{-0.813798 -0.296198 -0.500000} \
	{-0.784886 -0.365998 -0.500000} \
	{-0.750000 -0.433013 -0.500000} \
	{-0.709406 -0.496732 -0.500000} \
	{-0.663414 -0.556670 -0.500000} \
	{-0.612372 -0.612372 -0.500000} \
	{-0.556670 -0.663414 -0.500000} \
	{-0.496732 -0.709406 -0.500000} \
	{-0.433013 -0.750000 -0.500000} \
	{-0.365998 -0.784886 -0.500000} \
	{-0.296198 -0.813798 -0.500000} \
	{-0.224144 -0.836516 -0.500000} \
	{-0.150384 -0.852869 -0.500000} \
	{-0.075479 -0.862730 -0.500000} \
	{-0.000000 -0.866025 -0.500000} \
	{0.075479 -0.862730 -0.500000} \
	{0.150384 -0.852869 -0.500000} \
	{0.224144 -0.836516 -0.500000} \
	{0.296198 -0.813798 -0.500000} \
	{0.365998 -0.784886 -0.500000} \
	{0.433013 -0.750000 -0.500000} \
	{0.496732 -0.709406 -0.500000} \
	{0.556670 -0.663414 -0.500000} \
	{0.612372 -0.612372 -0.500000} \
	{0.663414 -0.556670 -0.500000} \
	{0.709406 -0.496732 -0.500000} \
	{0.750000 -0.433013 -0.500000} \
	{0.784886 -0.365998 -0.500000} \
	{0.813798 -0.296198 -0.500000} \
	{0.836516 -0.224144 -0.500000} \
	{0.852869 -0.150384 -0.500000} \
	{0.862730 -0.075479 -0.500000} \
	{0.866025 -0.000000 -0.500000} \
    ]
    lappend tags [$canv create 3Dline \
	{1.000000 0.000000 0.000000} \
	{0.996195 0.087156 0.000000} \
	{0.984808 0.173648 0.000000} \
	{0.965926 0.258819 0.000000} \
	{0.939693 0.342020 0.000000} \
	{0.906308 0.422618 0.000000} \
	{0.866025 0.500000 0.000000} \
	{0.819152 0.573576 0.000000} \
	{0.766044 0.642788 0.000000} \
	{0.707107 0.707107 0.000000} \
	{0.642788 0.766044 0.000000} \
	{0.573576 0.819152 0.000000} \
	{0.500000 0.866025 0.000000} \
	{0.422618 0.906308 0.000000} \
	{0.342020 0.939693 0.000000} \
	{0.258819 0.965926 0.000000} \
	{0.173648 0.984808 0.000000} \
	{0.087156 0.996195 0.000000} \
	{0.000000 1.000000 0.000000} \
	{-0.087156 0.996195 0.000000} \
	{-0.173648 0.984808 0.000000} \
	{-0.258819 0.965926 0.000000} \
	{-0.342020 0.939693 0.000000} \
	{-0.422618 0.906308 0.000000} \
	{-0.500000 0.866025 0.000000} \
	{-0.573576 0.819152 0.000000} \
	{-0.642788 0.766044 0.000000} \
	{-0.707107 0.707107 0.000000} \
	{-0.766044 0.642788 0.000000} \
	{-0.819152 0.573576 0.000000} \
	{-0.866025 0.500000 0.000000} \
	{-0.906308 0.422618 0.000000} \
	{-0.939693 0.342020 0.000000} \
	{-0.965926 0.258819 0.000000} \
	{-0.984808 0.173648 0.000000} \
	{-0.996195 0.087156 0.000000} \
	{-1.000000 0.000000 0.000000} \
	{-0.996195 -0.087156 0.000000} \
	{-0.984808 -0.173648 0.000000} \
	{-0.965926 -0.258819 0.000000} \
	{-0.939693 -0.342020 0.000000} \
	{-0.906308 -0.422618 0.000000} \
	{-0.866025 -0.500000 0.000000} \
	{-0.819152 -0.573576 0.000000} \
	{-0.766044 -0.642788 0.000000} \
	{-0.707107 -0.707107 0.000000} \
	{-0.642788 -0.766044 0.000000} \
	{-0.573576 -0.819152 0.000000} \
	{-0.500000 -0.866025 0.000000} \
	{-0.422618 -0.906308 0.000000} \
	{-0.342020 -0.939693 0.000000} \
	{-0.258819 -0.965926 0.000000} \
	{-0.173648 -0.984808 0.000000} \
	{-0.087156 -0.996195 0.000000} \
	{-0.000000 -1.000000 0.000000} \
	{0.087156 -0.996195 0.000000} \
	{0.173648 -0.984808 0.000000} \
	{0.258819 -0.965926 0.000000} \
	{0.342020 -0.939693 0.000000} \
	{0.422618 -0.906308 0.000000} \
	{0.500000 -0.866025 0.000000} \
	{0.573576 -0.819152 0.000000} \
	{0.642788 -0.766044 0.000000} \
	{0.707107 -0.707107 0.000000} \
	{0.766044 -0.642788 0.000000} \
	{0.819152 -0.573576 0.000000} \
	{0.866025 -0.500000 0.000000} \
	{0.906308 -0.422618 0.000000} \
	{0.939693 -0.342020 0.000000} \
	{0.965926 -0.258819 0.000000} \
	{0.984808 -0.173648 0.000000} \
	{0.996195 -0.087156 0.000000} \
	{1.000000 -0.000000 0.000000} \
    ]
    lappend tags [$canv create 3Dline \
	{0.866025 0.000000 0.500000} \
	{0.862730 0.075479 0.500000} \
	{0.852869 0.150384 0.500000} \
	{0.836516 0.224144 0.500000} \
	{0.813798 0.296198 0.500000} \
	{0.784886 0.365998 0.500000} \
	{0.750000 0.433013 0.500000} \
	{0.709406 0.496732 0.500000} \
	{0.663414 0.556670 0.500000} \
	{0.612372 0.612372 0.500000} \
	{0.556670 0.663414 0.500000} \
	{0.496732 0.709406 0.500000} \
	{0.433013 0.750000 0.500000} \
	{0.365998 0.784886 0.500000} \
	{0.296198 0.813798 0.500000} \
	{0.224144 0.836516 0.500000} \
	{0.150384 0.852869 0.500000} \
	{0.075479 0.862730 0.500000} \
	{0.000000 0.866025 0.500000} \
	{-0.075479 0.862730 0.500000} \
	{-0.150384 0.852869 0.500000} \
	{-0.224144 0.836516 0.500000} \
	{-0.296198 0.813798 0.500000} \
	{-0.365998 0.784886 0.500000} \
	{-0.433013 0.750000 0.500000} \
	{-0.496732 0.709406 0.500000} \
	{-0.556670 0.663414 0.500000} \
	{-0.612372 0.612372 0.500000} \
	{-0.663414 0.556670 0.500000} \
	{-0.709406 0.496732 0.500000} \
	{-0.750000 0.433013 0.500000} \
	{-0.784886 0.365998 0.500000} \
	{-0.813798 0.296198 0.500000} \
	{-0.836516 0.224144 0.500000} \
	{-0.852869 0.150384 0.500000} \
	{-0.862730 0.075479 0.500000} \
	{-0.866025 0.000000 0.500000} \
	{-0.862730 -0.075479 0.500000} \
	{-0.852869 -0.150384 0.500000} \
	{-0.836516 -0.224144 0.500000} \
	{-0.813798 -0.296198 0.500000} \
	{-0.784886 -0.365998 0.500000} \
	{-0.750000 -0.433013 0.500000} \
	{-0.709406 -0.496732 0.500000} \
	{-0.663414 -0.556670 0.500000} \
	{-0.612372 -0.612372 0.500000} \
	{-0.556670 -0.663414 0.500000} \
	{-0.496732 -0.709406 0.500000} \
	{-0.433013 -0.750000 0.500000} \
	{-0.365998 -0.784886 0.500000} \
	{-0.296198 -0.813798 0.500000} \
	{-0.224144 -0.836516 0.500000} \
	{-0.150384 -0.852869 0.500000} \
	{-0.075479 -0.862730 0.500000} \
	{-0.000000 -0.866025 0.500000} \
	{0.075479 -0.862730 0.500000} \
	{0.150384 -0.852869 0.500000} \
	{0.224144 -0.836516 0.500000} \
	{0.296198 -0.813798 0.500000} \
	{0.365998 -0.784886 0.500000} \
	{0.433013 -0.750000 0.500000} \
	{0.496732 -0.709406 0.500000} \
	{0.556670 -0.663414 0.500000} \
	{0.612372 -0.612372 0.500000} \
	{0.663414 -0.556670 0.500000} \
	{0.709406 -0.496732 0.500000} \
	{0.750000 -0.433013 0.500000} \
	{0.784886 -0.365998 0.500000} \
	{0.813798 -0.296198 0.500000} \
	{0.836516 -0.224144 0.500000} \
	{0.852869 -0.150384 0.500000} \
	{0.862730 -0.075479 0.500000} \
	{0.866025 -0.000000 0.500000} \
    ]
    lappend tags [$canv create 3Dline \
	{0.500000 0.000000 0.866025} \
	{0.498097 0.043578 0.866025} \
	{0.492404 0.086824 0.866025} \
	{0.482963 0.129410 0.866025} \
	{0.469846 0.171010 0.866025} \
	{0.453154 0.211309 0.866025} \
	{0.433013 0.250000 0.866025} \
	{0.409576 0.286788 0.866025} \
	{0.383022 0.321394 0.866025} \
	{0.353553 0.353553 0.866025} \
	{0.321394 0.383022 0.866025} \
	{0.286788 0.409576 0.866025} \
	{0.250000 0.433013 0.866025} \
	{0.211309 0.453154 0.866025} \
	{0.171010 0.469846 0.866025} \
	{0.129410 0.482963 0.866025} \
	{0.086824 0.492404 0.866025} \
	{0.043578 0.498097 0.866025} \
	{0.000000 0.500000 0.866025} \
	{-0.043578 0.498097 0.866025} \
	{-0.086824 0.492404 0.866025} \
	{-0.129410 0.482963 0.866025} \
	{-0.171010 0.469846 0.866025} \
	{-0.211309 0.453154 0.866025} \
	{-0.250000 0.433013 0.866025} \
	{-0.286788 0.409576 0.866025} \
	{-0.321394 0.383022 0.866025} \
	{-0.353553 0.353553 0.866025} \
	{-0.383022 0.321394 0.866025} \
	{-0.409576 0.286788 0.866025} \
	{-0.433013 0.250000 0.866025} \
	{-0.453154 0.211309 0.866025} \
	{-0.469846 0.171010 0.866025} \
	{-0.482963 0.129410 0.866025} \
	{-0.492404 0.086824 0.866025} \
	{-0.498097 0.043578 0.866025} \
	{-0.500000 0.000000 0.866025} \
	{-0.498097 -0.043578 0.866025} \
	{-0.492404 -0.086824 0.866025} \
	{-0.482963 -0.129410 0.866025} \
	{-0.469846 -0.171010 0.866025} \
	{-0.453154 -0.211309 0.866025} \
	{-0.433013 -0.250000 0.866025} \
	{-0.409576 -0.286788 0.866025} \
	{-0.383022 -0.321394 0.866025} \
	{-0.353553 -0.353553 0.866025} \
	{-0.321394 -0.383022 0.866025} \
	{-0.286788 -0.409576 0.866025} \
	{-0.250000 -0.433013 0.866025} \
	{-0.211309 -0.453154 0.866025} \
	{-0.171010 -0.469846 0.866025} \
	{-0.129410 -0.482963 0.866025} \
	{-0.086824 -0.492404 0.866025} \
	{-0.043578 -0.498097 0.866025} \
	{-0.000000 -0.500000 0.866025} \
	{0.043578 -0.498097 0.866025} \
	{0.086824 -0.492404 0.866025} \
	{0.129410 -0.482963 0.866025} \
	{0.171010 -0.469846 0.866025} \
	{0.211309 -0.453154 0.866025} \
	{0.250000 -0.433013 0.866025} \
	{0.286788 -0.409576 0.866025} \
	{0.321394 -0.383022 0.866025} \
	{0.353553 -0.353553 0.866025} \
	{0.383022 -0.321394 0.866025} \
	{0.409576 -0.286788 0.866025} \
	{0.433013 -0.250000 0.866025} \
	{0.453154 -0.211309 0.866025} \
	{0.469846 -0.171010 0.866025} \
	{0.482963 -0.129410 0.866025} \
	{0.492404 -0.086824 0.866025} \
	{0.498097 -0.043578 0.866025} \
	{0.500000 -0.000000 0.866025} \
    ]
    lappend tags [$canv create 3Dline \
	{0.000000 0.000000 -1.000000} \
	{0.087156 0.000000 -0.996195} \
	{0.173648 0.000000 -0.984808} \
	{0.258819 0.000000 -0.965926} \
	{0.342020 0.000000 -0.939693} \
	{0.422618 0.000000 -0.906308} \
	{0.500000 0.000000 -0.866025} \
	{0.573576 0.000000 -0.819152} \
	{0.642788 0.000000 -0.766044} \
	{0.707107 0.000000 -0.707107} \
	{0.766044 0.000000 -0.642788} \
	{0.819152 0.000000 -0.573576} \
	{0.866025 0.000000 -0.500000} \
	{0.906308 0.000000 -0.422618} \
	{0.939693 0.000000 -0.342020} \
	{0.965926 0.000000 -0.258819} \
	{0.984808 0.000000 -0.173648} \
	{0.996195 0.000000 -0.087156} \
	{1.000000 0.000000 0.000000} \
	{0.996195 0.000000 0.087156} \
	{0.984808 0.000000 0.173648} \
	{0.965926 0.000000 0.258819} \
	{0.939693 0.000000 0.342020} \
	{0.906308 0.000000 0.422618} \
	{0.866025 0.000000 0.500000} \
	{0.819152 0.000000 0.573576} \
	{0.766044 0.000000 0.642788} \
	{0.707107 0.000000 0.707107} \
	{0.642788 0.000000 0.766044} \
	{0.573576 0.000000 0.819152} \
	{0.500000 0.000000 0.866025} \
	{0.422618 0.000000 0.906308} \
	{0.342020 0.000000 0.939693} \
	{0.258819 0.000000 0.965926} \
	{0.173648 0.000000 0.984808} \
	{0.087156 0.000000 0.996195} \
	{0.000000 0.000000 1.000000} \
    ]
    lappend tags [$canv create 3Dline \
	{0.433013 0.250000 -0.866025} \
	{0.496732 0.286788 -0.819152} \
	{0.556670 0.321394 -0.766044} \
	{0.612372 0.353553 -0.707107} \
	{0.663414 0.383022 -0.642788} \
	{0.709406 0.409576 -0.573576} \
	{0.750000 0.433013 -0.500000} \
	{0.784886 0.453154 -0.422618} \
	{0.813798 0.469846 -0.342020} \
	{0.836516 0.482963 -0.258819} \
	{0.852869 0.492404 -0.173648} \
	{0.862730 0.498097 -0.087156} \
	{0.866025 0.500000 0.000000} \
	{0.862730 0.498097 0.087156} \
	{0.852869 0.492404 0.173648} \
	{0.836516 0.482963 0.258819} \
	{0.813798 0.469846 0.342020} \
	{0.784886 0.453154 0.422618} \
	{0.750000 0.433013 0.500000} \
	{0.709406 0.409576 0.573576} \
	{0.663414 0.383022 0.642788} \
	{0.612372 0.353553 0.707107} \
	{0.556670 0.321394 0.766044} \
	{0.496732 0.286788 0.819152} \
	{0.433013 0.250000 0.866025} \
    ]
    lappend tags [$canv create 3Dline \
	{0.250000 0.433013 -0.866025} \
	{0.286788 0.496732 -0.819152} \
	{0.321394 0.556670 -0.766044} \
	{0.353553 0.612372 -0.707107} \
	{0.383022 0.663414 -0.642788} \
	{0.409576 0.709406 -0.573576} \
	{0.433013 0.750000 -0.500000} \
	{0.453154 0.784886 -0.422618} \
	{0.469846 0.813798 -0.342020} \
	{0.482963 0.836516 -0.258819} \
	{0.492404 0.852869 -0.173648} \
	{0.498097 0.862730 -0.087156} \
	{0.500000 0.866025 0.000000} \
	{0.498097 0.862730 0.087156} \
	{0.492404 0.852869 0.173648} \
	{0.482963 0.836516 0.258819} \
	{0.469846 0.813798 0.342020} \
	{0.453154 0.784886 0.422618} \
	{0.433013 0.750000 0.500000} \
	{0.409576 0.709406 0.573576} \
	{0.383022 0.663414 0.642788} \
	{0.353553 0.612372 0.707107} \
	{0.321394 0.556670 0.766044} \
	{0.286788 0.496732 0.819152} \
	{0.250000 0.433013 0.866025} \
    ]
    lappend tags [$canv create 3Dline \
	{0.000000 0.000000 -1.000000} \
	{0.000000 0.087156 -0.996195} \
	{0.000000 0.173648 -0.984808} \
	{0.000000 0.258819 -0.965926} \
	{0.000000 0.342020 -0.939693} \
	{0.000000 0.422618 -0.906308} \
	{0.000000 0.500000 -0.866025} \
	{0.000000 0.573576 -0.819152} \
	{0.000000 0.642788 -0.766044} \
	{0.000000 0.707107 -0.707107} \
	{0.000000 0.766044 -0.642788} \
	{0.000000 0.819152 -0.573576} \
	{0.000000 0.866025 -0.500000} \
	{0.000000 0.906308 -0.422618} \
	{0.000000 0.939693 -0.342020} \
	{0.000000 0.965926 -0.258819} \
	{0.000000 0.984808 -0.173648} \
	{0.000000 0.996195 -0.087156} \
	{0.000000 1.000000 0.000000} \
	{0.000000 0.996195 0.087156} \
	{0.000000 0.984808 0.173648} \
	{0.000000 0.965926 0.258819} \
	{0.000000 0.939693 0.342020} \
	{0.000000 0.906308 0.422618} \
	{0.000000 0.866025 0.500000} \
	{0.000000 0.819152 0.573576} \
	{0.000000 0.766044 0.642788} \
	{0.000000 0.707107 0.707107} \
	{0.000000 0.642788 0.766044} \
	{0.000000 0.573576 0.819152} \
	{0.000000 0.500000 0.866025} \
	{0.000000 0.422618 0.906308} \
	{0.000000 0.342020 0.939693} \
	{0.000000 0.258819 0.965926} \
	{0.000000 0.173648 0.984808} \
	{0.000000 0.087156 0.996195} \
	{0.000000 0.000000 1.000000} \
    ]
    lappend tags [$canv create 3Dline \
	{-0.250000 0.433013 -0.866025} \
	{-0.286788 0.496732 -0.819152} \
	{-0.321394 0.556670 -0.766044} \
	{-0.353553 0.612372 -0.707107} \
	{-0.383022 0.663414 -0.642788} \
	{-0.409576 0.709406 -0.573576} \
	{-0.433013 0.750000 -0.500000} \
	{-0.453154 0.784886 -0.422618} \
	{-0.469846 0.813798 -0.342020} \
	{-0.482963 0.836516 -0.258819} \
	{-0.492404 0.852869 -0.173648} \
	{-0.498097 0.862730 -0.087156} \
	{-0.500000 0.866025 0.000000} \
	{-0.498097 0.862730 0.087156} \
	{-0.492404 0.852869 0.173648} \
	{-0.482963 0.836516 0.258819} \
	{-0.469846 0.813798 0.342020} \
	{-0.453154 0.784886 0.422618} \
	{-0.433013 0.750000 0.500000} \
	{-0.409576 0.709406 0.573576} \
	{-0.383022 0.663414 0.642788} \
	{-0.353553 0.612372 0.707107} \
	{-0.321394 0.556670 0.766044} \
	{-0.286788 0.496732 0.819152} \
	{-0.250000 0.433013 0.866025} \
    ]
    lappend tags [$canv create 3Dline \
	{-0.433013 0.250000 -0.866025} \
	{-0.496732 0.286788 -0.819152} \
	{-0.556670 0.321394 -0.766044} \
	{-0.612372 0.353553 -0.707107} \
	{-0.663414 0.383022 -0.642788} \
	{-0.709406 0.409576 -0.573576} \
	{-0.750000 0.433013 -0.500000} \
	{-0.784886 0.453154 -0.422618} \
	{-0.813798 0.469846 -0.342020} \
	{-0.836516 0.482963 -0.258819} \
	{-0.852869 0.492404 -0.173648} \
	{-0.862730 0.498097 -0.087156} \
	{-0.866025 0.500000 0.000000} \
	{-0.862730 0.498097 0.087156} \
	{-0.852869 0.492404 0.173648} \
	{-0.836516 0.482963 0.258819} \
	{-0.813798 0.469846 0.342020} \
	{-0.784886 0.453154 0.422618} \
	{-0.750000 0.433013 0.500000} \
	{-0.709406 0.409576 0.573576} \
	{-0.663414 0.383022 0.642788} \
	{-0.612372 0.353553 0.707107} \
	{-0.556670 0.321394 0.766044} \
	{-0.496732 0.286788 0.819152} \
	{-0.433013 0.250000 0.866025} \
    ]
    lappend tags [$canv create 3Dline \
	{-0.000000 0.000000 -1.000000} \
	{-0.087156 0.000000 -0.996195} \
	{-0.173648 0.000000 -0.984808} \
	{-0.258819 0.000000 -0.965926} \
	{-0.342020 0.000000 -0.939693} \
	{-0.422618 0.000000 -0.906308} \
	{-0.500000 0.000000 -0.866025} \
	{-0.573576 0.000000 -0.819152} \
	{-0.642788 0.000000 -0.766044} \
	{-0.707107 0.000000 -0.707107} \
	{-0.766044 0.000000 -0.642788} \
	{-0.819152 0.000000 -0.573576} \
	{-0.866025 0.000000 -0.500000} \
	{-0.906308 0.000000 -0.422618} \
	{-0.939693 0.000000 -0.342020} \
	{-0.965926 0.000000 -0.258819} \
	{-0.984808 0.000000 -0.173648} \
	{-0.996195 0.000000 -0.087156} \
	{-1.000000 0.000000 0.000000} \
	{-0.996195 0.000000 0.087156} \
	{-0.984808 0.000000 0.173648} \
	{-0.965926 0.000000 0.258819} \
	{-0.939693 0.000000 0.342020} \
	{-0.906308 0.000000 0.422618} \
	{-0.866025 0.000000 0.500000} \
	{-0.819152 0.000000 0.573576} \
	{-0.766044 0.000000 0.642788} \
	{-0.707107 0.000000 0.707107} \
	{-0.642788 0.000000 0.766044} \
	{-0.573576 0.000000 0.819152} \
	{-0.500000 0.000000 0.866025} \
	{-0.422618 0.000000 0.906308} \
	{-0.342020 0.000000 0.939693} \
	{-0.258819 0.000000 0.965926} \
	{-0.173648 0.000000 0.984808} \
	{-0.087156 0.000000 0.996195} \
	{-0.000000 0.000000 1.000000} \
    ]
    lappend tags [$canv create 3Dline \
	{-0.433013 -0.250000 -0.866025} \
	{-0.496732 -0.286788 -0.819152} \
	{-0.556670 -0.321394 -0.766044} \
	{-0.612372 -0.353553 -0.707107} \
	{-0.663414 -0.383022 -0.642788} \
	{-0.709406 -0.409576 -0.573576} \
	{-0.750000 -0.433013 -0.500000} \
	{-0.784886 -0.453154 -0.422618} \
	{-0.813798 -0.469846 -0.342020} \
	{-0.836516 -0.482963 -0.258819} \
	{-0.852869 -0.492404 -0.173648} \
	{-0.862730 -0.498097 -0.087156} \
	{-0.866025 -0.500000 0.000000} \
	{-0.862730 -0.498097 0.087156} \
	{-0.852869 -0.492404 0.173648} \
	{-0.836516 -0.482963 0.258819} \
	{-0.813798 -0.469846 0.342020} \
	{-0.784886 -0.453154 0.422618} \
	{-0.750000 -0.433013 0.500000} \
	{-0.709406 -0.409576 0.573576} \
	{-0.663414 -0.383022 0.642788} \
	{-0.612372 -0.353553 0.707107} \
	{-0.556670 -0.321394 0.766044} \
	{-0.496732 -0.286788 0.819152} \
	{-0.433013 -0.250000 0.866025} \
    ]
    lappend tags [$canv create 3Dline \
	{-0.250000 -0.433013 -0.866025} \
	{-0.286788 -0.496732 -0.819152} \
	{-0.321394 -0.556670 -0.766044} \
	{-0.353553 -0.612372 -0.707107} \
	{-0.383022 -0.663414 -0.642788} \
	{-0.409576 -0.709406 -0.573576} \
	{-0.433013 -0.750000 -0.500000} \
	{-0.453154 -0.784886 -0.422618} \
	{-0.469846 -0.813798 -0.342020} \
	{-0.482963 -0.836516 -0.258819} \
	{-0.492404 -0.852869 -0.173648} \
	{-0.498097 -0.862730 -0.087156} \
	{-0.500000 -0.866025 0.000000} \
	{-0.498097 -0.862730 0.087156} \
	{-0.492404 -0.852869 0.173648} \
	{-0.482963 -0.836516 0.258819} \
	{-0.469846 -0.813798 0.342020} \
	{-0.453154 -0.784886 0.422618} \
	{-0.433013 -0.750000 0.500000} \
	{-0.409576 -0.709406 0.573576} \
	{-0.383022 -0.663414 0.642788} \
	{-0.353553 -0.612372 0.707107} \
	{-0.321394 -0.556670 0.766044} \
	{-0.286788 -0.496732 0.819152} \
	{-0.250000 -0.433013 0.866025} \
    ]
    lappend tags [$canv create 3Dline \
	{-0.000000 -0.000000 -1.000000} \
	{-0.000000 -0.087156 -0.996195} \
	{-0.000000 -0.173648 -0.984808} \
	{-0.000000 -0.258819 -0.965926} \
	{-0.000000 -0.342020 -0.939693} \
	{-0.000000 -0.422618 -0.906308} \
	{-0.000000 -0.500000 -0.866025} \
	{-0.000000 -0.573576 -0.819152} \
	{-0.000000 -0.642788 -0.766044} \
	{-0.000000 -0.707107 -0.707107} \
	{-0.000000 -0.766044 -0.642788} \
	{-0.000000 -0.819152 -0.573576} \
	{-0.000000 -0.866025 -0.500000} \
	{-0.000000 -0.906308 -0.422618} \
	{-0.000000 -0.939693 -0.342020} \
	{-0.000000 -0.965926 -0.258819} \
	{-0.000000 -0.984808 -0.173648} \
	{-0.000000 -0.996195 -0.087156} \
	{-0.000000 -1.000000 0.000000} \
	{-0.000000 -0.996195 0.087156} \
	{-0.000000 -0.984808 0.173648} \
	{-0.000000 -0.965926 0.258819} \
	{-0.000000 -0.939693 0.342020} \
	{-0.000000 -0.906308 0.422618} \
	{-0.000000 -0.866025 0.500000} \
	{-0.000000 -0.819152 0.573576} \
	{-0.000000 -0.766044 0.642788} \
	{-0.000000 -0.707107 0.707107} \
	{-0.000000 -0.642788 0.766044} \
	{-0.000000 -0.573576 0.819152} \
	{-0.000000 -0.500000 0.866025} \
	{-0.000000 -0.422618 0.906308} \
	{-0.000000 -0.342020 0.939693} \
	{-0.000000 -0.258819 0.965926} \
	{-0.000000 -0.173648 0.984808} \
	{-0.000000 -0.087156 0.996195} \
	{-0.000000 -0.000000 1.000000} \
    ]
    lappend tags [$canv create 3Dline \
	{0.250000 -0.433013 -0.866025} \
	{0.286788 -0.496732 -0.819152} \
	{0.321394 -0.556670 -0.766044} \
	{0.353553 -0.612372 -0.707107} \
	{0.383022 -0.663414 -0.642788} \
	{0.409576 -0.709406 -0.573576} \
	{0.433013 -0.750000 -0.500000} \
	{0.453154 -0.784886 -0.422618} \
	{0.469846 -0.813798 -0.342020} \
	{0.482963 -0.836516 -0.258819} \
	{0.492404 -0.852869 -0.173648} \
	{0.498097 -0.862730 -0.087156} \
	{0.500000 -0.866025 0.000000} \
	{0.498097 -0.862730 0.087156} \
	{0.492404 -0.852869 0.173648} \
	{0.482963 -0.836516 0.258819} \
	{0.469846 -0.813798 0.342020} \
	{0.453154 -0.784886 0.422618} \
	{0.433013 -0.750000 0.500000} \
	{0.409576 -0.709406 0.573576} \
	{0.383022 -0.663414 0.642788} \
	{0.353553 -0.612372 0.707107} \
	{0.321394 -0.556670 0.766044} \
	{0.286788 -0.496732 0.819152} \
	{0.250000 -0.433013 0.866025} \
    ]
    lappend tags [$canv create 3Dline \
	{0.433013 -0.250000 -0.866025} \
	{0.496732 -0.286788 -0.819152} \
	{0.556670 -0.321394 -0.766044} \
	{0.612372 -0.353553 -0.707107} \
	{0.663414 -0.383022 -0.642788} \
	{0.709406 -0.409576 -0.573576} \
	{0.750000 -0.433013 -0.500000} \
	{0.784886 -0.453154 -0.422618} \
	{0.813798 -0.469846 -0.342020} \
	{0.836516 -0.482963 -0.258819} \
	{0.852869 -0.492404 -0.173648} \
	{0.862730 -0.498097 -0.087156} \
	{0.866025 -0.500000 0.000000} \
	{0.862730 -0.498097 0.087156} \
	{0.852869 -0.492404 0.173648} \
	{0.836516 -0.482963 0.258819} \
	{0.813798 -0.469846 0.342020} \
	{0.784886 -0.453154 0.422618} \
	{0.750000 -0.433013 0.500000} \
	{0.709406 -0.409576 0.573576} \
	{0.663414 -0.383022 0.642788} \
	{0.612372 -0.353553 0.707107} \
	{0.556670 -0.321394 0.766044} \
	{0.496732 -0.286788 0.819152} \
	{0.433013 -0.250000 0.866025} \
    ]
    return $tags
}
