[net.sources.mac] 3D maze display

sdh@joevax.UUCP (Steve Hawley) (07/16/85)

The followong program displays a maze in three dimensions using
hidden line graphics and elementary shading. To exit, press the mouse
button. System events are active so that the window can be dumped to
the printed or a Macpaint file.

Steve Hawley
{joevax,mouton,alice}!sdh
(This file must be converted with BinHex.Hex)

#APPLManx$0000

***COMPRESSED

***RESOURCE FORK

(    0    S@   +X    $H                     

(                                           

(                                           

(                                           

(                                           

(                                           

(                                           

(                                           

(    !@    H   #F     @    @!8 _/  !J?    HP

(     %!^@?6*TC_0D/M_?0K2?]&0J="9TZZ!,I<3T)G

($ZZ!NQ.5O_D2.<  #8N  A10\;\ &0]0__^-B[__M9\

( !D/4/__'87EFX "CU#__8V+O_V4T,]0__T/7P EO_Z

(#U\ /K_^$*GJ,L@'RU __ V+O_^2,.'[O_VUGP R#\#

(#8N__I(PX?N__;6?  \/P.HDS8N__Y(PX?N__;6? #(

(#\#-B[_^$C#A^[_]M9\ #P_ ZB1-B[__DC#A^[_]-9\

( #(/P,V+O_X2,.'[O_TUGP /#\#J)$V+O_^2,.'[O_T

(-9\ ,@_ S8N__I(PX?N__36?  \/P.HD38N__Y(PX?N

(/_VUGP R#\#-B[_^DC#A^[_]M9\ #P_ ZB1J,Q"IZC+

(" ?+4#_[#8N__Q(PX?N__;6? #(/P,V+O_Z2,.'[O_V

(-9\ #P_ ZB3-B[__$C#A^[_]M9\ ,@_ S8N__A(PX?N

(/_VUGP /#\#J)$V+O_\2,.'[O_TUGP R#\#-B[_^$C#

((?N__36?  \/P.HD38N__Q(PX?N__36? #(/P,V+O_Z

($C#A^[_]-9\ #P_ ZB1-B[__$C#A^[_]M9\ ,@_ S8N

(/_Z2,.'[O_VUGP /#\#J)&HS$*GJ,L@'RU _^@V+O_^

($C#A^[_]M9\ ,@_ S8N__I(PX?N__;6?  \/P.HDS8N

(/_\2,.'[O_VUGP R#\#-B[_^DC#A^[_]M9\ #P_ ZB1

(#8N__Q(PX?N__36? #(/P,V+O_Z2,.'[O_TUGP /#\#

(*B1-B[__DC#A^[_]-9\ ,@_ S8N__I(PX?N__36?  \

(#\#J)$V+O_^2,.'[O_VUGP R#\#-B[_^DC#A^[_]M9\

(  \/P.HD:C,0J>HRR ?+4#_Y#8N__Y(PX?N__36? #(

(#\#-B[_^DC#A^[_]-9\ #P_ ZB3-B[__$C#A^[_]-9\

( #(/P,V+O_Z2,.'[O_TUGP /#\#J)$V+O_\2,.'[O_T

(-9\ ,@_ S8N__A(PX?N__36?  \/P.HD38N__Y(PX?N

(/_TUGP R#\#-B[_^$C#A^[_]-9\ #P_ ZB1-B[__DC#

((?N__36? #(/P,V+O_Z2,.'[O_TUGP /#\#J)&HS QN

(   __QL  !$-BX "L;\ !$T+@ (4D)(PM:"1>W\:!0R

(#@ 2(*T?  !9P  ($AM_Q:HG2\N_^RHR"\N_^RHQTAM

(/\NJ)TO+O_LJ,8,;@  __YO  !$-BX "L;\ !$T+@ (

(%-"2,+6@D7M_&@4,C@ 2(*T?  !9P  ($AM_QZHG2\N

(/_PJ,@O+O_PJ,=(;?\NJ)TO+O_PJ,9(;?\VJ)TO+O_H

(*C(+R[_Z*C'2&W_+JB=+R[_Z*C&2&W_)JB=+R[_Y*C(

("\N_^2HQTAM_RZHG2\N_^2HQJB>+R[_Z*C-+R[_Y*C-

("\N__"HS2\N_^RHS4S?  !.7DYU3E;_]$CG  !";O_V

( QN !;_]FP  )1";O_T#&X "/_T;   .#8N__;&_  1

(#0N__1(PM:"1>W\:!0R. !(@K1\  %F   0/R[_]C\N

(/_T3KK[H%A/4F[_]&# /7P $/_T#&X !__T;P  .#8N

(/_VQOP $30N__1(PM:"1>W\:!0R. !(@K1\  %F   0

(#\N__8_+O_T3KK[6EA/4V[_]&# 4F[_]F  _V9,WP  

($Y>3G5.5O_X2.<  $AM_SZH;JC^0F<_//__3KH%%%A/

(*D22&W^TJA1J%-(;O_X/SP !#\\ "@_/ '\/SP!4JBG

($*G2&W_2DAN__A(;?W>3KH$PEA/+P _/  !0F<O//__

(/__/SP  4*GJ1,@'RM _^8O+?_FJ',O+?_FJ15.NO[6

($)GJ700'TH 9@  $D)G/SS__TAM_^JI<! ?8.1,WP  

($Y>3G4@3Y'\   @ * M64^I=5A/3E;_RB \   !!&L*

($'M_?1"6%'(__Q93R0\0T]$12\"/SP  :F@)%\L$LR\

( #___]8AD'N_\HQ> D  !A#[O_\,CP! &%F9PXA40 D

($7M_&@A2@ @H (R/ $!85!G)"1-828D1F$B1^T !-;X

( DTH (B$6L.H (D$=2*)H)0BU')__1.7D[Z^>J@ B81

(&L$* UA#* ")A%K!"@&80).=: "*A'9LE@ 4<O_]DYU

("1X"E D4M3J !@P$D?J  *TFV<&2IM1R/_X,!LV4]?*

(+)39PS6_  ,4<C_]D* 3G4@*P $P+P ____)'@*4"12

(-"2(4D ("%\    !  D,7P  0 L(4  +J "0F@ +$J1

($YU2&W_/JAN< <!^ %= ?@"'T(X"/(A_/____\)UEE/

(#\\ !"IN"!?(% AV H\(=@*0$AM_@@AUPG>J&]9CZC8

("'7">X@> G>2&@ $*C?+S@)[JAY0K@)UEF/J-@AWPGR

($*X"H1"N ID0K@*:$YU3E8  $CG" !*K?WP9P8D;?WP

($Z2> "X?  *; P_!$ZZ !I43U)$8.X_+@ (3KH"I%1/

($S? !!.7DYU3E;_L$CG#A X+@ ()FW_1KA\  !M!KA\

(  );Q [?/_]__IP_TS?"'!.7DYU2,0F!..#.C,X $I%

(&<NNFW__&<HNGS_]VT&NGS_^F\<2,0F!..#/7,X /_(

($)G2&[_L$)G3KH (# ?/ !(Q"8$XX-"<S@ 2D9G"#M&

(/_Z</]@IG  8*(B7S ?(%]F!* !8 *D 3Z 3M%.5O]P

($CG"! D;@ ,0A(_/  Z+RX "$ZZ 7Q<3R9 2H!F($7N

(/_ +4K_@D)G2&[_<$)G3KH!3C ?."[_AB9N  A@(D(3

("\N  AA*EA/.  D2U*+%+P .DI$9@IP $S?"!!.7DYU

("\++RX #$ZZ 4)03S $8.A.5O]P2.<,$"9N  @6*P !

($B#2D-F6!832(.V?  Q;4X6$TB#MGP .6Y$%A-(@Y9\

(  P/4/_QD7N_W M2O_"0B[_<$)N_\Q"9TAN_[!"9TZZ

( $N,!\Z $I 9PX[1?_Z< !,WP@P3EY.=3 N_\9@\G@!

(#U$_\Q%[O]P+4K_PD(N_W!"9TAN_[!"9TZZ /0P'TI 

(&8@+PM(;O]P3KH!+EA/+P!A&E!/2D!F!C N_\9@LE)$

(&"^.WS_W?_Z< !@I$Y6  !(YP@8)FX ""AN  P6$TB#

(#\#3KH D%1//P 6%$B#/P-.N@""5$\V'S@#F$!*1&<*

(# $3-\8$$Y>3G4D2U*+2A)G""1,4HQ*$F;"< !@Y")?

(# ?(%]F!* 48 *D%#Z 3M$@;P $,"\ "!(89PJR &;X

(" (4X!.=4* 3G4@;P $( @B;P ($-EF_$YU,"\ !,!\

( #_L#P 8&,*L#P >F($D#P ($YU,"\ !,!\ /^P/ ! 

(&,*L#P 6F($T#P ($YU(E\P'R!?9@2@!V "I <^@$[1

($HM__YG"B!X"GPQ;P $ !BI]"!O  0B2! \   2$!# 

(! !9OA32)')( @2@" )3G4@+P $H#).=2!O  0B2" (

($)!$AE@ A#94<G__$(03G4   &, 0$! 0$! 0$  0$!

( $! 0$! 0        $  0        $!  $! 0 ! 0 !

(  ! 0 ! 0$!           !  $      0$!  $  0$ 

( $!  $! 0$  0$   $                ! 0 ! 0 !

(  ! 0$! 0 ! 0$! 0   0 !  $    !      $! 0  

(  ! 0$  0 ! 0$  0$!   !       !  $      0$ 

( $! 0$! 0$!  $  0$! 0$           $  0 !   !

( $  0$! 0$!  $  0    $! 0        $  0 !  $ 

(  ! 0 ! 0 ! 0$  0 ! 0$!  $!   !     0 !    

(     $!  $!  $  0 ! 0$! 0$  0$  0   0 !    

(        0$  0$  0 ! 0$! 0$  0$! 0 !        

(  !     0 ! 0       0 !     0    $! 0$! 0 !

( $! 0$! 0$! 0%3;VUE=&AI;F<@06UA>FEN9P      

(     #_____________________       < $H  $-/

($1%  ( "@  __\@           !__\P   <      $ 

"O__(  *4      

***END OF DATA

***CRC:2C7C