# Some pictures:

BF=2.5; HF=2.5
BOXW(-10,10, -10,10)
circle(0,0,8,0); circle(0,0,4,0); circle(-6,0,2,0); circle(6,0,2,0)
ARC(0,0,8, 0,180, 4); ARC(0,0,4, 180,360, 4)
ARC(-6,0,2, 0,180, 4); ARC(6,0,2, 0,180, 4)
#
BOXW(-10,10, -14,6)
circle(0,-6, 6, 0); circle(-6,-6+sqrt(3)*6, 6, 0); circle(6,-6+sqrt(3)*6, 6, 0)
ARC(0,-6, 6, 120,420, 4)
ARC(-6,-6+sqrt(3)*6, 6, 0,-60, 4); ARC(6,-6+sqrt(3)*6, 6, 180,180+60, 4)
#
BOXW(-4,4, -4,4); circle(0,0, 4, 6)
ARC(-3,0, 1, 0,180, 2); ARC(1,0, 3, 180,360, 2)
ARC(-2,0, 2, 0,180, 3); ARC(2,0, 2, 180,360, 3)
ARC(-1,0, 3, 0,180, 4); ARC(3,0, 1, 180,360, 4)
#
BOXW(-4.5,4.5, -4.5,4.5)
X = function(a) cos(a*gradi)
Y = function(a) sin(a*gradi)
for(n in 0:5) { a <- n*60;
 Direction(0,0, 0+a, 4.5, "black"); 
 Direction(X(a),Y(a), 120+a,1, "red")
 Direction(X(a),Y(a), -120+a,1,"red")
 Direction(X(a),Y(a), 60+a,1, "green")
 Direction(X(a),Y(a), -60+a,1,"green")
 Direction(2*X(a),2*Y(a), 60+a,2, "brown")
 Direction(2*X(a),2*Y(a), -60+a,2, "brown")
 Direction(2.5*X(a),2.5*Y(a), 60+a,1, "orange")
 Direction(2.5*X(a),2.5*Y(a), -60+a,1, "orange")
 Direction(3*X(a),3*Y(a), 60+a,0.5, "blue")
 Direction(3*X(a),3*Y(a), -60+a,0.5, "blue")
 Direction(3.5*X(a),3.5*Y(a), 60+a,0.5, "violet")
 Direction(3.5*X(a),3.5*Y(a), -60+a,0.5,"violet") }