General Program Information
Basics - Torus
torus
torus(p1,R1,R2) :=
concat("_torus",sp,point(p1<0>),sp,stringit(R1),sp,stringit(R2),sp)