mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-09 14:00:17 +00:00
Fix to CONST with the math evaluator to toss a message and error with values out of acceptable range for ARCSEC and ARCCSC. Tweak to _PI to add constexpr for speedier execution. Fix to the math tests for the new (and unbuggy) values for ARCSEC and ARCCSC.
107 lines
4.7 KiB
QBasic
107 lines
4.7 KiB
QBasic
$CONSOLE:ONLY
|
|
_DEST _CONSOLE
|
|
|
|
' This list comprises all of the math functions usable in CONST
|
|
CONST const_PI = _PI
|
|
CONST const_ACOS = _ACOS(.2)
|
|
CONST const_ASIN = _ASIN(.2)
|
|
CONST const_ARCSEC = _ARCSEC(1.2)
|
|
CONST const_ARCCOT = _ARCCOT(.2)
|
|
CONST const_ARCCSC = _ARCCSC(1.2)
|
|
CONST const_SECH = _SECH(.2)
|
|
CONST const_CSCH = _CSCH(.2)
|
|
CONST const_COTH = _COTH(.2)
|
|
CONST const_COS = COS(.2)
|
|
CONST const_SIN = SIN(.2)
|
|
CONST const_TAN = TAN(.2)
|
|
CONST const_LOG = LOG(.2)
|
|
CONST const_EXP = EXP(.2)
|
|
CONST const_ATN = ATN(.2)
|
|
CONST const_D2R = _D2R(.2)
|
|
CONST const_D2G = _D2G(.2)
|
|
CONST const_R2D = _R2D(.2)
|
|
CONST const_R2G = _R2G(.2)
|
|
CONST const_G2D = _G2D(.2)
|
|
CONST const_G2R = _G2R(.2)
|
|
CONST const_ABS = ABS(2)
|
|
CONST const_SGN = SGN(-20)
|
|
CONST const_INT = INT(20.2)
|
|
CONST const_ROUND = _ROUND(20.2)
|
|
CONST const_CEIL = _CEIL(20.2)
|
|
CONST const_FIX = FIX(20.5)
|
|
CONST const_SEC = _SEC(2)
|
|
CONST const_CSC = _CSC(2)
|
|
CONST const_COT = _COT(2)
|
|
' CONST const_ASC = ASC("a") ' Bugged, not implemented
|
|
CONST const__RGB32 = _RGB32(2, 3, 4)
|
|
CONST const__RGBA32 = _RGBA32(2, 3, 4, 5)
|
|
CONST const__RGB32_1 = _RGB32(2)
|
|
CONST const__RGB32_2 = _RGB32(2, 3)
|
|
CONST const__RGB32_4 = _RGB32(2, 3, 4, 5)
|
|
CONST const__RGB = _RGB(2, 3, 4, 2)
|
|
CONST const__RGBA = _RGBA(2, 3, 4, 2, 2)
|
|
CONST const__RED32 = _RED32(22)
|
|
CONST const__GREEN32 = _GREEN32(22)
|
|
CONST const__BLUE32 = _BLUE32(22)
|
|
CONST const__ALPHA32 = _ALPHA32(22)
|
|
CONST const__RED = _RED(22, 0)
|
|
CONST const__GREEN = _GREEN(22, 0)
|
|
CONST const__BLUE = _BLUE(22, 0)
|
|
CONST const__ALPHA = _ALPHA(2222, 0)
|
|
CONST const_SQR = SQR(20)
|
|
CONST const_ROOT = 20 ROOT 3
|
|
|
|
' The answers have to be within the allowed range, to account for floating point
|
|
' differences.
|
|
PRINT "PI: "; 3.141592653589793 * .999999 < const_PI; 3.141592653589793 * 1.000001 > const_PI
|
|
PRINT "ACOS: "; 1.369438406004566 * .999999 < const_ACOS; 1.369438406004566 * 1.000001 > const_ACOS
|
|
PRINT "ASIN: "; .2013579207903308 * .999999 < const_ASIN; .2013579207903308 * 1.000001 > const_ASIN
|
|
PRINT "ARCSEC: "; .5856855434571508 * .999999 < const_ARCSEC; .5856855434571508 * 1.000001 > const_ARCSEC
|
|
PRINT "ARCCOT: "; 1.373400766945016 * .999999 < const_ARCCOT; 1.373400766945016 * 1.000001 > const_ARCCOT
|
|
PRINT "ARCCSC: "; .9851107833377457 * .999999 < const_ARCCSC; .9851107833377457 * 1.000001 > const_ARCCSC
|
|
PRINT "SECH: "; .9803279976447253 * .999999 < const_SECH; .9803279976447253 * 1.000001 > const_SECH
|
|
PRINT "CSCH: "; 4.966821568814516 * .999999 < const_CSCH; 4.966821568814516 * 1.000001 > const_CSCH
|
|
PRINT "COTH: "; 1.44280551632034 * .999999 < const_COTH; 1.44280551632034 * 1.000001 > const_COTH
|
|
PRINT "COS: "; .9800665778412416 * .999999 < const_COS; .9800665778412416 * 1.000001 > const_COS
|
|
PRINT "SIN: "; .1986693307950612 * .999999 < const_SIN; .1986693307950612 * 1.000001 > const_SIN
|
|
PRINT "TAN: "; .2027100355086725 * .999999 < const_TAN; .2027100355086725 * 1.000001 > const_TAN
|
|
PRINT "EXP: "; 1.22140275816017 * .999999 < const_EXP; 1.22140275816017 * 1.000001 > const_EXP
|
|
PRINT "ATN: "; .1973955598498808 * .999999 < const_ATN; .1973955598498808 * 1.000001 > const_ATN
|
|
PRINT "D2R: "; .0034906585 * .999999 < const_D2R; .0034906585 * 1.000001 > const_D2R
|
|
PRINT "D2G: "; .22222222222 * .999999 < const_D2G; .22222222222 * 1.000001 > const_D2G
|
|
PRINT "R2D: "; 11.4591559 * .999999 < const_R2D; 11.4591559 * 1.000001 > const_R2D
|
|
PRINT "R2G: "; .0031415926 * .999999 < const_R2G; .0031415926 * 1.000001 > const_R2G
|
|
PRINT "G2D: "; .18 * .999999 < const_G2D; .18 * 1.000001 > const_G2D
|
|
PRINT "G2R: "; 12.7323954474 * .999999 < const_G2R; 12.7323954474 * 1.000001 > const_G2R
|
|
PRINT "CSC: "; 1.099750170294616 * .999999 < const_CSC; 1.099750170294616 * 1.000001 > const_CSC
|
|
PRINT "SQR: "; 4.47213595499958 * .999999 < const_SQR; 4.47213595499958 * 1.000001 > const_SQR
|
|
PRINT "ROOT: "; 2.714417616594907 * .999999 < const_ROOT; 2.714417616594907 * 1.000001 > const_ROOT
|
|
|
|
PRINT "LOG: "; -1.6094379124341 * .999999 > const_LOG; -1.6094379124341 * 1.000001 < const_LOG
|
|
PRINT "SEC: "; -2.402997961722381 * .999999 > const_SEC; -2.402997961722381 * 1.000001 < const_SEC
|
|
PRINT "COT: "; -.4576575543602858 * .999999 > const_COT; -.4576575543602858 * 1.000001 < const_COT
|
|
|
|
PRINT "ABS: "; const_ABS
|
|
PRINT "SGN: "; const_SGN
|
|
PRINT "INT: "; const_INT
|
|
PRINT "ROUND: "; const_ROUND
|
|
PRINT "CEIL: "; const_CEIL
|
|
PRINT "FIX: "; const_FIX
|
|
PRINT "ASC: "; const_ASC
|
|
PRINT "RGB32: "; HEX$(const__RGB32)
|
|
PRINT "RGBA32: "; HEX$(const__RGBA32)
|
|
PRINT "1: "; HEX$(const__RGB32_1)
|
|
PRINT "2: "; HEX$(const__RGB32_2)
|
|
PRINT "4: "; HEX$(const__RGB32_4)
|
|
PRINT "RGB: "; HEX$(const__RGB)
|
|
PRINT "RGBA: "; HEX$(const__RGBA)
|
|
PRINT "RED32: "; HEX$(const__RED32)
|
|
PRINT "GREEN32: "; const__GREEN32
|
|
PRINT "BLUE32: "; const__BLUE32
|
|
PRINT "ALPHA32: "; const__ALPHA32
|
|
PRINT "RED: "; const__RED
|
|
PRINT "GREEN: "; const__GREEN
|
|
PRINT "BLUE: "; const__BLUE
|
|
PRINT "ALPHA: "; const__ALPHA
|
|
|
|
SYSTEM
|