Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!rutgers!cbmvax!andy
From: andy@cbmvax.cbm.UUCP (Andy Finkel)
Newsgroups: comp.sys.amiga
Subject: HAM Ray Traced Juggler (Part 1 of 8)
Message-ID: <1159@cbmvax.cbmvax.cbm.UUCP>
Date: Mon, 22-Dec-86 16:06:14 EST
Article-I.D.: cbmvax.1159
Posted: Mon Dec 22 16:06:14 1986
Date-Received: Mon, 22-Dec-86 23:28:07 EST
Reply-To: andy@cbmvax.UUCP (Andy Finkel)
Distribution: na
Organization: Commodore Technology, West Chester, PA
Lines: 422


Well, everyone's been asking for the HAM ray traced juggler demo for
their Amiga.  My mailbox has been overflowing.  And its the holiday
season.  Time to do something nice for Amiga owners.*

So, raising my fireproof shield, I will post it,
in uuencoded form, in pieces < 64K, over the next week.  Also,
distribution will be limited to North America (na) assuming the
distribution prefix stuff works this time.  If someone overseas
in countries where copyright laws hold for computer software
wants it, and is willing to mail it to others (from that side
of the ocean, send me mail)

Normally, this would be a perfect candidate for mod.binaries.amiga,
but I can't even get mail through to that machine!

This is a copyrighted program, all rights reserved,
distributed with the permission of the author, for use on the
Amiga computer.

* Nice, that is, if news distributes it without problems, and I make
  no mistakes posting it.


Anyway, here it is.  The rest of this article contains a short README
of instructions, the (complete) uuencoded juggler.info file, and
the complete juggler program.  The data will follow.  You'll have
to paste the data together; then uudecode it. (you all know the drill, right ?)

------------------------------------------------
README
------------------------------------------------
-----------CUT HERE-----------------------------------------------
Juggler
(c 1986 by Eric Graham, All Rights Reserved.

This is Version 1.0 of Juggler, a demonstration program running
on the Amiga written by Eric Graham.

All of the images in this program were generated on a 512K Amiga.

Version 1.0 has several known bugs, but we were so impressed with
the demo that we wanted to get it out as soon as possible. (A new
version is coming, even as you read).  The main bug in the program is that the
program doesn't release all of its memory if it exits due to an
error condition.  This should not stop you from enjoying this program,
just be careful after you use the program.

Before you use the program, you must assign movie: to the disk
that the Juggler program is on.  For example, if you have the
juggler disk in drive df1:, type
assign movie: df1: before you run the program.

(A side note.  The Juggler can be started either from the CLI, by
typing juggler, or from Workbench, by double-clicking on its icon.
None of us (except the icon designer, who will remain nameless) is
happy with the icon.  So if you do a better one, send it in,
and maybe we can use it for Juggler V1.1.


Controls:
Juggling speed is set by typing 0-9 on the numeric keypad.  Speed is only
changed once per complete juggling pass, so it may seem to take a bit
of time before the Juggler responds to your speed change command.
ESC exits the program.


This program is being made available by Commodore for use on the
Amiga Computer.  We encourage you to copy it for your friends who
own Amigas.  Have fun.


			Commodore/Amiga
-----------CUT HERE-----------------------------------------------

Juggler.info.uue

-----------CUT HERE-----------------------------------------------
begin 640 Juggler.info
MXQ   0           #T '0 $  ,  0 !YI@                         
M     ^@              )P    )                       ] !T  @ "
M[,@#                   ^     ?   ?_    /_@ '__   #__@ __^   
M?__ #__X  !__\ /__@  '__P ?_\   /_^  ?_    /_@  /@    'P    
M            '@        ___       /___@      ___\      #___P  
M    ?___P     !____      '___\      ?___P     !____      !__
M_X      #___       '__X       /_^        ?_P        #@      
M                                                        ?X  
M      /_\       !QCX       '&/@       ?_^       !__X       #
M__        !_P        !X        /__P      '___X     !__!_\   
M  /_@ _^     _X  _^    !_  !Q^    '\  '!X    _P  <'@   '_@ #
MP^    \?@ ^?@   '@_P?W\   #X!___\    \ #___    &  '__X      
6  Y\         &               /__
 
end

-----------CUT HERE-----------------------------------------------
Juggler.uue
-----------CUT HERE-----------------------------------------------
begin 666 Juggler
M   #\P         @         !\   !Q    ;@  !%H   %D    L0   'H 
M   -                    &P   &D         !0         %    /   
M       +         "$         .P              *0    D         
M      H    1    $0   ^D   !Q(\\    <(\     D(\@    H0KD    @
M+'D    $(\X    $D\E.KO[:*$!*K "L9P  J&$  6P@; "LT0   "PO $ZY    3"/     $$ZY    7"/     %"/     &$ZY
M     '  +GD    <3G5A  #&80  L"/     ($*G+P D0" J "1G$"QY    
M""! (B@  $ZN_X(B*@ @9R@D/    ^U.KO_B(\     0(\     4(\     8
M9PKEB"! *6@ " "D3KD     < !@!" O  0N>0   !PO "QY    !" Y    
M"&<"(D!.KOYB2KD    @9PY.KO]\(GD    @3J[^AB ?3G5(YP$&+CP  X '
M+'@ !$ZN_Y1,WV" <&1@L$'L %Q.KOZ 0>P 7$ZN_HQ.=4*Y    "$/Y   !
MK" \    'DZN_=@CP     AGMDYU      /L    &@    $   &Z   !J@  
M :0   %J   !7@   5    %"   !(@   1P   $6    ]@   .0   #4    
MQ@   ,    "T    I@   '(   !L    5    $X    @    %     X    (
M     @    (    "    S    30    !    "@   +H    !    "@   *X 
M       #\     )N;T1/4P       78    ",20W-3(       !D     C$D
M-S4X       !6     (R)#&ET5&]$3U,       %R    !&9R
M;VU7;W)K8F5N8V@       #:     F1O8V]N

&ET F@ )E>&ET M,@ 4 #\@ ^H !N $ M M M M M M M M M M !D;W,N;&EB0 /P W)E='5R;DUS9P " "7W-T M9&5R<@ 8 E]S=&1O=70 % -A0 "P #9&]S0VUD0G5F * M -I;FET:6%L4U < V1O0 75A M S*6(\@>0 !0CZ R !$AY !@4*G80 "R%"/2'D ''< $O &$ M KA0CTAY ""G "+P!A *H4(](>0 E%P R\ 80 "F%"/2'D ):< 4O M &$ HA0CTAY "HW &+P!A )X4(](>0 NQP!R\ 80 ":%"/2'D ,T M< @O &$ EA0CTAY #?' )+P!A )(4(](>0 \)P"B\ 80 ".%"/2'D M 0)< LO &$ BA0CTAY $07 .+P!A (84(]"KO_\("[_]"(N__RR@&P M *13@+* 9F!(>0 !%]P$"\ 80 !\%"/(GD 4(&D 5G $"@ #W(!X:$O M 4ZY C%B/+SD 43KD 46(\O.0 Q.N0 !8CS/\ 0 W_"6 MD<@CR PCR !0@+O_\4H O "\Y "OF$ >Q0CRU _[9*KO^R9PH@ M;O^R(4 *& &+6[_MO^Z+6[_MO^R4J[__& _U(O.0 KY.N0 !Q8CQU\ M /__OS/\@0 W_"6+SD %@80 )FEB/< $M0/_\+6[_NO^V+R[__&$ "D!8 MCW !D*[__"U __QA V4(#D "*(CD "@3KD 2H%FYB\N__PO+O^V M80 ".%"/(F[_MB!I "@M2/^VL>[_LF8$80 )0 !)!.N0 8Q0 MCR/ /DJ 9@Q(>0 !*%A ?,6(]P'R\ 2'D 2I3KD &,4(\CP M #I*@&8,2'D 2[80 'I%B/0 !.AA ;N6(\@>0 ! CZ R ")Y "-+\ "PC MR0 !@O"$ZY @%B/(\ 8< O "\ < @O ' !+P!(>0 !(0O.0 M !!.N0 %!/[P 80J=(>0 !/-.N0 !0CR/ *$J 9@Q(>0 !/AA M 9V6(]"ITAY $_DZY %"/(\ L2H!F#$AY % V$ !E!8CR\Y M +$ZY %B/(\ D2H!F#$AY %"6$ !BQ8CR\Y *$ZY M %B/(\ @2H!F#$AY %#F$ !@A8CR!Y ("%Y $ H(7P " M "1P "\ +P@O $AY %$TZY !,$_O ! M0/_\2H!G#$AY %(F$ !<98 MCR!Y (")Y )"-H !0 %"-H !@ &&$ !^!"KO_X("[_^ R $&Q$ M<@-.N0 @;@ 0T< 0$$B 2, 2* !2(%(P10H )(@DC"+P(O 2\ +R[_ M^"\Y &$ZY 3$_O !12KO_X8+ B>0 ! @:0 R(^@ ! %9!^0 M %XCR %HO+@ ,+RX "' &+P O"$ZY A$_O !!"KO_X("[_^ R M!FQ,Y8 @>0 %I0B-' +RX #"\N @O2 ,3KD "D4(\@;P $(( @+O_X MY8 @>0 %I0B-' 2I!F#$AY %+6$ !,I8CU*N__A@J$ZY <"/ M'"! (^@ ! $8CZ ( 3D*G80 #TEB/,_P! #?\):1R")Y '"-( M 0B>0 !PC2 ((GD 8(&D )")Y 6B%) 0@>0 A>0 %H M!$ZY E#/\ 0 W_"6('D <(^@ ! $HCZ ( 4G#_+P!.N0 M +A8CRU __1*@&H,2'D 4Y80 $&EB/("[_]'(!X:$CP0 (9P 2\ 0 !6Q.N0 3!/[P 0+4#__$J 9PQ(>0 !7EA ,B M6(]P 2U __@@+O_X#( (;"IR1$ZY "! T?P "6+P$O"$AY MEDZY $_O Q2KO_X8,IP B\ +SD $(3KD P4(\CP KI*@&8, M2'D 6*80 "OEB/0J[_^" N__BPN0 0AL<"!Y "NM' 4H!R !"!('D M *ZT0 KK1P%* $+P ?R!Y "NM' 4H 0@2!Y "NM' M4H!"$"!Y "NM' 4H!RIA"!('D *ZT0 KK1P%* $($M M0/_X8(1"KO_X("[_^ R "&P (YR1$ZY "! T?P "6,7P P < M($#1_ )9R B%! !@@0-'\ EA%\ ! 'B! T?P "6(7D *Z "(@ M0-'\ EB%Y !" F($#1_ )8B+O_XY8$B0=/\ R"01,4( +"! MT?P "6(D'3_ .@@$3% "Y2KO_X8 #_:"\Y H&$ 'Q8CTS? 1. M7DYU3E;__$*N__P@+O_\#( (;"!R1$ZY "! T?P "6+PA.N0 M !8CU*N__Q@U$Y>3G5.5O_\0J[__" N__P,@ AL(')$3KD ($#1 M_ )8O"$ZY !>%B/4J[__+EY.=4Y6__Q"KO_\("[__ R "&PT M3G5.5O_\2.< ( RN_____P (9B"1R")Y '"-( 0B>0 M !PC2 (( A,WP0 3EY.=4JN AG""!Y 2F &('D !&(GD <(T@ M!$JN AG""!Y 4F &('D !.(GD <(T@ ""1Y &"!J "0O2 $ M2JX "&<()'D !:8 8D>0 %8@;P $(4H !$JN AG""!Y 6F &('D M !6(GD (T@ !"\Y '$ZY '%B/3-\$ $Y>3G5.5O_\2KD *V M9PXO.0 K9.N0 *A8CTJY JF<.2'D "63KD %06(]*N0 (YG M)"\Y CG %+P!.N0 !A0CW 6+P O.0 (Y.N0 $A0CTJY 2F8( M2KD !29PA"IV$ _L18CTJY 6F (X@ ",H B@ (? "%@ A (,@ M"!H @" 'N@ !YH >4 'C@ !X@ =^ '> !W( =H ' M4 !S@ M )2 "/0 CN (L@ "*P B6 (B "'( AD (3@ ""@ M @( '[@ !]X ?4 'S@ !\8 >P '9 !T8 !\@ >H '4 !O@ 6( $^ !- 0P #\ M ? &0 !, - !H ! "@ !( ' "@ #H M !2 :@ (( $2 %/@ !8P # '@ - /" $5 M D ? X !.@ D< +I@ #(H T^ -=@ #:X W0 M @ !T %0 +O@ 0 + !B !*P \$ /I@ ( 9 M !J@ !SX " &0 <0 >@ @ L +T 17@ , M 9 # @ $"( !!. P !D ,0 0. $&0 " "@ M W !"\ 0 !8 38 0 !8 3Z 0 !H 4( M 0 !8 4< P L 5< *L "]@ % !0 !CX 98 M &<@ !HP :F P L ;* &\@ !QH ! &0 !^8 M ! &0 " X & $ "" A& +* #L( _V 0# M 0 2 (:@ "(X _* /X ( + (T "W0 ! M%@ "4X ! %@ "8H ! %@ ";P ! &0 "? ! M &0 "E8 ! "P "GX ! !@ "NX ! "P "O@ M ! "P "Q ! #0 #4X ! "P #88 ! %@ M#J " "P #M@ ^\ 0 L [R 0 !8 ]6 M @ !8 ]T /B@ , + 0>@ $) !"F 0 !#< M 0 L !$$ 0 L !$8 0 L !%0 _( M /J !9 !0 #( 8 @ \ % M ,@ 0 !@ / M * ,@ 0 @ #P H R ! $ M& \ " . M #< X@ -X #A WP . #? /P #< M (P M !D * !0 ( % !0 4 % !0 4 * M"@ % / $ " ! 8 , '@ #P !X \ M >!#;W!Y2!O9B!T:&4@9&EG:70@:V5Y2X@ M($$@2 Q(&AO=7(@=&\@9V5N97)A=&4N("!!;B!I;6%G90!I M71E$)A0!$;W-"87-E &]P96YS8W)E M96X 3W!E;E=I;F1O=P!M;2YW '=P;W)T &UM+G( 8" GF @$-Y@(""F8" IF @$.9@(""N8" KF @$ M.Y@(""V8" MF @$/9@("%')_[1,WWX 3G4 _( /I #2\Y MAB\Y DDZY H%"/(#D "*4H CP (H,@ #2\!M!D*Y BG M3G4 /L !0 0 " " !8 > + $ + M#@ /R #Z@ /R #ZP /R #Z0 /R M #Z0 !M(YR "3.\ !@ ,+'D (3J[_XDS?0 1.=0 +PXB+P (+'D M (3J[_W"Q?3G5(YS "3.\ #@ 0+'D (3J[_UDS?0 Q.=0 +PXL>0 M A.KO_*+%].=2\.+'D (3J[_Q"Q?3G4 /L !0 $ , M) #P !0 8 /P E]/<&5N )?0VQO M0 1,[P(! A.KO]8 M+%].=0 +PXL>0 1,[P(! A.KO]2+%].=0 +PXL>0 1,[P # A. MKO\Z+%].=0 +PXL>0 0B;P (("\ #$ZN_RXL7TYU+PXL>0 0B;P ( M3J[^VBQ?3G4O#BQY !$SO , "$ZN_LXL7TYU O#BQY !" O A. MKO["+%].=2\.+'D $(F\ "" O Q.KOZ\+%].=2\.+'D $("\ "$ZN M_K8L7TYU+PXL>0 0@+P (3J[^L"Q?3G4O#BQY !")O A.KOZ>+%]. M=2\.+'D $(F\ "$ZN_I@L7TYU+PXL>0 0@;P (3J[^C"Q?3G4O#BQY M !")O A.KOYB+%].=2\.+'D $(&\ "$SO @$ #"(O !1.KOY$+%]. M=0 +PXL>0 0B;P (3J[^/BQ?3G4O#BQY !")O A.KOXR+%].=2\. M+'D $(F\ "$ZN_B8L7TYU+PXL>0 0B;P (("\ #$ZN_=@L7TYU # M[ !, ! ! !P T 3 &0 !X D *0 "\ M T .0 #X !# 2 $T !5 6@ %\ !D M /P !%]!9&1);G1397)V97( !%]296U);G1397)V97( M 8 U]!;&QO8TUE;0 # "7T9R965-96T !( M U]&:6YD5&%S:P & #7U-E=%-I9VYA; = )?5V%I M= (P "7U-I9VYA; "@ U]!;&QO8U-I9VYA; +@ M #7T9R9653:6=N86P S )?061D4&]R= . "7U)E;5!O M -?3W!E;DQI8G)A@ $ + % $ + M /@ /P U]# P+P).N0 !0CR0?3G4O B0O @O M DZY 2%B/)!].=0 ^P " % "( . _ # M7T-R96%T95-T9$E/ -?1&5L971E4W1D24\ 8 2Y,,0 M 4 2Y,,@ & 2Y,,P 2Y,- " 2Y, M-0 H 2Y,-@ > 2Y,-P 8 2Y,. : M _( /J _( /I (4CG. D+P 0)B\ %$J"9@1P & N M+SP 0 !+P-.N0 # @0,F(2H3)B%"/9@1P & 0$7P !0 (,4, $B%" X@ M"$S? !Q.=4CG, @;P ,QXA*@\>(9P )A%\ /\ "'3_(4( %'3_(4( &'0 M-"@ $B\"+PA.N0 $A0CTS? Q.=0 ^P ! "P '@ ! M"P !X #\ -?0W)E871E17AT24\ U]$96QE=&5% M>'1)3P $@ !+DPQ,0 %H !+DPQ,@ % !+DPQ,P $@ M !+DPQ- $P !+DPQ $( !+DPR ! !+DPS M "X !+DPT #( !+DPU !0 !+DPV P !+DPW M !+DPX 0 !+DPY 'X #\@ ^H M #\@ ^D [+PXB;P ((&\ #" O ! L>0 #Y.KO_$+%].=2\.(F\ M""QY /DZN_R(L7TYU+PXB;P (3.\ P ,+'D ^3J[_$"Q?3G4 $CG M, (@;P 03.\ #P 4+'D ^3J[^X$S?0 Q.=0 +PXB;P (("\ #"QY M/DZN_JHL7TYU2.<@ B!O Q,[P ' ! L>0 #Y.KOYZ3-] !$YU O#DSO M , ""QY /DZN_A0L7TYU O#B!O A,[P # PL>0 #Y.KOX.+%]. M=0 +PX@;P (+'D ^3J[]S"Q?3G4 /L "0 0 0 ) M #X !< > )0 "N R@ . #\ )?5&5X= M #7TQO8616:65W ' )?36]V90 # " M7U-E=%)'0C0 !, E]3971!4&5N ; -?26YI=$)I=$UA< M "$ U]!;&QO8U)A0 #H@;P ( M3J[_N"Q?3G4O#BQY .B!O A.KO\Z+%].=2\.+'D Z(&\ "$ZN_S0L M7TYU2.

0 #H@;P (3J[^U"Q?3G4O#BQY .DZN_H L7TYU # M[ @ $ ! !@ L 0 %8 !T A )@ M #\ -?0VQO0 E /R M #Z0 E.5O_\0J[__"!N C1[O_\$!!* &<&4J[__&#L("[__$Y>3G4 M /R #Z@ /R #ZP /R #Z0 H@;P $(F\ "" O M QO%K/(90S1P-/ $R!3@&;Z3G42V%. 9OI.=0 #\@ ^D 12.<\ M "H!9S)J D2!* !G*&H"1(!"@G8?XX#CDK2!9024@5* 43G4 _(" end -----------CUT HERE----------------------------------------------- -- andy finkel Commodore/Amiga {ihnp4|seismo|allegra}!cbmvax!andy or pyramid!amiga!andy Any expressed opinions are mine; but feel free to share. I disclaim all responsibilities, all shapes, all sizes, all colors. "Never make anything simple and efficient when it can be complex and wonderful."