66 |
b = shift; |
b = shift; |
67 |
bscale = 10; |
bscale = 10; |
68 |
else: |
else: |
|
projline = .1[projpt,p] -- (2.5*xrad/abs(projpt-p))[projpt, p]; |
|
|
draw projline; |
|
69 |
b = point xpart(inter) of projline; |
b = point xpart(inter) of projline; |
70 |
bscale = 10 + .5*(xrad - abs(ctr - p)); |
bscale = 10 + .5*(xrad - abs(ctr - p)); |
71 |
|
projline := .1[projpt,p] -- (2.5*xrad/abs(projpt-p))[projpt, p]; |
72 |
|
draw projline; |
73 |
fi |
fi |
74 |
draw p-z0 -- p+z0 withpen pencircle scaled 4pt; |
draw p-z0 -- p+z0 withpen pencircle scaled 4pt; |
75 |
draw p-z1 -- p+z1 withpen pencircle scaled 4pt; |
draw p-z1 -- p+z1 withpen pencircle scaled 4pt; |