Mercurial Mercurial > hg > stx-libview / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
also support shortFloats in a polygon
authorClaus Gittinger <cg@exept.de>
Sat, 07 Mar 1998 14:48:44 +0100
changeset 2076 7202e4e5c2e2
parent 2075 7fc93b8da816
child 2077 442b9763111c
also support shortFloats in a polygon
XWorkstat.st file | annotate | diff | comparison | revisions
XWorkstation.st file | annotate | diff | comparison | revisions 
--- a/XWorkstat.st	Thu Mar 05 20:47:27 1998 +0100
+++ b/XWorkstat.st	Sat Mar 07 14:48:44 1998 +0100
@@ -3084,32 +3084,40 @@
         gc = _GCVal(aGCId);
         win = _WindowVal(aDrawableId);
 
-        if( __isSmallInteger(scaleY) ) sY = (float) __intVal( scaleY );
-        else if (__isFloat(scaleY)) sY = __floatVal( scaleY );
+        if( __isSmallInteger(scaleY) ) 
+	    sY = (float) __intVal( scaleY );
+        else if (__isFloat(scaleY)) 
+	    sY = __floatVal( scaleY );
         else {
             t = __SSEND0(scaleY, @symbol(asFloat), 0);
             if (! __isFloat(t)) goto fail;
             sY = __floatVal( t );
         }
 
-        if( __isSmallInteger(transY) ) tY = (float) __intVal( transY );
-        else if (__isFloat(transY)) tY = __floatVal( transY );
+        if( __isSmallInteger(transY) ) 
+	    tY = (float) __intVal( transY );
+        else if (__isFloat(transY)) 
+	    tY = __floatVal( transY );
         else {
             t = __SSEND0(transY, @symbol(asFloat), 0);
             if (! __isFloat(t)) goto fail;
             tY = __floatVal( t );
         }
 
-        if( __isSmallInteger(startX) ) x = (float) __intVal( startX );
-        else if (__isFloat(startX)) x = __floatVal( startX );
+        if( __isSmallInteger(startX) ) 
+	    x = (float) __intVal( startX );
+        else if (__isFloat(startX)) 
+	    x = __floatVal( startX );
         else {
             t = __SSEND0(startX, @symbol(asFloat), 0);
             if (! __isFloat(t)) goto fail;
             x = __floatVal( t );
         }
 
-        if( __isSmallInteger(stepX) ) step = (float) __intVal( stepX );
-        else if (__isFloat(stepX)) step = __floatVal( stepX );
+        if( __isSmallInteger(stepX) ) 
+	    step = (float) __intVal( stepX );
+        else if (__isFloat(stepX)) 
+	    step = __floatVal( stepX );
         else {
             t = __SSEND0(stepX, @symbol(asFloat), 0);
             if (! __isFloat(t)) goto fail;
@@ -3136,6 +3144,8 @@
                 y = __floatVal( yA );
             else if( __isSmallInteger(yA) )
                 y = (float) __intVal( yA );
+	    else if( __isShortFloat( yA) )
+		y = __shortFloatVal( yA );
             else {
                 t = __SSEND0(yA, @symbol(asFloat), 0);
                 if (! __isFloat(t)) goto fail;
@@ -9872,6 +9882,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.278 1998-02-07 21:44:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/XWorkstat.st,v 1.279 1998-03-07 13:48:44 cg Exp $'
 ! !
 XWorkstation initialize!
--- a/XWorkstation.st	Thu Mar 05 20:47:27 1998 +0100
+++ b/XWorkstation.st	Sat Mar 07 14:48:44 1998 +0100
@@ -3084,32 +3084,40 @@
         gc = _GCVal(aGCId);
         win = _WindowVal(aDrawableId);
 
-        if( __isSmallInteger(scaleY) ) sY = (float) __intVal( scaleY );
-        else if (__isFloat(scaleY)) sY = __floatVal( scaleY );
+        if( __isSmallInteger(scaleY) ) 
+	    sY = (float) __intVal( scaleY );
+        else if (__isFloat(scaleY)) 
+	    sY = __floatVal( scaleY );
         else {
             t = __SSEND0(scaleY, @symbol(asFloat), 0);
             if (! __isFloat(t)) goto fail;
             sY = __floatVal( t );
         }
 
-        if( __isSmallInteger(transY) ) tY = (float) __intVal( transY );
-        else if (__isFloat(transY)) tY = __floatVal( transY );
+        if( __isSmallInteger(transY) ) 
+	    tY = (float) __intVal( transY );
+        else if (__isFloat(transY)) 
+	    tY = __floatVal( transY );
         else {
             t = __SSEND0(transY, @symbol(asFloat), 0);
             if (! __isFloat(t)) goto fail;
             tY = __floatVal( t );
         }
 
-        if( __isSmallInteger(startX) ) x = (float) __intVal( startX );
-        else if (__isFloat(startX)) x = __floatVal( startX );
+        if( __isSmallInteger(startX) ) 
+	    x = (float) __intVal( startX );
+        else if (__isFloat(startX)) 
+	    x = __floatVal( startX );
         else {
             t = __SSEND0(startX, @symbol(asFloat), 0);
             if (! __isFloat(t)) goto fail;
             x = __floatVal( t );
         }
 
-        if( __isSmallInteger(stepX) ) step = (float) __intVal( stepX );
-        else if (__isFloat(stepX)) step = __floatVal( stepX );
+        if( __isSmallInteger(stepX) ) 
+	    step = (float) __intVal( stepX );
+        else if (__isFloat(stepX)) 
+	    step = __floatVal( stepX );
         else {
             t = __SSEND0(stepX, @symbol(asFloat), 0);
             if (! __isFloat(t)) goto fail;
@@ -3136,6 +3144,8 @@
                 y = __floatVal( yA );
             else if( __isSmallInteger(yA) )
                 y = (float) __intVal( yA );
+	    else if( __isShortFloat( yA) )
+		y = __shortFloatVal( yA );
             else {
                 t = __SSEND0(yA, @symbol(asFloat), 0);
                 if (! __isFloat(t)) goto fail;
@@ -9872,6 +9882,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.278 1998-02-07 21:44:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.279 1998-03-07 13:48:44 cg Exp $'
 ! !
 XWorkstation initialize!
hg/stx-libview