Changeset 684 for trunk/ab5.0/ablib/src/Classes/ActiveBasic/Math/Math.ab

Timestamp:

Mar 9, 2009, 3:13:24 AM (15 years ago)

Author:

イグトランス (egtra)

Message:

Circle, Sqrtを壊していたので修正。プロンプト画面の描画ステートメントの座標の引数をDoubleへ変更。

File:

• trunk/ab5.0/ablib/src/Classes/ActiveBasic/Math/Math.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/Classes/ActiveBasic/Math/Math.ab

@@ -3 +3 @@
 Namespace ActiveBasic
 Namespace Math
+
+Const PI = _System_PI
+
 '----
 '浮動小数点数補助
@@ -87 +90 @@
             Dim j = jj >> 5 As Long
             Dim k = (jj And &h0000001f) As Long
-            j = (j + 511) << 4 + k
+            j = ((j + 511) << 4) + k
             SetWord(i, j)
             Dim last As Double