[BACK]Return to graph2ws CVS log [TXT] [DIR] Up to [CSRG BSD Unix] / 43BSD / contrib / apl / lib

Annotation of 43BSD/contrib/apl/lib/graph2ws, revision 1.1.1.1

1.1       root        1: n��*.KB�&       H graphg { graph x;a;al;b;c;i;j;k;l;m;sh;ra;se;sf;t;w;xl
                      2: }((RRx)=I4)/ 3 4 5 7
                      3: }0,RL { 'Incorrect Data Format'
                      4: x  { (2,Rx)R(IRx),x
                      5: x  { (1,Rx)Rx
                      6: xl { (Rx)R1
                      7: }9
                      8: xl { x[2;;;]^1
                      9: x  { x[1;;;]
                     10: ra { Ra{x[1;1;]
                     11: al { raRacon,((I0)R0=R,acon)/xl[1;1;]
                     12: x[;j{1;] { x[;2;]
                     13: xl { xl^(x&D/clip)^x$S/clip
                     14: here: }(0=sswitch)R4+here
                     15: se { D10O*(i=0)+i{2X((se=0)+se{(S/(,xl)/,x)-c{D/(,xl)/,x)%qsize
                     16: sf { ((i< 2 4 10 M10*se)/ 1 2 5)[1]
                     17: sdata { sf,se,or{c-(sfM10*se+1)|c
                     18: x { (x%i)-or{sdata[3]%i{(sf{sdata[1])M10*se{sdata[2]
                     19: x { Dx+0.5
                     20: x { O|[1] 2 1 3 O\O|[1] 0 1 0 Ux
                     21: m { 10MS0.1MS/S/S/x{xMxl{(O|[1] 2 1 3 O\O|[1] 0 1 0 Uxl)Mx&0
                     22: a { a-(10*i)|a{a+0.5M10*i{1+(D10O*|a+a=0)-j{3+D10O*S/1,|a%S/a-D/a
                     23: b { al\[1] al/[1](5 0+0Sj-3|i) JN(ra,1)Ra%10*l{3MD(i{1+D10O*D/|a+a=0)%3
                     24: b[;1] { raRatitle,raR' '
                     25: b { (0,2M0=R,atitle)Ub
                     26: l { (l#0)/'(M10*',((l<0)/'-'),'0123456789'[1+((1+10$|l)R10)N|l],')'
                     27: a { (sfM(or%10)+0,Im%10)M10*`1+3|se+2
                     28: a { a-(10*i)|a{a+0.5M10*i{(D10O*|a+a=0)-j{1+D10O*S/1,|a%S/a-D/a
                     29: a { (5 0+S/0,j-D10O*|a+1e`8>|a) NJ((1+m%10),1)Ra
                     30: b { 1O|(((S/(-(Rb)[2])+ `3 1 2 +w{(Ra)[2],(Rb)[2],Rl)R0),(Rb)[2]R1)\b
                     31: g { title,car,((S/w- 5 1 0 +w[3])R' '),l,' \',(6R' '),otitle,5R' '
                     32: c { 3MD(2+se)%3
                     33: g { g,(c#0)/'(M10*',((c<0)/'-'),'0123456789'[1+((1+10$|c)R10)N|c],')'
                     34: g { g,car,((S/w+ 0 4 5 -w[1])R' '),,((w[1]R1),(10-w[1])R0)\2O|a
                     35: w { ' |',(Rx)[1]Rsymbols
                     36: a { ,(Rx)[2 1]RO|I(Rx)[c{1]
                     37: here2: }(Rj{rswitchRcar)R2+here2
                     38: g { 0RL{g
                     39: l { 2,(S/(mMc=1,ra),S/x[;;c])R1
                     40: l[1+(cV.=1,ra)M10MIm%10] { 2
                     41: l[1+i/,x[;;c]] { 2+(i{,xl[;;c])/a
                     42: g { g,j,b[c;],w[l]
                     43: here3: }(ra&c{c+1)Rrswitch+`5+here3
                     44: g { g,car
                     45: here4: }((i{0)=Rl{legend)R5+here4
                     46: g { g,car,(' ',(Rx)[1]Rsymbols)[i{i+1],'  ',(`1+b{lIcar)Rl
                     47: l { (bDRl)Ul
                     48: here5: }((Rx)[1]&i)R`2+here5
                     49: g { g,car
                     50: }rswitchR0
                     51: g { 0RL{g
                     52: &x�&&nd�@A@A�A�A�A�ABB B0B@BPB`BpB�B�B�B�B�B&w|&&

�@�@�@�@@A@A@A@A�A�A�A�AB&z�&&�A�A�ABBBB B(B0B8B@BHBPBXB`BhBpBxB�B&y�&&  �@A@A�A�A�A�ABB B0B@BPB`BpB�B�B�B�B�B&qsize&&�C&acon&&�@&sswitch&&�@&sdata,&&�A��&rswitch&&&title&&graph1&atitle&&abscissa&otitle&&ordinate&symbols&*LO+&clip$&&���C&legend&&&or&&&&car&
                     53: 
                     54: andr { a and b     
                     55: r { a,((Rb),1)Rb
                     56: 
unix.superglobalmegacorp.com

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