ð0@S; ;nAME: gALWAY sTRINGS ; ;aUTHOR: jONAS hULTEN ; ;mODULATIONS: ; ; PITCH BEND: PITCH ; ;nOTES: ; ; tAKEN FROM yIE aR kUNG fU. oRIGINAL ; SOUND BY mARTIN gALWAY. ; CONST vibratodelay = 20 CONST vibratospeed = $2000 CONST vibratodepth = $80 CONST bendervalue = 2 GLOBALiNIT: SET sidgVOLUME END GLOBALaLWAYS: END LOCALiNIT: MOVEI $6000, sidATTACK MOVEI $7000, sidDECAY MOVEI $E000, sidSUSTAIN MOVEI $9000, sidRELEASE SET sidPULSE END LOCAL PULSC,VIBC,VIBDELY LOCALkEYdOWN: ;ATTACK DEPENDS ON VELOCITY SET sidATTACK SUB midVELOCITY, sidATTACK ;PULSE SWEEP MOVE midFREQ, sidFREQ MOVEI $800, sidPULSEwIDTH SET sidGATE CLR VIBC CLR PULSC MOVEI vibratodelay, VIBDELY END LOCALkEYuP: CLR sidGATE ;ACTIVATE RELEASE END LOCAL PITCH, TEMPL LOCALaLWAYS: ;PULSE VIB ADDI $100, PULSC TRIANGLE PULSC, TEMPL SCALEI $6800, TEMPL ADDI $8800, TEMPL MOVE TEMPL, sidPULSEwIDTH ;PITCH BEND GLOB2REG midgPITCH, PITCH PITCHBENDI bendervalue, PITCH MOVE midFREQ, sidFREQ ;PITCH VIBRATO BEQZ VIBDELY, DOVIB ;DELAY SUBI 1, VIBDELY END DOVIB: ;VIBRATO ADDI vibratospeed, VIBC SINUS VIBC, TEMPL SCALEI vibratodepth+vibratodepth, TEMPL SUBI vibratodepth, TEMPL ADD TEMPL, sidFREQ END÷