home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / libplot / vt0.c.a < prev   
Unix Archive - Old  |  1979-01-10  |  2.5 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was processed as: Unix Archive - Old (archive/unixArchiveOld).
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Unix Archive - Old (archive/unixArchiveOld) magic Unsupported
1% dexvert System V 64-bit library (executable/systemV64BitLibrary) ext Unsupported
1% dexvert COFF Library (other/coffLibrary) ext Unsupported
100% file old 16-bit-int little-endian archive default
99% file Microsoft x.out archive default (weak)
98% file data default



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 65 ff 61 72 63 2e 63 00 | 00 00 00 00 00 00 00 00 |e.arc.c.|........|
|00000010| 3c 0d e2 45 06 01 b6 81 | 00 00 5d 00 65 78 74 65 |<..E....|..].exte|
|00000020| 72 6e 20 76 74 69 3b 0a | 61 72 63 28 78 69 2c 79 |rn vti;.|arc(xi,y|
|00000030| 69 2c 78 30 2c 79 30 2c | 78 31 2c 79 31 29 7b 0a |i,x0,y0,|x1,y1){.|
|00000040| 09 63 68 61 72 20 63 3b | 0a 09 63 20 3d 20 36 3b |.char c;|..c = 6;|
|00000050| 0a 09 77 72 69 74 65 28 | 76 74 69 2c 26 63 2c 31 |..write(|vti,&c,1|
|00000060| 29 3b 0a 09 77 72 69 74 | 65 28 76 74 69 2c 26 78 |);..writ|e(vti,&x|
|00000070| 69 2c 31 32 29 3b 0a 7d | 0a 00 63 69 72 63 6c 65 |i,12);.}|..circle|
|00000080| 2e 63 00 00 00 00 00 00 | 3c 0d e2 45 06 01 b6 81 |.c......|<..E....|
|00000090| 00 00 52 00 65 78 74 65 | 72 6e 20 76 74 69 3b 0a |..R.exte|rn vti;.|
|000000a0| 63 69 72 63 6c 65 28 78 | 2c 79 2c 72 29 7b 0a 09 |circle(x|,y,r){..|
|000000b0| 63 68 61 72 20 63 3b 0a | 09 63 20 3d 20 35 3b 0a |char c;.|.c = 5;.|
|000000c0| 09 77 72 69 74 65 28 76 | 74 69 2c 26 63 2c 31 29 |.write(v|ti,&c,1)|
|000000d0| 3b 0a 09 77 72 69 74 65 | 28 76 74 69 2c 26 78 2c |;..write|(vti,&x,|
|000000e0| 36 29 3b 0a 7d 0a 63 6c | 6f 73 65 2e 63 00 00 00 |6);.}.cl|ose.c...|
|000000f0| 00 00 00 00 3c 0d e2 45 | 06 01 b6 81 00 00 40 00 |....<..E|......@.|
|00000100| 65 78 74 65 72 6e 20 76 | 74 69 3b 0a 63 6c 6f 73 |extern v|ti;.clos|
|00000110| 65 76 74 28 29 7b 0a 09 | 63 6c 6f 73 65 28 76 74 |evt(){..|close(vt|
|00000120| 69 29 3b 0a 7d 0a 63 6c | 6f 73 65 70 6c 28 29 7b |i);.}.cl|osepl(){|
|00000130| 0a 09 63 6c 6f 73 65 28 | 76 74 69 29 3b 0a 7d 0a |..close(|vti);.}.|
|00000140| 64 6f 74 2e 63 00 00 00 | 00 00 00 00 00 00 3c 0d |dot.c...|......<.|
|00000150| e2 45 06 01 b6 81 00 00 | c5 00 65 78 74 65 72 6e |.E......|..extern|
|00000160| 20 76 74 69 3b 0a 64 6f | 74 28 78 69 2c 79 69 2c | vti;.do|t(xi,yi,|
|00000170| 64 78 2c 6e 2c 70 61 74 | 29 0a 69 6e 74 20 70 61 |dx,n,pat|).int pa|
|00000180| 74 5b 5d 3b 0a 7b 0a 09 | 73 74 72 75 63 74 20 7b |t[];.{..|struct {|
|00000190| 63 68 61 72 20 70 61 64 | 2c 63 3b 20 69 6e 74 20 |char pad|,c; int |
|000001a0| 78 69 2c 79 69 2c 64 78 | 3b 7d 20 70 3b 0a 09 70 |xi,yi,dx|;} p;..p|
|000001b0| 2e 63 20 3d 20 37 3b 0a | 09 70 2e 78 69 20 3d 20 |.c = 7;.|.p.xi = |
|000001c0| 78 73 63 28 78 69 29 3b | 0a 09 70 2e 79 69 20 3d |xsc(xi);|..p.yi =|
|000001d0| 20 79 73 63 28 79 69 29 | 3b 0a 09 70 2e 64 78 20 | ysc(yi)|;..p.dx |
|000001e0| 3d 20 78 73 63 28 64 78 | 29 3b 0a 09 77 72 69 74 |= xsc(dx|);..writ|
|000001f0| 65 28 76 74 69 2c 26 70 | 2e 63 2c 37 29 3b 0a 09 |e(vti,&p|.c,7);..|
|00000200| 77 72 69 74 65 28 76 74 | 69 2c 70 61 74 2c 6e 3f |write(vt|i,pat,n?|
|00000210| 6e 26 30 33 37 37 3a 32 | 35 36 29 3b 0a 7d 0a 00 |n&0377:2|56);.}..|
|00000220| 65 72 61 73 65 2e 63 00 | 00 00 00 00 00 00 3c 0d |erase.c.|......<.|
|00000230| e2 45 06 01 b6 81 00 00 | 3a 00 65 78 74 65 72 6e |.E......|:.extern|
|00000240| 20 76 74 69 3b 0a 65 72 | 61 73 65 28 29 7b 0a 09 | vti;.er|ase(){..|
|00000250| 69 6e 74 20 69 3b 0a 09 | 69 3d 30 34 30 31 3b 0a |int i;..|i=0401;.|
|00000260| 09 77 72 69 74 65 28 76 | 74 69 2c 26 69 2c 32 29 |.write(v|ti,&i,2)|
|00000270| 3b 0a 7d 0a 66 72 61 6d | 65 2e 63 00 00 00 00 00 |;.}.fram|e.c.....|
|00000280| 00 00 3c 0d e2 45 06 01 | b6 81 00 00 3f 00 66 72 |..<..E..|....?.fr|
|00000290| 61 6d 65 28 6e 29 0a 7b | 0a 09 65 78 74 65 72 6e |ame(n).{|..extern|
|000002a0| 20 76 74 69 3b 0a 09 6e | 3d 6e 26 30 33 37 37 20 | vti;..n|=n&0377 |
|000002b0| 7c 20 30 32 30 30 30 3b | 0a 09 77 72 69 74 65 28 || 02000;|..write(|
|000002c0| 76 74 69 2c 26 6e 2c 32 | 29 3b 0a 7d 0a 63 6c 61 |vti,&n,2|);.}.cla|
|000002d0| 62 65 6c 2e 63 00 00 00 | 00 00 00 00 3c 0d e2 45 |bel.c...|....<..E|
|000002e0| 06 01 b6 81 00 00 7a 00 | 65 78 74 65 72 6e 20 76 |......z.|extern v|
|000002f0| 74 69 3b 0a 0a 6c 61 62 | 65 6c 28 73 29 0a 63 68 |ti;..lab|el(s).ch|
|00000300| 61 72 20 2a 73 3b 0a 7b | 0a 09 69 6e 74 20 69 2c |ar *s;.{|..int i,|
|00000310| 20 6f 3b 0a 0a 09 6f 20 | 3d 20 30 31 34 30 31 3b | o;...o |= 01401;|
|00000320| 0a 09 77 72 69 74 65 28 | 76 74 69 2c 20 26 6f 2c |..write(|vti, &o,|
|00000330| 20 32 29 3b 0a 09 66 6f | 72 28 69 3d 30 3b 20 73 | 2);..fo|r(i=0; s|
|00000340| 5b 69 2b 2b 5d 3b 20 29 | 0a 09 09 3b 0a 09 77 72 |[i++]; )|...;..wr|
|00000350| 69 74 65 28 76 74 69 2c | 20 73 2c 20 69 29 3b 0a |ite(vti,| s, i);.|
|00000360| 7d 0a 6c 69 6e 65 2e 63 | 00 00 00 00 00 00 00 00 |}.line.c|........|
|00000370| 3c 0d e2 45 06 01 b6 81 | 00 00 04 01 65 78 74 65 |<..E....|....exte|
|00000380| 72 6e 20 76 74 69 3b 0a | 65 78 74 65 72 6e 20 78 |rn vti;.|extern x|
|00000390| 6e 6f 77 2c 79 6e 6f 77 | 3b 0a 6c 69 6e 65 28 78 |now,ynow|;.line(x|
|000003a0| 30 2c 79 30 2c 78 31 2c | 79 31 29 7b 0a 09 73 74 |0,y0,x1,|y1){..st|
|000003b0| 72 75 63 74 7b 63 68 61 | 72 20 78 2c 63 3b 20 69 |ruct{cha|r x,c; i|
|000003c0| 6e 74 20 78 30 2c 79 30 | 2c 78 31 2c 79 31 3b 7d |nt x0,y0|,x1,y1;}|
|000003d0| 20 70 3b 0a 09 70 2e 63 | 20 3d 20 33 3b 0a 09 70 | p;..p.c| = 3;..p|
|000003e0| 2e 78 30 20 3d 20 78 73 | 63 28 78 30 29 3b 0a 09 |.x0 = xs|c(x0);..|
|000003f0| 70 2e 79 30 20 3d 20 79 | 73 63 28 79 30 29 3b 0a |p.y0 = y|sc(y0);.|
|00000400| 09 70 2e 78 31 20 3d 20 | 78 6e 6f 77 20 3d 20 78 |.p.x1 = |xnow = x|
|00000410| 73 63 28 78 31 29 3b 0a | 09 70 2e 79 31 20 3d 20 |sc(x1);.|.p.y1 = |
|00000420| 79 6e 6f 77 20 3d 20 79 | 73 63 28 79 31 29 3b 0a |ynow = y|sc(y1);.|
|00000430| 09 77 72 69 74 65 28 76 | 74 69 2c 26 70 2e 63 2c |.write(v|ti,&p.c,|
|00000440| 39 29 3b 0a 7d 0a 63 6f | 6e 74 28 78 30 2c 79 30 |9);.}.co|nt(x0,y0|
|00000450| 29 7b 0a 09 6c 69 6e 65 | 28 78 6e 6f 77 2c 79 6e |){..line|(xnow,yn|
|00000460| 6f 77 2c 78 73 63 28 78 | 30 29 2c 79 73 63 28 79 |ow,xsc(x|0),ysc(y|
|00000470| 30 29 29 3b 0a 09 72 65 | 74 75 72 6e 3b 0a 7d 0a |0));..re|turn;.}.|
|00000480| 6d 6f 76 65 2e 63 00 00 | 00 00 00 00 00 00 3c 0d |move.c..|......<.|
|00000490| 1c 46 06 01 b6 81 00 00 | 9b 00 65 78 74 65 72 6e |.F......|..extern|
|000004a0| 20 76 74 69 3b 0a 65 78 | 74 65 72 6e 20 78 6e 6f | vti;.ex|tern xno|
|000004b0| 77 2c 79 6e 6f 77 3b 0a | 6d 6f 76 65 28 78 69 2c |w,ynow;.|move(xi,|
|000004c0| 79 69 29 7b 0a 09 73 74 | 72 75 63 74 20 7b 63 68 |yi){..st|ruct {ch|
|000004d0| 61 72 20 70 61 64 2c 63 | 3b 20 69 6e 74 20 78 2c |ar pad,c|; int x,|
|000004e0| 79 3b 7d 20 70 3b 0a 09 | 70 2e 63 20 3d 20 39 3b |y;} p;..|p.c = 9;|
|000004f0| 0a 09 70 2e 78 20 3d 20 | 78 6e 6f 77 20 3d 20 78 |..p.x = |xnow = x|
|00000500| 73 63 28 78 69 29 3b 0a | 09 70 2e 79 20 3d 20 79 |sc(xi);.|.p.y = y|
|00000510| 6e 6f 77 20 3d 20 79 73 | 63 28 79 69 29 3b 0a 09 |now = ys|c(yi);..|
|00000520| 77 72 69 74 65 28 76 74 | 69 2c 26 70 2e 63 2c 35 |write(vt|i,&p.c,5|
|00000530| 29 3b 0a 7d 0a 0a 6f 70 | 65 6e 2e 63 00 00 00 00 |);.}..op|en.c....|
|00000540| 00 00 00 00 3c 0d e3 45 | 06 01 b6 81 00 00 e6 00 |....<..E|........|
|00000550| 69 6e 74 20 78 6e 6f 77 | 3b 0a 69 6e 74 20 79 6e |int xnow|;.int yn|
|00000560| 6f 77 3b 0a 66 6c 6f 61 | 74 20 62 6f 74 79 20 30 |ow;.floa|t boty 0|
|00000570| 2e 3b 0a 66 6c 6f 61 74 | 20 62 6f 74 78 20 30 2e |.;.float| botx 0.|
|00000580| 3b 0a 66 6c 6f 61 74 20 | 6f 62 6f 74 79 20 30 2e |;.float |oboty 0.|
|00000590| 3b 0a 66 6c 6f 61 74 20 | 6f 62 6f 74 78 20 30 2e |;.float |obotx 0.|
|000005a0| 3b 0a 66 6c 6f 61 74 20 | 73 63 61 6c 65 78 20 31 |;.float |scalex 1|
|000005b0| 2e 3b 0a 66 6c 6f 61 74 | 20 73 63 61 6c 65 79 20 |.;.float| scaley |
|000005c0| 31 2e 3b 0a 69 6e 74 20 | 76 74 69 20 2d 31 3b 0a |1.;.int |vti -1;.|
|000005d0| 0a 6f 70 65 6e 76 74 20 | 28 29 0a 7b 0a 09 09 76 |.openvt |().{...v|
|000005e0| 74 69 20 3d 20 6f 70 65 | 6e 28 22 2f 64 65 76 2f |ti = ope|n("/dev/|
|000005f0| 76 74 30 22 2c 31 29 3b | 0a 09 09 72 65 74 75 72 |vt0",1);|...retur|
|00000600| 6e 3b 0a 7d 0a 6f 70 65 | 6e 70 6c 28 29 0a 7b 0a |n;.}.ope|npl().{.|
|00000610| 09 76 74 69 20 3d 20 6f | 70 65 6e 28 22 2f 64 65 |.vti = o|pen("/de|
|00000620| 76 2f 76 74 30 22 2c 31 | 29 3b 0a 09 72 65 74 75 |v/vt0",1|);..retu|
|00000630| 72 6e 3b 0a 7d 0a 70 6f | 69 6e 74 2e 63 00 00 00 |rn;.}.po|int.c...|
|00000640| 00 00 00 00 3c 0d e3 45 | 06 01 b6 81 00 00 9d 00 |....<..E|........|
|00000650| 65 78 74 65 72 6e 20 76 | 74 69 3b 0a 65 78 74 65 |extern v|ti;.exte|
|00000660| 72 6e 20 78 6e 6f 77 2c | 79 6e 6f 77 3b 0a 70 6f |rn xnow,|ynow;.po|
|00000670| 69 6e 74 28 78 69 2c 79 | 69 29 7b 0a 09 73 74 72 |int(xi,y|i){..str|
|00000680| 75 63 74 20 7b 63 68 61 | 72 20 70 61 64 2c 63 3b |uct {cha|r pad,c;|
|00000690| 20 69 6e 74 20 78 2c 79 | 3b 7d 20 70 3b 0a 09 70 | int x,y|;} p;..p|
|000006a0| 2e 63 20 3d 20 32 3b 0a | 09 70 2e 78 20 3d 20 78 |.c = 2;.|.p.x = x|
|000006b0| 6e 6f 77 20 3d 20 78 73 | 63 28 78 69 29 3b 0a 09 |now = xs|c(xi);..|
|000006c0| 70 2e 79 20 3d 20 79 6e | 6f 77 20 3d 20 20 79 73 |p.y = yn|ow = ys|
|000006d0| 63 28 79 69 29 3b 0a 09 | 77 72 69 74 65 28 76 74 |c(yi);..|write(vt|
|000006e0| 69 2c 26 70 2e 63 2c 35 | 29 3b 0a 7d 0a 65 73 70 |i,&p.c,5|);.}.esp|
|000006f0| 61 63 65 2e 63 00 00 00 | 00 00 00 00 3c 0d e3 45 |ace.c...|....<..E|
|00000700| 06 01 b6 81 00 00 1f 01 | 65 78 74 65 72 6e 20 66 |........|extern f|
|00000710| 6c 6f 61 74 20 62 6f 74 | 79 3b 0a 65 78 74 65 72 |loat bot|y;.exter|
|00000720| 6e 20 66 6c 6f 61 74 20 | 62 6f 74 78 3b 0a 65 78 |n float |botx;.ex|
|00000730| 74 65 72 6e 20 66 6c 6f | 61 74 20 6f 62 6f 74 79 |tern flo|at oboty|
|00000740| 3b 0a 65 78 74 65 72 6e | 20 66 6c 6f 61 74 20 6f |;.extern| float o|
|00000750| 62 6f 74 78 3b 0a 65 78 | 74 65 72 6e 20 66 6c 6f |botx;.ex|tern flo|
|00000760| 61 74 20 73 63 61 6c 65 | 78 3b 0a 65 78 74 65 72 |at scale|x;.exter|
|00000770| 6e 20 66 6c 6f 61 74 20 | 73 63 61 6c 65 79 3b 0a |n float |scaley;.|
|00000780| 66 6c 6f 61 74 20 64 65 | 6c 74 78 20 34 30 39 35 |float de|ltx 4095|
|00000790| 2e 3b 0a 66 6c 6f 61 74 | 20 64 65 6c 74 79 20 34 |.;.float| delty 4|
|000007a0| 30 39 35 2e 3b 0a 73 70 | 61 63 65 28 78 30 2c 79 |095.;.sp|ace(x0,y|
|000007b0| 30 2c 78 31 2c 79 31 29 | 7b 0a 09 62 6f 74 78 20 |0,x1,y1)|{..botx |
|000007c0| 3d 20 2d 32 30 34 37 2e | 3b 0a 09 62 6f 74 79 20 |= -2047.|;..boty |
|000007d0| 3d 20 2d 32 30 34 37 3b | 0a 09 6f 62 6f 74 78 20 |= -2047;|..obotx |
|000007e0| 3d 20 78 30 3b 0a 09 6f | 62 6f 74 79 20 3d 20 79 |= x0;..o|boty = y|
|000007f0| 30 3b 0a 09 73 63 61 6c | 65 78 20 3d 20 64 65 6c |0;..scal|ex = del|
|00000800| 74 78 2f 28 78 31 2d 78 | 30 29 3b 0a 09 73 63 61 |tx/(x1-x|0);..sca|
|00000810| 6c 65 79 20 3d 20 64 65 | 6c 74 79 2f 28 79 31 2d |ley = de|lty/(y1-|
|00000820| 79 30 29 3b 0a 7d 0a 63 | 73 75 62 72 2e 63 00 00 |y0);.}.c|subr.c..|
|00000830| 00 00 00 00 00 00 3c 0d | e3 45 06 01 b6 81 00 00 |......<.|.E......|
|00000840| f6 00 65 78 74 65 72 6e | 20 66 6c 6f 61 74 20 6f |..extern| float o|
|00000850| 62 6f 74 78 3b 0a 65 78 | 74 65 72 6e 20 66 6c 6f |botx;.ex|tern flo|
|00000860| 61 74 20 6f 62 6f 74 79 | 3b 0a 65 78 74 65 72 6e |at oboty|;.extern|
|00000870| 20 66 6c 6f 61 74 20 62 | 6f 74 79 3b 0a 65 78 74 | float b|oty;.ext|
|00000880| 65 72 6e 20 66 6c 6f 61 | 74 20 62 6f 74 78 3b 0a |ern floa|t botx;.|
|00000890| 65 78 74 65 72 6e 20 66 | 6c 6f 61 74 20 73 63 61 |extern f|loat sca|
|000008a0| 6c 65 78 3b 0a 65 78 74 | 65 72 6e 20 66 6c 6f 61 |lex;.ext|ern floa|
|000008b0| 74 20 73 63 61 6c 65 79 | 3b 0a 78 73 63 28 78 69 |t scaley|;.xsc(xi|
|000008c0| 29 7b 0a 09 69 6e 74 20 | 78 61 3b 0a 09 78 61 20 |){..int |xa;..xa |
|000008d0| 3d 20 28 78 69 2d 6f 62 | 6f 74 78 29 2a 73 63 61 |= (xi-ob|otx)*sca|
|000008e0| 6c 65 78 2b 62 6f 74 78 | 3b 0a 09 72 65 74 75 72 |lex+botx|;..retur|
|000008f0| 6e 28 78 61 29 3b 0a 7d | 0a 79 73 63 28 79 69 29 |n(xa);.}|.ysc(yi)|
|00000900| 7b 0a 09 69 6e 74 20 79 | 61 3b 0a 09 79 61 20 3d |{..int y|a;..ya =|
|00000910| 20 28 79 69 2d 6f 62 6f | 74 79 29 2a 73 63 61 6c | (yi-obo|ty)*scal|
|00000920| 65 79 2b 62 6f 74 79 3b | 0a 09 72 65 74 75 72 6e |ey+boty;|..return|
|00000930| 28 79 61 29 3b 0a 7d 0a | 6c 69 6e 6d 6f 64 2e 63 |(ya);.}.|linmod.c|
|00000940| 00 00 00 00 00 00 3c 0d | e3 45 06 01 b6 81 00 00 |......<.|.E......|
|00000950| 18 00 6c 69 6e 65 6d 6f | 64 28 73 29 0a 63 68 61 |..linemo|d(s).cha|
|00000960| 72 20 2a 73 3b 0a 7b 0a | 7d 0a 62 6f 78 2e 63 00 |r *s;.{.|}.box.c.|
|00000970| 00 00 00 00 00 00 00 00 | cf 0f d5 1b 09 01 b6 81 |........|........|
|00000980| 00 00 72 00 62 6f 78 28 | 78 30 2c 20 79 30 2c 20 |..r.box(|x0, y0, |
|00000990| 78 31 2c 20 79 31 29 0a | 7b 0a 09 6d 6f 76 65 28 |x1, y1).|{..move(|
|000009a0| 78 30 2c 20 79 30 29 3b | 0a 09 63 6f 6e 74 28 78 |x0, y0);|..cont(x|
|000009b0| 30 2c 20 79 31 29 3b 0a | 09 63 6f 6e 74 28 78 31 |0, y1);.|.cont(x1|
|000009c0| 2c 20 79 31 29 3b 0a 09 | 63 6f 6e 74 28 78 31 2c |, y1);..|cont(x1,|
|000009d0| 20 79 30 29 3b 0a 09 63 | 6f 6e 74 28 78 30 2c 20 | y0);..c|ont(x0, |
|000009e0| 79 30 29 3b 0a 09 6d 6f | 76 65 28 78 31 2c 20 79 |y0);..mo|ve(x1, y|
|000009f0| 31 29 3b 0a 7d 0a | |1);.}. | |
+--------+-------------------------+-------------------------+--------+--------+