From matsui@etl.go.jp Wed Apr 17 16:49:54 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA15723; Wed, 17 Apr 91 16:49:52 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA24720; Wed, 17 Apr 91 16:52:05 JST
Received: by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA15715; Wed, 17 Apr 91 16:48:40 JST
Date: Wed, 17 Apr 91 16:48:40 JST
From: matsui@etl.go.jp (MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9104170748.AA15715@etlmmd.etl.go.jp>
To: wakita@etl.go.jp
Subject: Re:  question for interactive programming
Cc: euslisp@etl.go.jp
Status: R

>eus$B$N%$%s%?%W%j%?$NCf$G%W%m%0%i%`$r%m!<%I$7$?8e$G!"%f!<%6$,Dj5A$7$?A4$F$N(J
>$B%/%i%9$H$=$N>e2<4X78!"(J

class-hierarchy$B$H$$$&4X?t$,$"$j$^$9!#(J(class-hierarchy coordinates) $B$H(J
$B$9$l$P!"(Jcoordinates $B$N%5%V%/%i%9$,3,AXE*$K%W%j%s%H$5$l$^$9!#(J

> $B$9$G$K@8@.$5$l$F$$$k%*%V%8%'%/%H$NFbMF!"(J

describe$B$9$k$N$G$O$J$$$+$J!#(Jinspect$B$G$b$$$$$1$I!#(J

> $B%/%i%9Cf$GDj5A$5$l$?%a%=%C%I!"(J

(send $B%/%i%9(J :methods)$B$G(J $B%/%i%9$KDj5A$5$l$?A4%a%=%C%I$N%j%9%H$,F@$i$l$^$9!#(J
(methods) $B$H$9$l$P$9$Y$F$N%a%=%C%I!"(J(methods "line")$B$H$9$l$P!"(J"line"$B$r(J
$B%a%=%C%IL>$N0lIt$K4^$`A4%a%=%C%I$H$=$l$,Dj5A$5$l$F$$$k%/%i%9$N%j%9%H$,(J
$BF@$i$l$^$9!#(J

> $B4X?t$J$I$r!"%$%s%?%W%j%?$NCf$+$i%$%s%?%i%/%F%#%V$K?o;~(J
>$B<h$j=P$9$K$O$I$&$7$?$iNI$$$G$7$g$&$+!#(J

(functions) $B$OA44X?t$N%j%9%H!"(J(functions "print")$B$O(J,"print"$B$r(J
$BL>A0(J($B%7%s%\%k(J)$B$K4^$`A44X?t$N%j%9%H!"(J
(functions "print" (fing-package "WAKITA")) $B$O(JWAKITA$B%Q%C%1!<%8$K(J
$BDj5A$5$l$?(Jprint$B$r4^$`A44X?t$N%j%9%H!#(J
$BF1MM$K!"(Jvariables, constants$B$,$"$j$^$9!#(J
$B%^%K%e%"%k$N(J63$B%Z!<%8!"(Jdebugging aids$B$K4JC1$K@bL@$7$F$"$j$^$9!#(J

>$B%G%P%C%0$J$I$N$?$a$K!"%W%m%0%i%`$r%9%F%C%W<B9T$9$k$K$O$I$&$7$?$i(J
>$BNI$$$G$7$g$&$+!#(J

(step (fib 5)) $B$J$I$H$7$^$9!#%3%s%Q%$%k$7$F$"$k$H$@$a$+$b$7$l$J$$!#(J
s$B$G<!$N%9%F%C%W$r<B9T$7$^$9!#(J

$B$3$s$J$b$N!";d$O;H$$$^$;$s(J($B$G$-$,0-$$$@$1$+(J)$B!#(J

>$B%^%K%e%"%k$N2?%Z!<%8$K>h$C$F$$$k$H$$$&$3$H$b$*65$(2<$5$$!#(J
>$B:#<j85$K$O(J Sep-'$B#9#0(J $B$NHG$,$"$j$^$9!#(J
>
>$B#O(J~$B#O(J   $BOFEDM%?N!wEEAm8&(J
>   '     wakita@etl.go.jp
>  $B!0(J    $B!V$3$s$J$+$s$8$G$h$m$7$$$G$7$g$&$+!#!W(J

$B$3$s$J4X?t$O$J$$$H;W$C$F$?$G$7$g!#(J
$B$:$C$H1#$7$F$?$+$i!#(J
$BOFED$5$s$b2?$+=P$7$F$h!#(J


From matsui@etl.go.jp Wed Apr 17 16:53:25 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA15740; Wed, 17 Apr 91 16:53:23 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA24901; Wed, 17 Apr 91 16:56:17 JST
Received: by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA15734; Wed, 17 Apr 91 16:52:52 JST
Date: Wed, 17 Apr 91 16:52:52 JST
From: matsui@etl.go.jp (MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9104170752.AA15734@etlmmd.etl.go.jp>
To: wakita@etl.go.jp
Subject: Re: Returned mail: Service unavailable
Cc: euslisp@etl.go.jp
Status: R

>$B%a!<%j%s%0%j%9%H$K$*<j;f$r=P$7$?$i$3$&$$$&%(%i!<$N%j%?!<%s$,5"$C$FMh$^$7$?!#(J
>$B%a!<%j%s%0%j%9%H$N4IM}<T$K$b$$$C$F$k$H;W$$$^$9$,!J<B$o%a!<%j%s%0%j%9%H$N(J
>$B;EAH$_$rNI$/CN$i$J$$!K!"0l1~$*EA$($7$F$*$-$^$9!#(J
>
>In message <9104170708.AB23272@etlpost.etl.go.jp> on 04/17/91
>you Mail Delivery Subsystem <MAILER-DAEMON@etl.go.jp> wrote:
> |   ----- Transcript of session follows -----
> |>>> RCPT To:<kimura@kangaroo.me.tohoku.ac.jp>
> |<<< 554 <kimura@kangaroo.me.tohoku.ac.jp>... Never heard of domain kangaroo in domain me . tohoku . ac . jp
> |554 <kimura@kangaroo.me.tohoku.ac.jp>... Service unavailable
> |   ----- Unsent message follows -----
>       $B8e$OKM$,=P$7$?E[(J

mailing-list$B$O!"$=$3$KAw$k$HEPO?$7$F$"$k%f!<%6A40w$K0l@FF1Js$5$l$k(J
$B$7$/$_$G$9!#(Jeuslisp@etl$B$K$O(J3$B!"(J40$B?M$[$IEPO?$5$l$F$$$^$9!#(J

$B$3$&$$$&%(%i!<%a%$%k$,JV$C$FMh$k$N$O!"(Jkumura$B$5$s$N%a%$%k%"%I%l%9$,(J
$BJQ$o$C$?$?$a$G$9!#JQ99$NO"Mm$,$J$1$l$P!"$$$:$l:o=|$7$^$9!#(J





From matsui@etl.go.jp Wed Apr 17 21:11:43 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA15950; Wed, 17 Apr 91 21:11:41 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA07919; Wed, 17 Apr 91 21:14:38 JST
Received: by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA15947; Wed, 17 Apr 91 21:11:14 JST
Date: Wed, 17 Apr 91 21:11:14 JST
From: matsui@etl.go.jp (MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9104171211.AA15947@etlmmd.etl.go.jp>
To: terasaki@marr.tsukuba.sanyo.co.jp
Subject: Re:  question for interactive programming
Cc: euslisp@etl.go.jp
Status: R

>From terasaki@marr.tsukuba.sanyo.co.jp Wed Apr 17 19:54:13 1991
>Mat> $B$3$s$J4X?t$O$J$$$H;W$C$F$?$G$7$g!#(J
>Mat> $B$:$C$H1#$7$F$?$+$i!#(J

>$B$&$s!"$3$&$$$&>pJs$O$&$l$7$$$G$9$M!#(J
>$BOFED$5$s!"$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(J

$B$G$O!"$b$&>/$7B3$-$r!#(J

(method-list &optional (file t) &rest classes)
$BNc$($P!"(J(method-list t body) $B$G(Jbody$B$N%a%=%C%I$,$o$+$j$^$9!#(J
(method-list)$B$H$9$k$H!"A4%a%=%C%I$,%/%i%9L>$H6&$K=P$^$9!#(J
$BD92a$.$F:$$k;~$O!"(J(more (method-list))$B$H$7$^$9!#(Jmore$B$OI8=`=PNO$K(J
$B%W%j%s%H$5$l$kJ*$r%Z!<%8Kh$K8+$;$F$/$l$k%^%/%m$G!"(Junix$B$N%3%^%s%I$G$O(J
$B$"$j$^$;$s!#(J
(pprint (send body :all-method-names)) $B$O!"(Jbody$B$+$i(Jobject$B$K;j$k(J
$B%/%i%9$GDj5A$5$l$?%a%=%C%I$r%W%j%s%H$7$^$9!#%a%=%C%IL>$N(Joverload$B$r(J
$BD4$Y$?$j$9$k$N$K;H$($^$9$J!#(J

$B$7$g$&$b$J$$4X?t$G!"(J(check-methods) $B$J$s$F$N$b$"$j$^$9!#(J

$B%W%m%;%9$N>pJs$O!"(J(rusage)$B$G=P$^$9!#(J

(bell 5) $B$H$+!#(J

(yes-or-no-p "anata ha aho?") $B$H$$$&$N$OCN$C$F$k(J? (y-or-n-p)$B$b$"$j$^$9!#(J
$B$3$l$O(JCommon Lisp$B$N;EMM!#(J

>                                 $B;{:j(J  $BH%!wC^GH8&5f=j!%;0MNEE5!(J
>                                  terasaki@tsukuba.sanyo.co.jp
>
>P.S. vision $B$O!"$b$&>/$7BT$C$F$M!#(J

$B$O$$!#(J


From terasaki@marr.tsukuba.sanyo.co.jp Thu Apr 18 13:22:44 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA16556; Thu, 18 Apr 91 13:22:42 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA21223; Thu, 18 Apr 91 13:25:39 JST
Received: by etlcv3.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA15370; Thu, 18 Apr 91 13:26:04 JST
Received: by tacho.tsukuba.sanyo.co.jp (5.57/6.4J.5-tkb2) id AA12998; Thu, 18 Apr 91 13:00:44 +0900
Received: from marr.tsukuba.sanyo.co.jp by terra.tsukuba.sanyo.co.jp (4.0/6.4J.5-tkb2) id AA23290; Thu, 18 Apr 91 12:58:49 JST
Received: by marr.tsukuba.sanyo.co.jp (4.0/6.4J.5-tkb1) id AA13996; Thu, 18 Apr 91 12:58:44 JST
Date: Thu, 18 Apr 91 12:58:44 JST
From: terasaki@marr.tsukuba.sanyo.co.jp (Hajime Terasaki)
Return-Path: <terasaki@marr.tsukuba.sanyo.co.jp>
Message-Id: <9104180358.AA13996@marr.tsukuba.sanyo.co.jp>
To: matsui@etl.go.jp
Cc: euslisp@etl.go.jp
In-Reply-To: MATSUI's message of Wed, 17 Apr 91 21:11:14 JST <9104171211.AA15947@etlmmd.etl.go.jp>
Subject:  question for interactive programming
Status: R

$@;{:j!w;0MNEE5!$G$9!#(J

>>>>> On Wed, 17 Apr 91 21:11:14 JST, matsui@etl.go.jp (MATSUI) said:
Mat> $@$G$O!"$b$&>/$7B3$-$r!#(J

$@$o$/$o$/!#(J

Mat> $@Nc$($P!"(J(method-list t body) $@$G(Jbody$@$N%a%=%C%I$,$o$+$j$^$9!#(J
Mat> $@D92a$.$F:$$k;~$O!"(J(more (method-list))$@$H$7$^$9!#(Jmore$@$OI8=`=PNO$K(J
Mat> (pprint (send body :all-method-names)) $@$O!"(Jbody$@$+$i(Jobject$@$K;j$k(J
Mat> $@$7$g$&$b$J$$4X?t$G!"(J(check-methods) $@$J$s$F$N$b$"$j$^$9!#(J
Mat> $@%W%m%;%9$N>pJs$O!"(J(rusage)$@$G=P$^$9!#(J

$@A4ItCN$i$J$+$C$?!#>p$1$J$$!*(J;-<

Mat> (bell 5) $@$H$+!#(J

$@$2$2!"$3$l$b$"$C$?$s$G$9$+!):#$^$G!"(J
(unix:system "xbells 5")
$@$G!"$d$C$F$^$7$?!#(J

Mat> (yes-or-no-p "anata ha aho?") $@$H$$$&$N$OCN$C$F$k(J? (y-or-n-p)$@$b$"$j$^$9!#(J
Mat> $@$3$l$O(JCommon Lisp$@$N;EMM!#(J

$@$3$l$b!"CN$i$J$+$C$?!#(J
$@JXMx$J5!G=$rCN$l$FNI$+$C$?!*!*!*(J

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

From suzuki@graco.c.u-tokyo.ac.jp Thu Apr 18 14:05:57 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA16649; Thu, 18 Apr 91 14:05:56 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA23507; Thu, 18 Apr 91 14:09:18 JST
Received: from spook.graco.c.u-tokyo.ac.jp by etlpost.etl.go.jp (5.65+1.4W/2.7W)
	id AA27454; Thu, 18 Apr 91 14:07:26 JST
Received: from shari.graco.c.u-tokyo.ac.jp by spook.graco.c.u-tokyo.ac.jp (5.61+++/2.7W-utc1.7graco)
	id AA07101; Thu, 18 Apr 91 14:10:03 +0900
Received: by shari.graco.c.u-tokyo.ac.jp (4.0/6.4J.6-graco-slave-1)
	id AA04089; Thu, 18 Apr 91 14:09:17 JST
Date: Thu, 18 Apr 91 14:09:17 JST
From: suzuki@graco.c.u-tokyo.ac.jp (SUZUKI hiromasa)
Return-Path: <suzuki@graco.c.u-tokyo.ac.jp>
Message-Id: <9104180509.AA04089@shari.graco.c.u-tokyo.ac.jp>
To: matsui@etl.go.jp
In-Reply-To: MATSUI's message of Thu, 18 Apr 91 13:45:22 JST <9104180445.AA16597@etlmmd.etl.go.jp>
Subject:  eus.tar.Z
Status: R


$@>>0f$5$s(J

   >>$@?7$7$$$N$r:n$C$F$*$-$^$7$?!#(J

$@$"$j$,$H$&$4$6$$$^$7$?!#(J

   >>>	$@NkLZ9(@5(J                                                  $@!w#m!A(J
   >>
   >>$@$R$g$C$H$7$F!">pJs=hM}$N%0%i%U%#%/%9$H(JCAD$@8&5f2q$NO"Mm0Q0w$r$J$5$C$F$k(J
   >>$@$N$G$O$"$j$^$;$s$+(J?

$@$R$g$C$H$7$^$7$?!#$o$?$7$b$=$s$J5$$,$7$?$N$G$9$,!"$"$N8&5f2q$O:G6a(JCG$@$d(J
$@2hA|=hM}4X78$NJ}$,B?$$$N$G!"$b$7$+$7$?$i0c$&$s$8$c$J$$$+$H;W$C$F$$$?$N(J
$@$G$9!#(J

$@$4$"$$$5$D$,CY$l$^$7$?$,!":#8e$H$b$h$m$7$/$*4j$$$7$^$9!#(J

$@;d$O9)3XIt@:L)$NLZB<8&$H0l=o$K8&5f$7$F$$$^$9!#$b$H$b$H4v2?%b%G%j%s%0$d(J
$@$=$N(JCAD$@$X$N1~MQ$J$s$+$d$C$F$$$^$9!#FC$K4v2?@)Ls$K4X$7$F$O6=L#$r;}$C$F(J
$@$$$F!"@_7W$NN)>l$+$i9M$($F$$$^$9!#(J

$@$=$NCf$G$b:G6a4v2?8x:9(J($@ItIJ7A>u$N2C9)8m:9$J$I$N5vMFHO0O(J)$@$NLdBj$r3X@8$,(J
$@8&5f$7$F$$$F!"N)BN%b%G%k$,8m:9$r$b$C$?;~$N(J($@LL$,%N%_%J%k$J0LCV$+$i>/$7(J
$@$@$1$:$l$k$3$H(J)$@@\?(>uBV$r7W;;$7$h$&$H$7$F$$$^$9!#>>0f$5$s$bO"L>$NHfN1(J
$@@n$5$s$N%m%\%C%H3X2q$J$s$+$NO@J8$rFI$^$;$F$$$?$@$-!"O@J8$NFbMF$H$H$b$K(J
euslisp$@$K6=L#$r;}$A$^$7$?!#(J
 #euslisp$@$K$D$$$F$O!"0JA00pMU@h@8$+$i$A$g$C$H$@$1J9$$$F$$$^$7$?!#(J

$@8&5f$G$O<g$K(JLisp$@$r;H$C$F$$$k$N$G$9$,!"(JLisp$@$N>e$NNI$$%b%G%i!<$,$J$/!";d(J
$@$b(JGEOMAP$@$N%5%V%;%C%H$r(JFlavor$@$G:n$C$?$j!"$$$m$$$m$H6lO+$7$F$-$^$7$?!#:#(J
$@$O(JC$@$G=q$+$l$?%=%j%C%I%b%G%i!<$r(JLisp$@$+$iFI$s$@$j!"(JSymbolics$@$N(JS Geometry
$@$H$$$&%b%G%i!<$r;H$C$?$j!"%"%I%[%C%/$K:n$C$?$j$7$F$$$^$9!#(J

euslisp$@$b;nMQ$5$;$F$$$?$@$-$^$9!#(Jmake$@$G$-$^$7$?$i!"EPO?$$$?$7$^$9!#(J

	$@NkLZ9(@5(J                                                  $@!w#m!A(J
	----------------------------------------------------------------
	Hiromasa Suzuki		Internet: suzuki@graco.c.u-tokyo.ac.jp
	$@El5~Bg3X65M\3XIt>pJs!&?^7A2J3X65<<(J
	$@EEOC(J 03-3467-1171 $@Fb@~(J 226 $@N1<iHV(J 03-3467-6367 FAX 03-3465-2896
	----------------------------------------------------------------

From Yutaka.Ohsawa@IUS3.IUS.CS.CMU.EDU Fri Apr 19 01:55:35 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA23461; Fri, 19 Apr 91 01:55:34 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA10353; Fri, 19 Apr 91 01:58:55 JST
Received: from IUS3.IUS.CS.CMU.EDU by etlpost.etl.go.jp (5.65+1.4W/2.7W)
	id AA29426; Fri, 19 Apr 91 01:57:05 JST
Return-Path: <Yutaka.Ohsawa@IUS3.IUS.CS.CMU.EDU>
Message-Id: <9104181657.AA29426@etlpost.etl.go.jp>
From: Yutaka Ohsawa <ohsawa@IUS3.IUS.CS.CMU.EDU>
Date: Thu, 18 Apr 91 12:59:41 EDT
To: matsui@etl.go.jp
In-Reply-To: MATSUI's message of Thu, 18 Apr 91 14:13:59 JST <9104180513.AA16676@etlmmd.etl.go.jp>
Subject:  About EusLisp
Status: R

$@>>0f$5$s!"AaB.$N$4JV;v$"$j$,$H$&$4$6$$$^$7$?!#(J
$@F|K\$K5"$j$^$7$F$+$i(JFTP$@$GD:$-!";H$o$;$F$$$?$@$-$^$9!#(J
LICENCE $@$N7o$b!"$=$N$H$-I,$:$*Aw$j$$$?$7$^$9!#(J

   >>VANTAGE$@$N;H$$?4CO$O$I$&$G$9$+(J?

$@%S%8%g%sL\E*$G;HMQ$9$k$K$OBgJQ;H$$$,$C$F$NNI$$%7%9%F%`$G$9!#(J
$@$?$@<+M36JLLEy$O%5%]!<%H$7$F$$$J$$$N$G!"$3$NItJ,$O<+J,$G3HD%(J
$@$7$F;H$C$F$$$^$9!#$^$??.Mj$G$-$k(JLISP$@$N=hM}7O$,JLESI,MW$G$9!#(J

   >>$@$O$$!"(J8$@7n$+$i(J10$@7n$N4V$K(JStanford$@$KEO$j!"0lG/BZ:_$9$kM=Dj$G$$$^$9!#(J

$@;d$O#1#07n$^$G#C#M#U$KBZ:_$7$F$*$j$^$9!#$=$N4V$K%T%C%D%P!<%0$K(J
$@$*1[$7$N@a$O$<$R$4O"Mm$/$@$5$$!#(J
--
Yutaka Ohsawa @CMU

From kimura@nakano.mech.tohoku.ac.jp Fri Apr 19 06:05:10 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA23493; Fri, 19 Apr 91 06:05:09 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA15166; Fri, 19 Apr 91 06:08:33 JST
Received: from koudai.cs.titech.ac.jp by etlpost.etl.go.jp (5.65+1.4W/2.7W)
	id AA29725; Fri, 19 Apr 91 06:06:45 JST
Received: by koudai.cs.titech.ac.jp (1.5W/koudai); Fri, 19 Apr 91 05:33:46 JST
Received: from mechinfo.me.tohoku.ac.jp by hirose.gw.tohoku.ac.jp (4.1/6.4J.6-Apr10)
	id AA21459; Thu, 18 Apr 91 23:03:53 JST
Received: from opossum.nakano.mech.tohoku.ac.jp by mechinfo.me.tohoku.ac.jp (4.0/6.4J.6) id AA19105; Thu, 18 Apr 91 23:02:55 JST
Received: by opossum.nakano.mech.tohoku.ac.jp (4.1/6.4J.6) id AA24235; Thu, 18 Apr 91 23:01:11 JST
Date: Thu, 18 Apr 91 23:01:11 JST
From: kimura@nakano.mech.tohoku.ac.jp (Hiroshi Kimura)
Return-Path: <kimura@nakano.mech.tohoku.ac.jp>
Message-Id: <9104181401.AA24235@opossum.nakano.mech.tohoku.ac.jp>
To: inaba@jsk.t.u-tokyo.ac.jp
Cc: matsui@etl.go.jp
In-Reply-To: Masayuki Inaba's message of Thu, 18 Apr 91 10:20:25 JST <9104180120.AA00975@grus.jsk.t.u-tokyo.ac.jp>
Subject: Returned mail: Service unavailable
Status: R

   >>	>>$@$3$&$$$&%(%i!<%a%$%k$,JV$C$FMh$k$N$O!"(Jkumura$@$5$s$N%a%$%k%"%I%l%9$,(J
   >>	>>$@JQ$o$C$?$?$a$G$9!#JQ99$NO"Mm$,$J$1$l$P!"$$$:$l:o=|$7$^$9!#(J
   >>	>>
   >>
   >>alias kimura kimura@nakano.me.tohoku.ac.jp
$@8fLBOG$r$*$+$1$7$F:Q$_$^$;$s!#(J4$@7n$KElKLBg$N5!3#7O;03X2J$,(J

	$@5!3#CNG=9)3X2J!"5!3#EE;R9)3X2J!"5!3#9R6u9)3X2J(J

$@$H$$$&$h$&$K2~AH$K$J$C$?$N$r5!2q$K!"%I%a%$%sL>$rJQ99$7$F$$$k2aDx$G!"%((J
$@%i!<$,@8$8$?$h$&$G$9!#(J

$@$3$l$+$i$O!"(J

	kimura@nakano.mech.tohoku.ac.jp

$@$H$J$j$^$9!#JQ99$7$FD:$1$l$P9,$$$G$9!#$7$+$7!"$^$@@5<0$G$O$J$$$N$G!"Fb(J
$@;3@h@8$K(Jmech$@%I%a%$%s$GAw$k$H%(%i!<$,@8$8$^$9!#(J

   >>
   >>$@@hF|!"%m%\%C%H%7%s%]%8%&%`$K;22C$5$l$k(JRoth$@65<x$N$3$H$G(Jkangaroo$@08$K(J
   >>$@Aw$C$?$i$P5"$C$F$-$?$N$G!"$3$l$GBg>fIW$G$O$J$$$+$H!#(J
$@Fb;3@h@8$+$i$NJV;v$OFO$-$^$7$?$+!#(J

>Roth $@@h@8$NFCJL9V1i$O#57n#9F|$N(J 13:00-14:40 $@$H$J$C$F$^$9!%$=$NF|(J 
>17:30-19:30 $@$NM=Dj$G3X2q$N:)?F2q$r4k2h$7$F$^$9$N$G!$$G$-$?$i(J Roth $@@h@8(J
>$@$r>7BT$7$?$$$N$G$9$,!$$b$&0lGq$G$-$^$;$s$G$7$g$&$+!%(JRoth $@@h@8$NM=Dj$,(J
>$@87$7$$$h$&$G$7$?$i!$L5M}$K$*0z$-N1$a$O$$$?$7$^$;$s$,!%!%!%$^$?!$#8F|$N(J
>$@8&5f<<8+3X$O$b$A$m$sBg4?7^$G$9!%(J

   >>$@$M!"LZB<7/!#?7:'@83h$O$$$+$,$G$9$+!#(J
$@C1?HIkG$$OHa$7$$$b$N$,$"$j$^$9!#(J:-<
------
$@LZB<(J $@9@(J  $@ElKLBg3X9)3XIt5!3#CNG=9)3X2J(J $@CfLn8&(J
JUNET:kimura@nakano.mech.tohoku.ac.jp  TEL:(022)222-1800 (ext.4151)
                                       FAX:(022)267-4403


From matsui@etl.go.jp Fri Apr 19 16:21:46 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA24554; Fri, 19 Apr 91 16:21:44 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA00744; Fri, 19 Apr 91 16:24:52 JST
Received: by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA24551; Fri, 19 Apr 91 16:21:20 JST
Date: Fri, 19 Apr 91 16:21:20 JST
From: matsui@etl.go.jp (MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9104190721.AA24551@etlmmd.etl.go.jp>
To: wakita@etl.go.jp
Subject: Re:  function output to file
Cc: euslisp@etl.go.jp
Status: R

>From wakita@etl.go.jp Fri Apr 19 16:16:35 1991
>eus$B$N%$%s%?%W%j%?$NCf$G!"4X?t$r<B9T$7$?=PNO7k2L$r!"%U%!%$%k$r$R$H$D(J
>$B%*!<%W%s$7$F$=$NCf$KN.$79~$s$G$d$k$K$O$I$&$7$?$iNI$$$G$7$g$&$+!#(J
>csh$B$N(Jredirect (>) $B$_$?$$$J$b$N$r9M$($F$$$k$s$G$9$,!#(J

$BBg0hJQ?t(J *standard-output* $B$K=PNO%9%H%j!<%`$r%P%$%s%I$7$F$d$k$+(J
(*standard-output* $B$O!"(Jspecial $BJQ?t$G$9!#(Jlet$B$r;H$C$F%P%$%s%I$7$F$d$l$P(J
let$B$+$i=P$?8e$b$H$KLa$j$^$9(J)$B!"(Jbroadcast-stream$B$r;H$&$s$@$M!#(J



From matsui@etl.go.jp Mon Apr 22 14:12:56 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA25874; Mon, 22 Apr 91 14:12:53 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA26049; Mon, 22 Apr 91 14:15:19 JST
Received: by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA25860; Mon, 22 Apr 91 14:11:34 JST
Date: Mon, 22 Apr 91 14:11:34 JST
From: matsui@etl.go.jp (MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9104220511.AA25860@etlmmd.etl.go.jp>
To: suzuki@graco.c.u-tokyo.ac.jp
Subject: Re:  EusLisp installed.
Cc: euslisp@etl.go.jp
Status: R

>From suzuki@graco.c.u-tokyo.ac.jp Sat Apr 20 14:03:21 1991

>make$B$9$k:]$K5$$,$D$$$?$3$H$r$$$/$D$+2<$K$*CN$i$;$7$^$9!#(J

>$B$=$l$+$i!"(Jeusxview$B$b$D$/$j!"(Jeus/xview/demo$B$N%U%!%$%k$r%m!<%I$7$F8+$?$N(J
>$B$G$9$,!"F0:n$,:#0l$D0BDj$7$^$;$s!#4D6-$O(JSS1, 24MB, OS4.0.3 X11R4, twm
>$B$r;H$C$F$$$^$9!#2?$+%5%8%'%9%A%g%s$,$"$C$?$i65$($F2<$5$$!#(J

demo$B%W%m%0%i%`$,$I$NDxEY@5$7$/F0$/$+!"J]>Z$N8B$j$G$O$"$j$^$;$s!#(J
$BFC$K(Jxview$B$N%W%m%0%i%`$O!"0pMU$5$s$N4IM}2<$K$"$j!";d$K$b$h$/$o$+$j$^$;$s!#(J
$B$?$@!";d$b(Jxview$B$r;H$C$F$$$^$9$,!":G=i$N%&%#%s%I%&$rI=<($9$k$N$K(J
$B6u$N%K%e!<%i%$%s$rBG$A9~$`I,MW$,$"$kB>!"K~B-$7$F$$$^$9!#(J
$BNkLZ$5$s$H$O!"(Jcpu$B$,(Jsun4/330,os$B$,(J4.1.1$B$G(Jopenwin$B$r;H$C$F$$$kE@$,0c$$$^$9!#(J

>$B$^$?(Jdoc$B$N2<$K$$$m$$$m$J%I%-%e%a%s%H$,F~$C$F$$$^$9$,!"%G%#%9%/ITB-$N$?(J
>$B$a!"%O!<%I%3%T!<$r<h$C$F%U%!%$%k$r>C5n$7$?$$$H9M$($F$$$^$9!#<h$j9g$($:(J
>doc/latex$B$H(Jdoc/jlatex$B$O%W%j%s%H%"%&%H$7$?$N$G$9$,!"!"!"(J

$B$3$NFs$D$,<g$J%I%-%e%a%s%H$G$9!#$"$H!"(Jmails$B$N2<$K$O!":#$^$G$N(Jeuslisp
$B%a%$%j%s%0%j%9%H$GOCBj$K$J$C$?$3$H$,F~$l$i$l$F$$$^$9!#Lr$KN)$D>pJs$b(J
$B$"$k$+$H;W$$$^$9!#(J

>$B$J$k$Y$/$*<j?t$r$+$1$J$$$h$&$K$$$?$7$^$9$,!":#8e$H$b$h$m$7$/$*4j$$?=$7(J
>$B>e$2$^$9!#(J
>	$BNkLZ9(@5(J                                                  $B!w#m!A(J
>	----------------------------------------------------------------
>	Hiromasa Suzuki		Internet: suzuki@graco.c.u-tokyo.ac.jp
>	$BEl5~Bg3X65M\3XIt>pJs!&?^7A2J3X65<<(J
>	$BEEOC(J 03-3467-1171 $BFb@~(J 226 $BN1<iHV(J 03-3467-6367 FAX 03-3465-2896
>	----------------------------------------------------------------

$B$3$A$i$3$=!"AaB.%l%]!<%H$rD:$-$"$j$,$H$&$4$6$$$^$9!#(J
$B%a%$%j%s%0%j%9%H$K2C$($5$;$FD:$-$^$7$?!#(J

>-----------------------------------------------------------------------
>$B!|(JREADME$B%U%!%$%k(J
>$B!{(JSRCDIR
>% cd /usr/share/src; mkdir eus ; setenv $SRCDIR $PWD
>$B$3$l$O!"$b$7$+$7$F(J
>% cd /usr/share/src; mkdir eus ; cd eus; setenv  SRCDIR $PWD
>                                 ^^^^^^^        ^
>$B$G$O$J$$$G$7$g$&$+!#(J
>
>$B!{(Jlndir
>% mkdir /usr/local/eus
>% /usr/share/src/eus/lndir /usr/share/src/eus /usr/local/eus 
>$B$3$l$O!"(J
>% /usr/share/src/eus/tool/lndir /usr/share/src/eus /usr/local/eus 

$B$4;XE&$NDL$j$G$9!#D>$7$F$*$-$^$9!#(J

>$B!{(JSunOs 4.0/ X11R4
>;********************* I M P O R T A N T *************************
>$B$N$H$3$m$N5-=R$G$O!"(JSunOS 4.0.3$B$H(JR3$B$rA[Dj$7$F$$$^$9$,!"(Jmakefile$B$r(J
>$B$_$k$H(JSunOS 4.1$B$H(JR4$B$KBP$9$k$b$N$K$J$C$F$$$^$9!#(J

$B$O$$!"(Jreadme$B$r=q$$$?;~E@$G$O$^$@(JR3$B$@$C$?$N$G$9$,!":#$O(JR4$B$K$J$C$F$^$9!#(J
$B%$%s%?%U%'!<%9$9$k>e$G$O!"N><T$N8_49@-$O$h$/$H$l$F$$$F!"LdBj$J$$$H(J
$B;W$$$^$9!#(J

>
>$B!|(Jmakefile
>$B!{(Jrm -f
>$(BINDIR)/inteus:	$(BINDIR)/raweus $(CLIBDIR)/sysfunc.o
>	(mkinteus; rm $(BINDIR)/euscomp ; ln -s inteus $(BINDIR)/euscomp)
>                   ^^^
>                   rm -f 
>$B!{(Jmake all
>all:
>	(make raweus; make inteus ; make commoneus; make eus)
>README$B$H@09g$9$k$K$O!"(J
>all:
>	(make raweus; make inteus ; make commoneus; make eus; make eusx; make install)

$B$=$&$G$9$M!#$"$j$,$H$&$4$6$$$^$9!#(J


From terasaki@marr.tsukuba.sanyo.co.jp Tue Apr 23 14:20:16 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA28250; Tue, 23 Apr 91 14:20:15 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA29273; Tue, 23 Apr 91 14:23:59 JST
Received: by etlcv3.etl.go.jp (4.0/6.4J.6-ETL.SLAVE)
	id AA17980; Tue, 23 Apr 91 14:24:29 JST
Received: by tacho.tsukuba.sanyo.co.jp (5.57/6.4J.5-tkb2) id AA14967; Tue, 23 Apr 91 13:41:40 +0900
Received: from marr.tsukuba.sanyo.co.jp by terra.tsukuba.sanyo.co.jp (4.0/6.4J.5-tkb2) id AA16467; Tue, 23 Apr 91 13:39:33 JST
Received: by marr.tsukuba.sanyo.co.jp (4.0/6.4J.5-tkb1) id AA17990; Tue, 23 Apr 91 13:39:33 JST
Date: Tue, 23 Apr 91 13:39:33 JST
From: terasaki@marr.tsukuba.sanyo.co.jp (Hajime Terasaki)
Return-Path: <terasaki@marr.tsukuba.sanyo.co.jp>
Message-Id: <9104230439.AA17990@marr.tsukuba.sanyo.co.jp>
To: matsui@etl.go.jp
In-Reply-To: MATSUI's message of Tue, 23 Apr 91 08:55:05 JST <9104222355.AA27128@etlmmd.etl.go.jp>
Subject:  vision step2
Status: R

$@;{:j$G$9!#(J

>>>>> On Tue, 23 Apr 91 08:55:05 JST, matsui@etl.go.jp (MATSUI) said:
Mat> $@$$$D$^$G!"$H$$$&$3$H$O$J$$$N$G$9!#I,MW$,$J$$$N$G$7$?$i(J
Mat> $@$d$k$^$G$b$J$$$3$H$G$9$7!#(J

$@$=$NJU$j$,!"$^$@!"6qBNE*$K%"%$%G%"$,$J$$$N$G!"!"!"(J
$@!V$d$C$F$_$l$P!"2?$+;W$$$D$/$+$J!W$H;W$C$F$$$k$N$G$9!#(J
$@$3$A$i$G$O!"%9%F%l%*$^$G$9$Y$F$d$l$P!"(J
$@$$$m$$$mLLGr$$$3$H$,<+M3$K=PMh$k$h$&$K$J$j$^$9$N$G!"(J
$@$$$:$l$O!"%9%F%l%*$^$G!"$d$j$?$$$N$G$9$,!"(J
$@M%@hEY$H8@$&0UL#$G$O!"$^$@!"$=$3$^$G$$$+$J$$!#(J
$@B>$K$d$k$3$H$,$"$k$N$G$9!#$H$$$&$h$j!":#%Q%K%C%/>uBV!*!*!*(J
$@$G$b!"$=$m$=$m!"9M$($J$/$F$O$$$1$J$$$N$G!"(J
$@$3$l$r5!2q$K!"$d$j=P$7$?$$$J!"$H$O;W$C$F$$$k$N$G$9!#(J

Mat> $@$3$N%W%m%0%i%`$O!"3+H/Ev;v<T$,%5%s%h!<$K$$$i$C$7$c$$$^$9$7!"(J
Mat> $@<B:]$K1~MQ!"<B83$r$J$5$C$F$$$k$N$G!";d$h$jB.$/40@.$9$k$N$G$O!"(J
Mat> $@$H;W$C$F$$$^$7$?$,!"(J

$@$=$&$J$s$G$9$+!)(J
$@$J$k$[$I!#<B:]$N:n6H$r$^$@M}2r$7$F$$$J$$$N$G2?$H$b8@$($^$;$s!#(J
$@$G$b!"$+$J$j$NNL$r=q$-D>$9$N$G$7$g$&!)(J
$@6qBNE*$K$O!"(Jc $@$G%W%m%0%i%`$9$k$N$G$9$+!)(J
$@$=$l$H$b!"(Jeuslisp $@$G%W%m%0%i%`$9$k$N$G$9$+!)(J
class $@$O!"$I$&$d$C$F:n$k$N$G$9$+!)(J
$@$=$l$C$F!"4JC1$J$s$G$9$+!)(J
$@$=$l$,!"4JC1$J$i!">>0f$5$s$N8@$&$h$&$K!"(J
$@$3$A$i$NJ}$,!"Aa$$$+$b$7$l$^$;$s!#(J

>$@?M<j$J$I=tHL$N;v>p$N$?$a$9$0$K$OL5M}$H$$$&7kO@$KC#$7$^$7$?!#(J
>$@$J$s$H$+!"2!$79~$b$&$H9M$($?$N$G$9$,!"!"!"(J

$@$3$l$O!"#1%u7n$0$i$$$+$+$k$H$$$&2>Dj$N$b$H$G$G$9!#(J

Mat> $@?7?M650i$r7s$M$F!"$H$$$&$3$H$G$"$l$P!"0l7n$G$O=*$i$J$$$+$b(J
Mat> $@$7$l$^$;$s$M!#(J

$@$=$N$H$*$j$G$9!#(J

Mat> $@$;$+$9$D$b$j$O$"$j$^$;$s!#(J
Mat> Step$@$,$"$C$F!"(JEus$@$,$"$C$F!"E}9g$G$-$l$P$$$m$$$mET9g$,NI$$$G$9$M!"(J
Mat> $@$H$$$&$3$H$G$9$+$i!#$?$@!"$b$7!"$3$A$i$G5^$K$3$l$,I,MW$K$J$l$P(J
Mat> $@>!<j$K40@.$5$;$F$7$^$&$+$b$7$l$J$$!#(J

$@$O$$!"$=$l$O!"$b$A$m$s$+$^$$$^$;$s!#(J
$@$b$A$m$s!"G[I[$7$F$$$?$@$1$k$N$G$7$g!)!J8|$+$^$7$$$G$9$M!K(J

>$@>>0f$5$s$N3$309T$-$O!"$$$D:"$+$i$G$7$?!)(J
Mat> 8$@7n$N=*$j$,$$$$$H;W$C$F$$$^$9!#(J
>$@$=$l$^$G$K!";d$,!"FbMF$rJ9$$$F$*$-$^$7$g$&!#(J
Mat> $@$$$$$G$9$h!#$"$^$j3P$($F$J$$$1$I!#(J

$@$G$O!":#EY$$$C$?;~$K$G$b!"65$($F2<$5$$!#(J
$@<!2s$O!"B?J,!"O"5YL@$1$K$J$k$H;W$$$^$9!#(J
$@%a%$%k$G$b$$$$$G$9$,!#(J

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

From inaba@jsk.t.u-tokyo.ac.jp Wed Apr 24 10:23:40 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA29483; Wed, 24 Apr 91 10:23:38 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA20514; Wed, 24 Apr 91 10:27:02 JST
Received: from mech.t.u-tokyo.ac.jp by etlpost.etl.go.jp (5.65+1.4W/2.7W)
	id AA14720; Wed, 24 Apr 91 10:25:19 JST
Received: from grus.jsk.t.u-tokyo.ac.jp by mech.t.u-tokyo.ac.jp (4.1/6.4J.6-MX)
	id AA11183; Wed, 24 Apr 91 10:26:49 JST
Received: by grus.jsk.t.u-tokyo.ac.jp (4.0/6.4J.6)
	id AA04759; Wed, 24 Apr 91 10:26:12 JST
Date: Wed, 24 Apr 91 10:26:12 JST
From: inaba@jsk.t.u-tokyo.ac.jp (Masayuki Inaba)
Return-Path: <inaba@jsk.t.u-tokyo.ac.jp>
Message-Id: <9104240126.AA04759@grus.jsk.t.u-tokyo.ac.jp>
To: matsui@etl.go.jp
Cc: suzuki@graco.c.u-tokyo.ac.jp, euslisp@etl.go.jp
In-Reply-To: MATSUI's message of Wed, 24 Apr 91 08:54:39 JST <9104232354.AA29385@etlmmd.etl.go.jp>
Subject:  EusLisp
Status: R


   >>>$@62$lF~$j$^$9$,!"(Jlecture1.tex, lecture2.tex, lecture3.tex$@$b%3%T!<$7$F2<(J
   >>>$@$5$$!#(Jlecture.tex$@$,(J\include$@$7$F$$$^$9$N$G!#(J
   >>
   >>$@8+Ev$?$j$^$;$s$M$(!#0pMU@h@8!"$I$&$7$?$s$G$7$g$&$M$(!#(J

etlport$@$NMM;R$rD/$a$F$_$^$7$?!#(J
lecture.tex$@$O9V5A;qNA$N%*%j%8%J%k$@$C$?$N$G$9!#>C$7$F$/$@$5$$!#(J

lec4.tex$@$,$=$N;qNA$r(JUserManual$@$XAH$_9~$`:]$KJXMx$J$h$&$K(J
$@MQ0U$7$?%I%-%e%a%s%H$G!";qNA$NFbMF$r$9$Y$F4^$s$G$$$^$9!#(J

lec4.tex$@$N$J$+$G(J
manual1,manual2,manual3,manual4
$@$,(Jinclude$@$5$l$F$$$^$9!#(J
manual1,manual2$@$O!"HfN1@n$5$s$i$N%f!<%6%^%K%e%"%k$=$N$^$^$G$9!#(J
$@FbMF$OEv;~$N$b$N$G$9$+$i!"8=:_$N(Jjlatex$@$N%^%K%e%"%k$HCV$-49$($k$Y$-(J
$@$b$N$G$9!#(J
manual3,manual4$@$O;d$,=q$$$?$b$N$G!"(JSunview,Xwindow$@MQ%$%s%?%U%'!<%9$N(J
$@OC$H!"(Jwindow.l$@$H$$$&%W%m%0%i%`Nc$N@bL@$G$9!#(J


$@6a$$$&$A$KFbMF$r(JUpdate$@$G$-$l$P$$$$$J$H;W$C$F$$$^$9!#(J

$@0pMU(J

From suzuki@graco.c.u-tokyo.ac.jp Wed May  8 11:21:25 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA00317; Wed, 8 May 91 11:21:09 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA03557; Wed, 8 May 91 11:25:13 JST
Received: from spook.graco.c.u-tokyo.ac.jp by etlpost.etl.go.jp (5.65+1.4W/2.7W)
	id AA17495; Wed, 8 May 91 11:23:25 JST
Received: from shari.graco.c.u-tokyo.ac.jp by spook.graco.c.u-tokyo.ac.jp (5.61+++/2.7W-utc1.7graco)
	id AA23386; Wed, 8 May 91 11:26:12 +0900
Received: by shari.graco.c.u-tokyo.ac.jp (4.0/6.4J.6-graco-slave-1)
	id AA00905; Wed, 8 May 91 11:25:21 JST
Date: Wed, 8 May 91 11:25:21 JST
From: suzuki@graco.c.u-tokyo.ac.jp (SUZUKI Hiromasa)
Return-Path: <suzuki@graco.c.u-tokyo.ac.jp>
Message-Id: <9105080225.AA00905@shari.graco.c.u-tokyo.ac.jp>
To: inaba@jsk.t.u-tokyo.ac.jp
Cc: euslisp@etl.go.jp
In-Reply-To: Masayuki Inaba's message of Mon, 6 May 91 16:12:47 JST <9105060712.AA03027@grus.jsk.t.u-tokyo.ac.jp>
Subject: EusLisp
Status: R


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

   >>Date: Mon, 6 May 91 16:12:47 JST
   >>From: inaba@jsk.t.u-tokyo.ac.jp (Masayuki Inaba)
   >>
     $@CfN,!#(J
   >>$@3($,$G$J$$$H$$$&2r7h:v$O$^$@$o$+$i$J$$$N$G$9$,!"(J
     $@CfN,!#(J
   >>Sun4/390(SunOS 4.0.3)$@$G(Jeusxview$@$rAv$i$;$F!"(Jpickview.l
   >>$@$r(JNeXT$@$G;H$C$?$H$3$m!"3($,=P$^$;$s!#(Jmenu$@$O$G$k$s$G$9$,!#(J
   >>$@>I>u$OF1$8$h$&$G$9!#(J

$@O"5Y$N:GCf$K$48!F$$$$?$@$-!"$"$j$,$H$&$4$6$$$^$9!#F1$8>I>u$,$G$FFb?4$[$C(J
$@$H$7$F$*$j$^$9!#(J

$@A0$K$b8@$C$?$h$&$K!"(JXwindow$@$N(Jxwindow-viewsurface$@$H$$$&$d$D$r;H$C$F!"(J
pickview.l$@$N%\%?%s$N$D$$$F$$$k%&%#%s%I%&$H$OJL$N%&%#%s%I%&$r3+$-!"$=$3(J
$@$KN)BN$rI=<($5$;!"(Jmouse$@$N%$%Y%s%H$r$H$C$F!"(Jpick-port$@$N%W%m%0%i%`$K(J
mouse$@$N0LCV$rEO$7$F%T%C%/$,$G$-$k$h$&$K$J$j$^$7$?!#$H$j$"$($::#$d$C$F(J
$@$_$?$$$3$H$K$O==J,$G$9!#$*A{$,$;$7$^$7$?!#(J

   >>NeXT$@$N?7$7$$$N$O(JM68040$@$r;H$C$F$$$F!"%9%T!<%I$O(JSparc1$@$/$i$$$G;H$C$F$$$F(J
   >>$@$b$$$i$$$i$7$J$/$F$9$`$H$$$&46$8$G$9!#(JM68030$@HG$O!"#3G/@8$N7W;;5!1i=,$K(J
   >>$@;H$C$F$$$^$9$,!"HsFq$,$G$F$^$9$M!#6541$+$i$b!#(J

NeXT$@$N$"$?$i$7$$$d$D$G$O!"3N$+(JACL$@$b(JMathematica$@$b%P%s%I%k$5$l$J$/$J$C$?(J
$@$s$G$7$?$h$M!#(J#$@$I$&$b>&Gd$N$7$+$?$,$:$k$$$h$&$J5$$,$9$k(J:-<

	$@NkLZ9(@5(J                                                  $@!w#m!A(J
	----------------------------------------------------------------
	Hiromasa Suzuki		Internet: suzuki@graco.c.u-tokyo.ac.jp
	$@El5~Bg3X65M\3XIt>pJs!&?^7A2J3X65<<(J
	$@EEOC(J 03-3467-1171 $@Fb@~(J 226 $@N1<iHV(J 03-3467-6367 FAX 03-3465-2896
	----------------------------------------------------------------

From tmorita@lucy.stars.flab.fujitsu.co.jp Fri May 17 16:51:56 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA15866; Fri, 17 May 91 16:51:54 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA24946; Fri, 17 May 91 16:50:58 JST
Received: from fwide.fujitsu.co.jp by etlpost.etl.go.jp (5.65+1.4W/2.7W)
	id AA21050; Fri, 17 May 91 16:49:19 JST
Received: from fgw.fujitsu.co.jp ([133.160.32.2]) by fwide.fujitsu.co.jp (4.0/2.7W-fujitsu/1.1)
	id AA21795; Fri, 17 May 91 16:54:29 JST
Received: from lucy_g by fgw.fujitsu.co.jp (5.65/6.4J.6)
	id AA25486; Fri, 17 May 91 16:56:37 +0900
Received: by lucy.stars.flab.fujitsu.co.jp (3.2/6.4J.6-luna-1.2)
	id AA01564; Fri, 17 May 91 16:53:48+0900
Date: Fri, 17 May 91 16:53:48+0900
From: tmorita@lucy.stars.flab.fujitsu.co.jp (Toshihiko Morita)
Return-Path: <tmorita@lucy.stars.flab.fujitsu.co.jp>
Message-Id: <9105170653.AA01564@lucy.stars.flab.fujitsu.co.jp>
To: euslisp@etl.go.jp
Subject: eusxview: color and double-buffer
Status: R

$@IY;NDL8&$N?9ED$G$9!#(J

eusxview$@$G%+%i!<$H%@%V%k%P%C%U%!$r;H$($k$h$&$K$7$F$_$^$7$?!#(J
$@5^$$$G:n$C$?$N$G$^$@ITHw$,B?$$$N$G$9$,!"3'$5$s$,2~NI$7$F$/$l$k$N$r(J
$@4|BT$7$FEj9F$7$^$9!#(J

$@$^$:%+%i!<$K$D$$$F$O!"(Jstatic$@$J%+%i!<%^%C%W$rMxMQ$7$F$$$^$9!#(J
dynamic$@$J$b$N$b:n$C$F$_$?$N$G$9$,!"<+J,$NDj5A$,$&$^$/H?1G$5$l$J$$$N$G(J
$@:C@^$7$^$7$?!#$G$b!"(Jdynamic$@$@$H!"%+!<%=%k$,%&%$%s%I%&$r=PF~$j$9$kEY$K(J
$@%+%i!<%^%C%W$,@Z$jBX$o$jHQ$o$7$$$N$G!"(Jstatic$@$G$$$$$d$H;W$C$F$$$^$9!#(J
static$@$J%+%i!<%^%C%W$r%;%C%H$9$k$K$O!"$"$i$+$8$a(JXView$@$N(J
colormap segment$@$r:n$C$F$*$$$F!"(Jsunview-canvas$@$r(J:init$@$9$k;~!"(J
$@$=$l$rM?$($F$d$j$^$9!#(J

$@<!$K%@%V%k%P%C%U%!$G$9$,!"(JXView$@$G$O(Jpixrect$@$,%5%]!<%H$5$l$F$$$J$$$N$G!"(J
server image object $@$r:n$kI,MW$,$"$j$^$9!#$3$l$r:n$l$P!"(J
pw_rop, pw_vector$@Ey$,;H$($k$N$G!"%@%V%k%P%C%U%!$r<B8=$G$-$^$9!#(J
$@$"$^$j9bB.$G$O$J$$$N$G$9$,!"0l1~$J$a$i$+$KF0$/$N$G!"$^$"$$$$$@$m$&$H(J
$@;W$C$F$$$^$9!#(J

$@0J2<$K!"%+%i!<$H%@%V%k%P%C%U%!$rMxMQ$9$k$?$a$NJQ992U=j$r=g$K<($7!"(J
$@:G8e$K4JC1$J%F%9%H%W%m%0%i%`$rE:IU$7$^$9!#(J
$@$J$*4D6-$O(J, SS1, SunOS 4.0.3, X11R4 $@$G$9!#$?$@$7!"(JSun4-260, SunOS 4.1 
$@$G$bF0$$$F$$$^$9!#(J
$@$^$?!"?=$7Lu$"$j$^$;$s$,!"(JXView$@$N(Jversion$@$O:G?7$N$b$N$G$O$"$j$^$;$s!#(J
$@B($A(Jversion1.X$@$G$9!#(J

                                  -----------------------------------
                                	$@IY;NDL8&5f=j(J   $@1'Ch%a%+!K#28&(J
 					$@?9ED(J $@=SI'(J
					tmorita@flab.fujitsu.co.jp


%%%%%%%%%%%%%%%% $@%+%i!<(J %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

--------------------makexviewconst.c $@$NJQ99(J--------------------------
$@"#(J makexviewconst.c $@$K0J2<$NDj5A$rIU$12C$($^$9!#(J
#include <xview/cms.h>
#include <xview/svrimage.h>

  pr_const("WIN_CMS_NAME",WIN_CMS_NAME          );
  pr_const("WIN_CMS_DATA",WIN_CMS_DATA          );
  pr_const("XV_STATIC_CMS",XV_STATIC_CMS                );
  pr_const("XV_DYNAMIC_CMS",XV_DYNAMIC_CMS              );
  pr_const("SERVER_IMAGE_DEPTH",SERVER_IMAGE_DEPTH          );
  pr_const("SERVER_IMAGE_COLORMAP",SERVER_IMAGE_COLORMAP          );

--------------------cms.l $@$N:n@.(J-----------------------------------
$@"#(J $@0J2<$N$h$&$JDj5A$r9T$J$&(J cms.l $@$H$$$&?7$7$$%U%!%$%k$r:n@.$7$^$9!#(J
$@$3$l$O(JXView$@$N%+%i!<%^%C%W$r$D$/$k$b$N$G$9!#(Jdefstruct$@$G(J
$@=q$$$F$7$^$$$^$7$?$,(J, $@$b$C$H%9%^!<%H$J=q$-J}$,$"$k$H;W$$$^$9!#(J

(defcstruct xv_cms	; definition of xv_cmsdata
  (type 	:integer)
  (size		:short)	
  (index	:short)
  (rgb_count	:short)
  (tmp		:short)	;; boundary adaptation is made automatically
  (red		:long)
  (green	:long)
  (blue		:long))

(defmethod xv_cms
  (:set-simple-colors ()
	(setf (xv_cms-red self) 
	  (string-body-address (coerce '(0 255 255 0 0 0 255 255) string)))
	(setf (xv_cms-green self) 
	  (string-body-address (coerce '(0 0 255 255 255 0 0 255) string)))
	(setf (xv_cms-blue self) 
	  (string-body-address (coerce '(0 0 0 0 255 255 255 255) string)))
	(setf (xv_cms-size self) 8)
	(setf (xv_cms-index self) 0)
	(setf (xv_cms-rgb_count self) 8))
  (:set-render-colors (&optional (len 128))
	(let 	((Rbuf (make-string len))
		 (Gbuf (make-string len))
		 (Bbuf (make-string len)))
	  (send self :store Rbuf Gbuf Bbuf 0 255 255 255)
	  (send self :store Rbuf Gbuf Bbuf 1 255   0   0)
	  (send self :store Rbuf Gbuf Bbuf 2 255 255   0)
	  (send self :store Rbuf Gbuf Bbuf 3   0 255   0)
	  (send self :store Rbuf Gbuf Bbuf 4   0 255 255)
	  (send self :store Rbuf Gbuf Bbuf 5   0   0 255)
	  (send self :store Rbuf Gbuf Bbuf 6 255   0 255)
	  (send self :store Rbuf Gbuf Bbuf 7   0   0   0)
	  (send self :store-hls-group Rbuf Gbuf Bbuf 16 16 0 0.2 0.8 0.5)  ;R
          (send self :store-hls-group Rbuf Gbuf Bbuf 32 16 45 0.3 0.7 0.6) ;Y
          (send self :store-hls-group Rbuf Gbuf Bbuf 48 16 120 0.3 0.7 0.6);G
          (send self :store-hls-group Rbuf Gbuf Bbuf 64 16 180 0.3 0.7 0.6);S
          (send self :store-hls-group Rbuf Gbuf Bbuf 80 16 240 0.3 0.7 0.6);B
          (send self :store-hls-group Rbuf Gbuf Bbuf 96 16 270 0.3 0.7 0.6);M
          (send self :store-hls-group Rbuf Gbuf Bbuf 112 16 240 0.3 0.7 0.1)
	  (setf (xv_cms-red self)   (string-body-address Rbuf))
	  (setf (xv_cms-green self) (string-body-address Gbuf))
	  (setf (xv_cms-blue self)  (string-body-address Bbuf))
	  (setf (xv_cms-size self) len)
	  (setf (xv_cms-index self) 0)
	  (setf (xv_cms-rgb_count self) len)))
  (:store (R G B i rval gval bval)
	(setf (aref R i) rval)
	(setf (aref G i) gval)
	(setf (aref B i) bval))
  (:store-hls-group (R G B pix cnt hue low-lightness high-lightness saturation)
    (let (rgb (lightness low-lightness)
          (linc (/ (- high-lightness low-lightness) (float cnt))))
      (dotimes (i cnt)
        (setq rgb (hls2rgb hue lightness saturation 256))
;;        (send self :store pix (first rgb) (second rgb) (third rgb))
        (send self :store R G B pix (first rgb) (second rgb) (third rgb))
        (incf pix)
        (incf lightness linc)) ) )
  (:init (&optional (type :render))
	 (setf (xv_cms-type self) xv_static_cms)
	 (case type
	       ((:simple) (send self :set-simple-colors))
	       ((:render) (send self :set-render-colors)))
	self))

(defconstant *white* 	0)
(defconstant *red* 	1)
(defconstant *yellow* 	2)
(defconstant *green* 	3)
(defconstant *cyan* 	4)
(defconstant *blue* 	5)
(defconstant *magenta* 	6)
(defconstant *black* 	7)

--------------------xviewclass.l $@$NJQ99(J------------------------
$@"#(J sunview-canvas $@$N(J :init $@$NCf$N(J window_create_canvas $@$N0z?t$rJQ99$7(J,
$@%+%i!<%^%C%W$rM?$($k$h$&$K$7$^$9!#(J
(defmethod sunview-canvas
  ....
  (:init (....
        (setq system-cadr
               (window_create_canvas (send parent :cadr)
                        win_dynamic_visual false
                        win_cms_name (format nil "cms~s-simple" (unix:getpid))
                        win_cms_data (string-body-address
                                        (instance xv_cms :init))))

$@"#(J canvas-viewsurface $@$N(J :init $@$NCf$K$"$k<!$N(J2$@9T$r%3%a%s%H%"%&%H$7$^$9!#(J
(defmethod canvas-viewsurface
  ....
  (:init (....
    ....
;;;   (send canvas :cmsname (format nil "viewsurface~s" (unix:getpid)))
;;;;   (send self :set-cmap-type cmap-type)

--------------------makefile $@$NJQ99(J------------------------
$@"#(J $@>e5-$N(J cms.l $@$r(J makefile $@$KEPO?$7$^$9!#(J
XVIEWOBJECTS= $(XVIEWDIR)/xviewclass.o $(XVIEWDIR)/cms.o

--------------------mkeusxview $@$NJQ99(J------------------------
$@"#(J cms.l $@$r%m!<%I$9$kL?Na$r(J mkeusxview $@$KDI2C$7$^$9!#(J
(load "xview/cms.o" :verbose t)


%%%%%%%%%%%%%%%% $@%@%V%k%P%C%U%!(J %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

--------------------xview.c $@$NJQ99(J------------------------
$@"#(J xview.c $@$K%5!<%P!<%$%a!<%8$r@8@.$9$k4X?t$rDI2C$7$^$9!#(J
pointer WINDOW_CREATE_IMAGE(n,argv)
     int n;
     register pointer argv[];
{
  return(call_xv_create(SERVER_IMAGE,n,argv));
}

init_xview(mod)
     pointer mod;
{
   ......
    defun("WINDOW_CREATE_IMAGE",mod,WINDOW_CREATE_IMAGE);
}

--------------------xviewclass.l $@$NJQ99(J------------------------
$@"#(J canvas-viewsurface $@$N(J :init $@$K$"$k(J
   (setq back-pixwindow pixwindow)
$@$"$k$$$O(J
   (setq back-pixwindow
         (mem_create
          (send canvas :width)
          (send canvas :height)
          (case cmap-type ((:mono :monoral) 1) (t 8))))
$@$r0J2<$N$h$&$KJQ99$7$^$9!#(J
   (setq back-pixwindow
        (window_get
           (window_create_image 0
                xv_width  (send canvas :width)
                xv_height (send canvas :height)
                server_image_depth 8    ;adhoc
                server_image_colormap (send canvas :cmsname))
           win_pixwin))

$@"#(J canvas-viewsurface $@$N(J :clear $@$NCf$K$"$k(J
     (pw_writebackground pixwindow 0 0 width height pix_clr)
$@$"$k$$$O(J
;;;     (pr_rop pixwin 0 0 width height pix_src 0 0 0)
$@$r<!$N$h$&$KJQ$($^$9!#(J
     (pw_rop pixwin 0 0 width height pix_clr 0 0 0)

$@"#(J canvas-viewsurface $@$N(J :flush $@$N(J
         (pw_batch_off pixwindow)
$@$O2?8N$@$+K:$l$^$7$?$1$l$I%3%a%s%H%"%&%H$7$^$9!#(J

$@$^$?(J :flush $@$N:G8e$K(J
         (xv_sync (send frame :cadr))
$@$rA^F~$7$^$9!#(Jxv_sync$@$O(J C$@$N(J XFlush(..)$@$r%3!<%k$9$k<+A0$N4X?t$G$9$,(J,
$@F1$8$b$N$,$b$H$b$H$"$k$_$?$$$J$N$G3'$5$s$O$=$C$A$r;H$C$F$/$@$5$$!#(J
sync$@$r$7$J$$$H$$$/$i%@%V%k%P%C%U%!$r$d$C$F$bF0$-$,O"B3$7$^$;$s!#(J

$@"#(J canvas-viewsurface $@$N(J :drawline-primitve $@$NCf$N(J
   (if buffer-mode
       (pr_vector back-pixwindow x0 y0 x1 y1 rasterop c)
     (pw_vector pixwindow x0 y0 x1 y1 rasterop c)))
$@$O(J, $@<!$N$h$&$KJQ$($^$9!#B($A(J, pr_ $@$r(J pw_ $@$KJQ$($^$9!#(J
   (if buffer-mode
       (pw_vector back-pixwindow x0 y0 x1 y1 rasterop c)
     (pw_vector pixwindow x0 y0 x1 y1 rasterop c)))

$@"#(J canvas-viewsurface $@$N(J :drawtext-primitie $@$K$*$$$F$b(J
   (pr_text pixwin x0 y0 rasterop font
            (string-body-address textstring)))
$@$r(J
   (pw_text pixwin x0 y0 rasterop font
            (string-body-address textstring)))
$@$HJQ99$7$^$9!#(J


%%%%%%%%%%%%%%%%%%% $@%F%9%H%W%m%0%i%`(J %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(defclass demowindow :super sunview-frame
		     :slots (canvas vw vport))

(defmethod demowindow
 (:init (&key parent (size 600))
    (send-super :init parent :title "demowindow"
			     :x 680 :y 20
			     :width size)
    ;;;;;; canvas
    (setq canvas
	  (send self :create-subwindow sunview-canvas
		:x 0 :height size ; :width size
		:title "canvas"))
    (send self :show t)
    (let ((vs
	   (instance canvas-viewsurface :init
			:canvas canvas
			:buffer-mode t))
          (eye
	     (instance perspective-viewing
		       :init :screen-x 5 :screen-y 5
			     :viewdistance 30
			     :pos #f(1000 2000 1000)
			     :target #f(0 0 0)))
         (vp
	     (instance viewport :init
		    :width (/ size 2) :height (- (/ size 2))
		    :xcenter (/ size 2) :ycenter (/ size 2))))
      (setq vw 
	(instance viewer :init :viewport vp :viewing eye :viewsurface vs))
      (setq vport vp))
    self))

(defun view (&optional (size 512))
  (setq *window* (instance demowindow :init :size size))
  (setq *viewer* (demowindow-vw *window*))
  (setq *viewing* (viewer-eye *viewer*))
  (setq *can* (demowindow-canvas *window*)) ;color operation
  (setq *vs* (send *viewer* :viewsurface))
  (setq *pw* (send *can* :pixwin))
)

;-------------------------
;primitive color test
(defun ctest ()
	(dotimes (x 128)
		(send *vs* :color x)
		(send *vs* :drawline-primitive (* 2 x) 0 (* 2 x) 256)
		(send *vs* :drawline-primitive (1+ (* 2 x)) 0 (1+ (* 2 x)) 256))
	(send *viewer* :flush))

(defun color-draw (thing color &optional(view *viewer*))
  (send (send view :viewsurface) :color color)
  (send *viewer* :draw thing)
  (send (send view :viewsurface) :color *black*))

(defun rotate (a times &optional (itv 0.05))
  (dotimes (i times)
	(send *vs* :clear)
	(send a :rotate itv :z)
	(draw a)))

(setq dode (make-dodecahedron 300))
(send dode :color *red*)
(setq b0 (make-cube 300 300 300 :color *blue*))
(setq b1 (make-cube 600 600 30 :color *green*))

(view 256)
(format t "~%Try (ctest) and (rotate dode 100)~%")

%%%%%%%%%%%%%%%%%%% $@0J>e(J %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


From inaba@jsk.t.u-tokyo.ac.jp Tue May 28 18:50:02 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA03615; Tue, 28 May 91 18:50:00 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA01392; Tue, 28 May 91 18:51:54 JST
Received: from mech.t.u-tokyo.ac.jp by etlpost (5.65+1.4W/2.7W)
	id AA11215; Tue, 28 May 91 09:58:21 JST
Received: from grus.jsk.t.u-tokyo.ac.jp by mech.t.u-tokyo.ac.jp (4.1/6.4J.6-MX)
	id AA08584; Tue, 28 May 91 18:51:54 JST
Received: by grus.jsk.t.u-tokyo.ac.jp (4.0/6.4J.6)
	id AA11794; Tue, 28 May 91 18:49:03 JST
Date: Tue, 28 May 91 18:49:03 JST
From: inaba@jsk.t.u-tokyo.ac.jp (Masayuki Inaba)
Return-Path: <inaba@jsk.t.u-tokyo.ac.jp>
Message-Id: <9105280949.AA11794@grus.jsk.t.u-tokyo.ac.jp>
To: euslisp@etl.go.jp
Subject: trouble on  pickview.l
Status: R



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

$@$3$A$i$N650iMQ$KMxMQ$7$F$$$k(Jeus$@4D6-$r%"%C%W%G!<%H$7$?$H$3$m(Jpickview.l
$@$N?^7A$,=P$J$/$J$j$^$7$?!#NkLZ$5$s$N%H%i%V%k$HF1$8$b$N$+$H;W$$$^$9!#(J

$@I=<($5$l$J$$M}M3$O!"(Jviewing$@$N(Jprojection-matrix$@$NMWAG$,?t$G$J$/$J$C$F$$(J
$@$k$+$i$G$7$?!#(J

eusview$ load "pickview.l
(pickmenu) ;; main of pickview.l
t
eusview$ (pickmenu)
(96 0 3)
#<pickmenu #X4764b4>
eusview$ 
eusview$ (22 1 2)

eusview$ (describe (apickport . eye))
plist=nil
rot=#2f((-0.514496 -0.213633 0.830455)
        (0.857493 -0.12818 0.498273)
        (0.0 0.968468 0.249136))
pos=#f(500.0 300.0 150.0)
parent=nil
descendants=nil
worldcoords=#<coordinates #x4735b0 pos=#f(500.0 300.0 150.0)>
manager=#<perspective-viewing #x473868 pos=#f(500.0 300.0 150.0)>
changed=nil
viewcoords=#<coordinates #x4734c0 pos=#f(-7.438660e-05 -3.099442e-05 602.08)>
screenx=10.0
screeny=10.0
hither=100.0
yon=10000.0
projection-matrix=#2f((0.1 0.0 0.0 0.0)
                      (0.0 0.1 0.0 0.0)
                      (NaN NaN NaN NaN)
                      (0.0 0.0 0.025 0.0))
viewdistance=40
nil
eusview$ 

$@$H$$$&$0$"$$$G$9!#(J

viewing.l$@$^$o$j$O0JA0$HJQ$o$C$F$$$J$$$h$&$K$b;W$$$^$9$,!"JQ$G$9$M!#(J

$@NkLZ$5$s$N$H$3$m$G$O$=$&$J$C$F$$$^$;$s$+!#(J


From matsui@etl.go.jp Wed May 29 21:14:41 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA05064; Wed, 29 May 91 21:14:40 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA04304; Wed, 29 May 91 21:16:26 JST
Received: by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA05058; Wed, 29 May 91 21:14:06 JST
Date: Wed, 29 May 91 21:14:06 JST
From: matsui@etl.go.jp (MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9105291214.AA05058@etlmmd.etl.go.jp>
To: euslisp@etl.go.jp
Subject: float/int
Status: R

>From suzuki@graco.c.u-tokyo.ac.jp Wed May 29 20:33:52 1991
>   >>$B$I$&$7$F$=$&$J$k$+$O$b$&$9$3$7;~4V$,I,MW$G$9!#(J
>
>$B2?$H$J$/1|$,?<$=$&$G$9$M!#(J

$B$$$(!"A4$/1|$O$"$j$^$;$s!#(J
viewdistance$B$K(Jfloat$B$rMW5a$7$F$$$k$H$$$&$3$H$G$9!#(J

$B0lHL$K!"(JLisp$B$O!"<B9T;~$K7?$NH=JL$r$7$^$9$N$G!"I,MW$K1~$8$F(Jint$B$+$i(J
float$B$KJQ49$5$l$^$9!#>/$J$/$H$b(Jinterpreter$B$GF0$+$7$F$$$k;~!"$3$l$O(J
$B4V0c$$$J$$$N$G$9$,!"7?@k8@IU$-$G%3%s%Q%$%k$7$?%3!<%I$O!";O$a$+$i(J
float$B$,Mh$?$H?.$8$F$*$j!"7?H=JL!&7?JQ49$r<B9T;~$K$O9T$$$^$;$s!#(J
llib$B$N2<$N4v2?%b%G%k%W%m%0%i%`$O!"@-G=8~>e$N$?$a!"$[$H$s$I$,(J
$B7?@k8@IU$-$G%3%s%Q%$%k$5$l$F$$$^$9!#$=$l$G!"(Jviewdistance$B$b(J
integer$B$r>!<j$K(Jfloat$B$H2r<a$7$F7W;;$7$?$N$G7k2L$,(JNaN$B$K$J$C$?$H(J
$B$$$&$3$H$G$9!#(J

$B:#!"$H$j$"$($:!"(Jviewdistance$B$r<u$1<h$C$?;~!"$^$:(J(float viewdistance)
$B$9$k$h$&$K$7$F$*$-$^$7$?$,!"<B:]$O!"(Jviewdistance$B$J$s$F$[$H$s$I(J
$B;2>H$7$J$$$+$i!"7?@k8@$7$J$$$G$*$1$P$h$+$C$?$G$9$M!#(J
$B<:Ni$7$^$7$?!#(J

>
># $B>>0f$5$s$,%9%?%s%U%)!<%I$K9T$/A0$K2?$H$+(J:-)
># $B>>0f$5$s!"(J.forward$B$O$A$c$s$H@_Dj$7$F$$$C$F2<$5$$$M(J:-)

$B$($(!"$"$A$i$+$i$b(Jetl$B$N%^%7%s$K$O%m%0%$%s$G$-$^$9!#(J
$BHfN1@n$5$s$J$I$O!"(JSanderson$B$K%a%$%k$rAw$C$F$O!"(Jremote$B$G(Jfinger$B$7$F(J
mail$B$rFI$s$@$+3N$+$a$F$$$^$9!#5$$NC;$$$d$C$A$c$J!#(J

>$B$H$3$m$G!"(Jpickmenu$B$G$O%9%i%$%@!<$G;kE@$rJQ$($i$l$k$h$&$G$9$,!"$I$N$/$i(J
>$B$$$N<B9TB.EY$G%9%i%$%@!<$,F0$/$N$,@5$7$$$N$G$7$g$&$+(J? $B;d$N(JSS1$B$G$O!"%^(J
>$B%&%9$r$$$/$i$f$C$/$jF0$+$7$F$b!"%9%i%$%@!<$O%H%i%C%-%s%0$7$F$/$l$^$;$s!#(J
>$B%^%&%9$r;_$a$k$H!"$7$P$i$/$7$FCM$,5^$KJQ$o$j$^$9!#Nc$($P(JNeXT$B$G$O%9%`!<(J
>$B%:$KF0$/$N$G$7$g$&$+(J? $B%$%s%9%H!<%k$,4V0c$C$F$$$k$+$b$7$l$J$$$N$G!"G0$N(J
>$B$?$a$K$*?R$M$7$^$9!#(J

$B%$%Y%s%H4X?t$r$4$/4JC1$J$b$N$K$7$F;n$7$F$_$F$O$$$+$,$G$9$+!#(J

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

From inaba@jsk.t.u-tokyo.ac.jp Wed May 29 21:42:30 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA05324; Wed, 29 May 91 21:42:29 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA04989; Wed, 29 May 91 21:44:28 JST
Received: from mech.t.u-tokyo.ac.jp by etlpost (5.65+1.4W/2.7W)
	id AA18295; Wed, 29 May 91 12:50:56 JST
Received: from grus.jsk.t.u-tokyo.ac.jp by mech.t.u-tokyo.ac.jp (4.1/6.4J.6-MX)
	id AA22837; Wed, 29 May 91 21:44:24 JST
Received: by grus.jsk.t.u-tokyo.ac.jp (4.0/6.4J.6)
	id AA12454; Wed, 29 May 91 21:41:47 JST
Date: Wed, 29 May 91 21:41:47 JST
From: inaba@jsk.t.u-tokyo.ac.jp (Masayuki Inaba)
Return-Path: <inaba@jsk.t.u-tokyo.ac.jp>
Message-Id: <9105291241.AA12454@grus.jsk.t.u-tokyo.ac.jp>
To: matsui@etl.go.jp
Cc: euslisp@etl.go.jp
In-Reply-To: MATSUI's message of Wed, 29 May 91 21:14:06 JST <9105291214.AA05058@etlmmd.etl.go.jp>
Subject: float/int
Status: R


   >>viewdistance$@$K(Jfloat$@$rMW5a$7$F$$$k$H$$$&$3$H$G$9!#(J

geoclasses.l$@$,$A$,$C$F$$$?$s$G$9$M!#(J
viewing.l$@$OJQ$o$C$F$$$J$$$7!"JQ$@$H;W$C$F$?$s$G$9$,!"(J

   >>$@$($(!"$"$A$i$+$i$b(Jetl$@$N%^%7%s$K$O%m%0%$%s$G$-$^$9!#(J

$@JXMx$K$J$j$^$7$?$M!#(J
$@$I$3$,$*6b$rJ'$C$F$$$k$N$+5$$K$J$j$^$9!#(J

$@0pMU(J

From hirukawa@etl.go.jp Wed May 29 21:33:16 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA05216; Wed, 29 May 91 21:33:15 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA04815; Wed, 29 May 91 21:35:04 JST
Received: by honami.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA02614; Wed, 29 May 91 21:38:11 JST
Date: Wed, 29 May 91 21:38:11 JST
From: hirukawa@etl.go.jp (Hirohisa Hirukawa)
Return-Path: <hirukawa@etl.go.jp>
Message-Id: <9105291238.AA02614@honami.etl.go.jp>
To: euslisp@etl.go.jp, matsui@etl.go.jp
Subject: Re:  float/int
Status: R

> $@$($(!"$"$A$i$+$i$b(Jetl$@$N%^%7%s$K$O%m%0%$%s$G$-$^$9!#(J
> $@HfN1@n$5$s$J$I$O!"(JSanderson$@$K%a%$%k$rAw$C$F$O!"(Jremote$@$G(Jfinger$@$7$F(J
> mail$@$rFI$s$@$+3N$+$a$F$$$^$9!#5$$NC;$$$d$C$A$c$J!#(J

$@$9$$$^$;$s$M!#(J

$@Ht9T5!$d%[%F%k$NM=Ls$N4|F|$,Gw$C$F$$$F!"(J
$@N99TBeM}E9$K:EB%$5$l$F$$$k$N$G$9$h!#(J

$@$A$J$_$K!"(Jfinger $@$N;H$$J}$O!"(J

finger e-mail:adress

$@$G$9!#Nc$($P!"(J

minsky@ai.mit.edu

$@$H$+$d$j$^$9!#$*;n$7$"$l!#(J


$@$R$k$+$o!wC;5$(J


From matsui@etl.go.jp Fri May 31 11:15:30 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA06567; Fri, 31 May 91 11:15:28 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA21189; Fri, 31 May 91 11:16:50 JST
Received: by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA06559; Fri, 31 May 91 11:14:21 JST
Date: Fri, 31 May 91 11:14:21 JST
From: matsui@etl.go.jp (MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9105310214.AA06559@etlmmd.etl.go.jp>
To: suzuki@graco.c.u-tokyo.ac.jp
Subject: Re:  float/int
Cc: euslisp@etl.go.jp
Status: R

>From suzuki@graco.c.u-tokyo.ac.jp Thu May 30 11:43:21 1991

>$B;d$O(JLisp$B$O$"$^$j>\$7$/$J$$$N$G!"$D$$$G$K$A$g$C$H<ALd!#7?@k8@$9$k$3$H$H!"(J
>optimize$B$9$k$3$H$O%$%3!<%k$G$J$$$H;W$&$N$G$9$,!#$b$A$m$s(Jdeclare$B$5$l$F(J
>$B$$$J$$$H(Joptimize$B$G$-$J$$$s$7$g$&$1$I!#(J
>$B7?@k8@IU$-$G%3%s%Q%$%k$9$k$H!"(Joptimization$B$N%l%Y%k$,(Jsafety$B$G$J$/$J$k$H(J
>$B$$$&$3$H$G$7$g$&$+!#(J

$B$=$&$G$9$M!#7?@k8@!a(Joptimize$B$G$O$"$j$^$;$s$,!"(J
$B%G%U%)%k%H$G$O(Jsafety=0, optimize=2$B$K$J$C$F$^$7$F!"(J
$B$3$l$G7?@k8@$,$"$k$H!"7?8!::$,9T$o$l$^$;$s!#(J
$B$^$"!"$?$$$F$$$O!"%3%s%Q%$%k$9$k$H8@$&$N$O%9%T!<%I%"%C%W$N$?$a(J
$B$G$9$+$i!"$3$l$G$h$m$7$$$+$H;W$$$^$9!#(J

>$B$H$3$m$GA0$K(JSLUG (Symbolics Lisp Users Group)$B$N=8$^$j$K=P$?;~$KJ9$$$?(J
>$BOC$7$G$9$,!"(JSymbolics$B$G3+H/$5$l$?%"%W%j%1!<%7%g%s$rGd$k$N$K!"(J36XX$B$H$+(J
>XL$B$H$+$G$O9b2a$.$k$N$G!"$=$N<B9T4D6-$@$1$r(J386$B$N(JPC$B>e$K:n$C$?$b$N$,$"$j(J

PC$B$O0B$$$N$O$$$$$N$G$9$,!"2hLL$,69$$$N$H!"(Junix$B$K$9$l$P$$$$$b$N$r(J
OS2$B$@$N(JMSWINDOW$B$@$N8@$C$F$k$N$,%P%+$i$7$/$F$D$$$F$$$1$^$;$s!#(J

>$B$^$9!#L>A0$OK:$l$F$7$^$$$^$7$?(J($B:G6a$A$H$b$NK:$l$,!D(J)$B!#@lMQ$N%3%s%Q%$%i!<(J
>$B$r;H$&$N$G$9$,!"7k9=@-G=$,=P$k$i$7$/!"$=$N%W%m%0%i%_%s%0$NHkL)$r$$$/$D(J
>$B$+>R2p$7$F$$$?$N$G$9$,!"0lHV4JC1$G8z$/$N$O!"E0Dl$7$?7?@k8@$@$=$&$G$9!#(J

$B$3$l$O2;ED7/$KJ9$+$;$F>e$2$?$$!#(J

>$B$H$3$m$,!"$$$D$^$G$?$C$F$b%m%0%$%s$7$J$$$N$G!"EEOC$r$7$F$_$?$i!"!X$:$C(J
>$B$HA0$+$i%*%U%#%9$K$$$k$h!Y$H8@$o$l$?$s$@$=$&$G$9!#$=$3$GB<0f@h@8$O!"(J
>$B!X7W;;5!$N8&5f<T$G$b!"7W;;5!$K8~$+$o$J$$$G;E;v$,$G$-$k$R$H$,$$$k!Y$H!"(J
>$B%O%?$H5$$,$D$$$?$s$@$=$&$G$9!#(J

$B@hF|!"%+%J%@$N(JHayward$B$,Mh$?;~!"!V6a$/$K7W;;4v2?3X$N65<x$,$$$k$,!"(J
$B;H$&$N$O;f$H1tI.$P$+$j$G!"7W;;5!$O$A$C$H$b;H$o$J$$!W$HHiFy$C$F(J
$B$$$^$7$?!#@5$7$$8&5f<T$N;Q$G$O$"$j$^$9$,!#(J

>$B8f<+J,$O!"<+Bp$K$b(JWS$B$,$"$C$F(JSLIP$B$r0z$$$F$$$k$H$N$3$H$G$9$+$i!"(J46$B;~Cf7W(J
>$B;;5!$r;H$C$F;E;v$5$l$F$$$k$s$G$7$g$&$M!#<+Bp$K(JWS$B$rCV$/$3$H$O!"2H$K$$$k(J
>$B;~4V$,D9$/$J$k$N$G!"2HB2(J($B1|MM(J)$B$K$O$^$"$^$"$@$C$?$=$&$G$9!#$=$NB>(JISDN$B$r(J
>$B0z$/;~$NEEOC6I$H$N8r>D$NOC$7$H$+!"$$$m$$$m$HLLGr$$OC$7$rJ9$+$;$F$$$?$@(J
>$B$-$^$7$?!#(J

WS$B$C$F!"$J$+$J$+EE8;$rMn$95$$K$O$J$l$J$$$+$i!"(J
$B2HDm$G;H$&$H$9$k$H!"AjEv$JEE5$Be$K$J$k$N$G$O$J$$$+$7$i!#(J

0.3KW x 24h x 30=216KWh= $B!o(J5000

$B$&$&$`!"8=:_$N;HMQNA$,G\$K$J$k4*Dj$@!#(J
$B$*6b$O$$$$$1$I!";q8;$,$M!#$H$$$&0UL#$G$O8&5f=j$G;H$&$N$b(J
$BF1$8$G$9$M!#5$$rIU$1$h$&!#(Jscreenblank$B$O!"A4$/EE5$$N@aLs$K$O(J
$B$J$C$F$$$J$$$N$G$7$g$&(J?

>$B$=$N;~$K!XBgJQJXMx$K$J$C$F$"$j$,$?$/;W$C$F$$$^$9!Y$HB<0f@h@8$K8@$C$?$i!"(J
>$B!X$I$s$I$s;H$C$F$/$l$?J}$,8&5f$K$J$k!Y$H$*$C$7$c$C$F$^$7$?!#>\$7$/$OJ9(J
>$B$-$^$;$s$G$7$?$,!"(JWIDE$B%W%m%8%'%/%H$N8&5fHq!"$D$^$jB<0f@h@8$N8&5fHq$+$i(J
>$B=P$F$$$k$N$G$O$J$$$+!"$HA[A|$7$F$$$k$N$G$9$,!#(J($B2s@~Hq$OG/4V?t@iK|1_$N(J
>$B>e$NJ}$HJ9$$$F$$$^$9!#(J)

$B;22C4k6H$,;YJ'$&6!Bw6b$+$i;Y=P$5$l$F$$$k$N$G$7$g$&$M!#(J
$B46<U!"46<U!#(J

From yuki@in4s2.in.kobe-u.ac.jp Tue Jun  4 23:36:46 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA11476; Tue, 4 Jun 91 23:36:45 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA07893; Tue, 4 Jun 91 23:39:17 JST
Received: from creamy.ics.osaka-u.ac.jp by etlpost (5.65+1.4W/2.7W)
	id AA10996; Tue, 4 Jun 91 14:45:52 JST
Received: by creamy.ics.osaka-u.ac.jp (5.64/6.4J.6-creamy-ip.6.8) id AA17051; Tue, 4 Jun 91 23:39:00 +0900
Received: by ouicss.ics.osaka-u.ac.jp (SVMAIL 1.4/6.4J)
	id AA05889; Tue, 4 Jun 91 23:35:17 JST
Received: by icluna.kobe-u.ac.jp (5.51/6.4J.6)
	id AA04783; Tue, 4 Jun 91 18:34:44 JST
Received: from in4s2.in.kobe-u.ac.jp by in1a.in.kobe-u.ac.jp (4.0/6.4J.6)
	id AA29749; Tue, 4 Jun 91 18:34:27 JST
Received: by in4s2.in.kobe-u.ac.jp (4.1/6.4J.6)
	id AA00986; Tue, 4 Jun 91 18:34:29 JST
Date: Tue, 4 Jun 91 18:34:29 JST
From: yuki@in4s2.in.kobe-u.ac.jp (Yuuki Inoue)
Return-Path: <yuki@in4s2.in.kobe-u.ac.jp>
Message-Id: <9106040934.AA00986@in4s2.in.kobe-u.ac.jp>
To: matsui@etl.go.jp
Status: R


$@?@8MBg$N0f>e$G$9!#(J

>Date: Tue, 4 Jun 91 17:32:42 JST
>From: matsui@etl.go.jp (Toshihiro Matsui)
>Return-Path: <matsui@etl.go.jp>
>Message-Id: <9106040832.AA05237@honami.etl.go.jp>
                                 ~~~~~~
>To: euslisp@etl.go.jp
>Subject: test

honami$@$O!"$$$+$,$G$9$+!)!*(J  $@$3$s$JL>A0$N$D$$$?7W;;5!$ODA$7$$$G$7$g$&$M!#(J

SunOS 4.1.1$@$G$9$,!"(Jeuslisp$@$O$&$^$/%3%s%Q%$%k$G$-$k$N$G$7$g$&$+!)(J

$@OC$OJQ$o$j$^$9$,$3$N$?$S?@8MBg3X$b$^$@40A4$G$O$J$$$b$N$N(JWide$@7PM3$N%$%s(J
$@%?!<%M%C%H%o!<%/$rMxMQ$G$-$kAH?%$K$J$j$^$7$?!#(J($@A0$O3X=Q%;%s%?$N%M%C%H(J
$@$G6K$a$FCY$$$b$N$G$7$?!#!K(J

$@$=$3$G!"@hF|(Janonimous ftp$@$rMQ$$$F(Jpuma$@$N%G!<%?!J(Jpma.Brep)$@$r%3%T!<$5$;$F(J
$@D:$-$^$7$?!#$^$@!"(Jeuslisp$@<+BN$N%P!<%8%g%s$r#1G/A0$+$i>e$2$F$$$J$$$N$G(J
require, provide $@$rMQ$$$?%W%m%0%i%`$ODL$j$^$;$s$,!"%b%G%k$N;H$$J}$O!"(J
$@$o$+$j$^$7$?$N$G!"AaB.MxMQ$5$;$FD:$$$F$*$j$^$9!#$I$&$b$"$j$,$H$&$4$6$$$^$9!#(J

$@$I$&$b!"$*<YKb$7$^$7$?!#(J

    $@!2!2!2!2!2!2!2!2(J
  $@!?(J                $@!@(J
  $@"#"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"&"#(J
  $@""(J                                                            $@""(J
  $@""(J  $@0f(J $@>e(J  $@M:(J $@5*(J                $@?@8MBg3XBg3X1!<+A32J3X8&5f2J(J  $@""(J
  $@""(J                                                            $@""(J
  $@""(J  yuki@scitec.kobe-u.ac.jp    Tel. 078-881-1212 / ext.2733  $@""(J
  $@""(J                                                            $@""(J
  $@"#"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"$"#(J




From euslisp-request@etl.go.jp Wed Jun  5 11:16:22 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA11920; Wed, 5 Jun 91 11:16:20 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA19414; Wed, 5 Jun 91 11:18:43 JST
Reply-To: euslisp@etl.go.jp
Errors-To: euslisp-request@etl.go.jp
Sender: euslisp-request@etl.go.jp
X-Seqno: 1
Date: Wed, 5 Jun 91 11:19:18+0900
From: tmorita@lucy.stars.flab.fujitsu.co.jp (Toshihiko Morita)
Return-Path: <tmorita@lucy.stars.flab.fujitsu.co.jp>
Message-Id: <9106050119.AA00843@lucy.stars.flab.fujitsu.co.jp>
To: euslisp@etl.go.jp
Subject: color and double-buffering
Status: R

$@IY;NDL8&$N?9ED$G$9!#(J

eusxview$@$G%+%i!<$H%@%V%k%P%C%U%!$r;H$($k$h$&$K;n$_$F$_$^$7$?!#(J
$@4D6-$O(J, SS1, SunOS 4.0.3, X11R4 $@$G$9!#$?$@$7!"(JSun4-260, SunOS 4.1 
$@$G$bF0$$$F$$$^$9!#(J
$@$^$?!"(JXView$@$b$A$g$C$H8E$$$G$9!#B($A(Jversion2$@$G$O$"$j$^$;$s!#(J

$@$^$:%+%i!<$K$D$$$F$O!"(Jstatic$@$J%+%i!<%^%C%W$rMxMQ$7$F$$$^$9!#(J
dynamic$@$J$b$N$b:n$C$F$_$?$N$G$9$,!"<+J,$NDj5A$,$&$^$/H?1G$5$l$J$$$N$G(J
$@:C@^$7$^$7$?!#$G$b!"(Jdynamic$@$@$H!"%+!<%=%k$,%&%$%s%I%&$r=PF~$j$9$kEY$K(J
$@%+%i!<%^%C%W$,@Z$jBX$o$jHQ$o$7$$$N$G!"(Jstatic$@$G$$$$$d$H;W$C$F$$$^$9!#(J
static$@$J%+%i!<%^%C%W$r%;%C%H$9$k$K$O!"$"$i$+$8$a(JXView$@$N(J
colormap segment$@$r:n$C$F$*$$$F!"(Jsunview-canvas$@$r(J:init$@$9$k;~!"(J
$@$=$l$rM?$($F$d$j$^$9!#(J

$@<!$K%@%V%k%P%C%U%!$G$9$,!"(JXView$@$G$O(Jpixrect$@$,%5%]!<%H$5$l$F$$$J$$$N$G!"(J
server image object $@$r:n$kI,MW$,$"$j$^$9!#$3$l$r:n$l$P!"(J
pw_rop, pw_vector$@Ey$,;H$($k$N$G!"%@%V%k%P%C%U%!$r<B8=$G$-$^$9!#(J
$@$"$^$j9bB.$G$O$J$$$N$G$9$,!"0l1~$J$a$i$+$KF0$/$N$G!"$^$"$$$$$@$m$&$H(J
$@;W$C$F$$$^$9!#(J

$@0J2<$K!"%+%i!<$H%@%V%k%P%C%U%!$rMxMQ$9$k$?$a$NJQ992U=j$r=g$K<($7!"(J
$@:G8e$K4JC1$J%F%9%H%W%m%0%i%`$rE:IU$7$^$9!#(J
$@5^$$$G:n$C$?$N$G$^$@ITHw$,B?$$$N$G$9$,!"3'$5$s$,2~NI$7$F$/$l$k$N$r(J
$@4|BT$7$FEj9F$7$^$7$?!#(J

                                  -----------------------------------
                                	$@IY;NDL8&5f=j(J
 					$@?9ED(J $@=SI'(J
					tmorita@flab.fujitsu.co.jp


%%%%%%%%%%%%%%%% $@%+%i!<(J %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

--------------------makexviewconst.c $@$NJQ99(J--------------------------
$@"#(J makexviewconst.c $@$K0J2<$NDj5A$rIU$12C$($^$9!#(J
#include <xview/cms.h>
#include <xview/svrimage.h>

  pr_const("WIN_CMS_NAME",WIN_CMS_NAME          );
  pr_const("WIN_CMS_DATA",WIN_CMS_DATA          );
  pr_const("XV_STATIC_CMS",XV_STATIC_CMS                );
  pr_const("XV_DYNAMIC_CMS",XV_DYNAMIC_CMS              );
  pr_const("SERVER_IMAGE_DEPTH",SERVER_IMAGE_DEPTH          );
  pr_const("SERVER_IMAGE_COLORMAP",SERVER_IMAGE_COLORMAP          );

--------------------cms.l $@$N:n@.(J-----------------------------------
$@"#(J $@0J2<$N$h$&$JDj5A$r9T$J$&(J cms.l $@$H$$$&?7$7$$%U%!%$%k$r:n@.$7$^$9!#(J
$@$3$l$O(JXView$@$N%+%i!<%^%C%W$r$D$/$k$b$N$G$9!#(Jdefstruct$@$G(J
$@=q$$$F$7$^$$$^$7$?$,(J, $@$b$C$H%9%^!<%H$J=q$-J}$,$"$k$H;W$$$^$9!#(J

(defcstruct xv_cms	; definition of xv_cmsdata
  (type 	:integer)
  (size		:short)	
  (index	:short)
  (rgb_count	:short)
  (tmp		:short)	;; boundary adaptation is made automatically
  (red		:long)
  (green	:long)
  (blue		:long))

(defmethod xv_cms
  (:set-simple-colors ()
	(setf (xv_cms-red self) 
	  (string-body-address (coerce '(0 255 255 0 0 0 255 255) string)))
	(setf (xv_cms-green self) 
	  (string-body-address (coerce '(0 0 255 255 255 0 0 255) string)))
	(setf (xv_cms-blue self) 
	  (string-body-address (coerce '(0 0 0 0 255 255 255 255) string)))
	(setf (xv_cms-size self) 8)
	(setf (xv_cms-index self) 0)
	(setf (xv_cms-rgb_count self) 8))
  (:set-render-colors (&optional (len 128))
	(let 	((Rbuf (make-string len))
		 (Gbuf (make-string len))
		 (Bbuf (make-string len)))
	  (send self :store Rbuf Gbuf Bbuf 0 255 255 255)
	  (send self :store Rbuf Gbuf Bbuf 1 255   0   0)
	  (send self :store Rbuf Gbuf Bbuf 2 255 255   0)
	  (send self :store Rbuf Gbuf Bbuf 3   0 255   0)
	  (send self :store Rbuf Gbuf Bbuf 4   0 255 255)
	  (send self :store Rbuf Gbuf Bbuf 5   0   0 255)
	  (send self :store Rbuf Gbuf Bbuf 6 255   0 255)
	  (send self :store Rbuf Gbuf Bbuf 7   0   0   0)
	  (send self :store-hls-group Rbuf Gbuf Bbuf 16 16 0 0.2 0.8 0.5)  ;R
          (send self :store-hls-group Rbuf Gbuf Bbuf 32 16 45 0.3 0.7 0.6) ;Y
          (send self :store-hls-group Rbuf Gbuf Bbuf 48 16 120 0.3 0.7 0.6);G
          (send self :store-hls-group Rbuf Gbuf Bbuf 64 16 180 0.3 0.7 0.6);S
          (send self :store-hls-group Rbuf Gbuf Bbuf 80 16 240 0.3 0.7 0.6);B
          (send self :store-hls-group Rbuf Gbuf Bbuf 96 16 270 0.3 0.7 0.6);M
          (send self :store-hls-group Rbuf Gbuf Bbuf 112 16 240 0.3 0.7 0.1)
	  (setf (xv_cms-red self)   (string-body-address Rbuf))
	  (setf (xv_cms-green self) (string-body-address Gbuf))
	  (setf (xv_cms-blue self)  (string-body-address Bbuf))
	  (setf (xv_cms-size self) len)
	  (setf (xv_cms-index self) 0)
	  (setf (xv_cms-rgb_count self) len)))
  (:store (R G B i rval gval bval)
	(setf (aref R i) rval)
	(setf (aref G i) gval)
	(setf (aref B i) bval))
  (:store-hls-group (R G B pix cnt hue low-lightness high-lightness saturation)
    (let (rgb (lightness low-lightness)
          (linc (/ (- high-lightness low-lightness) (float cnt))))
      (dotimes (i cnt)
        (setq rgb (hls2rgb hue lightness saturation 256))
;;        (send self :store pix (first rgb) (second rgb) (third rgb))
        (send self :store R G B pix (first rgb) (second rgb) (third rgb))
        (incf pix)
        (incf lightness linc)) ) )
  (:init (&optional (type :render))
	 (setf (xv_cms-type self) xv_static_cms)
	 (case type
	       ((:simple) (send self :set-simple-colors))
	       ((:render) (send self :set-render-colors)))
	self))

(defconstant *white* 	0)
(defconstant *red* 	1)
(defconstant *yellow* 	2)
(defconstant *green* 	3)
(defconstant *cyan* 	4)
(defconstant *blue* 	5)
(defconstant *magenta* 	6)
(defconstant *black* 	7)

--------------------xviewclass.l $@$NJQ99(J------------------------
$@"#(J sunview-canvas $@$N(J :init $@$NCf$N(J window_create_canvas $@$N0z?t$rJQ99$7(J,
$@%+%i!<%^%C%W$rM?$($k$h$&$K$7$^$9!#(J
(defmethod sunview-canvas
  ....
  (:init (....
        (setq system-cadr
               (window_create_canvas (send parent :cadr)
                        win_dynamic_visual false
                        win_cms_name (format nil "cms~s-simple" (unix:getpid))
                        win_cms_data (string-body-address
                                        (instance xv_cms :init))))

$@"#(J canvas-viewsurface $@$N(J :init $@$NCf$K$"$k<!$N(J2$@9T$r%3%a%s%H%"%&%H$7$^$9!#(J
(defmethod canvas-viewsurface
  ....
  (:init (....
    ....
;;;   (send canvas :cmsname (format nil "viewsurface~s" (unix:getpid)))
;;;;   (send self :set-cmap-type cmap-type)

--------------------makefile $@$NJQ99(J------------------------
$@"#(J $@>e5-$N(J cms.l $@$r(J makefile $@$KEPO?$7$^$9!#(J
XVIEWOBJECTS= $(XVIEWDIR)/xviewclass.o $(XVIEWDIR)/cms.o

--------------------mkeusxview $@$NJQ99(J------------------------
$@"#(J cms.l $@$r%m!<%I$9$kL?Na$r(J mkeusxview $@$KDI2C$7$^$9!#(J
(load "xview/cms.o" :verbose t)


%%%%%%%%%%%%%%%% $@%@%V%k%P%C%U%!(J %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

--------------------xview.c $@$NJQ99(J------------------------
$@"#(J xview.c $@$K%5!<%P!<%$%a!<%8$r@8@.$9$k4X?t$rDI2C$7$^$9!#(J
pointer WINDOW_CREATE_IMAGE(n,argv)
     int n;
     register pointer argv[];
{
  return(call_xv_create(SERVER_IMAGE,n,argv));
}

init_xview(mod)
     pointer mod;
{
   ......
    defun("WINDOW_CREATE_IMAGE",mod,WINDOW_CREATE_IMAGE);
}

--------------------xviewclass.l $@$NJQ99(J------------------------
$@"#(J canvas-viewsurface $@$N(J :init $@$K$"$k(J
   (setq back-pixwindow pixwindow)
$@$"$k$$$O(J
   (setq back-pixwindow
         (mem_create
          (send canvas :width)
          (send canvas :height)
          (case cmap-type ((:mono :monoral) 1) (t 8))))
$@$r0J2<$N$h$&$KJQ99$7$^$9!#(J
   (setq back-pixwindow
        (window_get
           (window_create_image 0
                xv_width  (send canvas :width)
                xv_height (send canvas :height)
                server_image_depth 8    ;adhoc
                server_image_colormap (send canvas :cmsname))
           win_pixwin))

$@"#(J canvas-viewsurface $@$N(J :clear $@$NCf$K$"$k(J
     (pw_writebackground pixwindow 0 0 width height pix_clr)
$@$"$k$$$O(J
;;;     (pr_rop pixwin 0 0 width height pix_src 0 0 0)
$@$r<!$N$h$&$KJQ$($^$9!#(J
     (pw_rop pixwin 0 0 width height pix_clr 0 0 0)

$@"#(J canvas-viewsurface $@$N(J :flush $@$N(J
         (pw_batch_off pixwindow)
$@$O2?8N$@$+K:$l$^$7$?$1$l$I%3%a%s%H%"%&%H$7$^$9!#(J

$@$^$?(J :flush $@$N:G8e$K(J
         (xv_sync (send frame :cadr))
$@$rA^F~$7$^$9!#(Jxv_sync$@$O(J C$@$N(J XFlush(..)$@$r%3!<%k$9$k<+A0$N4X?t$G$9$,(J,
$@F1$8$b$N$,$b$H$b$H$"$k$_$?$$$J$N$G3'$5$s$O$=$C$A$r;H$C$F$/$@$5$$!#(J
sync$@$r$7$J$$$H$$$/$i%@%V%k%P%C%U%!$r$d$C$F$bF0$-$,O"B3$7$^$;$s!#(J

$@"#(J canvas-viewsurface $@$N(J :drawline-primitve $@$NCf$N(J
   (if buffer-mode
       (pr_vector back-pixwindow x0 y0 x1 y1 rasterop c)
     (pw_vector pixwindow x0 y0 x1 y1 rasterop c)))
$@$O(J, $@<!$N$h$&$KJQ$($^$9!#B($A(J, pr_ $@$r(J pw_ $@$KJQ$($^$9!#(J
   (if buffer-mode
       (pw_vector back-pixwindow x0 y0 x1 y1 rasterop c)
     (pw_vector pixwindow x0 y0 x1 y1 rasterop c)))

$@"#(J canvas-viewsurface $@$N(J :drawtext-primitie $@$K$*$$$F$b(J
   (pr_text pixwin x0 y0 rasterop font
            (string-body-address textstring)))
$@$r(J
   (pw_text pixwin x0 y0 rasterop font
            (string-body-address textstring)))
$@$HJQ99$7$^$9!#(J


%%%%%%%%%%%%%%%%%%% $@%F%9%H%W%m%0%i%`(J %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

(defclass demowindow :super sunview-frame
		     :slots (canvas vw vport))

(defmethod demowindow
 (:init (&key parent (size 600))
    (send-super :init parent :title "demowindow"
			     :x 680 :y 20
			     :width size)
    ;;;;;; canvas
    (setq canvas
	  (send self :create-subwindow sunview-canvas
		:x 0 :height size ; :width size
		:title "canvas"))
    (send self :show t)
    (let ((vs
	   (instance canvas-viewsurface :init
			:canvas canvas
			:buffer-mode t))
          (eye
	     (instance perspective-viewing
		       :init :screen-x 5 :screen-y 5
			     :viewdistance 30
			     :pos #f(1000 2000 1000)
			     :target #f(0 0 0)))
         (vp
	     (instance viewport :init
		    :width (/ size 2) :height (- (/ size 2))
		    :xcenter (/ size 2) :ycenter (/ size 2))))
      (setq vw 
	(instance viewer :init :viewport vp :viewing eye :viewsurface vs))
      (setq vport vp))
    self))

(defun view (&optional (size 512))
  (setq *window* (instance demowindow :init :size size))
  (setq *viewer* (demowindow-vw *window*))
  (setq *viewing* (viewer-eye *viewer*))
  (setq *can* (demowindow-canvas *window*)) ;color operation
  (setq *vs* (send *viewer* :viewsurface))
  (setq *pw* (send *can* :pixwin))
)

;-------------------------
;primitive color test
(defun ctest ()
	(dotimes (x 128)
		(send *vs* :color x)
		(send *vs* :drawline-primitive (* 2 x) 0 (* 2 x) 256)
		(send *vs* :drawline-primitive (1+ (* 2 x)) 0 (1+ (* 2 x)) 256))
	(send *viewer* :flush))

(defun color-draw (thing color &optional(view *viewer*))
  (send (send view :viewsurface) :color color)
  (send *viewer* :draw thing)
  (send (send view :viewsurface) :color *black*))

(defun rotate (a times &optional (itv 0.05))
  (dotimes (i times)
	(send *vs* :clear)
	(send a :rotate itv :z)
	(draw a)))

(setq dode (make-dodecahedron 300))
(send dode :color *red*)
(setq b0 (make-cube 300 300 300 :color *blue*))
(setq b1 (make-cube 600 600 30 :color *green*))

(view 256)
(format t "~%Try (ctest) and (rotate dode 100)~%")

%%%%%%%%%%%%%%%%%%% $@0J>e(J %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


From matsui@etl.go.jp Mon Jun 10 11:41:37 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA03345; Mon, 10 Jun 91 11:41:36 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA02971; Mon, 10 Jun 91 11:44:25 JST
Reply-To: euslisp@etl.go.jp
Errors-To: euslisp-request@etl.go.jp
Sender: euslisp-request@etl.go.jp
X-Seqno: 5
Date: Mon, 10 Jun 91 11:41:19 JST
From: matsui@etl.go.jp (MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9106100241.AA03342@etlmmd.etl.go.jp>
To: euslisp@etl.go.jp
Subject: Re:  setting *load-path* in .eusrc
Status: RO

>From kuniyosh@etl.go.jp Mon Jun 10 11:37:36 1991

>*load-path*$B$,%U%!%$%k$+$i@_Dj$G$-$J$$$N$O$$$d$J$N$G!">e$N(Jlet$B$r$d$a$K$7(J
>$B$F!"%0%m!<%P%k$N%j%9%H$KDI2C!?:o=|$r$d$k$h$&$K$9$k$H$+!"JL$NJ}K!$r$H$k(J
>$B$N$,NI$$$H;W$$$^$9$,!"$$$+$,$G$7$g$&!#(J

$B$=$&$J$s$G$9$h!#$I$&$7$h$&$+$J$"$HLB$C$F$$$?$H$3$m$G$9!#(J
*load-path* $B$r!"%0%m!<%P%k$J$N$H!"0l;~E*$J$N$H(J2$B<oN`MQ0U$7$F!"(J
$B$=$N(Junion$B$r%5!<%A$9$k$N$+$J$"!"$J$I$H;W$C$F$$$^$9!#:#$7$P$i$/(J
$B$*BT$A2<$5$$!#$=$NJ}8~$G$N$h$$%"%$%G%"$,$"$l$P$*;G$$$7$?$$$H(J
$B;W$$$^$9!#(J


From kuniyosh@etl.go.jp Mon Jun 10 13:35:32 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA03638; Mon, 10 Jun 91 13:35:31 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA06110; Mon, 10 Jun 91 13:38:05 JST
Reply-To: euslisp@etl.go.jp
Errors-To: euslisp-request@etl.go.jp
Sender: euslisp-request@etl.go.jp
X-Seqno: 6
Date: Mon, 10 Jun 91 13:38:18 JST
From: kuniyosh@etl.go.jp (Yasuo Kuniyoshi)
Return-Path: <kuniyosh@etl.go.jp>
Message-Id: <9106100438.AA02374@asact.etl.go.jp>
To: euslisp@etl.go.jp
In-Reply-To: MATSUI's message of Mon, 10 Jun 91 11:41:19 JST <9106100241.AA03342@etlmmd.etl.go.jp>
Subject: Re:  setting *load-path* in .eusrc
Status: R

   >*load-path* $@$r!"%0%m!<%P%k$J$N$H!"0l;~E*$J$N$H(J2$@<oN`MQ0U$7$F!"(J
   >$@$=$N(Junion$@$r%5!<%A$9$k$N$+$J$"!"$J$I$H;W$C$F$$$^$9!#:#$7$P$i$/(J
$@%m!<%ICf$K%(%i!<$G;_$^$C$?;~$J$I$KI{:nMQ$,;D$k$N$b$I$&$+$H;W$&$N$G!"(J
$@KM$N0F!J%0%m!<%P%k$KD>@\DI2C!?:o=|!K$OBLL\$G$9$M!#(J
$@>>0f$5$s$N0F$G4pK\E*$KNI$$$H;W$$$^$9!#!V0l;~E*$J$N!W$O(Jspecial$@$K$9$k(J
$@I,MW$,$"$k$G$7$g$&!#$=$&$9$l$P!"(J
(load "/xxx/foo.l")
in /xxx/foo.l>
(load "foo2.l") ;foo2.l is in /xxx/
(load "/yyy/bar.l")
in /yyy/bar.l>
(load "baz.l") ;baz.l is in /yyy/
$@$N$h$&$JF~$l;R$K$J$C$?>l9g$G$b$&$^$/$$$/$G$7$g$&!#(J

$@$J$*!"8=:_$N%$%s%W%j%a%s%F!<%7%g%s$@$H!"$?$@(Jcons$@$7$F$k$N$G!"(J
*load-path*$@$O#1;~E*$K$+$J$j%@%V%C$?FbMF$K$J$k$3$H$,$"$j$^$9!#(J
$@$=$&$9$k$H(Jprobe-file$@$rL5BL$K7+$jJV$9$3$H$K$J$k$N$G$h$/$J$$$G$9$M!#(J
$@>>0f0F$G$O$3$NE@$b2~NI$5$l$k$G$7$g$&!#(J
==============================================================
$@T"5H9/IW!w<+N'%7%9%F%`8&5f<<(J.$@CNG=%7%9%F%`It(J.$@EE;R5;=QAm9g8&5f=j(J
E-mail: kuniyosh@etl.go.jp tel: 0298-58-5180 fax: 0298-58-5971
P-mail: $@")(J305 $@$D$/$P;TG_1`(J1-1-4



From matsui@etl.go.jp Mon Jun 10 13:51:33 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA03805; Mon, 10 Jun 91 13:51:32 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA06754; Mon, 10 Jun 91 13:54:19 JST
Reply-To: euslisp@etl.go.jp
Errors-To: euslisp-request@etl.go.jp
Sender: euslisp-request@etl.go.jp
X-Seqno: 7
Date: Mon, 10 Jun 91 13:51:07 JST
From: matsui@etl.go.jp (MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9106100451.AA03798@etlmmd.etl.go.jp>
To: euslisp@etl.go.jp
Subject: Re:  setting *load-path* in .eusrc
Status: R

>From kuniyosh@etl.go.jp Mon Jun 10 13:35:32 1991

>$B$J$*!"8=:_$N%$%s%W%j%a%s%F!<%7%g%s$@$H!"$?$@(Jcons$B$7$F$k$N$G!"(J
>*load-path*$B$O#1;~E*$K$+$J$j%@%V%C$?FbMF$K$J$k$3$H$,$"$j$^$9!#(J
>$B$=$&$9$k$H(Jprobe-file$B$rL5BL$K7+$jJV$9$3$H$K$J$k$N$G$h$/$J$$$G$9$M!#(J
>$B>>0f0F$G$O$3$NE@$b2~NI$5$l$k$G$7$g$&!#(J

$B$H$$$&$o$1$G!"(J*loader-current-directory*$B$H$$$&(Jspecial$BJQ?t$rDI2C$7$^$7$?!#(J
*load-path*$B$K$O!"%f!<%6$,(Jload$B$5$l$k%U%!%$%k$NCf$G%;%C%H$G$-$^$9!#(J
loader$B$,%U%!%$%k$r8+$D$1$k$H!"$=$N%G%#%l%/%H%j(J*loader-current-directory*
$B$KDI2C$7$^$9!#(Jload$B$O!"(J*loader-current-directory*$B$H(J*load-path*$B$N%f%K%*%s(J
$B$r%5!<%A$7$^$9!#(J

etlmmd:/usr/local/bin$B$K(Jeus$B$H(Jeusx$B$r(Jmake$B$7$FF~$l$F$*$-$^$7$?$N$G!"(J
$BT"5H$5$s!"%F%9%H$r$*4j$$$7$^$9!#(J

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

From matsui@etl.go.jp Sat Jun 22 11:59:35 1991
Received: from etlcom.etl.go.jp by etlmmd.etl.go.jp (4.1/6.4J.6-ETL.SLAVE)
	id AA17953; Sat, 22 Jun 91 11:59:34 JST
Received: by etlcom.etl.go.jp (5.51/6.4J.6-ETL.MASTER)
	id AA25443; Sat, 22 Jun 91 12:03:06 JST
Reply-To: euslisp@etl.go.jp
Errors-To: euslisp-request@etl.go.jp
Sender: euslisp-request@etl.go.jp
X-Seqno: 15
Date: Sat, 22 Jun 91 11:59:16 JST
From: matsui@etl.go.jp (MATSUI)
Return-Path: <matsui@etl.go.jp>
Message-Id: <9106220259.AA17950@etlmmd.etl.go.jp>
To: euslisp@etl.go.jp
Subject: documentation
Status: R

New documentation feature:

As you know, you can insert a documentation string in each function,
method, or global variable declaration. This is a Common-Lisp spec.
However, in many cases when we use documentation for a function,
it is usually an explanation of arguments. In an extream case,
the parameter list is duplicated in the documentation string. How stupid!
So I decided to give a default documentation string to each func def.
Of course the default is the parameter list itself. Try defining a
function and getting its documentation.
MATSUI Toshihiro, matsui@etl.go.jp, Electrotechnical Laboratory

