Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!cs.utexas.edu!uunet!island!argv From: argv@island.uu.net (Dan Heller) Newsgroups: comp.sources.x Subject: v05i007: xfroot, Patch1 Message-ID: <1096@island.uu.net> Date: 29 Sep 89 08:07:24 GMT Organization: Island Graphics, Marin County, California Lines: 29 Approved: island!argv@sun.com Submitted-by: Ed KubaitisPosting-number: Volume 5, Issue 7 Archive-name: xfroot/patch1 Patch-To: xfroot: Volume 5, Issue 3 *** xfroot.c.orig Sat Sep 23 11:14:26 1989 --- xfroot.c Mon Sep 25 08:12:48 1989 *************** *** 90,98 hopset() { int r = Ranfseed; double pmax=1.0*W, logpmax=log(pmax); ! A = (A) ? A : exp(Ranf()*logpmax); if (r&2) A = -A; ! B = (B) ? B : exp(Ranf()*logpmax); if (r&4) B = -B; ! C = (C) ? C : Ranf()*pmax; if (r&8) C = -C; } --- 90,98 ----- hopset() { int r = Ranfseed; double pmax=1.0*W, logpmax=log(pmax); ! if (!A) { A = exp(Ranf()*logpmax); if (r&2) A = -A; } ! if (!B) { B = exp(Ranf()*logpmax); if (r&4) B = -B; } ! if (!C) { C = Ranf()*pmax; if (r&8) C = -C; } }