From matsui@etl.go.jp Mon Jun 25 21:07:18 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA26074; Mon, 25 Jun 90 21:07:17 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA12188; Mon, 25 Jun 90 21:08:52 JST
Received: by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA26070; Mon, 25 Jun 90 21:07:06 JST
Date: Mon, 25 Jun 90 21:07:06 JST
From: matsui@etl.go.jp (Toshihiro MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9006251207.AA26070@etlmmd.etl.go.jp>
To: euslisp@etl.go.jp
Subject: anonymous ftp
Status: R

etl$B$N%^%7%s$,(Jwide$B%M%C%H$K$D$J$,$k$h$&$K$J$j$^$7$?!#(J
$B$=$l$G!"%=%U%H%&%'%"$NG[I[$O!":#8e(J anonymous ftp$B$G9T$$$?$$$H;W$$$^$9!#(J

$B6qBNE*$K$O!"(Jftp$B$r;H$C$F(Jetlgw.etl.go.jp(192.31.197.129)$B$K%f!<%6L>(Janonymous$B!"(J
$B%Q%9%o!<%I(Janonymous$B$G(Jlogin$B$7$F2<$5$$!#(Jpub$B$N2<$K(Jeus$B$N%=!<%9%G%#%l%/%H%j(J
$B$,8+$($k$O$:$G$9!#8e$O<+M3$K(Jget$B$7$F2<$5$$!#(Jeus$B$NB>$K$bM-MQ$J%=%U%H$,(J
$B$"$m$&$+$H;W$$$^$9!#(J

MATSUI Toshihiro, matsui@etl.go.jp, Electrotechnical Laboratory

From matsui@etl.go.jp Fri Jun 29 10:40:47 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA02449; Fri, 29 Jun 90 10:40:45 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA22166; Fri, 29 Jun 90 10:42:14 JST
Received: by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA02446; Fri, 29 Jun 90 10:40:13 JST
Date: Fri, 29 Jun 90 10:40:13 JST
From: matsui@etl.go.jp (Toshihiro MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9006290140.AA02446@etlmmd.etl.go.jp>
To: tamamura@nttarm.ntt.jp
Subject: Re: anonymous ftp
Cc: euslisp@etl.go.jp
Status: R

>$B>>0f$5$s!$$4L5:;BA$7$F$^$9!%6LM8!w#N#T#T!%IpB"Ln$G$9!#(J
>
>EusLisp$B$r$$$m$$$m(Jupdate$B$5$l$F$$$k$h$&$G!$$3$A$i$G$b3Z$7$_$K$7$F(J
>$B$$$^$9!%$H$3$m$G!$@hF|!$(J
>
>   >etl$B$N%^%7%s$,(Jwide$B%M%C%H$K$D$J$,$k$h$&$K$J$j$^$7$?!#(J
>   >$B$=$l$G!"%=%U%H%&%'%"$NG[I[$O!":#8e(J anonymous ftp$B$G9T$$$?$$$H;W$$$^$9!#(J
>
>$B$H$$$&%a!<%k$r$$$?$@$-$^$7$?$,!$(Jnttlab$B$N%^%7%s$G$O!$(Jwide$B%M%C%H$K(J
>$B%"%/%;%9$G$-$J$$$h$&$G$9!J$H$$$C$F$b!$(Jwide$B%M%C%H$H$$$&$N$,$h$/$o$+(J
>$B$C$F$$$J$$$s$G$9$,!%!%!K!%(J

$B;d$b$h$/M}2r$7$F$$$k$o$1$G$O$"$j$^$;$s!#(Jjunet$B$H$N4X78$O$I$&$@$H$+!"(J
$B$I$&$d$C$?$i;22C$G$-$k$+$H$+$OA4$/CN$j$^$;$s!#$?$@!"EEAm8&$K!"(J
anonymous ftp$B$G$-$k%^%7%s$,MQ0U$5$l$?$H$$$&$3$H$@$1$,=EMW$G!"(J
$B2?$G$b!"30It$KBP$7$F$O!"!V(Jetlport.go.jp$B$+$i(Janonymous ftp$B$G$-$^$9!W(J
$B$HDLCN$9$k$@$1$G$h$$$N$@$=$&$G$9!#<~0O$N%M%C%H%o!<%/$K>\$7$$?M$K(J
$B$*?R$M2<$5$$!#(J($BL5CN$rHdNr$7$F$$$k(J :-)

$B$?$@$7!"$3$N%5!<%S%9$O$^$@@5<01?MQ$K$O$J$C$F$$$J$/$F!"1=$K$h$k$H(J
7$B7n2<=\$K$O@5<01?MQ$K$J$k$@$m$&$H$$$&$3$H$G$7$?!#$=$N$3$m$K!"(J
$B%^%7%s$NL>A0$d%G%#%l%/%H%j$N9=@.$,JQ$o$k$+$b$7$l$J$$$H$$$&$3$H(J
$B$G$7$g$&$+!#<B83E*$K%"%/%;%9$7$F$b$i$&$N$O$+$^$o$J$$$H;W$$$^$9!#(J
$B9q5H$5$s!"(Jutyo$B$+$i$O%"%/%;%9$G$-$^$7$?$G$7$g$&$+(J?

>$B$3$A$i$K$b$J$s$H$+(Jupdate$B$5$l$?%=%U%H$rG[I[$7$F$$$?$@$/$o$1$K$O$$$-(J
>$B$^$;$s$+!%!J%b%G%`$,@\B3$5$l$F$$$l$P$J$s$H$+$J$k$s$G$9$,!$$?$@!$$3$l(J
>$B$r(Jopen$B$K$9$k$H!$$A$g$H4m81$+$b$7$l$^$;$s$M!%!K(J

$B%F!<%W$N2sMw$O$;$$$<$$G/$K(J1$B2s0L$K$7$?$$$H;W$C$F$$$^$9!#(J
8$B7n$K$O2DG=$+$b$7$l$^$;$s!#(J


MATSUI Toshihiro, matsui@etl.go.jp, Electrotechnical Laboratory

From yasuo@jsk.t.u-tokyo.ac.jp Fri Jun 29 14:50:50 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA02603; Fri, 29 Jun 90 14:50:49 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA27728; Fri, 29 Jun 90 14:52:25 JST
Received: from ccutrd.cc.u-tokyo.ac.jp by titcca.cc.titech.ac.jp (5.61/6.4titcca)
	id AA29301; Fri, 29 Jun 90 14:52:00 +0900
Received: from jsk by ccut.cc.u-tokyo.ac.jp (5.61/6.4J.6-ut2.83)
	id AA11444; Fri, 29 Jun 90 14:52:18 +0900
Received: from phoenics.jsk.t.u-tokyo.ac.jp by pegasus.jsk.t.u-tokyo.ac.jp (4.0/6.4J.6)
	id AA01290; Fri, 29 Jun 90 14:45:06 JST
Received: by phoenics.jsk.t.u-tokyo.ac.jp (4.0/6.4J.6)
	id AA00329; Fri, 29 Jun 90 14:51:47 JST
Date: Fri, 29 Jun 90 14:51:47 JST
From: yasuo@jsk.t.u-tokyo.ac.jp (Yasuo Kuniyoshi)
Return-Path: <yasuo@jsk.t.u-tokyo.ac.jp>
Message-Id: <9006290551.AA00329@phoenics.jsk.t.u-tokyo.ac.jp>
To: euslisp@etl.go.jp
In-Reply-To: Toshihiro MATSUI's message of Fri, 29 Jun 90 10:40:13 JST <9006290140.AA02446@etlmmd.etl.go.jp>
Subject: Re: anonymous ftp
Status: R

$@$$$D$b$*@$OC$K$J$C$F$$$k(J
$@T"5H9/IW!w0f>e!?0pMU8&!&ElBg$G$9!#(J
==========================

   >$@9q5H$5$s!"(Jutyo$@$+$i$O%"%/%;%9$G$-$^$7$?$G$7$g$&$+(J?
$@$H$$$&$3$H$G$9$,!"(Jnslookup$@$G$_$k$+$.$j!"(J
etlgw.etl.go.jp
$@$O(Jdomain name server$@$NBN7O$K$O$^$@;22C$7$F$$$J$$$h$&$G!"$3$A$i$+$i(Jbind
$@$G8+$K9T$/$3$H$O$G$-$^$;$s!#(J
$@$D$^$j!"%m!<%+%k$J(J/etc/hosts$@$K$-$A$s$H(J
192.31.197.129	etlgw.go.jp
$@$N%(%s%H%j$rF~$l$F$d$i$J$$$HL>A0$G%"%/%;%9$9$k$3$H$O$G$-$^$;$s$G$7$?!#(J
$@$?$@$7!"(JIP$@%"%I%l%9!J(J192.31.197.129$@!K$rD>@\;XDj$7$F%"%/%;%9$9$k$3$H$O$G$-(J
$@$^$7$?!#(J
anonymous ftp$@$G!"$A$c$s$H%U%!%$%k$r$H$C$F$/$k$3$H$K$b@.8y$7$^$7$?!#(J

   >$@2?$G$b!"30It$KBP$7$F$O!"!V(Jetlport.go.jp$@$+$i(Janonymous ftp$@$G$-$^$9!W(J
$@!)!)!)(Jetlport$@$H$$$&%^%7%s$b$"$k$N$G$9$+!)$=$l$H$b!"(Jetlgw$@$HF1$8$b$N$G$9(J
$@$+!)(J

$@$H$K$+$/!"(JIP$@@\B3$5$l$F$$$k%5%$%H$J$i!"7PM3$9$k(Jgateway$@$H$+$KLdBj$,$J$1$l$P!"(J
$@F1MM$K(Jftp$@$G$-$k$O$:$G$9!#(J

etlgw$@$,(Jgo.jp$@$N(Jname server$@$K@5<0EPO?$5$l$l$P!">e$NLdBj$b2r7h$9$k$G$7$g(J
$@$&!#(J

From matsui@etl.go.jp Wed Jul 11 11:20:52 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA19704; Wed, 11 Jul 90 11:20:51 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA14161; Wed, 11 Jul 90 11:23:19 JST
Received: by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA19684; Wed, 11 Jul 90 11:20:32 JST
Date: Wed, 11 Jul 90 11:20:32 JST
From: matsui@etl.go.jp (Toshihiro MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9007110220.AA19684@etlmmd.etl.go.jp>
To: euslisp@etl.go.jp
Subject: changes
Status: R

I hear complaint that programs that did work a few months ago do not
work recently.  I've forgotten to explain a change in primitive body
construction. Segment parameter now needs to specify with a keyword.
You can also give color and name attributes to a body.

(make-cube x y z &key color name)
(make-cylinder radius height &key (segments 12) color name)

Try (documentation 'make-cylinder), etc.

From matsui@etl.go.jp Mon Jul 23 17:37:21 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA07315; Mon, 23 Jul 90 17:37:20 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA24618; Mon, 23 Jul 90 17:39:54 JST
Received: by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA07307; Mon, 23 Jul 90 17:36:40 JST
Date: Mon, 23 Jul 90 17:36:40 JST
From: matsui@etl.go.jp (Toshihiro MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9007230836.AA07307@etlmmd.etl.go.jp>
To: warisawa@eagle.nml.t.u-tokyo.ac.jp
Subject: Re:  Question about load-foreign
Cc: euslisp@etl.go.jp
Status: R

>     $B$d$C$F$_$^$7$?$,!"$d$O$j(J"Emulator trap"$B$H$J$j$^$9!#$[$+$K2?$+LdBj(J
>     $B$,$"$l$P65$($F2<$5$$!#(J

$B<:Ni$7$^$7$?!#(Jsun4$B$G;n$7$F(JOK$B$H$7$F$$$^$7$?$,!"(Jsun3$BHG$KLdBj$,$"$j$^$7$?!#(J
l/foreign.l$B$N(J:code-alignment$B%a%=%C%I$r<!$.$N$b$N$KCV$-49$($F(Jmake$B$7$F(J
$B2<$5$$!#(J

 (:code-alignment (symfile)
    (if (not (equal object-file symfile))
        (if (intersection '(sun4 news vax) *features*)
	    (- (sys:address codevector))
	    (- (+ (sys:address codevector) 2)))
        (cond
	    ((member 'sun4 *features*)
	     (if (member 'sunos4 *features*)
		 8
		 (- 1024 (mod (sys:address codevector) 1024))) )
	    ((member 'vax *features*) 8)
	    (t  6))))	;sun3 --> 6



From matsui@etl.go.jp Tue Jul 24 20:42:22 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA08842; Tue, 24 Jul 90 20:42:21 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA17533; Tue, 24 Jul 90 20:45:24 JST
Received: by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA08838; Tue, 24 Jul 90 20:42:14 JST
Date: Tue, 24 Jul 90 20:42:14 JST
From: matsui@etl.go.jp (Toshihiro MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9007241142.AA08838@etlmmd.etl.go.jp>
To: nakayama@lab2.fuzzy.or.jp
Subject: Re:  EULLISP
Cc: matsui@etl.go.jp
Status: RO

EusLisp$B$K4X$9$k$*Ld$$9g$o$;$"$j$,$H$&$4$6$$$^$9!#(J

>1$B!#5!G=$N35MW(J

EusLisp$B$O!"(JCommon Lisp$B$N%5%V%;%C%H(J(multi-value, bignum, complex$B$,$J$$!"(J
closure$B$,$$$$2C8:(J)$B$r!"%*%V%8%'%/%H;X8~$N>e$K<B8=$7$?$b$s$G$9!#?tCM0J30$N(J
CommonLisp$B$N%G!<%?7?(J(cons, symbol, string$B$J$I(J)$B$,$9$Y$F%/%i%9$r;}$C$?%*%V(J
$B%8%'%/%H$G$9!#(J

$B4v2?7W;;MQ$N4X?t$rAH$_9~$_$G;}$C$F$$$^$9!#$^$?!"IbF0>.?t$rMWAG$H$9$k(J
$B%Y%/%?!"%^%H%j%/%9$rAH$_9~$_$G;}$C$F$$$^$9!#(J

$BB?LLBN%Y!<%9$N4v2?%b%G%i$r;}$C$F$$$^$9!#=89g1i;;$K$h$k7A>uDj5A!"(J
$B1#@~>C5nI=<(Ey$,2DG=$G$9!#%l%s%@%j%s%0$O8=:_3+H/Cf$G$9(J($B0lF|2K(J
$B$r$b$i$($l$P$G$-$k$N$@$,!"!"!"(J)$B!#(J
$B4v2?%b%G%kMWAG(J($BLL!"%(%C%8$J$I(J)$B$OEvA3%*%V%8%'%/%H$G$9!#(J

$B40A4$JB>8@8l%$%s%?%U%'!<%9$r;}$A!"(JC$B$^$?$O(Jfortran$B$N4X?t$r%j%s%/$G$-$^$9!#(J
$B$3$NJ}K!$G!"(JXwindow, linpack, sunview$BEy$,MxMQ$G$-$^$9!#(J
xwindow$B$K4X$7$F$O!";d$O(Jxlib$B%l%Y%k$G;H$C$F$$$^$9$,!"ElBg$G$O(Jxview
$B$r;H$C$F$$$^$9!#(J

sun$B$N%7%9%F%`%3!<%k$O$[$H$s$IMxMQ$G$-$^$9!#%=%1%C%H$rMQ$$$?DL?.$d!"(J
$B%7%0%J%k$N%W%m%0%i%_%s%0$b4JC1$G$9!#(J

$B<B9TB.EY$O!"(JLisp$B$H$7$F$O!"$[$\(JKCL$B$HF1DxEY(J($B%$%s%?%W%j%?!"%3%s%Q%$%i6&(J)$B!"(J
$B4v2?%b%G%i$H$7$F$O!"(JGEOMAP$B$HF1DxEY!#(J

>2$B!#;29MJ88%(J
$B0lHV>\$7$$$N$O!"5nG/(J1989$BG/$N(J3$B7n$N>pJs=hM}3X2q!"5-9f=hM}8&5f2q$N;qNA$G$9!#(J

>3$B!#;HMQ$G$-$k4D6-(J
sun4, sun3 (OS3.5, 4.0)$B$,K>$^$7$$!#(Jvax/ultrix$B$K$b0\?"$7$^$7$?$,!"(J
$B$"$^$j%a%s%F$7$F$$$^$;$s!#(JNews$B$J$I$G$bF0$/$h$&$G$9!#(JMIPS, system5$B$J$I$O(J
$B$@$a$G$9!#%a%b%j$O:GDc$G(J2.5MB$B0L;H$$$^$9!#%G%#%9%/$O!"%=!<%9!"%I%-%e%a%s%H(J
$B$K(J8MB$B!"%*%V%8%'%/%H$r4^$a$k$H(J20MB$B6/I,MW$G$9!#(J

>4$B!#F~<jJ}K!(J
etlgw.etl.go.jp(192.31.197.129)$B$+$i(Janonymous ftp$B$7$FD:$/$N$,:G$b<j7Z$G$9!#(J
8$B7n$KMxMQ<T$N4V$G%F!<%W$N2sMw$r$9$kM=Dj$G$9$N$G!"$=$l$K2C$o$C$FD:$$$F$b(J
$B7k9=$G$9!#$*6a$/$K;H$($k4D6-$,$"$l$P(J(fuzzy$B8&$O$I$3$K$"$k$N$G$7$g$&(J)$B!"(J
$B$=$3$G%3%T!<$7$F$b$i$C$F2<$5$$!#Cx:n8"$O$3$A$i$GJ];}$7$F$$$^$9$,!"(J
$B%=!<%9$r4^$a$F%3%T!<$O<+M3$G$9!#(J


> L   I FF EE                MAKISHI NAKAYAMA $BCf;3!!K|4u;V(J
>LLL I F  EEE  junet:nakayama@lab2.fuzzy.or.jp Tel:045-212-8245 R&D:MAKISHI

p.s. $B;d$b:#EY$+$i(Jfuzzy$B$N0Q0w2q$K=P$k$3$H$K$J$j$^$7$?!#$h$m$7$/!#(J

MATSUI Toshihiro, matsui@etl.go.jp, Electrotechnical Laboratory

From terasaki@pink.tsukuba.sanyo.co.jp Wed Jul 25 01:56:23 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA09654; Wed, 25 Jul 90 01:56:22 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA21184; Wed, 25 Jul 90 01:59:18 JST
Received: by etlcv3.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA29166; Wed, 25 Jul 90 02:00:37 JST
Received: by tacho.tsukuba.sanyo.co.jp (5.57/6.4J.5-tkb2) id AA22324; Tue, 24 Jul 90 23:03:23+0900
Received: from pink.tsukuba.sanyo.co.jp (marr) by terra.tsukuba.sanyo.co.jp (4.0/6.4J.5-tkb2) id AA26266; Tue, 24 Jul 90 23:01:43 JST
Received: by pink.tsukuba.sanyo.co.jp (4.0/6.4J.5-tkb1) id AA01942; Tue, 24 Jul 90 23:02:32 JST
Date: Tue, 24 Jul 90 23:02:32 JST
From: terasaki@pink.tsukuba.sanyo.co.jp (Hajime Terasaki)
Return-Path: <terasaki@pink.tsukuba.sanyo.co.jp>
Message-Id: <9007241402.AA01942@pink.tsukuba.sanyo.co.jp>
To: euslisp@etl.go.jp
Subject: glue.l
Status: R

glue $@$K$O!"$$$D$b!"$*@$OC$K$J$C$F$$$k;{:j!w;0MNEE5!$G$9!#(J

glue $@$NCf?H$ONI$/J,$+$C$F$$$J$$$N$G$9$,!"(J
(find-contact-face ba b2) $@$O!"(Jface $@$N(J normal $@$H(J distance $@$r8+$F!"(J
face $@$,$N$C$F$$$k(J plane $@$,(J against $@$K$J$C$F$$$k(Jface $@$NAH$rJV$9$h$&$K$J$C(J
$@$F$$$^$9$h$M!#(J
$@$=$l$G!"$=$NAH$,#2$D0J>e$"$k>l9g!"(Jglue $@$O!"(Jglue $@$;$:$K!"$=$N%j%9%H$r(J
$@JV$7$^$9$,!"(Jfind-contact-face $@$N;EMM$r!"(Jface $@F1;V$N(J against $@$r8+$D$1$k(J
$@$h$&$K$9$k$H!"BLL\$J$s$G$7$g$&$+!)(J

$@6qBNE*$K$O!"Nc$($P!"(J

(defun find-contact-face (bod1 bod2)
   (let* ((face1 (bod1 . faces))
          (face2 (bod2 . faces))
          (result))
   (dolist (f1 face1)
     (dolist (f2 face2)
       (if
         (and (< (abs (+ (v. (f1 . normal) (f2 . normal)) 1.0)) *maxangle*)
              (< (abs (send f1 :distance (car (f2 . vertices)))) *maxdistance*))
           (push (list f1 f2) result)
           nil)
          ))
    result))

$@$r(J

(defun find-contact-face (bod1 bod2)
   (let* ((face1 (bod1 . faces))
          (face2 (bod2 . faces))
          (result))
   (dolist (f1 face1)
     (dolist (f2 face2)
       (if
         (and (< (abs (+ (v. (f1 . normal) (f2 . normal)) 1.0)) *maxangle*)
              (< (abs (send f1 :distance (car (f2 . vertices)))) *maxdistance*)
>	      (not (and (equal 'outside (test-face-intersection f1 f2))
>			(equal 'outside (test-face-intersection f2 f1)))))
           (push (list f1 f2) result)
           nil)
          ))
    result))

$@$G$9!#(J

$@$3$l$K$h$C$F!"(Jfind-contact-face $@$,JV$9%j%9%H$NCf$K!"(J
$@<B:]$K@\?($7$F$$$J$$LL$,$"$k$?$a$K!"%j%9%H$ND9$5$,#20J>e$K$J$k>l9g$K$b!"(J
glue $@$G$-$^$7$?$,!"Cf?H$,NI$/J,$+$i$J$$$b$N$G$9$+$i!"!"!"(J

                                 $@;{:j(J  $@H%!wC^GH8&5f=j!%;0MNEE5!(J
                                  terasaki@tsukuba.sanyo.co.jp
                                          JJ1IEA,SKYLINE

From matsui@etl.go.jp Mon Jul 30 21:51:41 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA06397; Mon, 30 Jul 90 21:51:40 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA06976; Mon, 30 Jul 90 21:54:53 JST
Received: by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA06394; Mon, 30 Jul 90 21:51:30 JST
Date: Mon, 30 Jul 90 21:51:30 JST
From: matsui@etl.go.jp (Toshihiro MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9007301251.AA06394@etlmmd.etl.go.jp>
To: kameyama@etl.go.jp
Subject: Re:  interface
Cc: euslisp@etl.go.jp
Status: R

>$B%=%1%C%HDL?.$r!"(JSC7$B$r(Jserver$B!"(JMMD$B$r(Jclient$B$K$7$F9T$J$&>l9g!"(Jeus$B$N%^%K%e%"%k$G$O(J
>(setq caddr (make-socket-address 	:domain af_inet
>					:host "etlic2"
>					:port 2000))
>(setq cstream (make-client-socket-stream caddr))
>$B$H$"$j$^$9$,!"(J
>
>(1)$B%[%9%HL>$O2?$K$9$k$N$G$7$g$&$+!)(J etlsc7$B$G$7$g$&$+!"(Jetlmmd$B$G$7$g$&$+!#(J

$B%5!<%P!<%W%m%;%9$,$$$k%[%9%H$NL>A0$G$9!#(J
$B%5!<%P!<$O!"%3%M%/%7%g%s$,D%$i$l$k$N$rBT$A<u$1$F$$$k(J(socket-port$B$r:n$k(J)
$BB&$G$9!#EvA3!"(Jmake-server-socket-stream$B$9$kB&$G$9!#(J

>(2):domain $B$N(J af_inet$B$O!"2?$r0UL#$7$F$$$k$N$G$7$g$&$+!#(J

af_inet$B$H(Jaf_unix$B$,$"$j$^$9!#0[$J$C$?%^%7%s4V$GDL?.$9$k$J$i!"(J
$B%I%a%$%s$O(Jaf_inet(address family internet)$B$K$7$^$9!#(J

>$B$*<j?t$G$9$,0J>e$N$3$H$r65$($F$/$@$5$$!#(J	$B55(J

euslisp$B$N<ALd$O!";d08$G$J$/(Jeuslisp@etl.go.jp$B$K$9$k$h$&$K!#(J

MATSUI Toshihiro, matsui@etl.go.jp, Electrotechnical Laboratory

From matsui@etl.go.jp Tue Jul 31 09:46:28 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA07387; Tue, 31 Jul 90 09:46:27 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA14181; Tue, 31 Jul 90 09:49:33 JST
Received: by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA07384; Tue, 31 Jul 90 09:46:05 JST
Date: Tue, 31 Jul 90 09:46:05 JST
From: matsui@etl.go.jp (Toshihiro MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9007310046.AA07384@etlmmd.etl.go.jp>
To: kuruma@etlic0.etl.go.jp
Subject: Re:  question
Cc: euslisp@etl.go.jp
Status: R

>(send f1 :make)
>(send f1 :changed)
>(describe f1)
>-------------------------------------------------------------------
>$B2<$+$i#29TL\$G(Jchanged$B$N%U%i%0$rJQ$($F$$$k$N$G$9$,!"(J(describe f1)$B$G(J
>$B8+$F$b(Jchanged$B$,(Jnil$B$N$^$^$K$J$C$F$$$^$9!#(J

describe$B$NCf$G%9%m%C%H$r=gHV$K%W%j%s%H$9$k2aDx$G(Jchanged$B$O(Jt$B$K$J$j$^$9!#(J
changed$B%U%i%0$O:BI87O$N99?7$N%?%$%_%s%0$r<h$k$?$a$N$b$N$G!"(J
$B%f!<%6$,$5$o$k(J/$B8+$kI,MW$O$"$j$^$;$s!#(Jchanged$B$,(Jt$B$K$J$k=V4V$K(J:update$B$,(Jsend
$B$5$l$^$9!#$@$+$i!"(J:update$B%a%=%C%I$r%5%V%/%i%9$G:FDj5A$9$l$P$h$m$7$$!#(J

MATSUI Toshihiro, matsui@etl.go.jp, Electrotechnical Laboratory

From matsui@etl.go.jp Wed Aug  1 13:53:38 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA09458; Wed, 1 Aug 90 13:53:36 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA08213; Wed, 1 Aug 90 13:56:34 JST
Received: by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA09453; Wed, 1 Aug 90 13:53:02 JST
Date: Wed, 1 Aug 90 13:53:02 JST
From: matsui@etl.go.jp (Toshihiro MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9008010453.AA09453@etlmmd.etl.go.jp>
To: terasaki@pink.tsukuba.sanyo.co.jp
Subject: Re:  convex-hull-3d
Cc: euslisp@etl.go.jp
Status: R

>$B;0MNEE5!$N;{:j$G$9!#(J
>
>convex-hull-3d
>$B$,!"(J
>(make-icosahedron)
>$B$r$7$?8e$G$O!"F0$+$J$/$J$k$3$H$,$"$k$N$G$9$,!"(J
>$B$J$<$J$N$G$7$g$&$+!)(J

$B$O$O$!!"(Jconvex-hull-3d$B$O2?$+JQ$@$H;W$C$F$$$?$i!"$=$&$$$&<B9T$NMzNr$,(J
$B1F6A$9$k$N$G$7$?$+!#$:$C$HG:$s$G$$$?$N$G$9!#(J

>$B$I$J$?$+!"$4B8CN$NJ}$"$j$^$7$?$i!"$h$m$7$/$*4j$$$7$^$9!#(J

$B$=$l$G!"D4$Y$F$_$^$7$?$i!"$"$j$^$7$?!#(J
llib/primt.l$B$rD>$7$F2<$5$$!#(J


(defun find-initial-hull (s)
   (let ((p1			   ; certainly a vertex constructing hull
	   (find-extream s #'(lambda (p) (aref (car p) 2)) #'>=))
	 (p2) (p3) (p4) (v) cot2 cot3 cot4 a
	 (dummyface (instantiate *face-class*))
	 (n (float-vector 0 0 1)))
	    ^^^^^^^^^^^^^^^^^^^^
	    $B$3$3$,!"(J#f(0 0 1)$B$K$J$C$F$$$?$N$G$9!#2?$H6r$+$J!#(J

>connected to Xserver DISPLAY=marr:0.0
                      ^^^^^^^^^^^^^^^^
warisawa$B$5$s!"$3$&$$$&Iw$KI=<($,=P$^$;$s$+(J?

>[33mEusLisp  6.872 created on Tue Jun  5 21:34:43 1990[0m
  ^^^^^                                                  ^^^^^
  $B$3$l$O%F%-%9%H$N?'$rJQ$($k%(%9%1!<%W$G$9!#(Jemacs$B$@$H2=$1$A$c$&$1$I!#(J

>eusx$ (make-icosahedron)
>#<body #X1d7c9c  0.00 0.00 0.00 / 0.00 -0.00 0.00>
>eusx$ (convex-hull-3d tera)

$B$&$^$/9T$/$O$:$G$9!#(J
$BD9G/5$$K$J$C$F$$$?%P%0$,(J1$B$D<h$l$^$7$?!#;{:j$5$s!"$"$j$,$H$&!#(J
$B$H$3$m$GA0@n$5$s$O$I$&$G$9$+!#(J
MATSUI Toshihiro, matsui@etl.go.jp, Electrotechnical Laboratory

From hirukawa@etl.go.jp Fri Sep 14 11:05:19 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA01734; Fri, 14 Sep 90 11:05:17 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA11474; Fri, 14 Sep 90 11:13:51 JST
Received: by etlic2.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA27168; Fri, 14 Sep 90 11:10:12 JST
Date: Fri, 14 Sep 90 11:10:12 JST
From: hirukawa@etl.go.jp (Hirohisa Hirukawa)
Return-Path: <hirukawa@etl.go.jp>
Message-Id: <9009140210.AA27168@etlic2.etl.go.jp>
To: wakita@etl.go.jp
Subject: Re:  load file's ".l"
Cc: matsui@etl.go.jp
Status: R

$@#Q(J~$@#Q(J;   $@OFEDM%?N!wEEAm8&(J $@MM(J

> $@@dBP%Q%9L>$G%U%!%$%kL>$r;XDj$7$?>l9g$OC5$7$K$$$C$F$/$l$^$;$s$G$7$?(J

$@;d$b;n$7$F$_$^$7$?$,!"3N$+$K$=$&$G$9$M!#(J
$@$3$l$O!"2~A1$NM>CO$"$j$+$J!#>>0f$5$s$KEA$($H$-$^$9!#(J

>   $@$=$l$+$i!"(Jeusmmd$@$r$3$A$i(Jetlisd$@$G5/F0$7$h$&$H$7$F(J
> /net/etlmmd/usr/local/....$@$H$7$h$&$H$9$k$H!"%j%s%/$,(Jmmd$@$G$N@dBP%Q%9L>(J
> $@$K$h$k;XDj$K$J$C$F$$$F!"(J

$@3N$+$K(Jeusmmd$@$K$D$$$F$O!"<BBN$,(Jetlmmd$@>e$K$"$k$N$G$9$,!"(J

etlmmd$@>e$N(Jeus	$@>>0f$5$s$N:n6HMQ$N%*%V%8%'%/%H(J
etlic2$@>e$N(Jeus	$@0lHL%f!<%6!<MQ$N%*%V%8%'%/%H(J

$@$H$$$&$N$,86B'$G$9!#M}M3$O!"(Jetlmmd$@>e$N%*%V%8%'%/%H$O(J
$@$$$D(Jremake$@$5$l$k$+H=$i$J$$$N$G!">>0f$5$s!"%f!<%6!<(J
$@APJ}$H$b;E;v$,$d$j$K$/$$$+$i$G$9!#(J

$@$=$l$G!"%U%!%$%k$rGA$$$F$_$k$H!"(Jetlic2$@$G$O%j%s%/$N;XDj$,(J
/net$@$+$i;O$^$C$F$$$k$h$&$G$9!#3NG'$O$7$F$$$^$;$s$,!"(J
etlic2$@$X%j%s%/$rD%$l$P!"L5;v$KF0$/$N$G$O$J$$$G$9$+!#(J

>  $@$H8@$&$h$&$J$*<j;f$OHfN1@n$5$s$K=P$7$A$c$C$F8@$$$N$+$J!#(J
> $@>>0f$5$s$NJ}$K=P$7$?J}$,$$$$$G$7$g$&$+!#(J

$@86B'$O!"(Jeuslisp@etl.go.jp$@$N%a%$%j%s%0%j%9%H$X$N<ALd$G$9!#(J
$@!V$3$s$J=iJbE*$J!*!W$J$I$H;W$&>l9g$b$"$k$+$bCN$l$^$;$s$,!"(J
$@0U30$H6&DL$N5?Ld$r;}$C$F$$$k?M$,$?$/$5$s$$$k$b$N$G$9!#(J

$@$I$&$7$F$b$=$l$KDq93$,$"$k$H$-$O!"(Jmatsui@etl.go.jp$@$X$N(J
$@%a%$%k$,0lHV3N<B$G$9!#;d$O(JEuslisp$@$N3+H/<T$G$O$J$$$N$G!"(J
$@J,$+$k$3$H$HJ,$+$i$J$$$3$H$,$"$j$^$9!#(J


$@$R!#$R$k$+$o(J


From hirukawa@etl.go.jp Tue Sep 18 13:53:05 1990
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA02269; Tue, 18 Sep 90 13:53:04 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA27841; Tue, 18 Sep 90 14:01:47 JST
Received: by etlic2.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA04522; Tue, 18 Sep 90 13:58:13 JST
Date: Tue, 18 Sep 90 13:58:13 JST
From: hirukawa@etl.go.jp (Hirohisa Hirukawa)
Return-Path: <hirukawa@etl.go.jp>
Message-Id: <9009180458.AA04522@etlic2.etl.go.jp>
To: euslisp@etl.go.jp, matsui@etl.go.jp
Subject: Re:  2nd Distribution
Status: R

$@3'MM(J

$@>>0f$5$s(Jsaid
> EusLisp$@$N(J2$@2sL\$N%F!<%W2sMw$r9T$$$^$9!#(J
> $@A02s$+$i$N<g$J2~NIE@$O0J2<$NDL$j$G$9!#(J
> 11. $@4v2?%b%G%k$+$iF0$-$N94B+$rF3=P$9$k%W%m%0%i%`$,EPO?$5$l$?(J ($@HfN1@n;a(J)

$@$3$l$O!"$b$&>/$7>\$7$/8@$&$H!"(J

$@!VB?LLBN$HB?LLBN$,@\?($7$F$$$k$H$-$K!"0lJ}$NB?LLBN$,B>$NB?LLBN$+$i(J
  $@@\?($K$h$C$F<u$1$kA494B+$H!"Ey2A$J94B+E@$N0LCV$H3F!9$NE@$K$*$1$k(J
  $@94B+>r7o$r5a$a$k%W%m%0%i%`!W(J

$@$G$9!#C1$K!"B?LLBN4V$N@\?(0LCV$rCN$j$?$$>l9g$K$bMxMQ2DG=$G$9!#(J
$@$3$l$K$D$$$F$O!"(JUsers Manual$@$K>\$7$/@bL@$7$F$"$j$^$9!#$^$?!"(J
$@$3$N94B+>r7o<0$N2r$r5a$a$k%W%m%0%i%`$b6a$/8x3+M=Dj$G$9!#(J

$@0lHL$N(JEuslisp Users$@$N3'$5$s$b!"3F<+$G3+H/$5$l$?%W%m%0%i%`$G!"(J
$@6&DL$K;H$($=$&$J$b$N$O!"@'Hs$3$N(Jmailing-list$@$K%^%K%e%"%kIU$G(J
$@Ej9F$7$F2<$5$$!#<!2s$NG[I[$+$i$O%F!<%W$K$bF~$l$^$9!#(J

$@$=$&$$$&%"%W%j%1!<%7%g%s%W%m%0%i%`$,C_@Q$7$F$$$1$P!"(J
$@7k6I3'$,9,$;$K$J$l$k$H;W$$$^$9!#(JX11$@$NMM$K!"(J

/usr/share/src/eus/etl/...
/usr/share/src/eus/contrib/..

$@$H$$$&9=@.$K$J$kF|$,Mh$k$HNI$$$G$9$M!#(J


--
$@$R!#$R$k$+$o!w9TF0CNG=8&5f<<!#EEAm8&(J




