diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-03-12 17:04:43 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-03-12 17:04:43 +0000 |
| commit | 52fddea19454dc2b9bcb54c6edd5a4cd4f5765a9 (patch) | |
| tree | 4b13ccc6d57c7c1ee615c83615b246c98eae388a /src/algebra/view3D.spad.pamphlet | |
| parent | 42d38bee45a64edfc12641053e58581c20584363 (diff) | |
| download | open-axiom-52fddea19454dc2b9bcb54c6edd5a4cd4f5765a9.tar.gz | |
* src/algebra/: Systematically use negative? when comparing for
less than 0.
Diffstat (limited to 'src/algebra/view3D.spad.pamphlet')
| -rw-r--r-- | src/algebra/view3D.spad.pamphlet | 6 |
1 files changed, 3 insertions, 3 deletions
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 |