Date: Mon, 20 Dec 1993 00:19:42 +0100 To: Macgifts@mac.archive.umich.edu From: pooh@brokendrum.stack.urc.tue.nl (Ernst 'pooh' Mulder) Subject: Trigo 1.2 This is a rewrite for AfterDark of a screensaver I wrote for the Apple // back in the old days. It's also FreeWare. Trigo replaces 'yaadm.hqx', also present in the archives. It phase-shifts a plot of the function: x = cos (w1 * omega + f1) * cos (w2 * omega + f2) y = cos (w3 * omega + f3) * cos (w4 * omega + f4) You can add your own function parameters to Trigo, but you need ResEdit to do so. The figure data is stored in 'TRIG' resources, editable using the included template. These resources need to be numbered consecutive starting at ID=1. The first time Trigo encounters your new parameters, it pre-calculates its data and stores it in 'CALC' resources. Don't forget to edit the corresponding 'MENU' resource! Happy Hacking :-) History: 1.0: Initial release 1.1: Trigo now, by request of Lloyd Wood , supports Colour. You can choose between not using colours, using plain colours, and using wild colours. 1.2: Changed colouring scheme a little, and added dot-sizes up to 5x5. ---- /* internet: pooh@stack.urc.tue.nl * snail mail: Hoogstraat 214 * * pooh@es.ele.tue.nl * 5615 PX Eindhoven * * telephone: +31 40-572314 (home) * the Netherlands * * +31 40-446969 (work) */ ---------------------- { BEGIN } ---------------------- (This file must be converted with BinHex 4.0) :$94bD@G[)$%Z-LjcDA3!8dP84&0*9#%!N!33c3!!!8Bj`90*9#%!!J!!%-eb6'& e!X3!N!-@!3B0!!98FQPREf9cBA*V)$)Z-#!J9%e36(-!N!SV"3#3&!`R!*!%rj! %384RE8&%FQX"!+NkCRZT1QCp!!!9i!#3"JZK!*!%9[`!N!L#5Jc!k`@`AV+9Vmr A66RPY'+C!M!l3MIYEId'4FY0,ff5XYZkGUh-[(kc,I@BKkFQTkCdihZ@hTC`3VG 2E[[C%ClC%EE*0X*ZXkiMp(KXNf1%Ii```XMf#0eQ%YB4RS4Z#H9(@"&1pNNfBB4 &Z8EB*J01q)a`2"$!GG3kflS*MdABNH-C'@k#PNdfRJ!Fd#3V)JX4AA18U!#RY@b S`VR,&N[&NdV!ZmZ49M+C4#UHlZL)l,)194491Q`G@L+Z@U(Cd"`IE'M@"U"IDFN (JG6[LGXrH4HqmA9phc+3!'[IJ+QU+hkVi(IRJU$p592C9V%fi![XXqbp(Z6U+lV 9RqNqC2Qq`l*hCak4DaG,*dB8akL0b2eae'1N0TY3``IkfDA(&l`8*AG%ZblUd4C &RGU5U&fMU&9cm',HAG,P*rq#NK-P*bT2e&['ci5cNUZ(1r@h3bRplITD@MJq8em ET9!A--[i6%GE`eRpRC)81IKVr,A!$lD%QXk5+lBHE#BeVKqIHDBi[PJMa`18(fF &Y63D'U(b8(YpVCI'CqlbaJT-CemHR`RI`VZhYi8R3qfK,I@eC9i`X[9)VU5E&rq ma(G2q%p)iU`rRm2[HUqVP3U6MVVE-HUZD!"SQ85Y3%Z!eNSd$fJKd(D*-U"fh'h NmK@(Er(Y$fI215SM"U@P18p#YbRR5HM#c6RGdG#EaB&YEIlDMXM'eM&hAEGq42K B@dE@SbRpL&UdV@dXYVBip1bpCr8MSHC0cEGDQjXMc6Y-aASfIQ"j0hIf1HYZehA b4XPq![UZdRBHUHNR,m)D)*f4k[%laar*D6`Tp*XDEQkUCf2&[Z*0hqPchS#mp#H L4%Gj+fm[L36+'"hHdMPKS*9Pc2TiJUbG[aZej"J-$$E2X)0KRfFi`($--jaJ11F C,M"Fm``2'*jjKKF-Vf$%#rcjilr'Y(8I@'CQaKTpqK0HR&XT(USEB+3IDY`3$3M YJ(db@'PrZD(Q-*'AcM2X35[C'kaN-#-E%[EIT[4$kJY`pdL8f0iGEHL6PH2(5SX hhG8h2cff2IimZ&m"[R2XAY`+a6Rf3plNpilGlFm65Q69$k'6$M9mB$[FG&Br'0T L0Q)YCq-c)@3%j[eJlM[(4*G"Far1Jh"NPqK"R'qJjp"M2#)`R)m#pic2q"d'*Kd "`IRk*D932eN[DX(aCeVXSYE8C5hl4Dh*beVRmaTKGaZSQE03I['bXR0H1AK4qIK PCGGjjEb2,LSrHeRC-kpmp+,bK+'FkaZbl0c4CNlXkf+1$5Ge'r3I!a8R'1DF['M bcBN2(r[Jk2BfZ!bCXfqSh#qQ&1HG15HM3-8*KZRNZ-NhR0`**bNi-E6RR"`%Ed3 dAdGEcAkLA%j6Aq6dl-@F[#)RUe#jN!$6j"Fj6Ab5dr[2AFVTrCH0R%3rLkc3c!l Cc26a3E'e%,%#j&!TYjEjAVEmCDllK3I4pU,T+ji3$AqH-G[p"R1ZqhQNT,9N5e8 l)a0"Ec*V$Q1-j6!lXqF`"h2N-#GcjM!AFq8`$r2N-#rcq[0Rpkr3L'A$q+q`G4` @QdGJ&DYqB)!&X18&ki,k02"+i$i62aA`kG1(8rSTeE(1TjrUDSRDFCrZDK'md-5 h2b)V9-i!2C9$6iIqm&f"j(U+ISRj(k(RkPVdac"ciMb!14@Y*a(4F@*D3QNLNfY -ji(`XIHUiHe-D'*b[pbU4VfL5dCSk$pHa-4pkZIGNr"cHYD2h-IJD@lQp8iaiBd TmYlm9pGlBVG[afiIG*p'M1+E3kMS8pEF5mHrNATpG*C$cerpji0,qjpCJqhmC1K 05f!jh2Ymj$$ECbe5Hh,jrNd2QMYh)DbHm"GJ)qb9Ya8mJZflPD-A'UE*fM6$I', $@iKGP5f@21rUN!"qNUIdNq#l`&mLq#E1J*F+[!EH'+XC31RBjFh41-"F1$di[6L GMDYB!@rG9%DZZ1(,-86H-VTU4h$3*Gd@B-pd29ESpf%,'Q",aPl&1`1fCq4hckE ZZ%HQYFc-X"!+2URb#mPELCNVa-b0LTPVqcZj`T2K6L,"1Xr!"[&Q[TJ3adSIHId f13ALYS+hP,C[@X8@aaZ4dq+D@p'N0m+r-hcXRCGVZKRH055@!EB)q5jLeq&@a!V V9l&&iKcl+GV$-IB`NVDL"@mm$!GaVha9+C31PdA*qT!!kF)A+$im`+k,9jViNMP AFhk3!%C"h'l-a&cDTZ*kkD!`AMEV5'4N*(**&jPBS8KpGT&3e#R`5,!Qb+cVJH$ 9aF++1LFQK$CCeS,0j%B6C!ckBX-qKAcca``h2`1IYSU'Rj)0ICrK0Q#2"#H$p99 %JAbM3`8fpX2'H'0ml%&ic'0&I5[amR%U0$U*&'l!KJ"d1SG1!cfG3dm,em,9&8p 2Ld4CBf[8'QNe@hJ+,D`CHG4Imcm'FN$Q9j,!&"bDRiT1Fe)qR`PSP!U0rbBX0Vm Tp9($fk9m68qITb8EDEBchlM3QHKIVqLV6lT6YQQ"bA$+0MdVfV38,0'Sj6lbV%0 h0lB'E0%JHZNU[eeddiIpkiZM%H$A',Mq-2$'1IbMlF"&%mlL1i'Aa*rH'SbrJ20 9R(pcYC!!Bp!$$AZp6AV3eKIAY9,4ZI3mi8QX3eEj#-k)Z&L1#L3UcYQ[aQ6PbC0 SY@5eRf2CD#G3FDBN+`m-FFkbHR1qa02jl2Feb4*+jadB@PD`'-jb@NKVD$-G0ad B[&NYXG!*"`XS(qGUF*EQ(16*A"RdUi'jT9CUi9-9lV)q6IPQ9NRe$20%LUZ$5Mb fSVNVdQapUY+i9KRADR'ppJJ%KrTMD8@)p5Ta69(5KY`43qk))AG%bLeBaY8qhUY QdJ+&irh5Yradr9hGq(r!hT63HT++)0QEeHaZ%qT+a2'J,b"E5&@(KL9T3e+p6G% %P0mdh*0-T$-#Fl6"4b)95`V3(8ld+$b@kZ9TL!R'JUlqK*BF8PA*YiA94&VkXXM 4Y8HJTHEHqr&SMGY5#ar&J1C9q#U,'SGjLjC+CrJ8,25r`MGRNldbJj@B0Ia2`2I b#LUd9H*H5@@f+YbVU0C@MAXeYG[@i,i'DMl4&Xk`bT[8T*V9dV68hCk-BBaQm5C A9b,CQi0&&'*fMGYA5Z@XV1-E8iP-)TC-M1!AKh,HVd*46I%B6bXpDUVhH8MGY&C +PI2Gr`V1jqEiaLYZZUQ+CrS9[PY6"a3-XjE&$&Kq*0lBfcKbGlXhFY@FUq3`[de 6-`S%%fQHlX(BTp+a2BV'qe40ZQJB'NSUr"YIjchUi&!f!jYm)iKU0YkIiBN-[df &HEjEi5NaR8+eS3mU[$QQ$I#-U[VFEK&5-*f*p3ciXPU2,j09I+QNfpfq&D(chN4 [kKABd"*))FEl%['XTR#P0j&4YDrbB6A,Hf)TRN8a4C4d#fJqhS&B6*hH@#E'N4b QE8S%r!VAP$5QV%G*PdX6-E31e$&6-Xe%ULHCl99kH8BC(%V'-STd!h-j@Cj5"&f 9N@B(GbXDB%`JaM#E5Ha41),8a'mS2*EK'j[V+Rbm@48*)[UiNK(+`VGd1l@j*Ea Y,T+P2"3E'KV'V@G!'&LhHJ@Qq[T&FUV&C*ErBhjmRrbh3hrmF1r9AP!@@aiRPrN hbkfrkC3&Z5FpR"l"r8ia#0J6[YqaZIeQ1,#,&(!['*3kPL8BEl53!'9PHPXU3aE ,M@R"XeM#@cXL(2HqMTEY(H$I)Il[`IdqdCl#0,hd6(AHDEbaN!$(h'mNjT!!N!# &l-#NM0a$b&-U-8D&`2$D*"UD&J',Q(@-(FE6,c%lP3'l3f)1#J"l5',jY"lBBa* c8LZ`#BNY`+C%RPFPYT+kJ*f4YYm5H9ap#h)+j,e&Zj!!QV(I@3A2Q`pHHGkda-U PRXc5+cBXbTX@EHbphq!4jXVlS1&2ecPjpd'lM%DPhZm02B&p5Fc%FQ-1#RiL)ck rqCLVMV(QQ#Z1Z3R0EMNAPTVF[Q2X-R2l$4-cREp"PYik4l1Di9[&RdhQ5V(Zr`# 3!`d0%&4bD@G[)$%Z-L"5C@&N6@9869"-F`#3#UF2!*!4&J#3#2q3"&4&@&4dG(K d!3#Qa4%"U6UH-J!!!Ai!!!9*!!!"#3!!!bfDap2e!*!'pbN4!!JF$$S%85Q2%fP rNT8ZFHE36%NcF+BN3QC&FIp)1XApHIkKK)3cI+4ITK3N44+2%kSPp3`PG'U6S*Y BUZ(BDfc4eaerh*@&("ZAk,Kh4@LQ,kjmA(PFS4dPB5SDijU#TYG-'C5TkrE9$00 "[+C-5DqC(ZNRL"KD-m)LdZFBLJIKH&pY(0qS8HfDmE9VeUk$iqXeVY1SFHe'H"M R1'P)&&I!`8$ApU%NA,N9&30T1KeDa95Yip'K)T+D*R9kQ61*#PirCb5&1aS(*3' K+RZe`6RJrX1,SXSc0BIccB-B6cF2QXe*kSEcPShY2AT,F-2K*I)pi#M8dF!I#(C e0$&QLP)Qm)rhR@B"#NiTH3##$'"'*T46lRU5eAT1MZ%*E5#KGLNjHK&qRTb`MR$ #b31X!!'[Tj`#T(J1F%EaE18%r301aZ`)mS$Vk0X46ND-S*!!Vf39f)%"A!4U+cJ 22M,XGd602P`R9f1!Nhap&eQEfb)&8h$#`VXhDU%C+lJQ2i(j$"CSS(cekK"QXkS XUeN*,fIPE+BqTG9ID,L#Qf!h"'946Q"0!8lAM''K`ke50if0)(mD![E"-[jR!,3 @D63"d8Gp*idXS3pdEm-0`QRA1B3rri#9G!6@$b*b0G4k'`YBmVk%Fj(J3M*meJ% ,TCB-AD-M6Q0Mejc$GiiiCmhQkq30@r+98RYIi$8BL["$Am+23#eZ0,b%GANJee% hIpE0$p6HpY(bm&PkZ,-mHYBG(5Me1b8`fS1ZDpK5#N#pIk`"1KedL`*%"+B4T3Q X%QFVm)JeI-4iAP[1mTSJ8J%hZ8Hl53'&!pDCX-J8a%X)qAVcFIRqQ`!A*D["1!% 8Gld5MP+dIM03B,eaU4C$aVCcJ[X3+Z,1GX`ZQ9F)2V8Vc2%-qBJQXEe$5D`$jcb DBEPiA6l8%Q4Qf,Ci2`[S$58rp$Z8ll&rkR`#8Q`AF'Ud-bNA)AXKc!keDPq2[@E 081hCkGAC8l8&,-Kril`@'a`!b982"4X+BY14Vh0&Akr22rbk-hi"PlVVY[*PEV1 mQJUQPcCRh9DU,'B9,,ePUjeB1T3Y%9(j-(5HHL&d+p+r%dVC-LaAMVBeI#DUiH5 UZ#cbjCe,A'K6T0Xh%iLTkbK)X@INT))#(NE"0%5#h3UjPa'8E(a2U4Q-"*!!m5b 3!!S!Mk+-aLMXVDcK[Dk3!*VQ&C`efQm'@V-UQd66S"#T`9PQKk1rl*'Be-66D2m 4aP+A#6VqFL`EqPjkd(#Yc9XB6dmMr9B@5FXd#'@IRUEli[5A6-81K4I$)*!!GeZ SJql("CH9Df3`T2RG+k#P1XNkb@ER!KT*)i&A5CD+)(2GSXp61FjEMLe4re8U2el 89(l+jRhab*ADqrkL8G&Vkk#9$l'i*0T%$PTUQ*G(DZriTr)BI[i0i0ckZU%lp!U 'kMkJK!e1@)P$c[m"!!"'q`!!!3#3!`%8!*!$&!#3!c*LG22Mr[4b,'%IQBZXi5V N)V"Y#-c[3Zp$j85ILa!56K"0B@0$E'pMDb!a,M)ZFfPdB`)!N!06594%8dP8)3# 3"&0*9%46593K!*!BU6UHLJ!!%-d!!!&'F!AmF39$KdJP%$rM%%SImLX5`4BNB#! Xi[K8Ml(d2)GR,(%%J)A`Zd1,,`"KXQ&piDS[,F2@B-XUL&,beNKb)M+LaLhh'Mm Yi!#Y#YVQ11#j+#YY`lU!0d!hB5QbN8TFm"KP+,9)2F"dD3,K43Gd`!EqiP!#-D$ ,F9&J!!GF5'e8)J#3!a!!+`!&!4J#!*!(!`#3!`%!N!-"&!#3!a3!N!-b!2EDU!h f!*!$(!!b!!"6CA4R!*!$#J!!rrm!N!Ah)6"0IJ: