o=Point(-10,0);SetHide(o,true);
p=Point(10,0);SetHide(p,true);
s=Segment(o,p)
for (i=0; i<10; i++){
q=Point(0,-10);SetHide(q,true);
r=Point(0,10);SetHide(r,true);
s=Segment(q,r)
}