Sayfa 15

TOR

Merhaba arkadaşlar. Bu ayki yazımızda, Amos'un ses Komutla rına kaldığımız yerden devam ediyoruz. İk olarak set wave ko mutu için bir örnek daha yazdım. Eğer Sonix programı nı kullanmışsanız, bu programın editing' yatı sesin dalga şeklini özelliğine sahip olduğunu da biliyorsunuzdür. İşte yazdığım program da bü işe yarıyor. yardımıyla ekrana çizeceğiniz bir sesi, 'set wave' komulu yardımıyla ses ka nallarına aktarıyor. Programın listesini aşağıda veriyorum:

Rem

Rem ** AMIGA DUNYASI Rem ** AMOS Demo Program ** Rem ** Written by Rem ** Burak Ozdemir Rem ** AMOS Copyright 1990 **

Rem iririk

Limit Mouse 130,30 To 386,286 Dim (256) Global S$z”” WSC SW SA Set Wave 3,5$ Set Envel 3,0 To 1,63 Set Envel 3,1 To 50,60 Set Envel 3,2 To 1,0 Wave 3 Tao 15 Volume 63 Da If Mouse Key>0 Then Exit Play 1,37,10 Wait 55 Loop Procedure SW Da If Mouse Keyz1 and Scin(X Mouse,Y Mouse)-1 Then SW1 If Mouse Keyz2 Then Exit Loop End Proc Procedure WSC Screen Open 1,256,256,4,Hires Screen Display 1,130,30,256,256 Palette 0,$FFO,$FO0,$F Flash Off Curs Off Cis 0 Ink 2 Draw 0,128 To 255,128 Draw 128,0 To 128,255 ink 3 Box 0,0 To 255,255 For F-0 To 255

Next F End Proc Procedure SW1 Screen 1 XC-X Secreen(1,X Mouse) YC-Y Screen(1,Y Mouse) Ink 0 If Ol-z128 Then İnk 2 Plot XC,Ol Ink 1 Plot XC,YC End Proc Procedure SA For F-0 To 255 Next F For F-0 To 255 | If KE)<127 | Else | End If Next F | End Proc Programda, dalgayı sol moüse tüşü yardımıyla çiziyorsumuz. Dalgayı çizdikten sonra, sağ mouse tuşuna basarak hunu dinle- ineniz mümkün. Programda kullandığım “Set envel” komutunu biraz sonra açıklayacağım. Şimdi komutlarımıza devam cdelim.

KOMUT: KULLANILIŞ: Noise to v

Bu komut, *v' parametresiyle belirtilen ses kanallarına gürültü işareti verir, Bu komut yerine aşağıdaki komutu da kullanabilirsi

Noise