🚀 go-pugleaf

Checksum: 4081303721 (verify with brik -cv)
Submitted-by: Fatri <fatri@turing.u-strasbg.fr>
Posting-number: Volume 8, Issue 16
Archive-name: sndrkit.fat


BEGIN_DOC SnderKit.doc
********************************************************************************


                                SounderKit

                           Fatri - January 1993 -
 
                       Checksum : # 97FFh Bytes : 1842



This is my first documentation written in english, so please forgive
the mistakes I may have done.

SounderKit is a library which purpose is to create sounds just like Joe Irvin's 
sounderkit. 
The program that generates the sounds is nearly the same as SOUNDER v1.0
I made a minor modification to SOUNDER v1.0 so as to use a string which
encodes the sounds. That way a sound program takes less space.

This package contains this documentaion, SounderKit uuencoded , 
SounderKit in ASC version and a directory that shows you how to use SounderKit.


The instructions are the same as in sounderkit :

The arguments ( if any ) are real numbers, the durations are in milliseconds.

* sound : no arguments
Initialize the sound object.

* pause : duration
Makes a pause of duration ms.

* tone : frequency duration 
Produces a beep.             

* noise : frequency duration
Produces a "white" sound.

* sweep : frequency1 frequency2 duration
Produces a sweeping sound from frequency1 to frequency2 in duration ms.

* sweepnoise : frequency1 frequency2 duration
Sames as sweep but with "white" sound.

* repeat : count
Begins a loop.

* endrepeat : no arguments
Ends a loop.

* endsound : no arguments
Ends the sound object and produces an executable program.
It also put the SOUNDER program in the home directory so as the produced
program can be quickly tested.

Just install the library and the examples and press S1 or S2 or .. S4
You'll get a program that contains a string and SOUNDER that you can store
under another name, evaluate the prog and listen.


Thanks to : 
   - Joe Irvin          for the original sounderkit.
   - Detlef Muller      for <-RPL-> and <-LIB->.


Any suggestions or comments, feel free to mail me.

Fatri ( fatri@turing.u-strasbg.fr )
*******************************************************************************
END_DOC 

BEGIN_RPL SnderKit.xmpl
%%HP: T(3)A(R)F(.);
DIR
  S1
    \<< sound
13 repeat
1900 20 noise
500 20 tone
endrepeat
500 6000 100 sweep
6000 500 100 sweep
1500 800 noise 
endsound \>>
  S2
    \<< sound
500 2500 100 sweep
500 2500 80 sweep
500 2500 60 sweep
500 2500 40 sweep
500 2500 20 sweep
500 200 tone
100 500 tone
endsound \>>
  S3
    \<< sound
10 repeat
2000 80 tone
1000 20 tone
endrepeat
1500 500 noise
endsound \>>
  S4
    \<< sound
3 repeat 
1000 100 tone
600 150 tone
1500 300 tone
100 pause
endrepeat
endsound \>>
END
END_RPL

BEGIN_ASC SnderKit.asc
%%HP: T(3)A(R)F(.);
"04B20F5E00A035F657E6465627B49647A0E1301D00F0000BBC00C70008E92027
000C2A2010000200001300056E64637F657E6460294E43594445402275607561
647D200056E6462756075616470277F2F602275607561647D9D2011920E13009
0770B2130D9D2032230E4A20B000000000176BA18804171040F3040337508813
0756607472663650CCD20650008F146608FB976034100008BA23D8143D9C6CA1
30167174143131179CD14E14D181171CD51F8D34150442309FF305923033750B
2130D9D202C23029E20E13A00D004029E20E13C00CAF06CB9A23392020000000
00000050EF9A21204029E20E13C00FE226B2130D9D20C53A2EF9A25D55012040
C1C16E4A20A00006D407A5956D534532230EF9A233920200000000000601090D
A1339201000000000000020EF9A2881309C2A2B9DE1CB9A2B2130D9D20D00409
D1304423029E20E13A003223029E20E13A0047A20D6E20206413D6E20206423D
6E201044D6E20209423D6E20209413B21300D470D6E20206413D6E2020642317
8A28DA16D9D2046456D6E20206423D6E20206413189A2D6E201044CB9A233920
3000000000000010EF9A2D6E20206413D6E201044CB9A2339202000000000000
050EF9A2479A2B2130D9D20B6456D6E20206413D6E20206423189A2D6E201044
CB9A2339203000000000000010EF9A2D6E20206423D6E201044CB9A233920200
0000000000050EF9A2479A2B2130881301204029E20E13C00D6E20209413D004
029E20E13C003915032230D6E20209423D6E20209413189A2009A2881309C2A2
178A2CB916D9D20442309C2A2B2130EF9A21204029E20E13C003915032230B52
5079470B21308E13800D9D2010F811192011130D9D2029E20E139003A456B525
039150B2130B21308E13700D9D2010F811192011130D9D2029E20E1390059456
B525039150B2130B21308E13600D9D20FDE8144B46D9D2033920000000000002
9180CB9A21204029E20E13C00C9456B525039150B2130B21308E13500D9D200F
E8122F46D9D2029E20E13B00DC456B525039150B2130B21308E13400D9D200FE
811192011300D9D2029E20E13B00B6456B525039150B2130B21308E13300D9D2
0ECE81D0040D9D2084E2030C656676AC30CB916D9D20442301192020E13A3836
B213008456EE25084E2030C65667E0E3079E6084E2030C6566772D70B2130B21
308E13200D9D20FDE8144B46D9D203004029E20E13C0097456B52503915084E2
030C65667FED3079E6084E2030C6566772D70B2130B21308E13100D9D2084E20
30C656677CC30CB916D9D20442301192010E13A3836B213008456EE25079E608
4E2030C65667F45815D5502C23063650C1C163504011920C2A2014C526272679
E6084E207035F455E4445425300405445079E60D9D2051A812BF81D0040CCD20
084008FB976014334A0000CA81AF0434920008FD7B5013281AF018F2D76081AF
101C41418FB976081AF191BA000714214481AF141308ED3008F2D760179E7E78
FB97608D341501F83100D515B015F09029F15B0CD50F01808F1F97607D014120
80824A0007132146132DE3400000C2818FA481AF0AAC281A40AAC38E6100813A
8B817808A1CE808001D015A01603480300D581B506C9D8C4C4C0CA132146132D
507C981B32081A4129487411BA6E96A6110B81AF1A13514713401BF6BF610BA4
C81A40281AF1A818FA481AF0A01813A8B80891A8781701018516600841203254
381A309146164D71563162AB5136061FE21001574D215D01B976071F3C407157
38089B80D28088B1428AC85801AB4A3C5CFCF474871A080F26DDF0681A311AB6
A36A36A3220AB0808205A3281A30980D20780C28C6AFF1F3C40715738011FE21
0015542007136AC3018518C70008412015E016085090E50840AF2146164D7156
3162AB514281AF00164136061FE21001574D215D01B976071F3C40715738089B
80D28088B81AF101311428AC95801AB4A3C5CFCF484871A080F269008E85001C
050D86021B35551AB1A3D6C00A3D550AB181AF101318C5AFF1F3C40715738011
FE210015542007136AC3010681A311AB6A36A36A3220AB0808205A3281A30980
D20780C201201461648E5BCF01AE281A41A812B668082180982B381681A40A11
381AF1A135BF0BF017414A10316113613414513781AF0A0168000F8000680002
B200120006800068000371002A200A6100880006800068000680006800068000
B213079E6084E207035F455E44454256E9E2B21308E13000D9D2073C35ADB46A
AC35FEF3079E6084E2030C6566720A26FD550B2130E4A2064000CBFFFD3AFFBC
9FF939FF0F8FFCA8FF948FF008FF7B7FF455FF1C4FF954FF993FFE4A20621000
0000000000000064000E40005800000000C8000C9000EA000000000000000000
0000000000000004A0004047F6E6564005037F657E64600050E6F69637565005
00716573756600503777565607700602756075616472008056E64637F657E646
1009056E646275607561647300A03777565607E6F696375680029000A4000060
00F30003B000C90002900088000140000B17FF79"
END_ASC

BYTES: #97FFh 1842

BEGIN_UU SnderKit.uue
begin 644 snderkit.bin
M2%!(4#0X+45`*_#E``I3;W5N9&5R2VET"AX#T0`/`+#+`'P`@)X"<@#`H@(!
M`"```#$`4.9&-O=6YT8&DN0TE414!")7!E<61M<"`&5N9')E<&5A="!W+V\@
M<F5P96%TG2T0D0(>`Y!P!RLQT-D"(S+@I`(+`````'&V&HA`<0$$/T`P<P6(
M,7!E!D<G9F,%S"U@!0#X06:`OWD&0P$`@*LRC4'3R<8:`V$71T$3$W')'>1!
M'1AQP5WQV$-10"0#^3]0*0,S5[`2`YTM("P#DB[@,0K0``22+N`Q#,#Z8+RI
M,I,"`@````````7^J1("!)(NX#$,\"YB*S'0V0)<H^*?*M55$`($'!SFI`(*
M`&!-<%I9UC54(S+@GRHS*2```````&`0D-`:,RD0````````(."?*H@QD"PJ
MF^W!FRHK,=#9`@U`D!T#1#(@Z0(>HP`C,B#I`AZC`'0JT.8"`D8Q;2X@8"33
MY@(!1&TN()`DT^8"`DDQ*S$`30=M+B!@%-/F`@)&,G&H@JUAG2U`1F5M+B!@
M)-/F`@)&,8&ITN8"`42\J3*3`@,````````!_JG2Y@("1C%M+A!`Q)LJ,RD@
M````````4."?*G2ILA(#G2VP1F5M+B!@%-/F`@)&,H&ITN8"`42\J3*3`@,`
M```````!_JG2Y@("1C)M+A!`Q)LJ,RD@````````4."?*G2ILA(#B#$0`@22
M+N`Q#-#F`@)),0U`(.D"'L,`DU$P(@-M+B"0)-/F`@)),8&I`I`JB#&0+"IQ
MJ,*;89TM0"0#R:*R$@/^J1("!)(NX#$,,!D%(S*P)067=+`2`^@Q"-#9`@&/
M$9$"$3'0V0*2+N`Q"3!*95M2,!D%*S&P$@/H,0?0V0(!CQ&1`A$QT-D"DB[@
M,0E0265;4C`9!2LQL!(#Z#$&T-D"WXY!M&2=+3"3`@``````(!D(O*D2`@22
M+N`Q#,!)95M2,!D%*S&P$@/H,070V0+PCB'R9)TM(.D"'K,`S52V)0634;`2
M`RLQ@!Y#`)TM`.\8$2D0,0"=+2#I`AZS`&M4MB4%DU&P$@,K,8`>,P"=+>#L
M&`U`T-D"2"XPP%9F9\H#O!G6V0)$,A"1`@(>HX-C*S$`2&7N4H#D`@-L978.
M/G#I!D@N,,!69G?2!RLQL!(#Z#$"T-D"WXY!M&2=+3``!)(NX#$,D$=E6U(P
M&05(+C#`5F;WW@.7;H#D`@-L978G?;`2`RLQ@!X3`)TM@.0"`VQE=L<\P)MA
MG2U`)`,1*1#@,3HXMA(#@%3F+@67;H#D`@-L979/A5%=!<(R8&,%'!PV!001
M*<"B`D%<8G)BEVZ`Y`('4T]53D1%4@-`4$0%EV[0V0(5BB'[&`U`P-P"@`2`
MOWD&03.D``"L&/I`0RD`@-^W!3&"H0^!+WT&&/H!P104^)MG@*$?&:L`<$$2
M1!CZ03&`W@.`+WT&<>GGA[]Y!MA#41"/$P!=40M1#PF2'[7`7?`0"/CQ>0;7
M$!0"""BD`'`Q$F0QTCX$```L&/A*&/J@RH*A!*H\Z!8`&*.X&(>`&NP("!`-
M40IA,(0P`%T86V"<C4Q,#*PQ$F0QT@7'B;$C@*$4DH1'$:OF:6H1L!CZH3$5
M=#$$L6_[%K!*C*$$@J$?BH&OA*$/"H$QBHN`&8J'<1`06&$&@!0"(T6#H0,9
M9&'4%V43)KH58V#Q+@$0==02U1";9W#QPP07=8.`N0@M"(@;)*B,A1"ZI,/%
MST]'>*&`\&+=#X:A$Z%K.J9C.B*@"P@H4#J"H0.)T`*'P()L^A\_3'!1-P@1
M[Q(`444"<#&F/!!8@7P`@!0"40YA@`4)7H`$^A)D8=0791,FNA4D&/H`811C
M8/$N`1!UU!+5$)MG</'#!!=U@X"Y""T(B(NA'Q`308+*60BA2SI<_/R$A!<*
M""^6`.A8`,%0T&@@L5-5H1LZ;0R@TU6@&QCZ`3&!7/H?/TQP43<($>\2`%%%
M`G`QICP08!@Z$;JF8SJF(P*Z@(`"I2,8.I`(+7`(+!`"019&Z+7\$.J"H12*
M(6N&@!((B;*#81A*H!&#H1\:4_NP#W$4I`$3%C$60T$5<QCZH!"&`/`(`(8`
M("L`(0!@"`"&`#`7`*("H!8`B`!@"`"&`&`(`(8`8`@`*S%PZ09(+G`P]53E
M1%0D99XN*S&`'@,`G2UPPU/:2Z;*4^\_<.D&2"XPP%9F)Z!BWU6P$@-.*F`$
M`+S_WZ/_R_F?D__P^,^*_TGX#X#_M_=/5?_!])]%_YGS[Z0")@$`````````
M`$8`X`0`A0````",`,`)`*X`````````````````````0`H`!'1O;F4$4##W
M5N=&!@`%;F]I<V4%4``75C=79@`%<W=E97`'8"!7!E<61B<`"&5N9'-O=6YD
M`9!0YD8F5P97%D8W``IS=V5E<&YO:7-E""`)`$H```8`/P`P"P"<`"`)`(@`
%$`0`L'$`
`
end
sum -r/size 25560/2581 section (from "begin" to "end")
sum -r/size 8248/1850 entire input file
END_UU