This is pchoct.m in view mode; [Download] [Up]
float pchoct(oct)
float oct;
{
float x;
x = (int)oct;
return(.12 * (oct - x) + x);
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.