[bknr-cvs] hans changed deployed/bos/projects/bos/m2/m2-pdf.lisp

[BKNR Commits]

Revision: 4131
Author: hans
URL: http://bknr.net/trac/changeset/4131

merge from trunk: new cert positioning
U   deployed/bos/projects/bos/m2/m2-pdf.lisp

Modified: deployed/bos/projects/bos/m2/m2-pdf.lisp
===================================================================
--- deployed/bos/projects/bos/m2/m2-pdf.lisp	2008-12-10 12:27:59 UTC (rev 4130)
+++ deployed/bos/projects/bos/m2/m2-pdf.lisp	2008-12-10 14:15:39 UTC (rev 4131)
@@ -21,14 +21,14 @@
                       (last-m2 (first (last m2s)))
                       (scale (/ 80 (max bb-width bb-height))))
 
-                 (draw-coordinate 110 160 (m2-lon-lat first-m2))
+                 (draw-coordinate 140 240 (m2-lon-lat first-m2))
 
                  (unless (eq first-m2 last-m2)
-                   (draw-coordinate 190 40 (m2-lon-lat last-m2)))
+                   (draw-coordinate 220 120 (m2-lon-lat last-m2)))
 
-                 (pdf:translate (+ 65.0 (if (>= bb-width bb-height) 0
+                 (pdf:translate (+ 95.0 (if (>= bb-width bb-height) 0
                                             (* 0.5 (abs (- bb-width bb-height)) scale)))
-                                (+ 65.0 (if (>= bb-height bb-width) 0
+                                (+ 145.0 (if (>= bb-height bb-width) 0
                                             (* 0.5 (abs (- bb-width bb-height)) scale))))
 
                  (pdf:scale scale scale)