home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / sources / hp48 / 312 < prev    next >
Encoding:
Text File  |  1993-01-24  |  9.5 KB  |  249 lines
  1. Newsgroups: comp.sources.hp48
  2. Path: sparky!uunet!seq!spell
  3. From: Fatri <fatri@turing.u-strasbg.fr>
  4. Subject:  v08i016:  sndrkit.fat - SounderKit v1.0, Part01/01
  5. Message-ID: <1993Jan24.233242.2366@seq.uncwil.edu>
  6. Followup-To: comp.sys.hp48
  7. Sender: spell@seq.uncwil.edu (Chris Spell)
  8. Organization: Univ. of North Carolina @ Wilmington
  9. Date: Sun, 24 Jan 1993 23:32:42 GMT
  10. Approved: spell@seq.uncwil.edu
  11. Lines: 240
  12.  
  13. Checksum: 4081303721 (verify with brik -cv)
  14. Submitted-by: Fatri <fatri@turing.u-strasbg.fr>
  15. Posting-number: Volume 8, Issue 16
  16. Archive-name: sndrkit.fat
  17.  
  18.  
  19. BEGIN_DOC SnderKit.doc
  20. ********************************************************************************
  21.  
  22.  
  23.                                 SounderKit
  24.  
  25.                            Fatri - January 1993 -
  26.  
  27.                        Checksum : # 97FFh Bytes : 1842
  28.  
  29.  
  30.  
  31. This is my first documentation written in english, so please forgive
  32. the mistakes I may have done.
  33.  
  34. SounderKit is a library which purpose is to create sounds just like Joe Irvin's 
  35. sounderkit. 
  36. The program that generates the sounds is nearly the same as SOUNDER v1.0
  37. I made a minor modification to SOUNDER v1.0 so as to use a string which
  38. encodes the sounds. That way a sound program takes less space.
  39.  
  40. This package contains this documentaion, SounderKit uuencoded , 
  41. SounderKit in ASC version and a directory that shows you how to use SounderKit.
  42.  
  43.  
  44. The instructions are the same as in sounderkit :
  45.  
  46. The arguments ( if any ) are real numbers, the durations are in milliseconds.
  47.  
  48. * sound : no arguments
  49. Initialize the sound object.
  50.  
  51. * pause : duration
  52. Makes a pause of duration ms.
  53.  
  54. * tone : frequency duration 
  55. Produces a beep.             
  56.  
  57. * noise : frequency duration
  58. Produces a "white" sound.
  59.  
  60. * sweep : frequency1 frequency2 duration
  61. Produces a sweeping sound from frequency1 to frequency2 in duration ms.
  62.  
  63. * sweepnoise : frequency1 frequency2 duration
  64. Sames as sweep but with "white" sound.
  65.  
  66. * repeat : count
  67. Begins a loop.
  68.  
  69. * endrepeat : no arguments
  70. Ends a loop.
  71.  
  72. * endsound : no arguments
  73. Ends the sound object and produces an executable program.
  74. It also put the SOUNDER program in the home directory so as the produced
  75. program can be quickly tested.
  76.  
  77. Just install the library and the examples and press S1 or S2 or .. S4
  78. You'll get a program that contains a string and SOUNDER that you can store
  79. under another name, evaluate the prog and listen.
  80.  
  81.  
  82. Thanks to : 
  83.    - Joe Irvin          for the original sounderkit.
  84.    - Detlef Muller      for <-RPL-> and <-LIB->.
  85.  
  86.  
  87. Any suggestions or comments, feel free to mail me.
  88.  
  89. Fatri ( fatri@turing.u-strasbg.fr )
  90. *******************************************************************************
  91. END_DOC 
  92.  
  93. BEGIN_RPL SnderKit.xmpl
  94. %%HP: T(3)A(R)F(.);
  95. DIR
  96.   S1
  97.     \<< sound
  98. 13 repeat
  99. 1900 20 noise
  100. 500 20 tone
  101. endrepeat
  102. 500 6000 100 sweep
  103. 6000 500 100 sweep
  104. 1500 800 noise 
  105. endsound \>>
  106.   S2
  107.     \<< sound
  108. 500 2500 100 sweep
  109. 500 2500 80 sweep
  110. 500 2500 60 sweep
  111. 500 2500 40 sweep
  112. 500 2500 20 sweep
  113. 500 200 tone
  114. 100 500 tone
  115. endsound \>>
  116.   S3
  117.     \<< sound
  118. 10 repeat
  119. 2000 80 tone
  120. 1000 20 tone
  121. endrepeat
  122. 1500 500 noise
  123. endsound \>>
  124.   S4
  125.     \<< sound
  126. 3 repeat 
  127. 1000 100 tone
  128. 600 150 tone
  129. 1500 300 tone
  130. 100 pause
  131. endrepeat
  132. endsound \>>
  133. END
  134. END_RPL
  135.  
  136. BEGIN_ASC SnderKit.asc
  137. %%HP: T(3)A(R)F(.);
  138. "04B20F5E00A035F657E6465627B49647A0E1301D00F0000BBC00C70008E92027
  139. 000C2A2010000200001300056E64637F657E6460294E43594445402275607561
  140. 647D200056E6462756075616470277F2F602275607561647D9D2011920E13009
  141. 0770B2130D9D2032230E4A20B000000000176BA18804171040F3040337508813
  142. 0756607472663650CCD20650008F146608FB976034100008BA23D8143D9C6CA1
  143. 30167174143131179CD14E14D181171CD51F8D34150442309FF305923033750B
  144. 2130D9D202C23029E20E13A00D004029E20E13C00CAF06CB9A23392020000000
  145. 00000050EF9A21204029E20E13C00FE226B2130D9D20C53A2EF9A25D55012040
  146. C1C16E4A20A00006D407A5956D534532230EF9A233920200000000000601090D
  147. A1339201000000000000020EF9A2881309C2A2B9DE1CB9A2B2130D9D20D00409
  148. D1304423029E20E13A003223029E20E13A0047A20D6E20206413D6E20206423D
  149. 6E201044D6E20209423D6E20209413B21300D470D6E20206413D6E2020642317
  150. 8A28DA16D9D2046456D6E20206423D6E20206413189A2D6E201044CB9A233920
  151. 3000000000000010EF9A2D6E20206413D6E201044CB9A2339202000000000000
  152. 050EF9A2479A2B2130D9D20B6456D6E20206413D6E20206423189A2D6E201044
  153. CB9A2339203000000000000010EF9A2D6E20206423D6E201044CB9A233920200
  154. 0000000000050EF9A2479A2B2130881301204029E20E13C00D6E20209413D004
  155. 029E20E13C003915032230D6E20209423D6E20209413189A2009A2881309C2A2
  156. 178A2CB916D9D20442309C2A2B2130EF9A21204029E20E13C003915032230B52
  157. 5079470B21308E13800D9D2010F811192011130D9D2029E20E139003A456B525
  158. 039150B2130B21308E13700D9D2010F811192011130D9D2029E20E1390059456
  159. B525039150B2130B21308E13600D9D20FDE8144B46D9D2033920000000000002
  160. 9180CB9A21204029E20E13C00C9456B525039150B2130B21308E13500D9D200F
  161. E8122F46D9D2029E20E13B00DC456B525039150B2130B21308E13400D9D200FE
  162. 811192011300D9D2029E20E13B00B6456B525039150B2130B21308E13300D9D2
  163. 0ECE81D0040D9D2084E2030C656676AC30CB916D9D20442301192020E13A3836
  164. B213008456EE25084E2030C65667E0E3079E6084E2030C6566772D70B2130B21
  165. 308E13200D9D20FDE8144B46D9D203004029E20E13C0097456B52503915084E2
  166. 030C65667FED3079E6084E2030C6566772D70B2130B21308E13100D9D2084E20
  167. 30C656677CC30CB916D9D20442301192010E13A3836B213008456EE25079E608
  168. 4E2030C65667F45815D5502C23063650C1C163504011920C2A2014C526272679
  169. E6084E207035F455E4445425300405445079E60D9D2051A812BF81D0040CCD20
  170. 084008FB976014334A0000CA81AF0434920008FD7B5013281AF018F2D76081AF
  171. 101C41418FB976081AF191BA000714214481AF141308ED3008F2D760179E7E78
  172. FB97608D341501F83100D515B015F09029F15B0CD50F01808F1F97607D014120
  173. 80824A0007132146132DE3400000C2818FA481AF0AAC281A40AAC38E6100813A
  174. 8B817808A1CE808001D015A01603480300D581B506C9D8C4C4C0CA132146132D
  175. 507C981B32081A4129487411BA6E96A6110B81AF1A13514713401BF6BF610BA4
  176. C81A40281AF1A818FA481AF0A01813A8B80891A8781701018516600841203254
  177. 381A309146164D71563162AB5136061FE21001574D215D01B976071F3C407157
  178. 38089B80D28088B1428AC85801AB4A3C5CFCF474871A080F26DDF0681A311AB6
  179. A36A36A3220AB0808205A3281A30980D20780C28C6AFF1F3C40715738011FE21
  180. 0015542007136AC3018518C70008412015E016085090E50840AF2146164D7156
  181. 3162AB514281AF00164136061FE21001574D215D01B976071F3C40715738089B
  182. 80D28088B81AF101311428AC95801AB4A3C5CFCF484871A080F269008E85001C
  183. 050D86021B35551AB1A3D6C00A3D550AB181AF101318C5AFF1F3C40715738011
  184. FE210015542007136AC3010681A311AB6A36A36A3220AB0808205A3281A30980
  185. D20780C201201461648E5BCF01AE281A41A812B668082180982B381681A40A11
  186. 381AF1A135BF0BF017414A10316113613414513781AF0A0168000F8000680002
  187. B200120006800068000371002A200A6100880006800068000680006800068000
  188. B213079E6084E207035F455E44454256E9E2B21308E13000D9D2073C35ADB46A
  189. AC35FEF3079E6084E2030C6566720A26FD550B2130E4A2064000CBFFFD3AFFBC
  190. 9FF939FF0F8FFCA8FF948FF008FF7B7FF455FF1C4FF954FF993FFE4A20621000
  191. 0000000000000064000E40005800000000C8000C9000EA000000000000000000
  192. 0000000000000004A0004047F6E6564005037F657E64600050E6F69637565005
  193. 00716573756600503777565607700602756075616472008056E64637F657E646
  194. 1009056E646275607561647300A03777565607E6F696375680029000A4000060
  195. 00F30003B000C90002900088000140000B17FF79"
  196. END_ASC
  197.  
  198. BYTES: #97FFh 1842
  199.  
  200. BEGIN_UU SnderKit.uue
  201. begin 644 snderkit.bin
  202. M2%!(4#0X+45`*_#E``I3;W5N9&5R2VET"AX#T0`/`+#+`'P`@)X"<@#`H@(!
  203. M`"```#$`4.9&-O=6YT8&DN0TE414!")7!E<61M<"`&5N9')E<&5A="!W+V\@
  204. M<F5P96%TG2T0D0(>`Y!P!RLQT-D"(S+@I`(+`````'&V&HA`<0$$/T`P<P6(
  205. M,7!E!D<G9F,%S"U@!0#X06:`OWD&0P$`@*LRC4'3R<8:`V$71T$3$W')'>1!
  206. M'1AQP5WQV$-10"0#^3]0*0,S5[`2`YTM("P#DB[@,0K0``22+N`Q#,#Z8+RI
  207. M,I,"`@````````7^J1("!)(NX#$,\"YB*S'0V0)<H^*?*M55$`($'!SFI`(*
  208. M`&!-<%I9UC54(S+@GRHS*2```````&`0D-`:,RD0````````(."?*H@QD"PJ
  209. MF^W!FRHK,=#9`@U`D!T#1#(@Z0(>HP`C,B#I`AZC`'0JT.8"`D8Q;2X@8"33
  210. MY@(!1&TN()`DT^8"`DDQ*S$`30=M+B!@%-/F`@)&,G&H@JUAG2U`1F5M+B!@
  211. M)-/F`@)&,8&ITN8"`42\J3*3`@,````````!_JG2Y@("1C%M+A!`Q)LJ,RD@
  212. M````````4."?*G2ILA(#G2VP1F5M+B!@%-/F`@)&,H&ITN8"`42\J3*3`@,`
  213. M```````!_JG2Y@("1C)M+A!`Q)LJ,RD@````````4."?*G2ILA(#B#$0`@22
  214. M+N`Q#-#F`@)),0U`(.D"'L,`DU$P(@-M+B"0)-/F`@)),8&I`I`JB#&0+"IQ
  215. MJ,*;89TM0"0#R:*R$@/^J1("!)(NX#$,,!D%(S*P)067=+`2`^@Q"-#9`@&/
  216. M$9$"$3'0V0*2+N`Q"3!*95M2,!D%*S&P$@/H,0?0V0(!CQ&1`A$QT-D"DB[@
  217. M,0E0265;4C`9!2LQL!(#Z#$&T-D"WXY!M&2=+3"3`@``````(!D(O*D2`@22
  218. M+N`Q#,!)95M2,!D%*S&P$@/H,070V0+PCB'R9)TM(.D"'K,`S52V)0634;`2
  219. M`RLQ@!Y#`)TM`.\8$2D0,0"=+2#I`AZS`&M4MB4%DU&P$@,K,8`>,P"=+>#L
  220. M&`U`T-D"2"XPP%9F9\H#O!G6V0)$,A"1`@(>HX-C*S$`2&7N4H#D`@-L978.
  221. M/G#I!D@N,,!69G?2!RLQL!(#Z#$"T-D"WXY!M&2=+3``!)(NX#$,D$=E6U(P
  222. M&05(+C#`5F;WW@.7;H#D`@-L978G?;`2`RLQ@!X3`)TM@.0"`VQE=L<\P)MA
  223. MG2U`)`,1*1#@,3HXMA(#@%3F+@67;H#D`@-L979/A5%=!<(R8&,%'!PV!001
  224. M*<"B`D%<8G)BEVZ`Y`('4T]53D1%4@-`4$0%EV[0V0(5BB'[&`U`P-P"@`2`
  225. MOWD&03.D``"L&/I`0RD`@-^W!3&"H0^!+WT&&/H!P104^)MG@*$?&:L`<$$2
  226. M1!CZ03&`W@.`+WT&<>GGA[]Y!MA#41"/$P!=40M1#PF2'[7`7?`0"/CQ>0;7
  227. M$!0"""BD`'`Q$F0QTCX$```L&/A*&/J@RH*A!*H\Z!8`&*.X&(>`&NP("!`-
  228. M40IA,(0P`%T86V"<C4Q,#*PQ$F0QT@7'B;$C@*$4DH1'$:OF:6H1L!CZH3$5
  229. M=#$$L6_[%K!*C*$$@J$?BH&OA*$/"H$QBHN`&8J'<1`06&$&@!0"(T6#H0,9
  230. M9&'4%V43)KH58V#Q+@$0==02U1";9W#QPP07=8.`N0@M"(@;)*B,A1"ZI,/%
  231. MST]'>*&`\&+=#X:A$Z%K.J9C.B*@"P@H4#J"H0.)T`*'P()L^A\_3'!1-P@1
  232. M[Q(`444"<#&F/!!8@7P`@!0"40YA@`4)7H`$^A)D8=0791,FNA4D&/H`811C
  233. M8/$N`1!UU!+5$)MG</'#!!=U@X"Y""T(B(NA'Q`308+*60BA2SI<_/R$A!<*
  234. M""^6`.A8`,%0T&@@L5-5H1LZ;0R@TU6@&QCZ`3&!7/H?/TQP43<($>\2`%%%
  235. M`G`QICP08!@Z$;JF8SJF(P*Z@(`"I2,8.I`(+7`(+!`"019&Z+7\$.J"H12*
  236. M(6N&@!((B;*#81A*H!&#H1\:4_NP#W$4I`$3%C$60T$5<QCZH!"&`/`(`(8`
  237. M("L`(0!@"`"&`#`7`*("H!8`B`!@"`"&`&`(`(8`8`@`*S%PZ09(+G`P]53E
  238. M1%0D99XN*S&`'@,`G2UPPU/:2Z;*4^\_<.D&2"XPP%9F)Z!BWU6P$@-.*F`$
  239. M`+S_WZ/_R_F?D__P^,^*_TGX#X#_M_=/5?_!])]%_YGS[Z0")@$`````````
  240. M`$8`X`0`A0````",`,`)`*X`````````````````````0`H`!'1O;F4$4##W
  241. M5N=&!@`%;F]I<V4%4``75C=79@`%<W=E97`'8"!7!E<61B<`"&5N9'-O=6YD
  242. M`9!0YD8F5P97%D8W``IS=V5E<&YO:7-E""`)`$H```8`/P`P"P"<`"`)`(@`
  243. %$`0`L'$`
  244. `
  245. end
  246. sum -r/size 25560/2581 section (from "begin" to "end")
  247. sum -r/size 8248/1850 entire input file
  248. END_UU
  249.