Return to sbox.c CVS log

Up to [Research Unix] / researchv10no / libplot / lib4014

Annotation of researchv10no/libplot/lib4014/sbox.c, revision 1.1.1.1

1.1       root        1: #include <stdio.h>
                      2: #include "tek.h"
                      3: sbox(x1, y1, x2, y2)
                      4: double x1, y1, x2, y2;
                      5: {
                      6:        double ff[8], *fp[1];
                      7:        int i[2];
                      8:        ff[0] = ff[6] = x1;
                      9:        ff[1] = ff[3] = y1;
                     10:        ff[2] = ff[4] = x2;
                     11:        ff[5] = ff[7] = y2;
                     12:        i[0] = 4;
                     13:        i[1] = 0;
                     14:        fp[0] = ff;
                     15:        internal = 1;
                     16:        fill(i, fp);
                     17:        internal = 0;
                     18: }

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