c 0 spherical c 1, 2, 3 circular direction normal. common /spiralsgs/dir integer dir save /spiralsgs/