Xref: utzoo comp.sys.apple2:16548 comp.lang.pascal:6882
Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!mcsun!cernvax!myb
From: myb@cernvax.cern.ch (michel bornand)
Newsgroups: comp.sys.apple2,comp.lang.pascal
Subject: What's wrong with this Pascal program?
Keywords: pascal
Message-ID: <5397@cernvax.cern.ch>
Date: 24 May 91 07:45:44 GMT
Followup-To: comp.sys.apple2
Distribution: all
Organization: CERN, Geneva, Switzerland
Lines: 46

Hi everybody! Here is a simple Pascal program for Apple IIGS which should
produce a sound at 16kHz. It does not work. What's wrong with it?
What did I miss?


program testsound;

uses types,sound;

var oneangle:array[1..16] of byte;
    gsoundparms:SoundParamBlock;

begin

     oneangle[1]:=$40;
     oneangle[2]:=$50;
     oneangle[3]:=$60;
     oneangle[4]:=$70;
     oneangle[5]:=$80;
     oneangle[6]:=$90;
     oneangle[7]:=$A0;
     oneangle[8]:=$B0;
     oneangle[9]:=$C0;
     oneangle[10]:=$B0;
     oneangle[11]:=$A0;
     oneangle[12]:=$90;
     oneangle[13]:=$80;
     oneangle[14]:=$70;
     oneangle[15]:=$60;
     oneangle[16]:=$50;

     gsoundparms.waveStart:=@oneangle;
     gsoundparms.waveSize:=16;
     gsoundparms.freqOffset:=311;
     gsoundparms.DOCBuffer:=1;
     gsoundparms.bufferSize:=$0800;
     gsoundparms.nextwave:=@gsoundparms;
     gsoundparms.volSetting:=255;

     FFStartSound($0A01,@gsoundparms);

end.

Thank you for all suggestions.

Micky