
!if $[randint(2)]=0
 rb=$[atan($rp+($BB)/($AA))-($rp)]
 ra=$[$AA/cos($rp+($rb))]
 f=a*sin(x + b)
 y=a*sin(t + b)
 dery=a*cos(t + b)
!else
 rb=$[atan($rp+($BB)/($AA))-($rp)+pi/2]
 ra=$[-($AA)/sin($rp+($rb))]
 f=a*cos(x + b)
 y=a*cos(t + b)
 dery=-a*sin(t + b)
!endif
x=t
derx=1

var=x

