BAG's bag of tricks

OK, thread to hold your BAG files you want to share.

Here is my first, besides the demo ones:

Stefano


<BAG version="0.0.5">
<Reference>Spherical</Reference>
<Label>
A sphere with concentric ripples
</Label>
<F1>
r0+r1*(s1+s2+s3)
</F1>
<F2>
u
</F2>
<F3>
v
</F3>
<ParU Min="0.0" Max="pi">
64
</ParU>
<ParV Min="0.0" Max="2*pi">
128
</ParV>
<UserPara Name="r0" Value="2.0" Index="0">
Sphere Radius
</UserPara>
<UserPara Name="r1" Value="0.15000000596" Index="1">
Ripple amplitude
</UserPara>
<UserPara Name="N1" Value="1.75" Index="2">
Period for z ripple
</UserPara>
<UserPara Name="N2" Value="1.75" Index="3">
Period for y ripple
</UserPara>
<UserPara Name="N3" Value="1.75" Index="4">
Period for z ripple
</UserPara>
<UserPara Name="alpha0" Value="0.5" Index="5">
Falloff
</UserPara>
<Macro Name="s1" Value="cos(2*pi*N1*d1)/(exp(alpha0*N1*d1))" Index="0">
Ripple 1
</Macro>
<Macro Name="s2" Value="cos(2*pi*N2*d2)/(exp(alpha0*N2*d2))" Index="1">
Ripple 2
</Macro>
<Macro Name="s3" Value="cos(2*pi*N3*d3)/(exp(alpha0*N3*d3))" Index="2">
Ripple 3
</Macro>
<Macro Name="d1" Value="sqrt(x**2+y**2+(abs(z)-r0)**2)" Index="3">
Distance 1
</Macro>
<Macro Name="d2" Value="sqrt((abs(x)-r0)**2+y**2+z**2)" Index="4">
Distance 2
</Macro>
<Macro Name="d3" Value="sqrt(x**2+(abs(y)-r0)**2+z**2)" Index="5">
Distance 3
</Macro>
<Macro Name="x" Value="(r0*cos(v)*sin(u))" Index="6">
x coordinate
</Macro>
<Macro Name="y" Value="(r0*sin(v)*sin(u))" Index="7">
y coordinate
</Macro>
<Macro Name="z" Value="(r0*cos(u))" Index="8">
z coordinate
</Macro>
</BAG>

here’s mine:

<BAG version="0.0.4"> 
<Reference>Cylindrical</Reference> 
<Label> 
lumpy spiral torus
</Label> 
<F1> 
trr+sin(v*pi*2)*tt+cos((u+off)*ln*2*pi)*lr+(sin(u*pi*nlump*2)*sin(v*2*pi)*slump) 
</F1> 
<F2> 
u*2*pi 
</F2> 
<F3> 
cos(v*pi*2)*tt+sin((u+off)*ln*2*pi)*lr+sin(u*pi*nlump*2)*cos(v*2*pi)*slump 
</F3> 
<ParU Min="0.0" Max="1.0"> 
70 
</ParU> 
<ParV Min="0.0" Max="1.0"> 
30 
</ParV> 
<UserPara Name="trr" Value="10.0" Index="0"> 
torus radius 
</UserPara> 
<UserPara Name="ln" Value="0.0" Index="1"> 
# of loops 
</UserPara> 
<UserPara Name="lr" Value="1.0" Index="2"> 
loop radius 
</UserPara> 
<UserPara Name="tt" Value="1.0" Index="3"> 
torus thickness 
</UserPara> 
<UserPara Name="off" Value="0.0" Index="4"> 
loop cycle offset(0-1) 
</UserPara> 
<UserPara Name="nlump" Value="10.0" Index="5"> 
# of lumps 
</UserPara> 
<UserPara Name="slump" Value="1.0" Index="6"> 
size of lumps 
</UserPara> 
<Macro Name="E" Value="exp(alpha0*2*pi*v)" Index="0"> 
Exponential behavior 
</Macro> 
</BAG>