run "geomland ob "O point 0 0 ob "r 45 ob "d 60 ob "D line :O :r ob "F1 pointon :D :d ob "F2 pointon :D neg :d ob "k 0.05 ob "P pointon segment :O :F1 :d*:k ob "H hyperbola :F1 :F2 :P [traced] repeat 8 [ ob "k :k+0.1 ]