Path: utzoo!censor!geac!torsqnt!news-server.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!zaphod.mps.ohio-state.edu!sdd.hp.com!elroy.jpl.nasa.gov!ncar!noao!amethyst!organpipe!astro.as.arizona.edu From: hicksm@astro.as.arizona.edu (Michael Hicks) Newsgroups: comp.music Subject: Basic COMP.MUSIC for c64 Message-ID: <603@organpipe.UUCP> Date: 2 Dec 90 23:47:12 GMT Sender: news@organpipe.UUCP Organization: University of Arizona, Tucson, AZ Lines: 39 Howdy, Comp.music fans: I was able to find a old and cheap '64 via the net in order to fiddle around with computer generated music. This morning I implimented my first experiment in deterministic, yet chaotic note generation. Here it is: 10 S=54272: FOR SW = S TO S+24: POKE SW,0: NEXT SW 20 POKE S+24,15 30 POKE S+2,255 40 POKE S+3,0 50 POKE S+5,9 60 POKE S+6,0 70 N11=1.03: N21=0.96: DR1=0.50 80 N12=24+6*SIN(N11) 90 N22=174+70*COS(N21) 100 DR2=375+125*SIN(DR1) 110 N11=N12: N21=N22: DR1=DR2 120 POKE S+1,N12: POKE S,N22 130 POKE S+4,17 140 FOR Z=1 TO DR2: NEXT Z 150 POKE S+4,64 160 FOR T=1 TO 5: NEXT T 170 GOTO 80 If you wish to run this program, feel free to manipulate the initial conditions found in line 70, as well as the values of the constants and the coefficients for the equations in lines 80, 90, and 100. I invite you to take a listen. -Michael Hicks Brought to you by Super Global Mega Corp .com