/[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.3 by tjl, Fri Feb 14 14:17:15 2003 UTC revision 1.4 by tjl, Fri Feb 14 14:17:54 2003 UTC
# Line 66  vardef buoy(expr p) = Line 66  vardef buoy(expr p) =
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;

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

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