🚀 go-pugleaf

Some of you were left quite puzzled after my previous posting of the 'snd '
resource generating custom soundwave routine (I call it simply "bong").

I'm now posting a new version that saves Hypercard and system beep type sounds
at both 11 and 22 Khz. To make these sounds you need Soundwave, ResEdit and
BinHex 4.0 or later. First download this article. Edit it so that only the part
after "(This file must be converted with BinHex 4.0)" is left. BinHex it. You
should now have a file called bong.code. IT IS NOT AN APPLICATION. A Soundwave
swci is similar to a HyperCard xcmd or xfcn in that it is not a stand-alone
application and must rely on the support of the host application.

Soundwave automatically recognizes "swci" resources pasted into it. Start
ResEdit and open bong.code. Select all the resources by shift or cmd-selecting
them and choose copy. The clipboard now contains all the resouces. Open
Soundwave with ResEdit. Choose "Paste" and then Quit from ResEdit. (Answer yes
to save changes if all went ok) Remember to do this on a copy of soundwave.

To use "bong", launch Soundwave and digitize or load a sound. Select the part of
it you want to use and choose "Bong" from the "Custom" menu. Select the format
you want to use (the sampling rate should match the rate of the 'snd ' type or
the sound will sound funny). You should now see the standard file dialog. Type
in the name of the sound and choose a folder. If the file already exists and
you click yes when asked if you want to replace the file, the file will NOT
be first deleted, but the new resource will be appended to it (this is sometimes
quite useful). The dialog will also contain many extra buttons inherited
from soundwave (the have no function in Bong). The new 'snd ' resource never
replaces an existing resource and it originally has the same name as the file
it is written to.

If you created a new file, use ResEdit to copy and paste the resource into the
correct file. System beeps must go into the system file and HyperCard sounds
should be either in the stack (recommended for final applications) or HyperCard
(recommended for debugging).

I hope I didn't forget anything this time.

Juri Munkki
jmunkki@santra.hut.fi
Helsinki University of Technology Computing Centre

Disclaimer: The opinions stated here might not represent the opinions of anyone
	    else and I might change my mind later...for now just believe me.

Disclaimer: The code in the posted program does not represent my average
	    programming style since it was only written as a quick hack and it
	    surprisingly worked with no debugging at all.

(This file must be converted with BinHex 4.0)

:#8*[EQFZBfpNC3!rN!J!N!J,"G2D!*!%!3#3!`TL!!!*BJ#3!k-!N!05"h"bEfC
TE'8#!*!$8&*25NY"5%`"!!$)!*!%#8*[EQFZBfpNC3)!N!-rN!J"!!!m!*!)2j!
)!3!!2!#3"B3!N!kGI,mE!*!'#`8!N!3,!*!%8J9cG'4TE`)!N!038Np+5d&)6!%
!!+!!N!Gq!*!1XE3!!,3!QKH,F*ae#0d!N#)P8!!Y!*!-$!#3"&)'G@jTH#m!!!F
DB!i!!(0hBfN(d3#3"N(krqiKb!R1B!!"f%j@rT4#E[kB@BqT*#"I,8Mrr#"Zrr`
LE[rm)#N!V*!!U!#S,8$qU!bZ!!!"rrkSE`!"P&Q25(PLEfjR-#i!#!C!"p!r!+Q
J)&mY52qZ,blrVUQ5)'lrVLe3rU4CMbmZrkj1ZJ9#)"mY32kD)#lqQPQ!28$qSQ!
q)'lqT#e3rTiJ22q3!`$!V[kH"S!!N!-J$)"659SJCKBJ2!#3!rr!V[kH)LlqU*+
!)'lqT##"9+lqT&9ZrU*+E[kLE,`J,[kSd+lqQLmZrki[!%kk"1j9Mdkk"I)`(dT
!CJ!!h#"Zrr`LE[rm)'J!T#!3d+N!U#"ZrkiL%0+ZrTS[!#m",blqU%kk"DK)H3#
!!)")E[kB5'lqQ%+R5'lrXNkk"FT+,[qbC`!!QP@25'lqV%KZrka1ZJ&b-"p9Md+
R2blrZ%kk!BJ`(dKZrlbTX9@25'lr[+QA-"mp32k@-#i!#&0!i8Jp3!!)9Bp)HA0
ZC##T`6!I28$qP$!ZrT5`EJ!)EHB`,J!)"N!!Il"ZrT4Yf#mZrkj)HA0ZC#!r,[k
85'lr[+QV2blqPUQD9Bp)E[kX2blrV%kk!4B`(f!'2c`!2+R),blrVNkk!pTJ"Mm
m!$bTb%jH6R966e914&4C8%j@rrj9Mcmm"p&#TkQ&-"mp32rq$'i!!IrqE`i`,[r
q8d!r!%kkrJ48MdjH6R9038P1)*!%8F&J!P$"6PErcN(ZrmiKEJ!)!#!aEJ!3!"J
LEJ!-)9%!*%*S!#a#U!!Z5J&Q"+!#B!+J!ce!!")LEJ!-)UJ!+%jH)PrIr!#3!`T
1d8j@rm""l[r!)@i!%!!5-@i!&!!@3QJ!(+!(28!!&L*Z!!`bU!!@)#J!-1#!iS$
!k!!qii$KJ#*Z!!JLJ%jH)PrIr!#3!`j1d8j@rm""l[r!)@i!$!!5S"3p3!!3)Qi
!#$+S!"C1AL*I8)p1d8j@rm""l[r!)@i!#J!5-@i!#!!@S"8p3!!16PiLAeb26Y&
19[r!3Hlr`$&Z!!J!&L&Z!!S!%U!628!!$NjH)PpFMdl46PErX%(Zrl!KEJ!5!")
aEJ!3!"C#+!!DS!K+3'B@3QJ!(+!-)!K$k!!J)Zi!##+Z!!bJ$6e!!"C1AL*Ihr`
!N!-16Y&19[r13HlrcL&Z!!i!%M&Z!!`!&N)S!"T#+!!E3UJ!(+!!)Qi!#$+S!"J
p3!!56PiJAprm!*!$#Nl36PErcN(ZrmiaEJ!-!"LJ'$e!!!iLEJ!))UJ!,NjH)Pp
FMdl46PErcN(ZrmiaEJ!1!"JaEJ!-!#`KEJ!)!#kJ4$e!!""1AL*I8)p1d8j@rmj
"l[r1-@i!$!!BS"%p3!!1)Qi!##+S!"a1AL*IA)p1d8j@rmj"l[r1-@i!$!!B)@i
!#!!FS")p3!!16PiLAeb26Y&19[r13HlrcM&Z!!J!'+!"28!!#NjH)&p8Mdl36PE
rX%(Zrl!KEJ!1!")aEJ!-!"C#+!!D3QJ!(+!-28!!%N(S!#!LEJ!)F"#J,NjH)Pr
Ir!#3!`T1d8j@rl""l[q`)@i!$J!5-@i!$!!@3LJ!'N*S!"bJ$%2S!#!JEJ!)F"#
J,N(Zrl#J$6e!!"*1AL*Ihr`!N!-+6Y&19[r13HlrcL&Z!!i!%M&Z!!`!&N)S!"S
KEJ!)!"bJ#ce!!"*1AL*Ihr`!N!-+6Y&19[r13HlrcL&Z!!S!%M&Z!!J!&N)S!"U
J#6e!!!j1AL*IA)p1dD!X6[S"d#*I)&qJ9dlk!F3LAb"2S"RHr!!16[S"YL*I)&q
J,8lk!Da+1!+1DLSJH!%`3rJ"&#!)N!#4G!b`JQ8@)P%Kb!%8)S"#%5*i!USLL##
#dDN!$%jeS'01GD!f6[S"G+%D,dJ!"%lk!@SLAb"IS"Y1qJ&H,hJ#TJ!%6[S"A#p
i!US!"%lk!9)LAb!IS5)ZL%lk!6iLAb"IS#01qJ%d)PmJAk!P,S"U"N+A6[S"*%l
k!4iLAb!I)&qJ*%lk!43LAb"IS5BZL%lk!3JLAb"IS5JZL%lk!2SLAb!I)&qJ*dl
k!2!LAb!IS4iZL%lk!13LAb"IS"p1qJ$D)PmJAk!K,S"U"N+A6[S!bNlk!-3LAb!
I)&qJ)%lk!,SLAb"IS8JZL%lk!+kJ(#p!!!41qJ#X)PqK(5)))&mJJ5k!6[S!NL*
I)"qJ6#k!6[S!KL*I)"qJ3%lk!(iLAb!IS%e1qJ"d)PmJAk!V6[S!DL*I)&qJ+8l
k!'!LAb"IS#T1qJ"@)PmJAk"*6[S!6#*I)&qJ5Nlk!%)LAb"IS%Y1qJ!i,hJ$+!!
%6R8L(b!I)PmJAk!Z)N&1qJ!J,hJ"#!!%6[S!(Mpi!L!!"%je,hJ"-!!%6[S!$(!
!,`Na`!)J6R9`!'$fG!%JAcm#,`LYkR3$6[Vrp(3#6[VrlR3%6[Vrk!#3!``!+!!
8!0S"l!I44%3!N!-X!!%!N!-#J&!!N!8@!*!%8N-!`!#3"&0*@J"@l`!!8dPD!90
*@J)!5!#3!bS!!3!"!!8!N!8"J&%!N!88!*!%8dPD!#Yh4G)!N!Nm!*!$,!!"!*!
$!S"3!*!&&J#3"&*$!-!!N!4659S!9Zm!!&0*@J&659S#!$`!N!-U!!%!!3!&!*!
&!B"4!*!&&!#3"&0*@J"@lNA5!*!*2!!!!A3!#!#3"C!!!6!!U!(3"!C$B@jMC@`
!N!8)!6!!)!(3""&6HA0dC@dJ3Q9PF#!a-8YSHLJ!N!8S!6!!3!(3""&6HA0dC@d
J3Q9PF#!b-NYSHJ#3"NJ"-!"J!G!%$dKjF'9b3f&bC#!a-8YSHJ#3"QJ"-!#!!G#
%$dKjF'9b3f&bC#!b-NYSHQm!N!8)!!J!'!%JL"Y$Eh"jFQPRD(3JU6%j1$FJ5R9
bD5"0G@jVDfP0!*!&)!!)!$!"))JM8'pbG'P[ER-JN!1T-6Ni0b"8D'PZDb"8C@0
SEQpXEfGTCA0X!*!&8!!)!(!"))K#9'KTFb"MGA0dEfdJFQpeG'PZC5"cBACPFb"
dD'8JFf9XC@0dD@pZ)'&c)'%J*h0ZC#!R)(*PFfpeFQ0P)'CTE'8Z!*!&L!!)!+J
"))JR8f9ZC#"MEfeYC@jdFb"dEcSJDQeeEQYVD8"cB@jdFQ%ZD(9d,QCT2!!!!3#
3!`TL!!!*BJ#3!k-!$qL3!!,b!*!$(!#5!!0cGf0T!*!$)N&-8P3!N!-Z4%P86!#
3!cTLEfjR!!-!4JI4!!!J!*!%%&8X"p%!"3!!"ai!%&6`"p%!#`!!"qS!%&8)"p6
rr`!!"bi!%&8`"p(rr`!!"ei!%&8d"p2rr`!!"i`!%&8i"p,rr`!!"l`!%&8m"%*
[EQF&3QpZCfm&3QpZCfmGLJ: