[comp.sys.mac.misc] Hypnosis, a new module for AfterDark

keith@ac.dal.ca (11/13/90)

Here is a graphics module for AfterDark 2.0 that I wrote and call
"Hypnosis". It is similar to the graphics in several other screen
savers, but is unique (as far as I know) in letting the user
set the thickness of lines drawn. Many different effects can be
acheived, some of which are very interesting. All the drawing is
black and white, so it should work on any Mac. This program may be
distributed freely.  I would appreciate knowing which settings you
like best.

Keith Conover
Dept. of Biochemistry
Dalhousie University
Halifax, Nova Scotia
Canada  B3H 4H7           internet: keith@ac.dal.ca



(This file must be converted with BinHex 4.0)
:$'KjF'j[FfPc,R0TG!"6593K8dP8)3!!!!!0+J!!!!"l&P0*9#%!!3!!$5Tb6'&
e!43!!!!@!#%#!!a)HA"ZEh0TFb!a,M!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!""4'GY384bD`%!Sf(jhU0Krqi!!"$
V!!!!!!!!$+3!!!!!)fi!!!!!!!!!!*la!!!%#!MJ3EZ!$Ji'p'F!5$KU4HS&r-%
$J!!RV3+)Hk%#!+dA&3%`))#4J$U1$*!!j)(MjXfF0(0!a(!"`i8!JN')R'Q68mi
DJN!"j0cCmfI3SdL$MJU6cpY4#1[q5Ce+YDV9UeLcDYh+YD[AVeS$,U!"aN(!S@f
5"Y(hced)C!QFJE'S4X3A%"p!-A%"#!k!&`PL!"-!`NNG[f$Xf3Aa"43C*p'8i"(
J5)dm%@m!%%"blS-2%!Q!i4UJi3`$%8"!4""0'J33-`EJ6*SE3!b+*%SSU#%!Ca%
BH5b5J%$aMapV$Cf!QE!5"C%)#-*'Dh!4)-SK[p'#a9T'4L!0*4$13&!MN!!&#$5
DScN$rc-!#"%2SVHHV%S5*")K#3!!)3$D)9Q!Y#'!#!$!mBmXJU3&!$m%#%)3)*)
)mNN`R[!$J!8U2,&#%!!JX!)H!@!!J!3K1"-L#&4%JB3+N!#!3-&a+`!KdJC8!!"
"'!&*Si3%CUJJJJ3J9!H),i#)!3)NKjaK!"d-`#*)'4DJ+))5d`3$`J'6!"1*+b+
"iJ))6)#b!KKSm!%!MJ"JJf-!%U"TbBmJY+"C%!GC-'@9@A)$b*CGZU"%NTmP!)N
LCpJ*3"5"5(*)'3`Sb53YJC4"!)TJX%)#)%a%!`!-)cLKQ3L'5-!,!%!!KLBKD2S
5KK"f)D%T$'#B%N8L8A$*!'L$RL(!T53N38)eB%EL$!R)S+!)"UhB'-*"%S6SecF
()H#0K4B`m3dIq,M`L@#%'HEL'3SFjjU+B"!3K$X!d2#FI"U!CjSD&)L!(J(6V"I
"'JU3!1#UGXZ8)3iB"X4b%!0M`11YR!M!FSL!9`j4*iV4("-*-*i!%Z1R!(J*jT9
Q%##QYe#S5!%%8!!#!L!3#")0-#!%-SfYhPB%5%"k'ECBBamiS8mrcLcf35JLZ)#
)c[d)Fc-SRHk-bp%T%1h+d5S36BS69V6&f3!iS1$'L#CXM3!*@c[!J`XL#A%%$!D
!!8396lc!`!X+[,#!%lS!S)B2(i!K"GX[8!#hh(3M)!6HB!M"Yppackf,!(B3,X2
KIbXq!"b%Lh#',e-!FBBbQCpK6HIL-'"%Kfdi`,F#2aJ!Z#i)L)"h$dGFD#d(`$M
K"@02[!1!!dj!3r8rkR!@!!jJGjK&fb%&`!lGrlL!`KGXqi!,B8TmFBET6dK2@!p
I!%!"EHki66Fri62![!FJE!d"#)bB3-80CLS3J$2`!l"!!0$8,lmdpGp2M4"V#)!
hkZH"!)!$"14"!!a3B*''!%!"0`##4K$BS38#`!!0qBFp)KJ!FP"3J3`NJ!-K+%&
cI0###-MJ"L@)MKZ3!%F!!9!($$SLJ,N!`"SSLS'C!K!!(&*"KaB*!$CbD+B""%!
E404-!,KK3hJN%BBq"+)4KrK$-a(JL%NX`"*Yb)`N'M'+9K4L&V&Ba3YZ-5#S51)
9`3J!,9)4L!BJ)a!2F%B!%'+-E)cM'me%4b5@%3&E"%-5imK'1Zka3h)d8`+fk)2
--8"'"L#$"D!"""MXi)*1f)G&rU'"IrMJ(f,iKb(qSBTrG,'-Ae5M'-ZS46r#FBP
QFam-$R!1)#"K$J%4`KPdbFXcS1)8Xk4N3`+!J"Y))L$""-)`PA!$9@J'Q3F3TJ3
CdF`,"N3+4f"!l%$`"Pj3j)'Si)6iG0%2*JKKDa5B(5"XKc[GQFph9[!(19j!YPY
jl6`f3J*k')!+Djc6Hqcm3Zj%dV[IZ80i'0#D5,TQ)ap3!!H6X-%KV)@"GGj1S1i
XD0@3!*'qh3h"(Ip!K`L`-G+DL-5'I[L"#d+U8Z#KBK)YG8G,fB'+50K3%8K`3dK
4%3SE!U+Pk'LT1PiDdjR@&+K'KHP+CEV5SGU8#MRGk5h!`)5SSJ-9T!!$%C!!fP5
L,P@S4rhU5QPU8a)i%T+5T+3P-DP*!Ia$$[p3a$mSm3pIr--Brh#'9ANDd)%U3+2
r)!GR$S!$KRj0IA#M@ckdN9KGm%-"+P!!#)U!!LM`J!8#p!&Q`B%fD3C!#6qJ!6)
0i&P'K"D0Qd"E,C&!Kp&k&J'Rr3[[G1%2FF!!Xmk!"4XddJ9Jb!#hXYJY1E`3$%!
%`$5hl@%`q#'9(%M3'XQ&KQi$B)lHrKCr`3d!1SKVA14L&K[,EDi%XC&FDNaA(0E
&,$@b1pcL(TF"bH9'H2rKh#8Q9aV6VDj[-5Z0l'lA[GipiRcVU`dPr+3d&V&&-TH
CJe8mFe2491Bd'fa0#,mf"j0!*QE9!BZI#1!-&K&%$M`F3aLX`#*c%B!"P,"EDl`
"!6RBB3m"&Q1Tp*!!a8*mFBb$L!dDmq%IrK!LMV@Kib)HdFIrk-F4FFb00bKJaeG
NSN938'0qR&%!(X#aLf&X*LJL1FM@`$%fLJb!+5*CbGJB-TQ[U!dN@lR!ZfhbNmf
N45N(3"SehXFC!i!-,C2jLfHqm@l(c'8PpYJ!94EbESPFk&BL@Fp`AU+6Gaa(1r1
Ka[VBXacmA1JeZPR31@kd%"qYk#151BjY4[52-aeT1HqBMRBf3BhcX@F1F(V(@V3
'UF-mk&12@YArb(5D&dhQ2L+CeUfHY*N!+@8!3+2'q+LM-@jY*N)L1G1m$[@VIch
V8M0kai"-0E5A('GP!f#4cGC$MHp44cLFpB*TVH3P$C!!5B[d3ahq!))r,1%2G[a
$#2r!",A,2'0J+cREK)BbYhpXj@'E@Y6LrM'NQHaV*J)ldpa)VM1JdH,k1L1k("G
LID&4hT!!Fk1qe,K[b,94AfPSI,V3H!-(N!#`@lhZ&KS[Q1dq9%$c([BF'cQRfci
iF0rT8N2Q2CG'ckN4G&hXBc1,lMNhQUi2HmabYDd&`!p`Zr8lGadDADI',aFX3G#
+eX)5$S"Tcik+e0,5PPNR1c&M5h9QS%d+YJ4')#`%!L3!SElHQ#AHND"h[[Zp[Z"
Sl$dX-FjlQ1'IkI`'"m$4eic#marXF*Y#epFSeCP2&rH`!Z5I9hQ#`M1A@j0!kIm
+$B,FC#!"ZFN!A2pJLl54)&NB3$U53T8$6!%1B4K$'Ya`"J4-S3eKB!-EbM#(V!I
%pmKAIKRN!*3#($rjE!$+!)53!!B3%m3!h$r$'DB2P!1%Irc06dS2H+!5PVJ%*L"
S`K[)8)IPJd!-H3$"%XU3!!BkS!%%3r!',@%(dpF!U4!$1C!!!c!!!JcBJ##`"[c
RId!3I#j!"XRR!Q1!*J"J"31!$V`h&GD("Q%!"f93!%``I-aAI8,`"RL3!))%83"
B!!)aL!A9p`4fN!"mZ%33#C!!"'j!J(*!"c%"!N"K!&$!"Q(J"LiB&!)3#P5!"Q8
!!R4`"fm!!R2!"QP!"Y-A%f-JJ(3J"fr!"P$SK#"`"eISIb"`K'4`([ah"QK!"pa
N"L"JK8JB%f3J"f&`"fl`*9R`"R8`KQQJI#!!"eiS"Q%J"Qb3!(q#@!CQ-(e8'(h
,*`H"@!CZm"*k`(c$XAac%"2qGi3b!3-TB"jL8!GZf(mai3CT-!C25!G6Z!BYF3G
Kq)4'+!IM"iQ8D)PK)!HTk)5i1)C1k!BJN!!(I*JqC9!'DHKrCG!'Am)%YcL,N6L
*D9#*-B',Fe"rSqL,Fr!'EI#%GH!'G6#0b3F#C!!6F'#%H4!6Gi!'TrKr'HL,'GL
06pJ'Ed!(D5#!i!J6@pJ'C[!'2`J#`dH&N[J5mNL!r1J'i@J(9eJ(12JP96!(6dL
'CYL1mLL!)3!#9B#%FB#3!'")JVi)I(EB"M(a"QC!"j)BKf83"X8iK@%!![#iLrk
(LdmBMYRSM!,iMBUiL'0!"epb"EeiIr(iIaSCL,FB"KjjKVYBL9liLVX)Ibd"MRC
)KX3(LU*i(Q&JN!$%ade)q)D[f)a!fC%a`C!!EUL+)'#88`Kr`bH5dLL29HQ3!2r
h"MI)"M'"KMcCJR2`*8P`!Qd`N!"QbA`LQBEpH)lTk)pdJ*CR%"2!f)G@#)(hTjG
I-J@5Q)BT#3FZ33FC+!FRU3-0d!$lehrr&i!$@)$Fp`CMi)4Y!"0GQ(p%8!C`J*2
Q336*K`Cmq"*2@*&Ti)-!Q3F0J!6*P`CQ%!CiB"j1`*BT139E+)mT#B"(D*)T+33
cJ!3J3!0)F!-%!AX&S4!*34$qB"'@3!J*`!i%`3%!8$F&J"B%)30cB!A**a!!i!0
YB*lC0a"@d!4&i!49J*jZ3!9&J!8e%K#'-!98)!9#'"$(P"3%-3$UF'jLJ32DY`i
!-!&Li32BL3NG#!!H)"C%S(fl9`*LS33@#J"NBcp3S(dHD!0LJ5i$LJj5%4!T%43
c%a),N!!X")%!lGF5,c%(#3!&NRJ&CBJ'1U!!0ZS'5,#'EDJ$"M!&)NL#1Q"m`#G
ma+F$[THN`hF')6L#CA!!Bi#,i3L%Bl-!!!: