57 |
path projline; |
path projline; |
58 |
pair inter; |
pair inter; |
59 |
|
|
|
projline = .1[projpt,p] -- (2.5*xrad/abs(projpt-p))[projpt, p]; |
|
|
|
|
|
draw projline; |
|
60 |
|
|
61 |
projline := p -- (2.5*xrad/abs(projpt-p))[projpt, p]; |
projline := p -- (2.5*xrad/abs(projpt-p))[projpt, p]; |
62 |
|
|
66 |
b = shift; |
b = shift; |
67 |
bscale = 10; |
bscale = 10; |
68 |
else: |
else: |
69 |
|
projline = .1[projpt,p] -- (2.5*xrad/abs(projpt-p))[projpt, p]; |
70 |
|
draw projline; |
71 |
b = point xpart(inter) of projline; |
b = point xpart(inter) of projline; |
72 |
bscale = 10 + .5*(xrad - abs(ctr - p)); |
bscale = 10 + .5*(xrad - abs(ctr - p)); |
73 |
fi |
fi |