#
# Arguments to gensup1.sh:
# 1:name 2:base_material 3:top_material
#

genworm $2 {$1}a "-0.15*((1-t)*(1-t)) + sin(3.9*t)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05+t" "cos(3.9*t)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05-0.02*t" 15

genworm $2 {$1}a "-0.15*((1-t)*(1-t)) + sin(3.9*t+2.094)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05+t" "cos(3.9*t+2.094)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05-0.02*t" 15

genworm $2 {$1}a "-0.15*((1-t)*(1-t)) + sin(3.9*t-2.094)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05+t" "cos(3.9*t-2.094)*(0.2+0.4*(1-t))*sin(3.5*(t-0.3))" "0.05-0.02*t" 15

echo $3 sphere {$1}ball
echo 0
echo 0
echo 4 0 1.383 0 0.33