/[gzz]/gzz/doc/buoy/buoyGeometry.mp
ViewVC logotype

Diff of /gzz/doc/buoy/buoyGeometry.mp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by tjl, Fri Feb 14 14:16:33 2003 UTC revision 1.3 by tjl, Fri Feb 14 14:17:15 2003 UTC
# Line 57  vardef buoy(expr p) = Line 57  vardef buoy(expr p) =
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    
# Line 69  vardef buoy(expr p) = Line 66  vardef buoy(expr p) =
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

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26