[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:15

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.2&tr2=1.3&r1=text&r2=text

Patches:
Index: gzz/doc/buoy/buoyGeometry.mp
diff -u gzz/doc/buoy/buoyGeometry.mp:1.2 gzz/doc/buoy/buoyGeometry.mp:1.3
--- gzz/doc/buoy/buoyGeometry.mp:1.2    Fri Feb 14 09:16:33 2003
+++ gzz/doc/buoy/buoyGeometry.mp        Fri Feb 14 09:17:15 2003
@@ -57,9 +57,6 @@
     path projline;
     pair inter;
 
-    projline = .1[projpt,p] -- (2.5*xrad/abs(projpt-p))[projpt, p];
-
-    draw projline;
 
     projline := p -- (2.5*xrad/abs(projpt-p))[projpt, p];
 
@@ -69,6 +66,8 @@
        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));
     fi