From 52fddea19454dc2b9bcb54c6edd5a4cd4f5765a9 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 12 Mar 2011 17:04:43 +0000
Subject: 	* src/algebra/: Systematically use negative? when comparing
 for 	less than 0.

---
 src/algebra/view3D.spad.pamphlet | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/algebra/view3D.spad.pamphlet')

diff --git a/src/algebra/view3D.spad.pamphlet b/src/algebra/view3D.spad.pamphlet
index d1602fe1..9d931689 100644
--- a/src/algebra/view3D.spad.pamphlet
+++ b/src/algebra/view3D.spad.pamphlet
@@ -420,7 +420,7 @@ ThreeDimensionalViewport(): Exports == Implementation where
         -- exist.
       sendI(VIEW,viewport.key)$Lisp
       i := getI(VIEW)$Lisp
-      (i < 0$I) => 
+      negative? i => 
         viewport.key := 0$I
         error "This viewport has already been closed!"
       true
@@ -839,7 +839,7 @@ ThreeDimensionalViewport(): Exports == Implementation where
           getI(VIEW)$Lisp          -- acknowledge
 
     intensity(viewport,Amount) ==
-      if (Amount < 0$F) or (Amount > 1$F) then
+      if negative? Amount or (Amount > 1$F) then
         error "The intensity must be a value between 0 and 1, inclusively."
       viewport.lighting.translucence := convert(Amount)@SF
       (key(viewport) ~= 0$I) =>
@@ -864,7 +864,7 @@ ThreeDimensionalViewport(): Exports == Implementation where
           sendSTR(VIEW,Filename)$Lisp
           m := minIndex(avail := viewWriteAvailable())
           for aTypeOfFile in thingsToWrite repeat
-            if (writeTypeInt:= position(upperCase aTypeOfFile,avail)-m) < 0 then
+            if negative?(writeTypeInt:= position(upperCase aTypeOfFile,avail)-m) then
               sayBrightly(["  > "::E,(concat(aTypeOfFile, _
                 " is not a valid file type for writing a 3D viewport"))::E]$List(E))$Lisp
             else
-- 
cgit v1.2.3