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 radius, center,
        !             4:        start, midway, end,
        !             5:        startang, midang, endang;
        !             6:        var a1, b1, c1,
        !             7:        a2, b2, c2;
        !             8:        a1 = 2*(re(end)-re(start));
        !             9:        b1 = 2*(im(end)-im(start));
        !            10:        c1 = -re(start)*re(start) - im(start)*im(start)
        !            11:        + re(end)*re(end) + im(end)*im(end);
        !            12:        a2 = 2*(re(end)-re(midway));
        !            13:        b2 = 2*(im(end)-im(midway));
        !            14:        c2 = -re(midway)*re(midway) - im(midway)*im(midway)
        !            15:        + re(end)*re(end) + im(end)*im(end);
        !            16:        a1*re(center) + b1*im(center) = c1;
        !            17:        a2*re(center) + b2*im(center) = c2;
        !            18:        startang = atan2 (start - center);
        !            19:        midang = atan2 (midway - center);
        !            20:        endang = atan2 (end - center);
        !            21:        radius = abs (start - center);
        !            22:        radius = abs (midway - center);
        !            23:        radius = abs (end - center);
        !            24:        start = center + abs(radius)*cis(startang);
        !            25:        end = center + abs(radius)*cis(endang);
        !            26:        midway = center + abs(radius)*cis(midang);
        !            27:        midway ~ start;
        !            28: }
        !            29: .IE

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