From: Bill Shannon <shannon@ucbvax.Berkeley.EDU>
Date: Sat, 12 Feb 1983 10:28:50 +0000 (-0800)
Subject: date and time created 83/02/11 18:28:50 by shannon
X-Git-Tag: BSD-4_1c_2-Snapshot-Development~449
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/c56913307f0e7958f63331450247b326c5de1f8f?ds=inline

date and time created 83/02/11 18:28:50 by shannon

SCCS-vsn: old/eqn/common_source/sqrt.c 4.1
---

diff --git a/usr/src/old/eqn/common_source/sqrt.c b/usr/src/old/eqn/common_source/sqrt.c
new file mode 100644
index 0000000000..0495c2dd19
--- /dev/null
+++ b/usr/src/old/eqn/common_source/sqrt.c
@@ -0,0 +1,19 @@
+/*	sqrt.c	4.1	83/02/11	*/
+
+# include "e.h"
+
+sqrt(p2) int p2; {
+	int nps;
+	nps = EFFPS(((eht[p2]*9)/10+5)/6);
+	yyval = p2;
+	eht[yyval] = VERT( (nps*6*12)/10 );
+	if(dbg)printf(".\tsqrt: S%d <- S%d;b=%d, h=%d\n", 
+		yyval, p2, ebase[yyval], eht[yyval]);
+	if (rfont[yyval] == ITAL)
+		printf(".as %d \\|\n", yyval);
+	nrwid(p2, ps, p2);
+	printf(".ds %d \\v'%du'\\s%d\\v'-.2m'\\(sr\\l'\\n(%du\\(rn'\\v'.2m'\\s%d", 
+		yyval, ebase[p2], nps, p2, ps);
+	printf("\\v'%du'\\h'-\\n(%du'\\*(%d\n", -ebase[p2], p2, p2);
+	lfont[yyval] = ROM;
+}