! ; Hyperboloid [14.12.2012]
_circle 0 _pause
_sellast _setobjectname firstcircle _selnone
_circle 0 _pause
_sellast _setobjectname secondcircle
_move vertical=yes 0 _pause _selnone
_closestpt -selname firstcircle _enter _pause
_sellast _setobjectname firstpoint _selnone
_closestpt -selname secondcircle _enter _pause
_sellast _setobjectname secondpoint _selnone
_curvethroughpt -selname firstpoint -selname secondpoint _enter _enter
_selnone _sellast
_arraypolar 0 _pause 360 _enter
_selnone