🚀 go-pugleaf

$@$($($H!"Bg5WJ]!wL>8E20Bg$G$9!#(J

In article <OHKUBO.92Apr20161858@pluto.inagaki.nuie.nagoya-u.ac.jp> ohkubo@pluto.inagaki.nuie.nagoya-u.ac.jp (Hirotaka Ohkubo) writes:

   $@8=:_!"G-$NLD$-@<$O(J
   Sound Manager $@$G$O$J$/(J Sound Driver $@$r;H$C$F$$$^$9!#(J
   Sound Manager $@$GHsF14|$K2;$r=P$9J}K!$r$4B8(J$@$8$NJ}$O(J
   $@$<$R$*CN$i$;$/$@$5$$!#(J

$@G-$OA4$F$N%3!<%I$r!J(JWDEF$@!J%&%$%k%9$B$c$J$$$h!K$5$($b!*!K(J
THINK Pascal v4.0.1$@$G=q$-$^$7$?!#(J

$@%]%9%H$7$F$9$0$KB?$/$NH?6A$,$"$j!";d$O4r$7$$$G$9!#(J
$@$7$+$7!"#2!"#35$$K$J$k%a(J$@!<%k$,$"$j$^$7$?!#(J
$@$=$l$O(J

$@"("("("("((J System 7 + GomTalk $@$H$OAj@-$,0-$$!#"("("("("((J

$@$H$$$&$3$H$G$9!#(J
$@$3$l$O(J GomTalk $@$K8B$C$?$3$H$G$O$J$/!"(JSystem 7$@$H$N(J
$@Aj@-$H;W$C$F$$$$$G$7$g$&!#!J1QJ8$N$^$^$G(J System 7$@;H(J$@$C$F$k?M$$$^$9!)!K(J

$@$=$l$O$D$^$j!">e$N(J Sound Driver $@$^$o$j$NLdBj$G$O$J$$$+$H?dB,$7$F$$$^$9!#(J

$@$3$N>l$r(J$@<Z$j$F4JC1$K@bL@$5$;$F$$$?$@$-$^$9!#(J

$@;d$,;29M$K$7$?$N$OM#0l(J Inside Macintosh Vol.V($@F|K\8lHG(J)$@$@$1$G$9(J$@!#(J
$@$3$l$,8m1QJ8$r5!3#8mK]Lu$7$?BLJ8$G$"$k$3$OCV$$$F$*$$$F!"(J

'snd '$@%j%=!<%9$r;}$C$F$-$F2;$r=P$9$K$O(J
$@Nc(J$@$($P(J

s:=GetResource('snd ',128);
err:=SndPlay(nil,s,false);

$@$H$9$l$P$$$$!"$H=q$$$F$"$j$^$9!#(J
$@$^$?!"(J$@!X(Jchan$@$,(JNIL$@$N>l9g$O!"I,$:(JFALSE$@$r(Jasync$@$K%;%C%H$7$F$/$@$5$$!Y(J
$@$H$"$k$N$G!"%5%&%s%I%A%c%M%k$N%"%m%1!<%H$r(J$@$5$\$j$?$$;~$O(J
$@2;$,=*$k$^$G(JSndPlay$@$+$i@)8f$OJV$C$F$3$J$$$3$H$K$J$j$^$9!#(J

$@$H$3$m$,62$m$7$$$3$H$K!"(JV-492$@$N(JExample$@$K$O(J
$@!X(J
ResHndl:=GetNamedResource('snd ','Harpsichord');
SndPlay(NIL,ResHndl,TRUE);

$@$3$N%3(J$@!<%k$G$O%A%c%M%k$N;XDj$,$"$j$^$;$s$N$G!"(J
Sound Manager$@$O%A%c%M%k$r#1$D%"%m%1!<%H$7!"(J
$@=*N;8e$K$=$l$r2r(J$@J|$7$^$9!#(J
$@Bh#3$N(Jargument$@$O!"(JSound Manager$@$K(Jsound$@$rHsF14|$G(J
$@1iAU$9$k;X<($r$7$F$$$^$9!#(J
$@@)8f$O$9$0$K%3(J$@!<%kB&$N%W%m%0%i%`$KLa$5$l$^$9!#!Y(J

$@$H$"$j$^$9!#%W%m%0%i%`$N#29TL\$O(JC$@$G$J$1$l$P%(%i!<$G$9$7!"(J
$@Bh#3$N(Jargument$@1>!9!D$O(JSndPlay$@4X?t$NI,$:(JFALSE$@$r!D$HL7=b$7$^$9!#(J

$@$3$NJ}K!$r;H$&$H!"$A$$$5$J%F%9%H%W%m%0%i%`$G(J$@$O$&$^$/$$$/$N$G$9$,!"(J
$@G-$KAH$_9~$s$@ESC<$=$3$G%O%s%0$7$^$7$?!#(J

$@$=$3$G!"<+A0$G%A%c%M%k$r%"%m%1!<%H$7(J$@$?$j!"(J
$@!X(J
myChan:=nil;
err:=SndNewChannel(myChan,sampledSynth,0,NIL);
:
err:=SndPlay(myChan,s,true);
$@!Y(J
$@$3$s$I$O$$$D$^$GBT$C$F$b2;$,$G$^$;$s!#(J

SADeRez$@$G(J'snd '$@$r%F%-%9%H$K$7!"FbIt$r$$$8$C$F(J
format 2 Snd Resource $@$r:n$C$F$_$?$j$7$^$7$?$,!"(J

$@"("("("("((J $@A4$/$*<j>e$2$G$9!#"("("("("((J

"Diamond"$@$G$O$$$H$b4JC1(J$@$K4qL/$J(JBGM$@$r%(%s%I%l%9$KN.$7$F$$$k$H$$$&$N$K!D(J

$@$@$l$+HsF14|$K(J'snd '$@%j%=!<%9$rLD$i$9J}K!$r(J
$@$4B8CN$NJ}(J$@$O$$$^$;$s$+!)(J

$@$I$&$>$h$m$7$/$*4j$$$7$^$9!#(J
--
.--------.       $@!N$R$m$?$+!O(J
||$@!1!1!1(J||  $@Bg5WJ]90?r(J$@!w0p3@8&!%>pJs9)!%L>8E20Bg3X(J	HONDA NSR250R('89)
||______||  ohkubo@inagaki.nuie.nagoya-u.ac.jp		SEED Color
|Mac+ ===|  ICE hack$@?66=2qH/5/?M(J			$@$3$1%-%:B??t(J
 |$@!1!1!1(J|MacPlus4MB80MBHDD platina color	(both NOT for sale!)
  $@!1!1!1(J