[lisplab-cvs] r136 - trunk/src/io

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Thu Mar 11 09:26:35 2010
New Revision: 136

Log:
removed anisotropy in postscript generation

Modified:
   trunk/src/io/level3-io.lisp

Modified: trunk/src/io/level3-io.lisp
==============================================================================
--- trunk/src/io/level3-io.lisp	(original)
+++ trunk/src/io/level3-io.lisp	Thu Mar 11 09:26:35 2010
@@ -147,7 +147,7 @@
   ;; TOOD: change name to epswrite.
   (when (<= (- max min) 0.0)
     (setf max 1.0 min 0.0 ))
-  (let* ((DTXSCALE 1.0787)
+  (let* ((DTXSCALE 1.0)
 	 (DTYSCALE 1.0)
 	 #+nil (DTHRES 513)
 	 #+nil (DTVRES 481)