[Gzz-commits] gzz/doc/buoy buoyGeometry.mp

[Tuomas J. Lukka]

CVSROOT:        /cvsroot/gzz
Module name:    gzz
Changes by:     Tuomas J. Lukka <address@hidden>        03/02/14 09:17:54

Modified files:
        doc/buoy       : buoyGeometry.mp 

Log message:
        Buoy diagram

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/gzz/gzz/doc/buoy/buoyGeometry.mp.diff?tr1=1.3&tr2=1.4&r1=text&r2=text

Patches:
Index: gzz/doc/buoy/buoyGeometry.mp
diff -u gzz/doc/buoy/buoyGeometry.mp:1.3 gzz/doc/buoy/buoyGeometry.mp:1.4
--- gzz/doc/buoy/buoyGeometry.mp:1.3    Fri Feb 14 09:17:15 2003
+++ gzz/doc/buoy/buoyGeometry.mp        Fri Feb 14 09:17:54 2003
@@ -66,10 +66,10 @@
        b = shift;
        bscale = 10;
     else:
-       projline = .1[projpt,p] -- (2.5*xrad/abs(projpt-p))[projpt, p];
-       draw projline;
        b = point xpart(inter) of projline;
        bscale = 10 + .5*(xrad - abs(ctr - p));
+       projline := .1[projpt,p] -- (2.5*xrad/abs(projpt-p))[projpt, p];
+       draw projline;
     fi
     draw p-z0 -- p+z0 withpen pencircle scaled 4pt;
     draw p-z1 -- p+z1 withpen pencircle scaled 4pt;