#region
con_kpi

(defun con_kpi(/ )
/*c2s:
      kpi=3.14159265358979323846;
      kHalfPi=1.57079632679489661923;
      kTwoPi =  6.28318530717958647692;
      kpi_max=3.14159265358979323846264338327950288;
      con_kpi=kpi;
      con_kpi2=6.2831853071795865;
      con_khalfpi=pi/2.0;
      con_k1pi4=pi*0.25;
      con_k3pi4=pi*0.75;
      con_k5pi4=pi*1.25;
      con_k7pi4=pi*1.75;
      kpi_mul3 = 9.42477796076937971538793014984;
      kpi_mul4 = 12.56637061435917;
      con_k2mulpi=6.28318530717958647692; // 2*pi
      con_k2divpi=0.63661977236758134308; // 2/pi
      con_ksqrt2=1.41421356237309504880; // sqrt(2)
      con_k1divsqrt2=0.70710678118654752440; // 1/sqrt(2)
      con_k1six=0.16666666666666666667;
      con_k1three=con_k1six*2.0;
      con_k2divsqrt_pi=1.12837916709551257390; // 2/sqrt(pi)
      kpi_div2 = 1.57079632679489661923;    //rem: pi/2
      kpi_inv1 = 0.31830988618379067154;     //rem: 1/pi 
      kpi_div3 = 1.04719755119659774615421446109;   //rem: pi/3
      kpi_div4 = 7.8539816339744830962E-1;          //rem: pi/4
      kpi_sqrt2 = 1.1283791670955125739E0;   //rem:  2*sqrt(pi)
      con_keps=1.05367121277235079465e-8;     //rem= 2^(-53/2)
      kpi_2div3 = +2.09439510239319549230842892218;   //rem:  2pi/3
      kpi_5div6 = +2.61799387799149436538553615272;   //rem:  5*pi/6

      kRad0     = 0.0;
      kRad45    = 3.14159265358979323846 / 4.0;
      kRad90    = 3.14159265358979323846 / 2.0;
      kRad135   = (3.14159265358979323846 * 3.0) / 4.0;
      kRad180   = 3.14159265358979323846;
      kRad270   = 3.14159265358979323846 * 1.5;
      kRad360   = 3.14159265358979323846 * 2.0;
*/
)
#endregion

#region
con_kpie

(defun con_kpie(/ $rr)
/*c2s:
      $rr=nil;
      kpi=3.14159265358979323846;
      kHalfPi=1.57079632679489661923;
      kTwoPi =  6.28318530717958647692;
      kThePi =  9.424778; //rem: kpi*3
      kFourPi= 12.566371;
      kpi_mul3 = 9.42477796076937971538793014984;
      kpi_mul4 = 12.56637061435917;
      kPid180 = 0.017453;
      kPid10800=0.000291;
      kPowPi=9.869604;
      con_kpi2sqrt=1.772454;
      con_ktwopi2sqrt=2.506628;
      con_kPi3sqrt=1.464592;
      con_kPimul4div3sqrt=1.611902;
      kpi_inv1 = 0.31830988618379067154;     //rem: 1/pi 
      kPi1inv=0.3118310; //rem: 1/pi;
      kPi2inv=0.159155;  //rem: 1/2pi
      kPi3inv=0.106103;  //rem: 1/(3*pi)
      kPi4inv=0.079577;
      kPi2dje=0.636620; //rem: 2/pi
      kPi3dje=0.954930; //rem: 3/pi
      kPi4dje=1.273240; //rem: 4/pi'
      kPi6dje=1.909859; //rem: 6/pi'
      kPi1sqr=0.101321; //rem: 1/(pi*pi)
      kPi1dje2sqrt=0.564190; //rem: sqrt(1:pi)
      kPi2dje2sqrt=0.398942; //rem: sqrt(1:2pi)
      kPi2dje2sqrt=0.797885; //rem: sqrt(2:pi)
      kPi1dje3sqrt=0.682784; //rem: sqrt3(1:pi)
      kPi4dje3sqrt=0.620350; //rem: sqrt3(3:4pi)
*/
)
#endregion