Return to ARC CVS log

Up to [Research Unix] / researchv10no / cmd / ideal / lib

Annotation of researchv10no/cmd/ideal/lib/ARC, revision 1.1

1.1     ! root        1: .IS
        !             2: ARC {
        !             3:        var a1, b1, c1,
        !             4:        a2, b2, c2;
        !             5:        start ~ center + abs(radius)*cis(startang);
        !             6:        end ~ center + abs(radius)*cis(endang);
        !             7:        midway ~ center + abs(radius)*cis(midang);
        !             8:        im(start-center)*re(cis(startang))
        !             9:        ~ re(start-center)*im(cis(startang));
        !            10:        im(end-center)*re(cis(endang))
        !            11:        ~ re(end-center)*im(cis(endang));
        !            12:        im(midway-center)*re(cis(midang))
        !            13:        ~ re(midway-center)*im(cis(midang));
        !            14:        a1 ~ 2*(re(end)-re(start));
        !            15:        b1 ~ 2*(im(end)-im(start));
        !            16:        c1 ~ -re(start)*re(start) - im(start)*im(start)
        !            17:        + re(end)*re(end) + im(end)*im(end);
        !            18:        a2 ~ 2*(re(end)-re(midway));
        !            19:        b2 ~ 2*(im(end)-im(midway));
        !            20:        c2 ~ -re(midway)*re(midway) - im(midway)*im(midway)
        !            21:        + re(end)*re(end) + im(end)*im(end);
        !            22:        a1*re(center) + b1*im(center) ~ c1;
        !            23:        a2*re(center) + b2*im(center) ~ c2;
        !            24:        startang ~ atan2 (start - center);
        !            25:        midang ~ atan2 (midway - center);
        !            26:        endang ~ atan2 (end - center);
        !            27:        radius ~ abs (start - center);
        !            28:        radius ~ abs (midway - center);
        !            29:        radius ~ abs (end - center);
        !            30:        midway ~ start;
        !            31: }
        !            32: .IE

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.