// G-Force DeltaField
// Name: HAL_Weierstrauss_Wheel
// Created by: Howard A. Landman, 24 April 2001
// e-mail: howard@polyamory.org -or- howard.landman@vitesse.com
// homepage: http://www.polyamory.org/~howard/

Aspc=1,

// An R-Theta use of (an approximation to) the Weierstrauss function.
// See DF HAL_Weierstrauss_Spread for references.

srcR="0.989*r + (0.01*((sin(2*theta)/2) + (sin(4*theta)/4) + (sin(8*theta)/8) + (sin(16*theta)/16) + (sin(32*theta)/32)))",

srcT="theta + (0.02*((cos(4*r)/2) + (cos(8*r)/4) + (cos(16*r)/8) + (cos(32*r)/16) + (cos(64*r)/32)))",

Vers=100