shacpi - Half-Cycle Havercosine hac(πx)

#include <msca.h> 
 
double shacpi (double x); 
float  shacpif(float x);

Given a value $x$ this function computes the half-cycle havercosine of $x$ , $hac(πx)$ .