%harm_Acc = 46 DECLARE SUB Harma_RadPic SUB Harma_RadPic 'added for mastricht demo LOCAL i AS LONG STATIC init AS DWORD IF ISFALSE init THEN warning "cockpit slider 0 for range!" slider(0).value = 100 SendMessage(slider(0).h, %TBM_SETPOS, %true, 100) init = 1 END IF Controller Harma.channel, 7, MAX(10, @pRadPic(0).amp, @pRadPic(1).amp, @pRadPic(2).amp) IF @pRadPic(0).amp > 6 THEN i = Harma.LowTes + @pRadPic(0).f *0.013 * slider(0).value Addnote2Har Harma.Har(1), i, 10 Play Harma.channel, 91, 1 Play Harma.channel, 92, 1 ELSE Play Harma.channel, 91, 0 Play Harma.channel, 92, 0 END IF IF @pRadPic(1).amp > 6 THEN i = Harma.LowTes + @pRadPic(1).f * 0.015 * slider(0).value Addnote2Har Harma.Har(1), i, 10 Play Harma.channel, 93, 1 Play Harma.channel, 94, 1 ELSE Play Harma.channel, 93, 0 Play Harma.channel, 94, 0 END IF IF @pRadPic(2).amp > 6 THEN i = Harma.LowTes + @pRadPic(2).f * 0.017 * slider(0).value Addnote2Har Harma.Har(1), i, 10 Play Harma.channel, 95, 1 Play Harma.channel, 96, 1 ELSE Play Harma.channel, 95, 0 Play Harma.channel, 96, 0 END IF InstrumTransPoseToRange Harma InstrumPlay Harma Task(%Harm_acc).freq = MIN(16, MAX(3, @pRadPic(0).f, @pRadPic(1).f, @pRadPic(2).f) / 5) END SUB