jan: thuban/Extensions/importAPR apr.py,1.3,1.4

[cvs@intevation.de]

Author: jan

Update of /thubanrepository/thuban/Extensions/importAPR
In directory doto:/tmp/cvs-serv6885

Modified Files:
	apr.py 
Log Message:
(APR_BMkSym.GetThubanProp): Now that Thuban supports size, apply
this correctly.


Index: apr.py
===================================================================
RCS file: /thubanrepository/thuban/Extensions/importAPR/apr.py,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- apr.py	30 Oct 2003 09:14:52 -0000	1.3
+++ apr.py	3 Oct 2004 22:00:35 -0000	1.4
@@ -1,4 +1,4 @@
-# Copyright (C) 2003 by Intevation GmbH
+# Copyright (C) 2003, 2004 by Intevation GmbH
 # Authors:
 # Jan-Oliver Wagner <jan at intevation.de>
 #
@@ -58,9 +58,8 @@
     Next, there is always a 'Font' reference. Probably this defines
     the font for the label. This is not interpreted for Thuban.
 
-    There is always a Size element. SinceThuban can currently not
-    handle different sizes of point symbols, Size is used to set
-    the line width.
+    There is always a Size element. It is not clear how 'size'
+    defined in ArcView.
 
     There is always a Angle element, but I don't know how this is
     defined. I only sighted the value of 360 so far.
@@ -82,7 +81,7 @@
         but we can vary the width of the line.
         """
         prop = ClassGroupProperties()
-        prop.SetLineWidth(int(ceil(float(self.Get('Size')))))
+        prop.SetSize(int(ceil(float(self.Get('Size')))))
         prop.SetLineColor(self.Get('Color').GetThubanColor())
         prop.SetFill(self.Get('BgColor').GetThubanColor())
         return prop
@@ -91,7 +90,7 @@
     """Polygon symbol object.
     Always references TClr objects via 'Color', 'OutlineColor' and 'BgColor'.
     Always has attributes 'OutlineWidth' and 'Outline'.
-    
+
     OutlineColor is interpreted to be the Thuban line color, OutlineWidth
     as the Thuban line width.
     'Color' is interpreted to be the Thuban fill color.
@@ -138,7 +137,7 @@
 
     def GetThubanRange(self):
         """Return a Thuban range that corresponds to this object.
-        
+
         The returned object is a
         - Range-Object in case of a numerical range.
         - String-Object in case of a text range (assuming that